아래에서 디버깅시 insert procedure 호출후 (1) param값 대입후 execSQl (2)후 save procedure

로 돌아와서 Commit (3) 으로 가지못하구 except (4) 로 넘어가는데 코딩상에 잘못된부분이 있는지

봐주시구 또 EXCEPT 중 어떤 EXCEPT가 발생했는지 알수있는 방법좀 부탁드립니다





Procedure TFrmBIL1601.Fd301T_Save;

begin

Try

HangeDB.StartTransaction;

FD301T_INSERT; ///////////////////// 1

HangeDB.Commit; ///////////////////// 3

DetailInputClear('all');

except

HangeDB.Rollback; /////////////////// 4

Application.MessageBox('저장 실패하였습니다.', '저장 실패', MB_OK);

end;

QryItemDetail.Free;

end;





Procedure TFrmBIL1601.FD301T_INSERT; ///////////// 2

begin

With QryProcess Do

begin

Close;

SQL.Clear;

SQL.Add('Insert Into BL110T');

SQL.Add('(YoyKind ,YoyCode');

SQL.Add('YoyFromRate1,YoyToRate1,YoyAmt1)');



SQL.Add('Values ');

SQL.Add(' (:N1,:N2,:F1,:T1,:A1) ');



paramByname('N1').AsString := '1';

ParamByname('N2').AsString := '000'+ EdtUp.Text;



ParamByName('F1').AsString := CurrToStr(Fd301TR[0].AmtFrom);

ParamByName('T1').AsString := CurrToStr(Fd301TR[0].AmtTo);

ParamByName('A1').AsString := CurrToStr(Fd301TR[0].Amt);



ExecSQL; ////////////////////////// 3

end;

end;