0% found this document useful (0 votes)
308 views16 pages

Dev Ae Code

This document contains PeopleCode to get and set properties on a Component Interface object. It logs values to a file as it gets and sets various fields on the Component Interface, including default fields as well as custom fields added to the component. The code executes SQL statements to update flag values after completing the get and create operations on the Component Interface.
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
308 views16 pages

Dev Ae Code

This document contains PeopleCode to get and set properties on a Component Interface object. It logs values to a file as it gets and sets various fields on the Component Interface, including default fields as well as custom fields added to the component. The code executes SQL statements to update flag values after completing the get and create operations on the Component Interface.
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 16

/* ===> This is a dynamically generated PeopleCode template to be used only as a helper to the application developer.

You need to replace all references to '[*]' OR default values with references t o PeopleCode variables and/or a Rec.Fields. */ Local Local Local Local Local Local Local File &fileLog; ApiObject &oSession, &oVsVndrIdCi; ApiObject &oVndrVatRgstrnCollection, &oVndrVatRgstrn; ApiObject &oVndrAddrScrolCollection, &oVndrAddrScrol; ApiObject &oVendorAddrCollection, &oVendorAddr; ApiObject &oVndrLocScrolCollection, &oVndrLocScrol; ApiObject &oVendorLocCollection, &oVendorLoc; errorHandler() ApiObject &oPSMessageCollection, &oPSMessage; number &i; string &sErrMsgSetNum, &sErrMsgNum, &sErrMsgText, &sErrType;

Function Local Local Local

&oPSMessageCollection = &oSession.PSMessages; For &i = 1 To &oPSMessageCollection.Count &oPSMessage = &oPSMessageCollection.Item(&i); &sErrMsgSetNum = &oPSMessage.MessageSetNumber; &sErrMsgNum = &oPSMessage.MessageNumber; &sErrMsgText = &oPSMessage.Text; &fileLog.WriteLine(&sErrType " (" &sErrMsgSetNum "," ") - " &sErrMsgText); End-For; rem ***** Delete the Messages from the collection *****; &oPSMessageCollection.DeleteAll(); End-Function; REM MessageBox(0, "", 0, 0, "TEST"); try

&sErrMsgNum

rem ***** Set the Log File *****; &fileLog = GetFile("C:\Users\BVENKATE\AppData\Local\Temp\2\VS_VNDR_ID_CI.log" , "w", "a", %FilePath_Absolute); &fileLog.WriteLine("Begin"); rem ***** Get current PeopleSoft Session *****; &oSession = %Session; rem ***** Set the PeopleSoft Session Error Message Mode *****; rem ***** 0 - None *****; rem ***** 1 - PSMessage Collection only (default) *****; rem ***** 2 - Message Box only *****; rem ***** 3 - Both collection and message box *****; &oSession.PSMessagesMode = 1; rem ***** Get the Component Interface *****; &oVsVndrIdCi = &oSession.GetCompIntfc(CompIntfc.VS_VNDR_ID_CI); If &oVsVndrIdCi = Null Then errorHandler(); rem throw CreateException(0, 0, "GetCompIntfc failed"); End-If; rem ***** Set the Component Interface Mode *****; &oVsVndrIdCi.InteractiveMode = False;

&oVsVndrIdCi.GetHistoryItems = True; &oVsVndrIdCi.EditHistoryItems = False; REM MessageBox(0, "", 0, 0, VS_VNDR_AET.SETID); rem ***** Set Component Interface Get/Create Keys *****; &oVsVndrIdCi.SETID = VS_VNDR_AET.SETID; &oVsVndrIdCi.VENDOR_ID = VS_VNDR_AET.VENDOR_ID; &oVsVndrIdCi.VENDOR_PERSISTENCE = VS_VNDR_AET.VENDOR_PERSISTENCE; &saveget = False; rem ***** Execute Get *****; If Not &oVsVndrIdCi.Get() Then rem ***** No rows exist for the specified keys.*****; rem errorHandler(); rem throw CreateException(0, 0, "Get failed"); REM MessageBox(0, "", 0, 0, "Get failed"); End-If; &fileLog.WriteLine("SAVETARGET after GET() = " &saveget); rem ***** Execute Create ******; If Not &oVsVndrIdCi.Create() Then; rem ***** Unable to Create Component Interface for the Add keys provided. *****; rem errorHandler(); REM throw CreateException(0, 0, "Create failed"); REM MessageBox(0, "", 0, 0, "CREATe failed"); &saveget = True; If &saveget = True Then REM MessageBox(0, "", 0, 0, "message to be displayed"); SQLExec("update PS_VS_VNDR_STG_TBL set FLAG = 'N' where SETID = :1 AND VENDOR_ID = :2 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_AET.VENDOR_ID); SQLExec("update PS_VS_VAT_STG_TBL set FLAG = 'N' where SETID = :1 AND V ENDOR_ID = :2 and COUNTRY = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR _AET.VENDOR_ID, VS_VNDR_AET.COUNTRY3); SQLExec("update PS_VS_ADSC_STG_TBL set FLAG = 'N' where SETID = :1 AND VENDOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID , VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM); SQLExec("update PS_VS_VNAD_STG_TBL set FLAG = 'N' where SETID = :1 AND VENDOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and EFFDT = :4 and date1 <= SYSDATE", VS _VNDR_AET.SETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM, VS_VNDR_AET .EFFDT); SQLExec("update PS_VS_LOSC_STG_TBL set FLAG = 'N' where SETID = :1 AND VENDOR_ID = :2 and VNDR_LOC = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VN DR_AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC); SQLExec("update PS_VS_LOC_STG_TBL set FLAG = 'N' where SETID = :1 AND V ENDOR_ID = :2 and VNDR_LOC = :3 and EFFDT = :4 and date1 <= SYSDATE", VS_VNDR_AE T.SETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC, VS_VNDR_AET.EFFDT_CUST); End-If; End-If; &fileLog.WriteLine("SAVETARGET after CREATE() = "

&saveget);

rem ***** Begin: Get/Set Component Interface Properties *****; rem ***** Get/Set Level 0 Field Properties *****; &fileLog.WriteLine("setid = " &oVsVndrIdCi.SETID "; vendor_id = " &oVsV ndrIdCi.VENDOR_ID "; vendor_persistance = " &oVsVndrIdCi.VENDOR_PERSISTENCE) ; &oVsVndrIdCi.NAME2 = VS_VNDR_AET.NAME2; &fileLog.WriteLine("&oVsVndrIdCi.REMIT_ADDR_SEQ_NUM = " &oVsVndrIdCi.REMIT_ ADDR_SEQ_NUM); &oVsVndrIdCi.REMIT_ADDR_SEQ_NUM = VS_VNDR_AET.REMIT_ADDR_SEQ_NUM;

