파워빌더 스크립트 SP_CONTRACT_VALUE_ITEM_INSERT& SP_CONTRACT_VALUE_ITEM_UPDATE 처리

영업관리팀에서 잦은 CONTRACT_VALUE 테이블 데이터 일괄처리 요청으로 인하여 새 프로그램을 만들어 주었다.

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

 

SP_CONTRACT_VALUE_ITEM_INSERT 처리 스크립트

 

string ls_old_item_code, ls_new_item_code,  ls_old_term_to, ls_new_term_from


dw_2.AcceptText()

ls_old_item_code =  dw_2.GetItemString(1, 'old_item_code' )
ls_new_item_code = dw_2.GetItemString(1, 'new_item_code' )
ls_old_term_to  = String(dw_2.GetItemDate(1, 'old_term_to'),'yyyymmdd')
ls_new_term_from  = String(dw_2.GetItemDate(1, 'new_term_from'),'yyyymmdd')




IF IsNull(ls_old_item_code) THEN
MessageBox("확인", "기존 품목코드를 입력하십시오.")
dw_2.SetFocus()
dw_2.SetColumn('old_item_code')
RETURN
END IF

IF IsNull(ls_new_item_code) THEN
MessageBox("확인", "새 품목코드를 입력하십시오.")
dw_2.SetFocus()
dw_2.SetColumn('new_item_code')
RETURN
END IF

IF ls_old_term_to = '' THEN
MessageBox("확인", "기존 계약기간을 입력하십시오.")
dw_2.SetFocus()
dw_2.SetColumn('old_term_to')
RETURN
END IF

IF ls_new_term_from = '' THEN
MessageBox("확인", "계약 시작날짜를 입력하십시오.")
dw_2.SetFocus()
dw_2.SetColumn('new_term_from')
RETURN
END IF





EXECUTE IMMEDIATE "ALTER TRIGGER T_SAL_CONTRACT_VALUE DISABLE " using sqlca ;




DECLARE SP_WORK2 PROCEDURE FOR SP_CONTRACT_VALUE_ITEM_INSERT(:ls_old_item_code, :ls_new_item_code, :gsEmpcd, :ls_old_term_to, :ls_new_term_from);
EXECUTE SP_WORK2;

MessageBox("확인", "새 품목코드 입력 완료!")



EXECUTE IMMEDIATE "ALTER TRIGGER T_SAL_CONTRACT_VALUE ENABLE " using sqlca ;

 

 

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

SP_CONTRACT_VALUE_ITEM_UPDATE 처리 스크립트

 

 

string ls_old_item_code,  ls_old_term_to, ls_new_term_to


dw_1.AcceptText()

ls_old_item_code =  dw_1.GetItemString(1, 'old_item_code' )
ls_old_term_to  = String(dw_1.GetItemDate(1, 'old_term_to'),'yyyymmdd')
ls_new_term_to  = String(dw_1.GetItemDate(1, 'new_term_to'),'yyyymmdd')


IF IsNull(ls_old_item_code) THEN
MessageBox("확인", "품목코드를 입력하십시오.")
dw_1.SetFocus()
dw_1.SetColumn('old_item_code')
RETURN
END IF

IF ls_old_term_to = '' THEN
MessageBox("확인", "기존 계약기간을 입력하십시오.")
dw_1.SetFocus()
dw_1.SetColumn('old_term_to')
RETURN
END IF

IF ls_new_term_to = '' THEN
MessageBox("확인", "변경 계약기간을 입력하십시오.")
dw_1.SetFocus()
dw_1.SetColumn('new_term_to')
RETURN
END IF


EXECUTE IMMEDIATE "ALTER TRIGGER T_SAL_CONTRACT_VALUE DISABLE " using sqlca ;




DECLARE SP_WORK1 PROCEDURE FOR SP_CONTRACT_VALUE_ITEM_UPDATE(:ls_old_item_code, :gsEmpcd, :ls_old_term_to, :ls_new_term_to);
EXECUTE SP_WORK1;
MessageBox("확인", "계약기간변경 완료!")



EXECUTE IMMEDIATE "ALTER TRIGGER T_SAL_CONTRACT_VALUE ENABLE " using sqlca ;