HIST_DEL은 삭제를 하는 쿼리문입니다... 프로그램을 런시켰을 경우
계속... EXECSQL; 에서 멈춰있는 까닭이 뭘까염~ 헉~ 제발좀 답변해주세요~
with Hist_Del do begin
CLOSE;
ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
EXECSQL;
End;
*쿼리 Hist_Del의 내용..
DELETE FROM ORDR13MT
WHERE ORDER_NO_BUYER = :P_NO_BUYER
AND ORDER_NO_YEAR = :P_NO_YEAR
AND ORDER_NO_SEQ = :P_NO_SEQ
AND NVL(SHIP_CONFIRM,0) <> 'Y'
HIST_DEL은 삭제를 하는 쿼리문입니다... 프로그램을 런시켰을 경우
계속... EXECSQL; 에서 멈춰있는 까닭이 뭘까염~ 헉~ 제발좀 답변해주세요~
with Hist_Del do begin
close;
sql.clear;
sql.add('DELETE FROM ORDR13MT');
sql.add('WHERE (ORDER_NO_BUYER = :P_NO_BUYER)
AND (ORDER_NO_YEAR = :P_NO_YEAR)
AND (ORDER_NO_SEQ = :P_NO_SEQ)
AND (NVL(SHIP_CONFIRM,0) <> 'Y')');
ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
EXECSQL;
End;
(NVL(SHIP_CONFIRM,0) <> 'Y') 요것이 먼지 몰겠지만은 위처럼 하면 되지 않을까요?