&fileLog.WriteLine("&oVsVndrIdCi.PRIM_ADDR_SEQ_NUM = " &oVsVndrIdCi.PRIM_AD DR_SEQ_NUM); &oVsVndrIdCi.PRIM_ADDR_SEQ_NUM = VS_VNDR_AET.PRIM_ADDR_SEQ_NUM; &fileLog.WriteLine("&oVsVndrIdCi.ADDR_SEQ_NUM_ORDR = " &oVsVndrIdCi.ADDR_SE Q_NUM_ORDR); &oVsVndrIdCi.ADDR_SEQ_NUM_ORDR = VS_VNDR_AET.ADDR_SEQ_NUM_ORDR; &fileLog.WriteLine("&oVsVndrIdCi.REMIT_SETID = " &oVsVndrIdCi.REMIT_SETID); &oVsVndrIdCi.REMIT_SETID = VS_VNDR_AET.REMIT_SETID; &fileLog.WriteLine("&oVsVndrIdCi.REMIT_VENDOR = " &oVsVndrIdCi.REMIT_VENDOR ); &oVsVndrIdCi.REMIT_VENDOR = VS_VNDR_AET.REMIT_VENDOR; &fileLog.WriteLine("&oVsVndrIdCi.CORPORATE_SETID = " &oVsVndrIdCi.CORPORATE _SETID); &oVsVndrIdCi.CORPORATE_SETID = VS_VNDR_AET.CORPORATE_SETID; &fileLog.WriteLine("&oVsVndrIdCi.CORPORATE_VENDOR = " &oVsVndrIdCi.CORPORAT E_VENDOR); &oVsVndrIdCi.CORPORATE_VENDOR = VS_VNDR_AET.CORPORATE_VENDOR; &fileLog.WriteLine("&oVsVndrIdCi.CUST_SETID = " &oVsVndrIdCi.CUST_SETID); &oVsVndrIdCi.CUST_SETID = VS_VNDR_AET.CUST_SETID; &fileLog.WriteLine("&oVsVndrIdCi.CUST_ID = " &oVsVndrIdCi.CUST_ID); &oVsVndrIdCi.CUST_ID = VS_VNDR_AET.CUST_ID; &fileLog.WriteLine("&oVsVndrIdCi.AR_NUM = " &oVsVndrIdCi.AR_NUM); &oVsVndrIdCi.AR_NUM = VS_VNDR_AET.AR_NUM; &fileLog.WriteLine("&oVsVndrIdCi.WTHD_SW = " &oVsVndrIdCi.WTHD_SW); &oVsVndrIdCi.WTHD_SW = VS_VNDR_AET.WTHD_SW; &fileLog.WriteLine("&oVsVndrIdCi.VAT_SW = " &oVsVndrIdCi.VAT_SW); &oVsVndrIdCi.VAT_SW = VS_VNDR_AET.VAT_SW; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_STATUS_PO = " &oVsVndrIdCi.VNDR_STATU S_PO); &oVsVndrIdCi.VNDR_STATUS_PO = VS_VNDR_AET.VNDR_STATUS_PO; &fileLog.WriteLine("&oVsVndrIdCi.REMIT_LOC = " &oVsVndrIdCi.REMIT_LOC); &oVsVndrIdCi.REMIT_LOC = VS_VNDR_AET.REMIT_LOC; &fileLog.WriteLine("&oVsVndrIdCi.DEFAULT_LOC = " &oVsVndrIdCi.DEFAULT_LOC); &oVsVndrIdCi.DEFAULT_LOC = VS_VNDR_AET.DEFAULT_LOC; &fileLog.WriteLine("&oVsVndrIdCi.NAME1_AC = " &oVsVndrIdCi.NAME1_AC); &oVsVndrIdCi.NAME1_AC = VS_VNDR_AET.NAME1_AC; &fileLog.WriteLine("&oVsVndrIdCi.NAME2_AC = " &oVsVndrIdCi.NAME2_AC); &oVsVndrIdCi.NAME2_AC = VS_VNDR_AET.NAME2_AC; &fileLog.WriteLine("&oVsVndrIdCi.PRIMARY_VENDOR = " &oVsVndrIdCi.PRIMARY_VE NDOR); &oVsVndrIdCi.PRIMARY_VENDOR = VS_VNDR_AET.PRIMARY_VENDOR; &fileLog.WriteLine("&oVsVndrIdCi.WITHHOLD_LOC = " &oVsVndrIdCi.WITHHOLD_LOC ); &oVsVndrIdCi.WITHHOLD_LOC = VS_VNDR_AET.WITHHOLD_LOC; &fileLog.WriteLine("&oVsVndrIdCi.IN_PROCESS_FLG = " &oVsVndrIdCi.IN_PROCESS _FLG); &oVsVndrIdCi.IN_PROCESS_FLG = VS_VNDR_AET.IN_PROCESS_FLG; &fileLog.WriteLine("&oVsVndrIdCi.PROCESS_INSTANCE = " &oVsVndrIdCi.PROCESS_ INSTANCE); &oVsVndrIdCi.PROCESS_INSTANCE = VS_VNDR_AET.PROCESS_INSTANCE; &fileLog.WriteLine("&oVsVndrIdCi.HUB_ZONE = " &oVsVndrIdCi.HUB_ZONE); &oVsVndrIdCi.HUB_ZONE = VS_VNDR_AET.HUB_ZONE; &fileLog.WriteLine("&oVsVndrIdCi.EEO_CERTIF_DT = " &oVsVndrIdCi.EEO_CERTIF_ DT); &oVsVndrIdCi.EEO_CERTIF_DT = VS_VNDR_AET.EEO_CERTIF_DT; &fileLog.WriteLine("&oVsVndrIdCi.INTERUNIT_VNDR_FLG = " &oVsVndrIdCi.INTERU NIT_VNDR_FLG); &oVsVndrIdCi.INTERUNIT_VNDR_FLG = VS_VNDR_AET.INTERUNIT_VNDR_FLG; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_AFFILIATE = " &oVsVndrIdCi.VNDR_AFFIL IATE);

&oVsVndrIdCi.VNDR_AFFILIATE = VS_VNDR_AET.VNDR_AFFILIATE; &fileLog.WriteLine("&oVsVndrIdCi.BUSINESS_UNIT = " &oVsVndrIdCi.BUSINESS_UN IT); &oVsVndrIdCi.BUSINESS_UNIT = VS_VNDR_AET.BUSINESS_UNIT; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_TIN = " &oVsVndrIdCi.VNDR_TIN); &oVsVndrIdCi.VNDR_TIN = VS_VNDR_AET.VNDR_TIN; &fileLog.WriteLine("&oVsVndrIdCi.ARCHIVED_BY = " &oVsVndrIdCi.ARCHIVED_BY); &oVsVndrIdCi.ARCHIVED_BY = VS_VNDR_AET.ARCHIVED_BY; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_A = " &oVsVndrIdCi.VNDR_FIE LD_C30_A); &oVsVndrIdCi.VNDR_FIELD_C30_A = VS_VNDR_AET.VNDR_FIELD_C30_A; /*VENKAT*/ &fileLog.WriteLine("&oVsVndrIdCi.VNDR_NAME_SHRT_USR = " &oVsVndrIdCi.VNDR_N AME_SHRT_USR); &oVsVndrIdCi.VNDR_NAME_SHRT_USR = VS_VNDR_AET.VNDR_NAME_SHRT_USR; &fileLog.WriteLine("&oVsVndrIdCi.NAME1 = " &oVsVndrIdCi.NAME1); &oVsVndrIdCi.NAME1 = VS_VNDR_AET.NAME1; /*END-VENKAT*/ &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_B = " &oVsVndrIdCi.VNDR_FIE LD_C30_B); &oVsVndrIdCi.VNDR_FIELD_C30_B = VS_VNDR_AET.VNDR_FIELD_C30_B; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_C = " &oVsVndrIdCi.VNDR_FIE LD_C30_C); &oVsVndrIdCi.VNDR_FIELD_C30_C = VS_VNDR_AET.VNDR_FIELD_C30_C; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_D = " &oVsVndrIdCi.VNDR_FIE LD_C30_D); &oVsVndrIdCi.VNDR_FIELD_C30_D = VS_VNDR_AET.VNDR_FIELD_C30_D; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_E = " &oVsVndrIdCi.VNDR_FIE LD_C30_E); &oVsVndrIdCi.VNDR_FIELD_C30_E = VS_VNDR_AET.VNDR_FIELD_C30_E; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_F = " &oVsVndrIdCi.VNDR_FIE LD_C30_F); &oVsVndrIdCi.VNDR_FIELD_C30_F = VS_VNDR_AET.VNDR_FIELD_C30_F; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_G = " &oVsVndrIdCi.VNDR_FIE LD_C30_G); &oVsVndrIdCi.VNDR_FIELD_C30_G = VS_VNDR_AET.VNDR_FIELD_C30_G; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_H = " &oVsVndrIdCi.VNDR_FIE LD_C30_H); &oVsVndrIdCi.VNDR_FIELD_C30_H = VS_VNDR_AET.VNDR_FIELD_C30_H; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_I = " &oVsVndrIdCi.VNDR_FIE LD_C30_I); &oVsVndrIdCi.VNDR_FIELD_C30_I = VS_VNDR_AET.VNDR_FIELD_C30_I; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_FIELD_C30_J = " &oVsVndrIdCi.VNDR_FIE LD_C30_J); &oVsVndrIdCi.VNDR_FIELD_C30_J = VS_VNDR_AET.VNDR_FIELD_C30_J; &fileLog.WriteLine("&oVsVndrIdCi.VNDR_CCR_STATUS = " &oVsVndrIdCi.VNDR_CCR_ STATUS); &oVsVndrIdCi.VNDR_CCR_STATUS = VS_VNDR_AET.VNDR_CCR_STATUS; &fileLog.WriteLine("&oVsVndrIdCi.OFAC_STATUS = " &oVsVndrIdCi.OFAC_STATUS); &oVsVndrIdCi.OFAC_STATUS = VS_VNDR_AET.OFAC_STATUS; &fileLog.WriteLine("&oVsVndrIdCi.OFAC_LAG_DAYS = " &oVsVndrIdCi.OFAC_LAG_DA YS); &oVsVndrIdCi.OFAC_LAG_DAYS = VS_VNDR_AET.OFAC_LAG_DAYS; &fileLog.WriteLine("&oVsVndrIdCi.OFAC_SKIP_VAL = " &oVsVndrIdCi.OFAC_SKIP_V AL); &oVsVndrIdCi.OFAC_SKIP_VAL = VS_VNDR_AET.OFAC_SKIP_VAL; &fileLog.WriteLine("&oVsVndrIdCi.SDN_PUBLISH_DATE = " &oVsVndrIdCi.SDN_PUBL ISH_DATE); &oVsVndrIdCi.SDN_PUBLISH_DATE = VS_VNDR_AET.SDN_PUBLISH_DATE; &fileLog.WriteLine("&oVsVndrIdCi.COMMENTS_2000 = " &oVsVndrIdCi.COMMENTS_20

