hnc wrote:

> 아래에서 디버깅시 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;





'( )'빠진거 같네요



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

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



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

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



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

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