/* ===> 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 [Link]. */ 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 = &[Link]; For &i = 1 To &[Link] &oPSMessage = &[Link](&i); &sErrMsgSetNum = &[Link]; &sErrMsgNum = &[Link]; &sErrMsgText = &[Link]; &[Link](&sErrType " (" &sErrMsgSetNum "," ") - " &sErrMsgText); End-For; rem ***** Delete the Messages from the collection *****; &[Link](); 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); &[Link]("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 *****; &[Link] = 1; rem ***** Get the Component Interface *****; &oVsVndrIdCi = &[Link](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 *****; &[Link] = False;

&[Link] = True; &[Link] = False; REM MessageBox(0, "", 0, 0, VS_VNDR_AET.SETID); rem ***** Set Component Interface Get/Create Keys *****; &[Link] = 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 &[Link]() 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; &[Link]("SAVETARGET after GET() = " &saveget); rem ***** Execute Create ******; If Not &[Link]() 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 [Link], VS_VNDR_AET.VENDOR_ID, VS_VNDR_AET.VNDR_LOC, VS_VNDR_AET.EFFDT_CUST); End-If; End-If; &[Link]("SAVETARGET after CREATE() = "

&saveget);

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

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

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

00); &oVsVndrIdCi.COMMENTS_2000 = VS_VNDR_AET.COMMENTS_2000; &[Link]("&oVsVndrIdCi.CORP_VNDR_FLG = " &oVsVndrIdCi.CORP_VNDR_F LG); REM &oVsVndrIdCi.CORP_VNDR_FLG = VS_VNDR_AET.CORP_VNDR_FLG; &[Link]("&oVsVndrIdCi.CREATE_BILLTO_CUST = " &[Link] _BILLTO_CUST); REM &oVsVndrIdCi.CREATE_BILLTO_CUST = VS_VNDR_AET.CREATE_BILLTO_CUST; &[Link]("&oVsVndrIdCi.SUPPORT_TEAM_CD = " &oVsVndrIdCi.SUPPORT_T EAM_CD); REM &oVsVndrIdCi.SUPPORT_TEAM_CD = VS_VNDR_AET.SUPPORT_TEAM_CD; &[Link]("&[Link] = " &[Link]); REM &[Link] = VS_VNDR_AET.COLLECTOR; &[Link]("&oVsVndrIdCi.CR_ANALYST = " &oVsVndrIdCi.CR_ANALYST); REM &oVsVndrIdCi.CR_ANALYST = VS_VNDR_AET.CR_ANALYST; &[Link]("&[Link] = " &[Link]); &[Link] = VS_VNDR_AET.CITY; &[Link]("&[Link] = " &[Link]); REM &[Link] = VS_VNDR_AET.STATE; &[Link]("&[Link] = " &[Link]); &[Link] = VS_VNDR_AET.POSTAL; &[Link]("&[Link] = " &[Link]); &[Link] = VS_VNDR_AET.COUNTRY; &[Link]("&oVsVndrIdCi.ADDRESS1 = " &oVsVndrIdCi.ADDRESS1); &oVsVndrIdCi.ADDRESS1 = VS_VNDR_AET.ADDRESS1; &[Link]("&oVsVndrIdCi.ADDRESS_OPERATOR = " &oVsVndrIdCi.ADDRESS_ OPERATOR); REM &oVsVndrIdCi.ADDRESS_OPERATOR = VS_VNDR_AET.ADDRESS_OPERATOR; &[Link]("&oVsVndrIdCi.NAME1_OPERATOR = " &oVsVndrIdCi.NAME1_OPER ATOR); REM &oVsVndrIdCi.NAME1_OPERATOR = VS_VNDR_AET.NAME1_OPERATOR; &[Link]("&oVsVndrIdCi.SNAME_OPERATOR = " &oVsVndrIdCi.SNAME_OPER ATOR); REM &oVsVndrIdCi.SNAME_OPERATOR = VS_VNDR_AET.SNAME_OPERATOR; &[Link]("&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 &[Link]; &oVndrVatRgstrn = &[Link](&i1104); If All(&[Link]) And &[Link] <> VS_VNDR_AET.COUNTRY3 Then &[Link]("vat registration country" &[Link] ); &FOUND = False; Break; End-If; If None(&[Link]) Then &FOUND = True; End-If; REM MessageBox(0, "", 0, 0, "VAT COUNTRY" &FOUND); If &FOUND = False Then &oVndrVatRgstrn = &[Link](1); Else &oVndrVatRgstrn = &[Link](1);

End-If; &[Link]("&[Link] = " ; &[Link] = VS_VNDR_AET.COUNTRY3; &[Link]("&oVndrVatRgstrn.VAT_RGSTRN_ID_0 = " &oVndrVatRgstrn. VAT_RGSTRN_ID_0); &oVndrVatRgstrn.VAT_RGSTRN_ID_0 = VS_VNDR_AET.VAT_RGSTRN_ID; &[Link]("&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 &[Link]; &oVndrAddrScrol = &[Link](&i1109); MessageBox(0, "", 0, 0, "ADDRESS SCROLL LOOP OF : " &i1109); &[Link]("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" &[Link])

&FOUND);

If &FOUND = False Then &oVndrAddrScrol = &[Link](1); Else &oVndrAddrScrol = &[Link](1); End-If; &[Link]("&[Link] = " &[Link]); &[Link] = 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; &[Link]("&oVndrAddrScrol.CCR_ADDR_TYPE = " &[Link] 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 &[Link]; &oVendorAddr = &[Link](&i2114); MessageBox(0, "", 0, 0, "ADDRESS LOOP OF : " &i2114);

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

&FOUND);

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

&oVendorAddr.COUNTY_1 = VS_VNDR_AET.COUNTY; &[Link]("&oVendorAddr.STATE_1 = " &oVendorAddr.STATE_1); &oVendorAddr.STATE_1 = VS_VNDR_AET.STATE; &[Link]("&oVendorAddr.POSTAL_1 = " &oVendorAddr.POSTAL_1); &oVendorAddr.POSTAL_1 = VS_VNDR_AET.POSTAL; &[Link]("&oVendorAddr.GEO_CODE = " &oVendorAddr.GEO_CODE); &oVendorAddr.GEO_CODE = VS_VNDR_AET.GEO_CODE; &[Link]("&oVendorAddr.IN_CITY_LIMIT = " &oVendorAddr.IN_CI TY_LIMIT); &oVendorAddr.IN_CITY_LIMIT = VS_VNDR_AET.IN_CITY_LIMIT; &[Link]("&oVendorAddr.NAME1_WTHD_0 = " &oVendorAddr.NAME1_ WTHD_0); &oVendorAddr.NAME1_WTHD_0 = VS_VNDR_AET.NAME1_WTHD; &[Link]("&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 &[Link]; &oVndrLocScrol = &[Link](&i1141); MessageBox(0, "", 0, 0, "lOCATION SCROLL LOOP OF : " &i1141); &[Link]("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 = &[Link](1); Else &oVndrLocScrol = &[Link](1); End-If; &[Link]("&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); &[Link]("&oVndrLocScrol.DESCR_1 = " &oVndrLocScrol.DESCR_1); &oVndrLocScrol.DESCR_1 = VS_VNDR_AET.DESCR; &[Link]("&oVndrLocScrol.CCR_ADDR_TYPE_1 = " &[Link] R_ADDR_TYPE_1); &oVndrLocScrol.CCR_ADDR_TYPE_1 = VS_VNDR_AET.CCR_ADDR_TYPE; REM &[Link]("&[Link] = " &[Link]); REM &[Link] = 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 &[Link]; REM MessageBox(0, "", 0, 0, "TEST1"); &oVendorLoc = &[Link](&i2149); MessageBox(0, "", 0, 0, "lOCATION LOOP OF : " &i2149); &[Link]("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 = &[Link](1); Else &oVendorLoc = &[Link](1); End-If; REM MessageBox(0, "", 0, 0, VS_VNDR_AET.[Link]); &[Link]("&oVendorLoc.EFFDT_9 = " &oVendorLoc.EFFDT_9); &oVendorLoc.EFFDT_9 = VS_VNDR_AET.EFFDT; &[Link]("&oVendorLoc.EFF_STATUS_2 = " &oVendorLoc.EFF_STAT US_2); &oVendorLoc.EFF_STATUS_2 = VS_VNDR_AET.EFF_STATUS; &[Link]("&oVendorLoc.CURRENCY_CD = " &oVendorLoc.CURRENCY_ CD); &oVendorLoc.CURRENCY_CD = VS_VNDR_AET.CURRENCY_CD; &[Link]("&oVendorLoc.CUR_RT_TYPE = " &oVendorLoc.CUR_RT_TY PE); &oVendorLoc.CUR_RT_TYPE = VS_VNDR_AET.CUR_RT_TYPE; &[Link]("&oVendorLoc.FREIGHT_TERMS = " &[Link] _TERMS); &oVendorLoc.FREIGHT_TERMS = VS_VNDR_AET.FREIGHT_TERMS; &[Link]("&oVendorLoc.SHIP_TYPE_ID = " &oVendorLoc.SHIP_TYP E_ID); &oVendorLoc.SHIP_TYPE_ID = VS_VNDR_AET.SHIP_TYPE_ID; &[Link]("&oVendorLoc.DISP_METHOD = " &oVendorLoc.DISP_METH OD); &oVendorLoc.DISP_METHOD = VS_VNDR_AET.DISP_METHOD; &[Link]("&oVendorLoc.PYMNT_TERMS_CD = " &oVendorLoc.PYMNT_ TERMS_CD); &oVendorLoc.PYMNT_TERMS_CD = VS_VNDR_AET.PYMNT_TERMS_CD; &[Link]("&oVendorLoc.MATCH_OPT_FLG = " &oVendorLoc.MATCH_O PT_FLG); &oVendorLoc.MATCH_OPT_FLG = VS_VNDR_AET.MATCH_OPT_FLG; &[Link]("&oVendorLoc.MATCH_CNTRL_ID = " &oVendorLoc.MATCH_ CNTRL_ID); &oVendorLoc.MATCH_CNTRL_ID = VS_VNDR_AET.MATCH_CNTRL_ID; &[Link]("&oVendorLoc.MATCH_OPT = " &oVendorLoc.MATCH_OPT); &oVendorLoc.MATCH_OPT = VS_VNDR_AET.MATCH_OPT; &[Link]("&oVendorLoc.ERS_ACTION = " &oVendorLoc.ERS_ACTION ); &oVendorLoc.ERS_ACTION = VS_VNDR_AET.ERS_ACTION; &[Link]("&oVendorLoc.ERS_FLAG = " &oVendorLoc.ERS_FLAG); &oVendorLoc.ERS_FLAG = VS_VNDR_AET.ERS_FLAG;

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

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

CODE); &oVendorLoc.PROGRAM_CODE = VS_VNDR_AET.PROGRAM_CODE; &[Link]("&oVendorLoc.BUDGET_REF = " &oVendorLoc.BUDGET_REF ); &oVendorLoc.BUDGET_REF = VS_VNDR_AET.BUDGET_REF; &[Link]("&[Link] = " &[Link]); &[Link] = VS_VNDR_AET.AFFILIATE; &[Link]("&oVendorLoc.AFFILIATE_INTRA1 = " &[Link] LIATE_INTRA1); &oVendorLoc.AFFILIATE_INTRA1 = VS_VNDR_AET.AFFILIATE_INTRA1; &[Link]("&oVendorLoc.AFFILIATE_INTRA2 = " &[Link] LIATE_INTRA2); &oVendorLoc.AFFILIATE_INTRA2 = VS_VNDR_AET.AFFILIATE_INTRA2; &[Link]("&oVendorLoc.CHARTFIELD1 = " &[Link] D1); &oVendorLoc.CHARTFIELD1 = VS_VNDR_AET.CHARTFIELD1; &[Link]("&oVendorLoc.CHARTFIELD2 = " &[Link] D2); &oVendorLoc.CHARTFIELD2 = VS_VNDR_AET.CHARTFIELD2; &[Link]("&oVendorLoc.CHARTFIELD3 = " &[Link] D3); &oVendorLoc.CHARTFIELD3 = VS_VNDR_AET.CHARTFIELD3; &[Link]("&oVendorLoc.PROJECT_ID = " &oVendorLoc.PROJECT_ID ); &oVendorLoc.PROJECT_ID = VS_VNDR_AET.PROJECT_ID; &[Link]("&oVendorLoc.CONSIGNED_FLAG = " &[Link] NED_FLAG); &oVendorLoc.CONSIGNED_FLAG = VS_VNDR_AET.CONSIGNED_FLAG; &[Link]("&oVendorLoc.VCHR_CONSIGN_OPT = " &[Link] _CONSIGN_OPT); &oVendorLoc.VCHR_CONSIGN_OPT = VS_VNDR_AET.VCHR_CONSIGN_OPT; &[Link]("&oVendorLoc.BANK_ACCT_SEQ_NBR = " &[Link] K_ACCT_SEQ_NBR); &oVendorLoc.BANK_ACCT_SEQ_NBR = VS_VNDR_AET.BANK_ACCT_SEQ_NBR; &[Link]("&oVendorLoc.ACCT_TEMPL_FLG = " &oVendorLoc.ACCT_T EMPL_FLG); &oVendorLoc.ACCT_TEMPL_FLG = VS_VNDR_AET.ACCT_TEMPL_FLG; &[Link]("&oVendorLoc.PAY_TRM_BSE_DT_DFT = " &[Link] Y_TRM_BSE_DT_DFT); &oVendorLoc.PAY_TRM_BSE_DT_DFT = VS_VNDR_AET.PAY_TRM_BSE_DT_DFT; &[Link]("&oVendorLoc.RECV_ONLY_MTCH_FLG = " &[Link] CV_ONLY_MTCH_FLG); &oVendorLoc.RECV_ONLY_MTCH_FLG = VS_VNDR_AET.RECV_ONLY_MTCH_FLG; &[Link]("&oVendorLoc.VCHR_MTCH_ADJ_DFLT = " &[Link] HR_MTCH_ADJ_DFLT); &oVendorLoc.VCHR_MTCH_ADJ_DFLT = VS_VNDR_AET.VCHR_MTCH_ADJ_DFLT; &[Link]("&oVendorLoc.ERS_INV_DT_OPT = " &oVendorLoc.ERS_IN V_DT_OPT); &oVendorLoc.ERS_INV_DT_OPT = VS_VNDR_AET.ERS_INV_DT_OPT; &[Link]("&oVendorLoc.ERS_INV_DT_DFLT = " &oVendorLoc.ERS_I NV_DT_DFLT); &oVendorLoc.ERS_INV_DT_DFLT = VS_VNDR_AET.ERS_INV_DT_DFLT; &[Link]("&oVendorLoc.ERS_TAX_TYPE_DFLT = " &[Link] _TAX_TYPE_DFLT); &oVendorLoc.ERS_TAX_TYPE_DFLT = VS_VNDR_AET.ERS_TAX_TYPE_DFLT; &[Link]("&oVendorLoc.ERS_TAX_CD_OPT = " &oVendorLoc.ERS_TA X_CD_OPT); &oVendorLoc.ERS_TAX_CD_OPT = VS_VNDR_AET.ERS_TAX_CD_OPT; &[Link]("&oVendorLoc.SBI_DOC_DFLT = " &oVendorLoc.SBI_DOC_ DFLT);

&oVendorLoc.SBI_DOC_DFLT = VS_VNDR_AET.SBI_DOC_DFLT; &[Link]("&oVendorLoc.SBI_PRINT_OPT = " &oVendorLoc.SBI_PRI NT_OPT); &oVendorLoc.SBI_PRINT_OPT = VS_VNDR_AET.SBI_PRINT_OPT; &[Link]("&oVendorLoc.VCHR_TAX_ADJ_DFT = " &[Link] _TAX_ADJ_DFT); &oVendorLoc.VCHR_TAX_ADJ_DFT = VS_VNDR_AET.VCHR_TAX_ADJ_DFT; &[Link]("&oVendorLoc.RTV_VCHR_ADJ_DFLT = " &[Link] _VCHR_ADJ_DFLT); &oVendorLoc.RTV_VCHR_ADJ_DFLT = VS_VNDR_AET.RTV_VCHR_ADJ_DFLT; &[Link]("&oVendorLoc.VAT_SUSPENSION_FLG = " &[Link] T_SUSPENSION_FLG); &oVendorLoc.VAT_SUSPENSION_FLG = VS_VNDR_AET.VAT_SUSPENSION_FLG; &[Link]("&oVendorLoc.VAT_ROUND_RULE = " &oVendorLoc.VAT_RO UND_RULE); &oVendorLoc.VAT_ROUND_RULE = VS_VNDR_AET.VAT_ROUND_RULE; &[Link]("&oVendorLoc.REPL_DISP_METHOD = " &[Link] _DISP_METHOD); &oVendorLoc.REPL_DISP_METHOD = VS_VNDR_AET.REPL_DISP_METHOD; &[Link]("&oVendorLoc.VNDR_UPN_FLG = " &oVendorLoc.VNDR_UPN _FLG); &oVendorLoc.VNDR_UPN_FLG = VS_VNDR_AET.VNDR_UPN_FLG; &[Link]("&oVendorLoc.COMMENTS_2000_0 = " &[Link] NTS_2000_0); &oVendorLoc.COMMENTS_2000_0 = VS_VNDR_AET.COMMENTS_2000; &[Link]("&oVendorLoc.DISP_CO_FLAG = " &oVendorLoc.DISP_CO_ FLAG); &oVendorLoc.DISP_CO_FLAG = VS_VNDR_AET.DISP_CO_FLAG; &[Link]("&oVendorLoc.DATE_CALC_BASIS = " &oVendorLoc.DATE_ CALC_BASIS); &oVendorLoc.DATE_CALC_BASIS = VS_VNDR_AET.DATE_CALC_BASIS; &[Link]("&oVendorLoc.PAY_SCHEDULE_TYPE = " &[Link] _SCHEDULE_TYPE); &oVendorLoc.PAY_SCHEDULE_TYPE = VS_VNDR_AET.PAY_SCHEDULE_TYPE; &[Link]("&oVendorLoc.FEDERAL_INDICATOR = " &[Link] ERAL_INDICATOR); &oVendorLoc.FEDERAL_INDICATOR = VS_VNDR_AET.FEDERAL_INDICATOR; &[Link]("&oVendorLoc.TRADING_PARTNER = " &[Link] NG_PARTNER); &oVendorLoc.TRADING_PARTNER = VS_VNDR_AET.TRADING_PARTNER; &[Link]("&[Link] = " &[Link]); &[Link] = VS_VNDR_AET.ALC; &[Link]("&oVendorLoc.WORKFLOW_OPT = " &[Link] _OPT); &oVendorLoc.WORKFLOW_OPT = VS_VNDR_AET.WORKFLOW_OPT; &[Link]("&oVendorLoc.PHYSICAL_NATURE = " &[Link] CAL_NATURE); &oVendorLoc.PHYSICAL_NATURE = VS_VNDR_AET.PHYSICAL_NATURE; &[Link]("&oVendorLoc.VAT_SVC_PERFRM_FLG = " &[Link] T_SVC_PERFRM_FLG); &oVendorLoc.VAT_SVC_PERFRM_FLG = VS_VNDR_AET.VAT_SVC_PERFRM_FLG; &[Link]("&oVendorLoc.ULTIMATE_USE_CD = " &[Link] ATE_USE_CD); &oVendorLoc.ULTIMATE_USE_CD = VS_VNDR_AET.ULTIMATE_USE_CD; &[Link]("&oVendorLoc.ADDR_SEQ_NUM_SHFR = " &[Link] R_SEQ_NUM_SHFR); &oVendorLoc.ADDR_SEQ_NUM_SHFR = VS_VNDR_AET.ADDR_SEQ_NUM_SHFR; &[Link]("&oVendorLoc.POA_REQUIRED = " &oVendorLoc.POA_REQU IRED); &oVendorLoc.POA_REQUIRED = VS_VNDR_AET.POA_REQUIRED;

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

&[Link]("&oVendorLoc.CURRENCY_FLG = " _FLG);

&[Link]

REM &oVendorLoc.CURRENCY_FLG = VS_VNDR_AET.CURRENCY_FLG; &[Link]("&oVendorLoc.DSPTCH_MTHD_PO_FLG = " &[Link] PTCH_MTHD_PO_FLG); REM &oVendorLoc.DSPTCH_MTHD_PO_FLG = VS_VNDR_AET.DSPTCH_MTHD_PO_FLG; &[Link]("&oVendorLoc.DSPTCH_MTH_RFQ_FLG = " &[Link] PTCH_MTH_RFQ_FLG); REM &oVendorLoc.DSPTCH_MTH_RFQ_FLG = VS_VNDR_AET.DSPTCH_MTH_RFQ_FLG; &[Link]("&oVendorLoc.DISP_MTHD_CNTR_FLG = " &[Link] SP_MTHD_CNTR_FLG); REM &oVendorLoc.DISP_MTHD_CNTR_FLG = VS_VNDR_AET.DISP_MTHD_CNTR_FLG; &[Link]("&oVendorLoc.DISP_MTHD_RTV_FLG = " &[Link] P_MTHD_RTV_FLG); REM &oVendorLoc.DISP_MTHD_RTV_FLG = VS_VNDR_AET.DISP_MTHD_RTV_FLG; &[Link]("&oVendorLoc.FOB_CD_FLG = " &oVendorLoc.FOB_CD_FLG ); REM &oVendorLoc.FOB_CD_FLG = VS_VNDR_AET.FOB_CD_FLG; &[Link]("&oVendorLoc.PYMNT_TERMS_FLG = " &[Link] _TERMS_FLG); REM &oVendorLoc.PYMNT_TERMS_FLG = VS_VNDR_AET.PYMNT_TERMS_FLG; &[Link]("&oVendorLoc.SHIP_TYPE_FLG = " &oVendorLoc.SHIP_TY PE_FLG); REM &oVendorLoc.SHIP_TYPE_FLG = VS_VNDR_AET.SHIP_TYPE_FLG; &[Link]("&oVendorLoc.DSPTCH_MTHD_CO_FLG = " &[Link] PTCH_MTHD_CO_FLG); REM &oVendorLoc.DSPTCH_MTHD_CO_FLG = VS_VNDR_AET.DSPTCH_MTHD_CO_FLG; &[Link]("&oVendorLoc.SCHEDULE_FLG = " &[Link] _FLG); REM &oVendorLoc.SCHEDULE_FLG = VS_VNDR_AET.SCHEDULE_FLG; &[Link]("&oVendorLoc.BASIS_DT_FLG = " &oVendorLoc.BASIS_DT _FLG); REM &oVendorLoc.BASIS_DT_FLG = VS_VNDR_AET.BASIS_DT_FLG; &[Link]("&oVendorLoc.CC_CARD_LIST = " &oVendorLoc.CC_CARD_ LIST); REM &oVendorLoc.CC_CARD_LIST = VS_VNDR_AET.CC_CARD_LIST; &[Link]("&oVendorLoc.CC_USE_FLAG = " &oVendorLoc.CC_USE_FL AG); &oVendorLoc.CC_USE_FLAG = VS_VNDR_AET.CC_USE_FLAG; &[Link]("&oVendorLoc.CC_ALLOW_OVERRIDE = " &oVendorLoc.CC_ ALLOW_OVERRIDE); &oVendorLoc.CC_ALLOW_OVERRIDE = VS_VNDR_AET.CC_ALLOW_OVERRIDE; &[Link]("&oVendorLoc.VAT_PHYS_NAT_FLG = " &oVendorLoc.VAT_ PHYS_NAT_FLG); REM &oVendorLoc.VAT_PHYS_NAT_FLG = VS_VNDR_AET.VAT_PHYS_NAT_FLG; &[Link]("&oVendorLoc.VAT_SVC_PRFRM_FLG = " &[Link] _SVC_PRFRM_FLG); REM &oVendorLoc.VAT_SVC_PRFRM_FLG = VS_VNDR_AET.VAT_SVC_PRFRM_FLG; &[Link]("&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 &[Link]() Then; rem errorHandler(); rem throw CreateException(0, 0, "Save failed"); If Not &[Link]() 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 &[Link]() Then; rem errorHandler(); rem throw CreateException(0, 0, "Cancel failed"); rem End-If; catch Exception &ex rem Handle the exception; &[Link](&[Link]()); end-try; &[Link]("End"); &[Link]();