00); &oVsVndrIdCi.COMMENTS_2000 = VS_VNDR_AET.COMMENTS_2000; &fileLog.WriteLine("&oVsVndrIdCi.CORP_VNDR_FLG = " &oVsVndrIdCi.CORP_VNDR_F LG); REM &oVsVndrIdCi.CORP_VNDR_FLG = VS_VNDR_AET.CORP_VNDR_FLG; &fileLog.WriteLine("&oVsVndrIdCi.CREATE_BILLTO_CUST = " &oVsVndrIdCi.CREATE _BILLTO_CUST); REM &oVsVndrIdCi.CREATE_BILLTO_CUST = VS_VNDR_AET.CREATE_BILLTO_CUST; &fileLog.WriteLine("&oVsVndrIdCi.SUPPORT_TEAM_CD = " &oVsVndrIdCi.SUPPORT_T EAM_CD); REM &oVsVndrIdCi.SUPPORT_TEAM_CD = VS_VNDR_AET.SUPPORT_TEAM_CD; &fileLog.WriteLine("&oVsVndrIdCi.COLLECTOR = " &oVsVndrIdCi.COLLECTOR); REM &oVsVndrIdCi.COLLECTOR = VS_VNDR_AET.COLLECTOR; &fileLog.WriteLine("&oVsVndrIdCi.CR_ANALYST = " &oVsVndrIdCi.CR_ANALYST); REM &oVsVndrIdCi.CR_ANALYST = VS_VNDR_AET.CR_ANALYST; &fileLog.WriteLine("&oVsVndrIdCi.CITY = " &oVsVndrIdCi.CITY); &oVsVndrIdCi.CITY = VS_VNDR_AET.CITY; &fileLog.WriteLine("&oVsVndrIdCi.STATE = " &oVsVndrIdCi.STATE); REM &oVsVndrIdCi.STATE = VS_VNDR_AET.STATE; &fileLog.WriteLine("&oVsVndrIdCi.POSTAL = " &oVsVndrIdCi.POSTAL); &oVsVndrIdCi.POSTAL = VS_VNDR_AET.POSTAL; &fileLog.WriteLine("&oVsVndrIdCi.COUNTRY = " &oVsVndrIdCi.COUNTRY); &oVsVndrIdCi.COUNTRY = VS_VNDR_AET.COUNTRY; &fileLog.WriteLine("&oVsVndrIdCi.ADDRESS1 = " &oVsVndrIdCi.ADDRESS1); &oVsVndrIdCi.ADDRESS1 = VS_VNDR_AET.ADDRESS1; &fileLog.WriteLine("&oVsVndrIdCi.ADDRESS_OPERATOR = " &oVsVndrIdCi.ADDRESS_ OPERATOR); REM &oVsVndrIdCi.ADDRESS_OPERATOR = VS_VNDR_AET.ADDRESS_OPERATOR; &fileLog.WriteLine("&oVsVndrIdCi.NAME1_OPERATOR = " &oVsVndrIdCi.NAME1_OPER ATOR); REM &oVsVndrIdCi.NAME1_OPERATOR = VS_VNDR_AET.NAME1_OPERATOR; &fileLog.WriteLine("&oVsVndrIdCi.SNAME_OPERATOR = " &oVsVndrIdCi.SNAME_OPER ATOR); REM &oVsVndrIdCi.SNAME_OPERATOR = VS_VNDR_AET.SNAME_OPERATOR; &fileLog.WriteLine("&oVsVndrIdCi.AUTO_FILL = " &oVsVndrIdCi.AUTO_FILL); REM &oVsVndrIdCi.AUTO_FILL = VS_VNDR_AET.AUTO_FILL; rem ***** Set/Get VNDR_VAT_RGSTRN Collection Field Properties -- Parent: PS_R OOT Collection *****; &oVndrVatRgstrnCollection = &oVsVndrIdCi.VNDR_VAT_RGSTRN; rem MessageBox(0, "", 0, 0, "VAT rgtrn" &oVndrVatRgstrnCollection); Local integer &i1104; For &i1104 = 1 To &oVndrVatRgstrnCollection.Count; &oVndrVatRgstrn = &oVndrVatRgstrnCollection.Item(&i1104); If All(&oVndrVatRgstrn.COUNTRY) And &oVndrVatRgstrn.COUNTRY <> VS_VNDR_AET.COUNTRY3 Then &fileLog.WriteLine("vat registration country" &oVndrVatRgstrn.COUNTRY ); &FOUND = False; Break; End-If; If None(&oVndrVatRgstrn.COUNTRY) Then &FOUND = True; End-If; REM MessageBox(0, "", 0, 0, "VAT COUNTRY" &FOUND); If &FOUND = False Then &oVndrVatRgstrn = &oVndrVatRgstrnCollection.insertItem(1); Else &oVndrVatRgstrn = &oVndrVatRgstrnCollection.Item(1);

End-If; &fileLog.WriteLine("&oVndrVatRgstrn.COUNTRY = " ; &oVndrVatRgstrn.COUNTRY = VS_VNDR_AET.COUNTRY3; &fileLog.WriteLine("&oVndrVatRgstrn.VAT_RGSTRN_ID_0 = " &oVndrVatRgstrn. VAT_RGSTRN_ID_0); &oVndrVatRgstrn.VAT_RGSTRN_ID_0 = VS_VNDR_AET.VAT_RGSTRN_ID; &fileLog.WriteLine("&oVndrVatRgstrn.HOME_COUNTRY_FLG = " &oVndrVatRgstrn .HOME_COUNTRY_FLG); &oVndrVatRgstrn.HOME_COUNTRY_FLG = VS_VNDR_AET.HOME_COUNTRY_FLG; End-For; rem ***** Set/Get VNDR_ADDR_SCROL Collection Field Properties -- Parent: PS_R OOT Collection *****; &oVndrAddrScrolCollection = &oVsVndrIdCi.VNDR_ADDR_SCROL; REM MessageBox(0, "", 0, 0, "VNDR ADDR SCROLL" &oVndrAddrScrolCollection); Local integer &i1109; For &i1109 = 1 To &oVndrAddrScrolCollection.Count; &oVndrAddrScrol = &oVndrAddrScrolCollection.Item(&i1109); MessageBox(0, "", 0, 0, "ADDRESS SCROLL LOOP OF : " &i1109); &fileLog.WriteLine("address scroll location : " &oVndrAddrScrol.ADDRESS_ SEQ_NUM_1); If All(&oVndrAddrScrol.ADDRESS_SEQ_NUM_1) And &oVndrAddrScrol.ADDRESS_SEQ_NUM_1 <> VS_VNDR_AET.ADDRESS_SEQ_NUM The n rem old line &oVndrAddrScrol.ADDRESS_SEQ_NUM_1 <> VS_VNDR_AET.COUNTRY3 Then &FOUND = False; Break; End-If; If None(&oVndrAddrScrol.ADDRESS_SEQ_NUM_1) Then &FOUND = True; End-If; REM MessageBox(0, "", 0, 0, "ADDRESS SCROLL ADDRESS_SEQ_NUM" &oVndrVatRgstrn.COUNTRY)

&FOUND);

If &FOUND = False Then &oVndrAddrScrol = &oVndrAddrScrolCollection.InsertItem(1); Else &oVndrAddrScrol = &oVndrAddrScrolCollection.Item(1); End-If; &fileLog.WriteLine("&oVndrAddrScrol.DESCR = " &oVndrAddrScrol.DESCR); &oVndrAddrScrol.DESCR = VS_VNDR_AET.DESCR1; &fileLog..WriteLine("&oVndrAddrScrol.VNDR_ADDRESS_TYPE = " &oVndrAddrScr ol.VNDR_ADDRESS_TYPE); &oVndrAddrScrol.VNDR_ADDRESS_TYPE = VS_VNDR_AET.VNDR_ADDRESS_TYPE; &fileLog.WriteLine("&oVndrAddrScrol.CCR_ADDR_TYPE = " &oVndrAddrScrol.CC R_ADDR_TYPE); &oVndrAddrScrol.CCR_ADDR_TYPE = VS_VNDR_AET.ADDR_TYPE_ID; rem ***** Set/Get VENDOR_ADDR Collection Field Properties -- Parent: VNDR_ ADDR_SCROL Collection *****; &oVendorAddrCollection = &oVsVndrIdCi.VENDOR_ADDR; REM MessageBox(0, "", 0, 0, "ADDRESS " &oVendorAddrCollection); Local integer &i2114; For &i2114 = 1 To &oVendorAddrCollection.Count; &oVendorAddr = &oVendorAddrCollection.Item(&i2114); MessageBox(0, "", 0, 0, "ADDRESS LOOP OF : " &i2114);

&fileLog.WriteLine("vendor address EFFDT : " &oVendorAddr.EFFDT); If All(&oVendorAddr.EFFDT_5) And &oVendorAddr.EFFDT_5 <> VS_VNDR_AET.EFFDT_CUST Then &FOUND = False; Break; End-If; If None(&oVendorAddr.EFFDT) Then &FOUND = True; End-If; REM MessageBox(0, "", 0, 0, "VENDOR ADDRESS EFFDT"

&FOUND);

If &FOUND = False Then &oVendorAddr = &oVendorAddrCollection.InsertItem(1); Else &oVendorAddr = &oVendorAddrCollection.Item(1); End-If; &fileLog.WriteLine("&oVendorAddr.EFFDT_5 = " &oVendorAddr.EFFDT_5); &oVendorAddr.EFFDT_5 = VS_VNDR_AET.EFFDT_CUST; &fileLog.WriteLine("&oVendorAddr.EFF_STATUS_0 = " &oVendorAddr.EFF_ST ATUS_0); &oVendorAddr.EFF_STATUS_0 = VS_VNDR_AET.EFF_STATUS_CUST; &fileLog.WriteLine("&oVendorAddr.NAME1_1 = " &oVendorAddr.NAME1_1); &oVendorAddr.NAME1_1 = VS_VNDR_AET.NAME1_VNDR; &fileLog.WriteLine("&oVendorAddr.NAME2_0 = " &oVendorAddr.NAME2_0); &oVendorAddr.NAME2_0 = VS_VNDR_AET.NAME2_VNDR; &fileLog.WriteLine("&oVendorAddr.EMAILID = " &oVendorAddr.EMAILID); &oVendorAddr.EMAILID = VS_VNDR_AET.EMAILID; &fileLog.WriteLine("&oVendorAddr.COUNTRY_1 = " &oVendorAddr.COUNTRY_1 ); &oVendorAddr.COUNTRY_1 = VS_VNDR_AET.COUNTRY; &fileLog.WriteLine("&oVendorAddr.ADDRESS1_1 = " _1); &oVendorAddr.ADDRESS1_1 = VS_VNDR_AET.ADDRESS1; &fileLog.WriteLine("&oVendorAddr.ADDRESS2 = " &oVendorAddr.ADDRESS2); &oVendorAddr.ADDRESS2 = VS_VNDR_AET.ADDRESS2; &fileLog.WriteLine("&oVendorAddr.ADDRESS3 = " &oVendorAddr.ADDRESS3); &oVendorAddr.ADDRESS3 = VS_VNDR_AET.ADDRESS3; &fileLog.WriteLine("&oVendorAddr.ADDRESS4 = " &oVendorAddr.ADDRESS4); &oVendorAddr.ADDRESS4 = VS_VNDR_AET.ADDRESS4; &fileLog.WriteLine("&oVendorAddr.CITY_1 = " &oVendorAddr.CITY_1); &oVendorAddr.CITY_1 = VS_VNDR_AET.CITY; &fileLog.WriteLine("&oVendorAddr.NUM1 = " &oVendorAddr.NUM1); &oVendorAddr.NUM1 = VS_VNDR_AET.NUM1; &fileLog.WriteLine("&oVendorAddr.NUM2 = " &oVendorAddr.NUM2); &oVendorAddr.NUM2 = VS_VNDR_AET.NUM2; &fileLog.WriteLine("&oVendorAddr.HOUSE_TYPE = " &oVendorAddr.HOUSE_TY PE); &oVendorAddr.HOUSE_TYPE = VS_VNDR_AET.HOUSE_TYPE; &fileLog.WriteLine("&oVendorAddr.ADDR_FIELD1 = " &oVendorAddr.ADDR_FI ELD1); &oVendorAddr.ADDR_FIELD1 = VS_VNDR_AET.ADDR_FIELD1; &fileLog.WriteLine("&oVendorAddr.ADDR_FIELD2 = " &oVendorAddr.ADDR_FI ELD2); &oVendorAddr.ADDR_FIELD2 = VS_VNDR_AET.ADDR_FIELD2; &fileLog.WriteLine("&oVendorAddr.ADDR_FIELD3 = " &oVendorAddr.ADDR_FI ELD3); &oVendorAddr.ADDR_FIELD3 = VS_VNDR_AET.ADDR_FIELD3; &fileLog.WriteLine("&oVendorAddr.COUNTY_1 = " &oVendorAddr.COUNTY_1); &oVendorAddr.ADDRESS1

&oVendorAddr.COUNTY_1 = VS_VNDR_AET.COUNTY; &fileLog.WriteLine("&oVendorAddr.STATE_1 = " &oVendorAddr.STATE_1); &oVendorAddr.STATE_1 = VS_VNDR_AET.STATE; &fileLog.WriteLine("&oVendorAddr.POSTAL_1 = " &oVendorAddr.POSTAL_1); &oVendorAddr.POSTAL_1 = VS_VNDR_AET.POSTAL; &fileLog.WriteLine("&oVendorAddr.GEO_CODE = " &oVendorAddr.GEO_CODE); &oVendorAddr.GEO_CODE = VS_VNDR_AET.GEO_CODE; &fileLog.WriteLine("&oVendorAddr.IN_CITY_LIMIT = " &oVendorAddr.IN_CI TY_LIMIT); &oVendorAddr.IN_CITY_LIMIT = VS_VNDR_AET.IN_CITY_LIMIT; &fileLog.WriteLine("&oVendorAddr.NAME1_WTHD_0 = " &oVendorAddr.NAME1_ WTHD_0); &oVendorAddr.NAME1_WTHD_0 = VS_VNDR_AET.NAME1_WTHD; &fileLog.WriteLine("&oVendorAddr.NAME2_WTHD = " &oVendorAddr.NAME2_WT HD); &oVendorAddr.NAME2_WTHD = VS_VNDR_AET.NAME2_WTHD; End-For; End-For; rem ***** Set/Get VNDR_LOC_SCROL Collection Field Properties -- Parent: PS_RO OT Collection *****; &oVndrLocScrolCollection = &oVsVndrIdCi.VNDR_LOC_SCROL; REM MessageBox(0, "", 0, 0, "VENDOR LOC SCROLL " &oVndrLocScrolCollection); Local integer &i1141; For &i1141 = 1 To &oVndrLocScrolCollection.Count; &oVndrLocScrol = &oVndrLocScrolCollection.Item(&i1141); MessageBox(0, "", 0, 0, "lOCATION SCROLL LOOP OF : " &i1141); &fileLog.WriteLine("vendor location scroll : " &oVndrLocScrol.VNDR_LOC); If All(&oVndrLocScrol.VNDR_LOC) And &oVndrLocScrol.VNDR_LOC <> VS_VNDR_AET.VNDR_LOC Then &FOUND = False; Break; End-If; If None(&oVndrLocScrol.VNDR_LOC) Then &FOUND = True; End-If; REM MessageBox(0, "", 0, 0, "VENDOR LOCATION SCROLL-> VNDR_LOC" &FOUND) ; If &FOUND = False Then &oVndrLocScrol = &oVndrLocScrolCollection.InsertItem(1); Else &oVndrLocScrol = &oVndrLocScrolCollection.Item(1); End-If; &fileLog.WriteLine("&oVndrLocScrol.VNDR_LOC = " &oVndrLocScrol.VNDR_LOC) ; &oVndrLocScrol.VNDR_LOC = VS_VNDR_AET.VNDR_LOC; REM MessageBox(0, "", 0, 0, VS_VNDR_AET.VNDR_LOC.Value); &fileLog.WriteLine("&oVndrLocScrol.DESCR_1 = " &oVndrLocScrol.DESCR_1); &oVndrLocScrol.DESCR_1 = VS_VNDR_AET.DESCR; &fileLog.WriteLine("&oVndrLocScrol.CCR_ADDR_TYPE_1 = " &oVndrLocScrol.CC R_ADDR_TYPE_1); &oVndrLocScrol.CCR_ADDR_TYPE_1 = VS_VNDR_AET.CCR_ADDR_TYPE; REM &fileLog.WriteLine("&oVndrLocScrol.DFLT = " &oVndrLocScrol.DFLT); REM &oVndrLocScrol.DFLT = VS_VNDR_AET.DFLT; rem ***** Set/Get VENDOR_LOC Collection Field Properties -- Parent: VNDR_L OC_SCROL Collection *****;

&oVendorLocCollection = &oVndrLocScrol.VENDOR_LOC; REM &oVendorLocCollection = &oVsVndrIdCi.VENDOR_LOC; REM MessageBox(0, "", 0, 0, "VENDOR LOC " &oVendorLocCollection); Local integer &i2149; For &i2149 = 1 To &oVendorLocCollection.Count; REM MessageBox(0, "", 0, 0, "TEST1"); &oVendorLoc = &oVendorLocCollection.Item(&i2149); MessageBox(0, "", 0, 0, "lOCATION LOOP OF : " &i2149); &fileLog.WriteLine("vendor location effdt : " &oVendorLoc.EFFDT_9); If All(&oVendorLoc.EFFDT_9) And &oVendorLoc.EFFDT_9 <> VS_VNDR_AET.EFFDT Then &FOUND = False; Break; End-If; If None(&oVendorLoc.EFFDT_9) Then &FOUND = True; End-If; If &FOUND = False Then &oVendorLoc = &oVendorLocCollection.InsertItem(1); Else &oVendorLoc = &oVendorLocCollection.Item(1); End-If; REM MessageBox(0, "", 0, 0, VS_VNDR_AET.EFFDT.Value); &fileLog.WriteLine("&oVendorLoc.EFFDT_9 = " &oVendorLoc.EFFDT_9); &oVendorLoc.EFFDT_9 = VS_VNDR_AET.EFFDT; &fileLog.WriteLine("&oVendorLoc.EFF_STATUS_2 = " &oVendorLoc.EFF_STAT US_2); &oVendorLoc.EFF_STATUS_2 = VS_VNDR_AET.EFF_STATUS; &fileLog.WriteLine("&oVendorLoc.CURRENCY_CD = " &oVendorLoc.CURRENCY_ CD); &oVendorLoc.CURRENCY_CD = VS_VNDR_AET.CURRENCY_CD; &fileLog.WriteLine("&oVendorLoc.CUR_RT_TYPE = " &oVendorLoc.CUR_RT_TY PE); &oVendorLoc.CUR_RT_TYPE = VS_VNDR_AET.CUR_RT_TYPE; &fileLog.WriteLine("&oVendorLoc.FREIGHT_TERMS = " &oVendorLoc.FREIGHT _TERMS); &oVendorLoc.FREIGHT_TERMS = VS_VNDR_AET.FREIGHT_TERMS; &fileLog.WriteLine("&oVendorLoc.SHIP_TYPE_ID = " &oVendorLoc.SHIP_TYP E_ID); &oVendorLoc.SHIP_TYPE_ID = VS_VNDR_AET.SHIP_TYPE_ID; &fileLog.WriteLine("&oVendorLoc.DISP_METHOD = " &oVendorLoc.DISP_METH OD); &oVendorLoc.DISP_METHOD = VS_VNDR_AET.DISP_METHOD; &fileLog.WriteLine("&oVendorLoc.PYMNT_TERMS_CD = " &oVendorLoc.PYMNT_ TERMS_CD); &oVendorLoc.PYMNT_TERMS_CD = VS_VNDR_AET.PYMNT_TERMS_CD; &fileLog.WriteLine("&oVendorLoc.MATCH_OPT_FLG = " &oVendorLoc.MATCH_O PT_FLG); &oVendorLoc.MATCH_OPT_FLG = VS_VNDR_AET.MATCH_OPT_FLG; &fileLog.WriteLine("&oVendorLoc.MATCH_CNTRL_ID = " &oVendorLoc.MATCH_ CNTRL_ID); &oVendorLoc.MATCH_CNTRL_ID = VS_VNDR_AET.MATCH_CNTRL_ID; &fileLog.WriteLine("&oVendorLoc.MATCH_OPT = " &oVendorLoc.MATCH_OPT); &oVendorLoc.MATCH_OPT = VS_VNDR_AET.MATCH_OPT; &fileLog.WriteLine("&oVendorLoc.ERS_ACTION = " &oVendorLoc.ERS_ACTION ); &oVendorLoc.ERS_ACTION = VS_VNDR_AET.ERS_ACTION; &fileLog.WriteLine("&oVendorLoc.ERS_FLAG = " &oVendorLoc.ERS_FLAG); &oVendorLoc.ERS_FLAG = VS_VNDR_AET.ERS_FLAG;

&fileLog.WriteLine("&oVendorLoc.VCHR_APPRVL_FLG = " &oVendorLoc.VCHR_ APPRVL_FLG); &oVendorLoc.VCHR_APPRVL_FLG = VS_VNDR_AET.VCHR_APPRVL_FLG; &fileLog.WriteLine("&oVendorLoc.BUSPROCNAME = " &oVendorLoc.BUSPROCNA ME); &oVendorLoc.BUSPROCNAME = VS_VNDR_AET.BUSPROCNAME; &fileLog.WriteLine("&oVendorLoc.APPR_RULE_SET = " &oVendorLoc.APPR_RU LE_SET); &oVendorLoc.APPR_RULE_SET = VS_VNDR_AET.APPR_RULE_SET; &fileLog.WriteLine("&oVendorLoc.BUYER_ID = " &oVendorLoc.BUYER_ID); &oVendorLoc.BUYER_ID = VS_VNDR_AET.BUYER_ID; &fileLog.WriteLine("&oVendorLoc.REMIT_VENDOR = " &oVendorLoc.REMIT_VE NDOR); &oVendorLoc.REMIT_VENDOR = VS_VNDR_AET.REMIT_VENDOR_FLD; &fileLog.WriteLine("&oVendorLoc.REMIT_LOC = " &oVendorLoc.REMIT_LOC); &oVendorLoc.REMIT_LOC = VS_VNDR_AET.REMIT_LOCATION; &fileLog.WriteLine("&oVendorLoc.REMIT_ADDR_SEQ_NUM = " &oVendorLoc.RE MIT_ADDR_SEQ_NUM); &oVendorLoc.REMIT_ADDR_SEQ_NUM = VS_VNDR_AET.ADDR_SEQ_CNTCT; &fileLog.WriteLine("&oVendorLoc.ADDR_SEQ_NUM_ORDR = " &oVendorLoc.ADD R_SEQ_NUM_ORDR); &oVendorLoc.ADDR_SEQ_NUM_ORDR = VS_VNDR_AET.ADDR_SEQ_NUM_VEND; &fileLog.WriteLine("&oVendorLoc.PRICE_SETID = " &oVendorLoc.PRICE_SET ID); &oVendorLoc.PRICE_SETID = VS_VNDR_AET.PRICE_SETID; &fileLog.WriteLine("&oVendorLoc.PRICE_LOC = " &oVendorLoc.PRICE_LOC); &oVendorLoc.PRICE_LOC = VS_VNDR_AET.PRICE_LOC; &fileLog.WriteLine("&oVendorLoc.RETURN_VENDOR = " &oVendorLoc.RETURN_ VENDOR); &oVendorLoc.RETURN_VENDOR = VS_VNDR_AET.RETURN_VENDOR; &fileLog.WriteLine("&oVendorLoc.RET_ADDR_SEQ_NUM = " &oVendorLoc.RET_ ADDR_SEQ_NUM); &oVendorLoc.RET_ADDR_SEQ_NUM = VS_VNDR_AET.RET_ADDR_SEQ_NUM; &fileLog.WriteLine("&oVendorLoc.DST_CNTRL_ID = " &oVendorLoc.DST_CNTR L_ID); &oVendorLoc.DST_CNTRL_ID = VS_VNDR_AET.DST_CNTRL_ID; &fileLog.WriteLine("&oVendorLoc.PREFERRED_LANGUAGE = " &oVendorLoc.PR EFERRED_LANGUAGE); &oVendorLoc.PREFERRED_LANGUAGE = VS_VNDR_AET.PREFERRED_LANGUAGE; &fileLog.WriteLine("&oVendorLoc.RFQ_DISP_MTHD = " &oVendorLoc.RFQ_DIS P_MTHD); &oVendorLoc.RFQ_DISP_MTHD = VS_VNDR_AET.RFQ_DISP_MTHD; &fileLog.WriteLine("&oVendorLoc.CNTRCT_DISP_MTHD = " &oVendorLoc.CNTR CT_DISP_MTHD); &oVendorLoc.CNTRCT_DISP_MTHD = VS_VNDR_AET.CNTRCT_DISP_MTHD; &fileLog.WriteLine("&oVendorLoc.PRIM_ADDR_SEQ_NUM = " &oVendorLoc.PRI M_ADDR_SEQ_NUM); &oVendorLoc.PRIM_ADDR_SEQ_NUM = VS_VNDR_AET.ADDR_SEQ_CUST; &fileLog.WriteLine("&oVendorLoc.SHIPTO_ID = " &oVendorLoc.SHIPTO_ID); REM &oVendorLoc.SHIPTO_ID = VS_VNDR_AET.HIPTO_ID; &fileLog.WriteLine("&oVendorLoc.SUT_BASE_ID = " &oVendorLoc.SUT_BASE_ ID); &oVendorLoc.SUT_BASE_ID = VS_VNDR_AET.SUT_BASE_ID; &fileLog.WriteLine("&oVendorLoc.SALETX_TOL_AMT = " &oVendorLoc.SALETX _TOL_AMT); &oVendorLoc.SALETX_TOL_AMT = VS_VNDR_AET.SALETX_TOL_AMT; &fileLog.WriteLine("&oVendorLoc.SALETX_TOL_CUR_CD = " &oVendorLoc.SAL ETX_TOL_CUR_CD); &oVendorLoc.SALETX_TOL_CUR_CD = VS_VNDR_AET.SALETX_TOL_CUR_CD; &fileLog.WriteLine("&oVendorLoc.SALETX_TOL_PCT = " &oVendorLoc.SALETX

_TOL_PCT); &oVendorLoc.SALETX_TOL_PCT = VS_VNDR_AET.SALETX_TOL_PCT; &fileLog.WriteLine("&oVendorLoc.SALETX_TOL_RT_TYPE = " &oVendorLoc.SA LETX_TOL_RT_TYPE); &oVendorLoc.SALETX_TOL_RT_TYPE = VS_VNDR_AET.SALETX_TOL_RT_TYPE; &fileLog.WriteLine("&oVendorLoc.SALETX_CD_ERS = " &oVendorLoc.SALETX_ CD_ERS); &oVendorLoc.SALETX_CD_ERS = VS_VNDR_AET.SALETX_CD_ERS; &fileLog.WriteLine("&oVendorLoc.SALES_USE_TX_FLG = " &oVendorLoc.SALE S_USE_TX_FLG); &oVendorLoc.SALES_USE_TX_FLG = VS_VNDR_AET.SALES_USE_TX_FLG; &fileLog.WriteLine("&oVendorLoc.AUTO_ASN_FLG = " &oVendorLoc.AUTO_ASN _FLG); &oVendorLoc.AUTO_ASN_FLG = VS_VNDR_AET.AUTO_ASN_FLG; &fileLog.WriteLine("&oVendorLoc.SALETX_TOL_FLG = " &oVendorLoc.SALETX _TOL_FLG); &oVendorLoc.SALETX_TOL_FLG = VS_VNDR_AET.SALETX_TOL_FLG; &fileLog.WriteLine("&oVendorLoc.SHIP_LOC_FLG = " &oVendorLoc.SHIP_LOC _FLG); &oVendorLoc.SHIP_LOC_FLG = VS_VNDR_AET.SHIP_LOC_FLG; &fileLog.WriteLine("&oVendorLoc.WTHD_CD = " &oVendorLoc.WTHD_CD); &oVendorLoc.WTHD_CD = VS_VNDR_AET.WTHD_CD; &fileLog.WriteLine("&oVendorLoc.WTHD_SW = " &oVendorLoc.WTHD_SW); &oVendorLoc.WTHD_SW = VS_VNDR_AET.WTHD_SUT_APPL; &fileLog.WriteLine("&oVendorLoc.DOC_TYPE = " &oVendorLoc.DOC_TYPE); &oVendorLoc.DOC_TYPE = VS_VNDR_AET.DOC_TYPE; &fileLog.WriteLine("&oVendorLoc.DOC_TYPE_FLG = " &oVendorLoc.DOC_TYPE _FLG); &oVendorLoc.DOC_TYPE_FLG = VS_VNDR_AET.DOC_TYPE_FLG; &fileLog.WriteLine("&oVendorLoc.RTV_DISPATCH_METH = " &oVendorLoc.RTV _DISPATCH_METH); &oVendorLoc.RTV_DISPATCH_METH = VS_VNDR_AET.RTV_DISPATCH_METH; &fileLog.WriteLine("&oVendorLoc.RTV_NOTIFY_METH = " &oVendorLoc.RTV_N OTIFY_METH); &oVendorLoc.RTV_NOTIFY_METH = VS_VNDR_AET.RTV_NOTIFY_METH; &fileLog.WriteLine("&oVendorLoc.RTV_DEBIT_OPT = " &oVendorLoc.RTV_DEB IT_OPT); &oVendorLoc.RTV_DEBIT_OPT = VS_VNDR_AET.RTV_DEBIT_OPT; &fileLog.WriteLine("&oVendorLoc.VNDR_SBI_FLG = " &oVendorLoc.VNDR_SBI _FLG); &oVendorLoc.VNDR_SBI_FLG = VS_VNDR_AET.VNDR_SBI_FLG; &fileLog.WriteLine("&oVendorLoc.SBI_APPROVAL_FLG = " &oVendorLoc.SBI_ APPROVAL_FLG); &oVendorLoc.SBI_APPROVAL_FLG = VS_VNDR_AET.SBI_APPROVAL_FLG; &fileLog.WriteLine("&oVendorLoc.ACCOUNT = " &oVendorLoc.ACCOUNT); &oVendorLoc.ACCOUNT = VS_VNDR_AET.ACCOUNT; &fileLog.WriteLine("&oVendorLoc.ALTACCT = " &oVendorLoc.ALTACCT); &oVendorLoc.ALTACCT = VS_VNDR_AET.ALTACCT; &fileLog.WriteLine("&oVendorLoc.DEPTID = " &oVendorLoc.DEPTID); &oVendorLoc.DEPTID = VS_VNDR_AET.DEPTID; &fileLog.WriteLine("&oVendorLoc.OPERATING_UNIT = " &oVendorLoc.OPERAT ING_UNIT); &oVendorLoc.OPERATING_UNIT = VS_VNDR_AET.OPERATING_UNIT; &fileLog.WriteLine("&oVendorLoc.PRODUCT = " &oVendorLoc.PRODUCT); &oVendorLoc.PRODUCT = VS_VNDR_AET.PRODUCT; &fileLog.WriteLine("&oVendorLoc.FUND_CODE = " &oVendorLoc.FUND_CODE); &oVendorLoc.FUND_CODE = VS_VNDR_AET.FUND_CODE; &fileLog.WriteLine("&oVendorLoc.CLASS_FLD = " &oVendorLoc.CLASS_FLD); &oVendorLoc.CLASS_FLD = VS_VNDR_AET.CLASS_FLD; &fileLog.WriteLine("&oVendorLoc.PROGRAM_CODE = " &oVendorLoc.PROGRAM_

CODE); &oVendorLoc.PROGRAM_CODE = VS_VNDR_AET.PROGRAM_CODE; &fileLog.WriteLine("&oVendorLoc.BUDGET_REF = " &oVendorLoc.BUDGET_REF ); &oVendorLoc.BUDGET_REF = VS_VNDR_AET.BUDGET_REF; &fileLog.WriteLine("&oVendorLoc.AFFILIATE = " &oVendorLoc.AFFILIATE); &oVendorLoc.AFFILIATE = VS_VNDR_AET.AFFILIATE; &fileLog.WriteLine("&oVendorLoc.AFFILIATE_INTRA1 = " &oVendorLoc.AFFI LIATE_INTRA1); &oVendorLoc.AFFILIATE_INTRA1 = VS_VNDR_AET.AFFILIATE_INTRA1; &fileLog.WriteLine("&oVendorLoc.AFFILIATE_INTRA2 = " &oVendorLoc.AFFI LIATE_INTRA2); &oVendorLoc.AFFILIATE_INTRA2 = VS_VNDR_AET.AFFILIATE_INTRA2; &fileLog.WriteLine("&oVendorLoc.CHARTFIELD1 = " &oVendorLoc.CHARTFIEL D1); &oVendorLoc.CHARTFIELD1 = VS_VNDR_AET.CHARTFIELD1; &fileLog.WriteLine("&oVendorLoc.CHARTFIELD2 = " &oVendorLoc.CHARTFIEL D2); &oVendorLoc.CHARTFIELD2 = VS_VNDR_AET.CHARTFIELD2; &fileLog.WriteLine("&oVendorLoc.CHARTFIELD3 = " &oVendorLoc.CHARTFIEL D3); &oVendorLoc.CHARTFIELD3 = VS_VNDR_AET.CHARTFIELD3; &fileLog.WriteLine("&oVendorLoc.PROJECT_ID = " &oVendorLoc.PROJECT_ID ); &oVendorLoc.PROJECT_ID = VS_VNDR_AET.PROJECT_ID; &fileLog.WriteLine("&oVendorLoc.CONSIGNED_FLAG = " &oVendorLoc.CONSIG NED_FLAG); &oVendorLoc.CONSIGNED_FLAG = VS_VNDR_AET.CONSIGNED_FLAG; &fileLog.WriteLine("&oVendorLoc.VCHR_CONSIGN_OPT = " &oVendorLoc.VCHR _CONSIGN_OPT); &oVendorLoc.VCHR_CONSIGN_OPT = VS_VNDR_AET.VCHR_CONSIGN_OPT; &fileLog.WriteLine("&oVendorLoc.BANK_ACCT_SEQ_NBR = " &oVendorLoc.BAN K_ACCT_SEQ_NBR); &oVendorLoc.BANK_ACCT_SEQ_NBR = VS_VNDR_AET.BANK_ACCT_SEQ_NBR; &fileLog.WriteLine("&oVendorLoc.ACCT_TEMPL_FLG = " &oVendorLoc.ACCT_T EMPL_FLG); &oVendorLoc.ACCT_TEMPL_FLG = VS_VNDR_AET.ACCT_TEMPL_FLG; &fileLog.WriteLine("&oVendorLoc.PAY_TRM_BSE_DT_DFT = " &oVendorLoc.PA Y_TRM_BSE_DT_DFT); &oVendorLoc.PAY_TRM_BSE_DT_DFT = VS_VNDR_AET.PAY_TRM_BSE_DT_DFT; &fileLog.WriteLine("&oVendorLoc.RECV_ONLY_MTCH_FLG = " &oVendorLoc.RE CV_ONLY_MTCH_FLG); &oVendorLoc.RECV_ONLY_MTCH_FLG = VS_VNDR_AET.RECV_ONLY_MTCH_FLG; &fileLog.WriteLine("&oVendorLoc.VCHR_MTCH_ADJ_DFLT = " &oVendorLoc.VC HR_MTCH_ADJ_DFLT); &oVendorLoc.VCHR_MTCH_ADJ_DFLT = VS_VNDR_AET.VCHR_MTCH_ADJ_DFLT; &fileLog.WriteLine("&oVendorLoc.ERS_INV_DT_OPT = " &oVendorLoc.ERS_IN V_DT_OPT); &oVendorLoc.ERS_INV_DT_OPT = VS_VNDR_AET.ERS_INV_DT_OPT; &fileLog.WriteLine("&oVendorLoc.ERS_INV_DT_DFLT = " &oVendorLoc.ERS_I NV_DT_DFLT); &oVendorLoc.ERS_INV_DT_DFLT = VS_VNDR_AET.ERS_INV_DT_DFLT; &fileLog.WriteLine("&oVendorLoc.ERS_TAX_TYPE_DFLT = " &oVendorLoc.ERS _TAX_TYPE_DFLT); &oVendorLoc.ERS_TAX_TYPE_DFLT = VS_VNDR_AET.ERS_TAX_TYPE_DFLT; &fileLog.WriteLine("&oVendorLoc.ERS_TAX_CD_OPT = " &oVendorLoc.ERS_TA X_CD_OPT); &oVendorLoc.ERS_TAX_CD_OPT = VS_VNDR_AET.ERS_TAX_CD_OPT; &fileLog.WriteLine("&oVendorLoc.SBI_DOC_DFLT = " &oVendorLoc.SBI_DOC_ DFLT);

&oVendorLoc.SBI_DOC_DFLT = VS_VNDR_AET.SBI_DOC_DFLT; &fileLog.WriteLine("&oVendorLoc.SBI_PRINT_OPT = " &oVendorLoc.SBI_PRI NT_OPT); &oVendorLoc.SBI_PRINT_OPT = VS_VNDR_AET.SBI_PRINT_OPT; &fileLog.WriteLine("&oVendorLoc.VCHR_TAX_ADJ_DFT = " &oVendorLoc.VCHR _TAX_ADJ_DFT); &oVendorLoc.VCHR_TAX_ADJ_DFT = VS_VNDR_AET.VCHR_TAX_ADJ_DFT; &fileLog.WriteLine("&oVendorLoc.RTV_VCHR_ADJ_DFLT = " &oVendorLoc.RTV _VCHR_ADJ_DFLT); &oVendorLoc.RTV_VCHR_ADJ_DFLT = VS_VNDR_AET.RTV_VCHR_ADJ_DFLT; &fileLog.WriteLine("&oVendorLoc.VAT_SUSPENSION_FLG = " &oVendorLoc.VA T_SUSPENSION_FLG); &oVendorLoc.VAT_SUSPENSION_FLG = VS_VNDR_AET.VAT_SUSPENSION_FLG; &fileLog.WriteLine("&oVendorLoc.VAT_ROUND_RULE = " &oVendorLoc.VAT_RO UND_RULE); &oVendorLoc.VAT_ROUND_RULE = VS_VNDR_AET.VAT_ROUND_RULE; &fileLog.WriteLine("&oVendorLoc.REPL_DISP_METHOD = " &oVendorLoc.REPL _DISP_METHOD); &oVendorLoc.REPL_DISP_METHOD = VS_VNDR_AET.REPL_DISP_METHOD; &fileLog.WriteLine("&oVendorLoc.VNDR_UPN_FLG = " &oVendorLoc.VNDR_UPN _FLG); &oVendorLoc.VNDR_UPN_FLG = VS_VNDR_AET.VNDR_UPN_FLG; &fileLog.WriteLine("&oVendorLoc.COMMENTS_2000_0 = " &oVendorLoc.COMME NTS_2000_0); &oVendorLoc.COMMENTS_2000_0 = VS_VNDR_AET.COMMENTS_2000; &fileLog.WriteLine("&oVendorLoc.DISP_CO_FLAG = " &oVendorLoc.DISP_CO_ FLAG); &oVendorLoc.DISP_CO_FLAG = VS_VNDR_AET.DISP_CO_FLAG; &fileLog.WriteLine("&oVendorLoc.DATE_CALC_BASIS = " &oVendorLoc.DATE_ CALC_BASIS); &oVendorLoc.DATE_CALC_BASIS = VS_VNDR_AET.DATE_CALC_BASIS; &fileLog.WriteLine("&oVendorLoc.PAY_SCHEDULE_TYPE = " &oVendorLoc.PAY _SCHEDULE_TYPE); &oVendorLoc.PAY_SCHEDULE_TYPE = VS_VNDR_AET.PAY_SCHEDULE_TYPE; &fileLog.WriteLine("&oVendorLoc.FEDERAL_INDICATOR = " &oVendorLoc.FED ERAL_INDICATOR); &oVendorLoc.FEDERAL_INDICATOR = VS_VNDR_AET.FEDERAL_INDICATOR; &fileLog.WriteLine("&oVendorLoc.TRADING_PARTNER = " &oVendorLoc.TRADI NG_PARTNER); &oVendorLoc.TRADING_PARTNER = VS_VNDR_AET.TRADING_PARTNER; &fileLog.WriteLine("&oVendorLoc.ALC = " &oVendorLoc.ALC); &oVendorLoc.ALC = VS_VNDR_AET.ALC; &fileLog.WriteLine("&oVendorLoc.WORKFLOW_OPT = " &oVendorLoc.WORKFLOW _OPT); &oVendorLoc.WORKFLOW_OPT = VS_VNDR_AET.WORKFLOW_OPT; &fileLog.WriteLine("&oVendorLoc.PHYSICAL_NATURE = " &oVendorLoc.PHYSI CAL_NATURE); &oVendorLoc.PHYSICAL_NATURE = VS_VNDR_AET.PHYSICAL_NATURE; &fileLog.WriteLine("&oVendorLoc.VAT_SVC_PERFRM_FLG = " &oVendorLoc.VA T_SVC_PERFRM_FLG); &oVendorLoc.VAT_SVC_PERFRM_FLG = VS_VNDR_AET.VAT_SVC_PERFRM_FLG; &fileLog.WriteLine("&oVendorLoc.ULTIMATE_USE_CD = " &oVendorLoc.ULTIM ATE_USE_CD); &oVendorLoc.ULTIMATE_USE_CD = VS_VNDR_AET.ULTIMATE_USE_CD; &fileLog.WriteLine("&oVendorLoc.ADDR_SEQ_NUM_SHFR = " &oVendorLoc.ADD R_SEQ_NUM_SHFR); &oVendorLoc.ADDR_SEQ_NUM_SHFR = VS_VNDR_AET.ADDR_SEQ_NUM_SHFR; &fileLog.WriteLine("&oVendorLoc.POA_REQUIRED = " &oVendorLoc.POA_REQU IRED); &oVendorLoc.POA_REQUIRED = VS_VNDR_AET.POA_REQUIRED;

&fileLog.WriteLine("&oVendorLoc.ACK_ALERT_DISP = " &oVendorLoc.ACK_AL ERT_DISP); &oVendorLoc.ACK_ALERT_DISP = VS_VNDR_AET.ACK_ALERT_DISP; &fileLog.WriteLine("&oVendorLoc.ACK_ALERT_SHIP = " &oVendorLoc.ACK_AL ERT_SHIP); &oVendorLoc.ACK_ALERT_SHIP = VS_VNDR_AET.ACK_ALERT_SHIP; &fileLog.WriteLine("&oVendorLoc.POA_CO_REQUIRED = " &oVendorLoc.POA_C O_REQUIRED); &oVendorLoc.POA_CO_REQUIRED = VS_VNDR_AET.POA_CO_REQUIRED; &fileLog.WriteLine("&oVendorLoc.POA_TOL_FLAG = " &oVendorLoc.POA_TOL_ FLAG); &oVendorLoc.POA_TOL_FLAG = VS_VNDR_AET.POA_TOL_FLAG; &fileLog.WriteLine("&oVendorLoc.POA_SCHED_EARLY = " &oVendorLoc.POA_S CHED_EARLY); &oVendorLoc.POA_SCHED_EARLY = VS_VNDR_AET.POA_SCHED_EARLY; &fileLog.WriteLine("&oVendorLoc.POA_SCHED_LATE = " &oVendorLoc.POA_SC HED_LATE); &oVendorLoc.POA_SCHED_LATE = VS_VNDR_AET.POA_SCHED_LATE; &fileLog.WriteLine("&oVendorLoc.POA_QTY_OVER = " &oVendorLoc.POA_QTY_ OVER); &oVendorLoc.POA_QTY_OVER = VS_VNDR_AET.POA_QTY_OVER; &fileLog.WriteLine("&oVendorLoc.POA_QTY_UNDER = " &oVendorLoc.POA_QTY _UNDER); &oVendorLoc.POA_QTY_UNDER = VS_VNDR_AET.POA_QTY_UNDER; &fileLog.WriteLine("&oVendorLoc.POA_PRICE_OVER = " &oVendorLoc.POA_PR ICE_OVER); &oVendorLoc.POA_PRICE_OVER = VS_VNDR_AET.POA_PRICE_OVER; &fileLog.WriteLine("&oVendorLoc.POA_PRICE_UNDER = " &oVendorLoc.POA_P RICE_UNDER); &oVendorLoc.POA_PRICE_UNDER = VS_VNDR_AET.POA_PRICE_UNDER; &fileLog.WriteLine("&oVendorLoc.CC_ACCEPT_CC = " &oVendorLoc.CC_ACCEP T_CC); &oVendorLoc.CC_ACCEPT_CC = VS_VNDR_AET.CC_ACCEPT_CC; &fileLog.WriteLine("&oVendorLoc.CC_DISP_OPTION = " &oVendorLoc.CC_DIS P_OPTION); &oVendorLoc.CC_DISP_OPTION = VS_VNDR_AET.CC_DISP_OPTION; &fileLog.WriteLine("&oVendorLoc.CC_ALLOW_OVERRIDE_0 = " &oVendorLoc.C C_ALLOW_OVERRIDE_0); &oVendorLoc.CC_ALLOW_OVERRIDE_0 = VS_VNDR_AET.CC_ALLOW_OVERRIDE; &fileLog.WriteLine("&oVendorLoc.CC_SECURITY_ID = " &oVendorLoc.CC_SEC URITY_ID); &oVendorLoc.CC_SECURITY_ID = VS_VNDR_AET.CC_SECURITY_ID; &fileLog.WriteLine("&oVendorLoc.CC_USE_FLAG_0 = " &oVendorLoc.CC_USE_ FLAG_0); &oVendorLoc.CC_USE_FLAG_0 = VS_VNDR_AET.CC_USE_FLAG; &fileLog.WriteLine("&oVendorLoc.MATCH_DELAY_FLG = " &oVendorLoc.MATCH _DELAY_FLG); &oVendorLoc.MATCH_DELAY_FLG = VS_VNDR_AET.MATCH_DELAY_FLG; &fileLog.WriteLine("&oVendorLoc.MATCH_DELAY_DAYS = " &oVendorLoc.MATC H_DELAY_DAYS); &oVendorLoc.MATCH_DELAY_DAYS = VS_VNDR_AET.MATCH_DELAY_DAYS; &fileLog.WriteLine("&oVendorLoc.DISBURSING_OFFICE = " &oVendorLoc.DIS BURSING_OFFICE); &oVendorLoc.DISBURSING_OFFICE = VS_VNDR_AET.DISBURSING_OFFICE; &fileLog.WriteLine("&oVendorLoc.GEN_1099_RPT = " &oVendorLoc.GEN_1099 _RPT); &oVendorLoc.GEN_1099_RPT = VS_VNDR_AET.GEN_1099_RPT; &fileLog.WriteLine("&oVendorLoc.BUYER_ID_FLG = " &oVendorLoc.BUYER_ID _FLG); REM &oVendorLoc.BUYER_ID_FLG = VS_VNDR_AET.BUYER_ID_FLG;

&fileLog.WriteLine("&oVendorLoc.CURRENCY_FLG = " _FLG);

&oVendorLoc.CURRENCY

REM &oVendorLoc.CURRENCY_FLG = VS_VNDR_AET.CURRENCY_FLG; &fileLog.WriteLine("&oVendorLoc.DSPTCH_MTHD_PO_FLG = " &oVendorLoc.DS PTCH_MTHD_PO_FLG); REM &oVendorLoc.DSPTCH_MTHD_PO_FLG = VS_VNDR_AET.DSPTCH_MTHD_PO_FLG; &fileLog.WriteLine("&oVendorLoc.DSPTCH_MTH_RFQ_FLG = " &oVendorLoc.DS PTCH_MTH_RFQ_FLG); REM &oVendorLoc.DSPTCH_MTH_RFQ_FLG = VS_VNDR_AET.DSPTCH_MTH_RFQ_FLG; &fileLog.WriteLine("&oVendorLoc.DISP_MTHD_CNTR_FLG = " &oVendorLoc.DI SP_MTHD_CNTR_FLG); REM &oVendorLoc.DISP_MTHD_CNTR_FLG = VS_VNDR_AET.DISP_MTHD_CNTR_FLG; &fileLog.WriteLine("&oVendorLoc.DISP_MTHD_RTV_FLG = " &oVendorLoc.DIS P_MTHD_RTV_FLG); REM &oVendorLoc.DISP_MTHD_RTV_FLG = VS_VNDR_AET.DISP_MTHD_RTV_FLG; &fileLog.WriteLine("&oVendorLoc.FOB_CD_FLG = " &oVendorLoc.FOB_CD_FLG ); REM &oVendorLoc.FOB_CD_FLG = VS_VNDR_AET.FOB_CD_FLG; &fileLog.WriteLine("&oVendorLoc.PYMNT_TERMS_FLG = " &oVendorLoc.PYMNT _TERMS_FLG); REM &oVendorLoc.PYMNT_TERMS_FLG = VS_VNDR_AET.PYMNT_TERMS_FLG; &fileLog.WriteLine("&oVendorLoc.SHIP_TYPE_FLG = " &oVendorLoc.SHIP_TY PE_FLG); REM &oVendorLoc.SHIP_TYPE_FLG = VS_VNDR_AET.SHIP_TYPE_FLG; &fileLog.WriteLine("&oVendorLoc.DSPTCH_MTHD_CO_FLG = " &oVendorLoc.DS PTCH_MTHD_CO_FLG); REM &oVendorLoc.DSPTCH_MTHD_CO_FLG = VS_VNDR_AET.DSPTCH_MTHD_CO_FLG; &fileLog.WriteLine("&oVendorLoc.SCHEDULE_FLG = " &oVendorLoc.SCHEDULE _FLG); REM &oVendorLoc.SCHEDULE_FLG = VS_VNDR_AET.SCHEDULE_FLG; &fileLog.WriteLine("&oVendorLoc.BASIS_DT_FLG = " &oVendorLoc.BASIS_DT _FLG); REM &oVendorLoc.BASIS_DT_FLG = VS_VNDR_AET.BASIS_DT_FLG; &fileLog.WriteLine("&oVendorLoc.CC_CARD_LIST = " &oVendorLoc.CC_CARD_ LIST); REM &oVendorLoc.CC_CARD_LIST = VS_VNDR_AET.CC_CARD_LIST; &fileLog.WriteLine("&oVendorLoc.CC_USE_FLAG = " &oVendorLoc.CC_USE_FL AG); &oVendorLoc.CC_USE_FLAG = VS_VNDR_AET.CC_USE_FLAG; &fileLog.WriteLine("&oVendorLoc.CC_ALLOW_OVERRIDE = " &oVendorLoc.CC_ ALLOW_OVERRIDE); &oVendorLoc.CC_ALLOW_OVERRIDE = VS_VNDR_AET.CC_ALLOW_OVERRIDE; &fileLog.WriteLine("&oVendorLoc.VAT_PHYS_NAT_FLG = " &oVendorLoc.VAT_ PHYS_NAT_FLG); REM &oVendorLoc.VAT_PHYS_NAT_FLG = VS_VNDR_AET.VAT_PHYS_NAT_FLG; &fileLog.WriteLine("&oVendorLoc.VAT_SVC_PRFRM_FLG = " &oVendorLoc.VAT _SVC_PRFRM_FLG); REM &oVendorLoc.VAT_SVC_PRFRM_FLG = VS_VNDR_AET.VAT_SVC_PRFRM_FLG; &fileLog.WriteLine("&oVendorLoc.REMIT_SETID = " &oVendorLoc.REMIT_SET ID); &oVendorLoc.REMIT_SETID = VS_VNDR_AET.REMIT_SETID_FLD; End-For; End-For; REM ***** End: Get/Set Component Interface Properties *****; rem ***** Execute Save *****; rem If Not &oVndrId.Save() Then; rem errorHandler(); rem throw CreateException(0, 0, "Save failed"); If Not &oVsVndrIdCi.Save() Then;

SQLExec("update PS_VS_VNDR_STG_TBL set FLAG = 'N' where SETID = :1 AND VEN DOR_ID = :2 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_AET.VENDOR_ID); SQLExec("update PS_VS_VAT_STG_TBL set FLAG = 'N' where SETID = :1 AND VEND OR_ID = :2 and COUNTRY = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_AE T.VENDOR_ID, VS_VNDR_AET.COUNTRY3); SQLExec("update PS_VS_ADSC_STG_TBL set FLAG = 'N' where SETID = :1 AND VEN DOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, V S_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM); SQLExec("update PS_VS_VNAD_STG_TBL set FLAG = 'N' where SETID = :1 AND VEN DOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and EFFDT = :4 and date1 <= SYSDATE", VS_VN DR_AET.SETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM, VS_VNDR_AET.EF FDT_CUST); SQLExec("update PS_VS_LOSC_STG_TBL set FLAG = 'N' where SETID = :1 AND VEN DOR_ID = :2 and VNDR_LOC = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_ AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC); SQLExec("update PS_VS_LOC_STG_TBL set FLAG = 'N' where SETID = :1 AND VEND OR_ID = :2 and VNDR_LOC = :3 and EFFDT = :4 and date1 <= SYSDATE", VS_VNDR_AET.S ETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC, VS_VNDR_AET.EFFDT); Else SQLExec("update PS_VS_VNDR_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEN DOR_ID = :2 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_AET.VENDOR_ID); SQLExec("update PS_VS_VAT_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEND OR_ID = :2 and COUNTRY = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_AE T.VENDOR_ID, VS_VNDR_AET.COUNTRY3); SQLExec("update PS_VS_ADSC_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEN DOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, V S_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM); SQLExec("update PS_VS_VNAD_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEN DOR_ID = :2 and ADDRESS_SEQ_NUM = :3 and EFFDT = :4 and date1 <= SYSDATE", VS_VN DR_AET.SETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.ADDRESS_SEQ_NUM, VS_VNDR_AET.EF FDT_CUST); SQLExec("update PS_VS_LOSC_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEN DOR_ID = :2 and VNDR_LOC = :3 and date1 <= SYSDATE", VS_VNDR_AET.SETID, VS_VNDR_ AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC); SQLExec("update PS_VS_LOC_STG_TBL set FLAG = 'Y' where SETID = :1 AND VEND OR_ID = :2 and VNDR_LOC = :3 and EFFDT = :4 and date1 <= SYSDATE", VS_VNDR_AET.S ETID, VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC, VS_VNDR_AET.EFFDT); End-If; rem ***** Execute Cancel *****; rem If Not &oVsVndrIdCi.Cancel() Then; rem errorHandler(); rem throw CreateException(0, 0, "Cancel failed"); rem End-If; catch Exception &ex rem Handle the exception; &fileLog.WriteLine(&ex.ToString()); end-try; &fileLog.WriteLine("End"); &fileLog.Close();

You might also like