opPrimeKey | output | longchar | Primary Key field value of loaded record(s). Keys are chr(4) separated. Key fields are chr(2) separated. |
oiReturnStatus | output | integer | Return status of the method. |
if oiReturnStatus = 0 then oiReturnStatus = -98. /* Initial the variables */ assign vcBlankFieldsName = "":U. /* start queires */ <Q-31 run DebtorPrim (Start) in BDebtor > <Q-32 run CreditorPrim (Start) in BCreditor > <Q-33 run EmployeePrim (Start) in BEmployee > <Q-34 run GLPrim (Start) in BGL > <Q-35 run PayFormatGroupPrim (Start) in BPaymentFormat > <Q-17 run BankNumberForParentObject (Start) in BBankNumber > PROCESSBLOCK: for each t_sBankNumber break by t_sBankNumber.tc_Rowid: /* Test if following fields are specified as they are part of unique index and can never be blank */ /* Remark also BankPayFormat_ID and BankNumberExtension are part of primary key - but they can be blank */ if t_sBankNumber.tcParentObjectCode = '':U or t_sBankNumber.tcParentObjectCode = ? then assign vcBlankFieldsName = (if vcBlankFieldsName = "":U then vcBlankFieldsName + trim(#T-39'Customer / Supplier Code':60(71235)T-39#) else vcBlankFieldsName + ", ":U + trim(#T-40'Customer / Supplier Code':60(71235)T-40#)). assign vlDuplicateGl = false . if t_sBankNumber.BankNumber = '':U or t_sBankNumber.BankNumber = ? then assign vcBlankFieldsName = (if vcBlankFieldsName = "":U then vcBlankFieldsName + trim(#T-43'Bank Number':255(69715)T-43#) else vcBlankFieldsName + ", ":U + trim(#T-44'Bank Number':255(69715)T-44#)). if vcBlankFieldsName <> "":U then do: assign vcMessage = trim(#T-12'Some key elements to identify the Bank Number are missing :':150(71233)T-12#) + trim(vcBlankFieldsName). <M-11 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumber.tc_Rowid (icRowid), input 'QadFin-8626':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> assign oiReturnStatus = -1. leave PROCESSBLOCK. end. /* get the parent object id */ case t_sBankNumber.BankNumberParentType: when {&BANKNUMBERPARENTTYPE-CREDITOR} then do: if t_sBankNumber.BankNumberIsBankCharge = yes then do: assign vcMessage = trim(substitute(#T-42'Bank charges should not be enabled for bank number &1.':255(123388855)T-42#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-2 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-433048':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. if t_sBankNumber.tcBankChargeGLCode <> "":U and t_sBankNumber.tcBankChargeGLCode <> ? then do: assign vcMessage = trim(substitute(#T-19'The bank charge account must be blank for bank number &1.':255(694890854)T-19#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-80 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-856023':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. <Q-13 run CreditorPrim (all) (Read) (Cache) (input viCompanyId, (CompanyId) input ?, (CreditorId) input t_sBankNumber.tcParentObjectCode, (CreditorCode) output dataset tqCreditorPrim) in BCreditor > find first tqCreditorPrim no-error. if available tqCreditorPrim then assign t_sBankNumber.ParentObject_ID = tqCreditorPrim.tiCreditor_ID. else do: assign vcMessage = trim(substitute(#T-73'The specified supplier (bank account: &1) is not defined.':200(398)T-73#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-81 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-881046':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. /*else do*/ end. /* Creditor */ when {&BANKNUMBERPARENTTYPE-DEBTOR} then do: if t_sBankNumber.BankNumberIsBankCharge = yes then do: assign vcMessage = trim(substitute(#T-68'Bank charges should not be enabled for bank number &1.':255(123388855)T-68#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-77 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-900682':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. if t_sBankNumber.tcBankChargeGLCode <> "":U and t_sBankNumber.tcBankChargeGLCode <> ? then do: assign vcMessage = trim(substitute(#T-84'The bank charge account must be blank for bank number &1.':255(694890854)T-84#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-91 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-910003':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. <Q-14 run DebtorPrim (all) (Read) (Cache) (input viCompanyId, (CompanyId) input t_sBankNumber.tcParentObjectCode, (DebtorCode) input ?, (Debtor_ID) output dataset tqDebtorPrim) in BDebtor > find first tqDebtorPrim no-error. if available tqDebtorPrim then assign t_sBankNumber.ParentObject_ID = tqDebtorPrim.tiDebtor_ID. else do: assign vcMessage = trim(substitute(#T-56'The specified customer (bank account: &1) is not defined.':200(399)T-56#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-53 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-853266':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. /*else do*/ end. /* Debtor */ when {&BANKNUMBERPARENTTYPE-EMPLOYEE} then do: <Q-15 run EmployeePrim (all) (Read) (Cache) (input ?, (EmployeeId) input t_sBankNumber.tcParentObjectCode, (EmployeeCode) input viCompanyId, (CompanyId) output dataset tqEmployeePrim) in BEmployee > find first tqEmployeePrim no-error. if available tqEmployeePrim then assign t_sBankNumber.ParentObject_ID = tqEmployeePrim.tiEmployee_ID. else do: assign vcMessage = trim(substitute(#T-90'The specified employee (bank account: &1) is not defined.':200(400)T-90#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-45 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-483938':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. /*else do*/ end. /* Employee */ when {&BANKNUMBERPARENTTYPE-GL} then do: <Q-16 run GLPrim (all) (Read) (Cache) (input viCompanyId, (CompanyId) input t_sBankNumber.tcParentObjectCode, (GLCode) input ?, (GLId) output dataset tqGLPrim) in BGL > find first tqGLPrim no-error. if available tqGLPrim then assign t_sBankNumber.ParentObject_ID = tqGLPrim.tiGL_ID. else do: assign vcMessage = trim(substitute(#T-229'The specified GL account (bank account: &1) is not defined.':200(401)T-229#, trim(t_sBankNumber.BankNumber))) + chr(10) + program-name(1) oiReturnStatus = -1. <M-92 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input '':U (icRowid), input 'qadfin-800824':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. /*else do*/ end. /* G/L */ otherwise assign t_sBankNumber.ParentObject_ID = ?. end case. /* If tlExistRecord is true, the program will try to find a unique existing record * using BankNumber and Supplier/Customer. Then do the update. * If it is false, the program will create a new bank number for the Supplier/Customer. */ <Q-82 run BankNumberForParentObject2 (all) (Read) (NoCache) (input viCompanyId, (CompanyId) input t_sBankNumber.ParentObject_ID, (ParentObjectID) input t_sBankNumber.BankNumber, (BankNumber) input t_sBankNumber.tcOwnBankNumber, (OwnBankNumber) input t_sBankNumber.tcPayFormatTypeCode, (PayFormatTypeCode) output dataset tqBankNumberForParentObject2) in BBankNumber> if t_sBankNumber.tlExistRecord = false then do : find first bt_sBankNumber where bt_sBankNumber.ParentObject_ID = t_sBankNumber.ParentObject_ID and bt_sBankNumber.BankNumber = t_sBankNumber.BankNumber and bt_sBankNumber.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and bt_sBankNumber.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode and bt_sBankNumber.BankNumberExtension = t_sBankNumber.BankNumberExtension and bt_sBankNumber.tcOwnGLCode = t_sBankNumber.tcOwnGLCode and bt_sBankNumber.tc_Rowid <> t_sBankNumber.tc_Rowid no-error . if available bt_sBankNumber then assign vlDuplicateGl = true . if vlDuplicateGl = false then do : <Q-69 run BankNumberForOwnBankNumber (all) (Read) (NoCache) (input viCompanyId, (CompanyId) input t_sBankNumber.tcOwnBankNumber, (OwnBankNumber) input t_sBankNumber.tcOwnGLCode, (OwnGLCode) input t_sBankNumber.tcPayFormatTypeCode, (PayFormatTypeCode) output dataset tqBankNumberForOwnBankNumber) in BBankNumber> find first tqBankNumberForOwnBankNumber where tqBankNumberForOwnBankNumber.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and tqBankNumberForOwnBankNumber.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode no-error. if available tqBankNumberForOwnBankNumber then assign t_sBankNumber.BankPayFormat_ID = tqBankNumberForOwnBankNumber.tiBankPayFormat_ID . if can-find(first tqBankNumberForParentObject2 where tqBankNumberForParentObject2.tiParentObject_ID = t_sBankNumber.ParentObject_ID and tqBankNumberForParentObject2.tcBankNumber = t_sBankNumber.BankNumber and tqBankNumberForParentObject2.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and tqBankNumberForParentObject2.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode and tqBankNumberForParentObject2.tiBankPayFormat_ID = t_sBankNumber.BankPayFormat_ID and tqBankNumberForParentObject2.tcBankNumberExtension = t_sBankNumber.BankNumberExtension ) then assign vlDuplicateGl = true . end . if vlDuplicateGl = true then do : assign oiReturnStatus = -1. assign vcMessage = #T-6'This GL account appears at least twice. Please check your input for duplicate GL accounts.':255(742970880)T-6# . <M-527 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input 't_sBankNumber.tcOwnGLCode':U (icFieldName), input t_sBankNumber.tcOwnGLCode (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumber.tc_Rowid (icRowid), input 'qadfin-798429':U (icFcMsgNumber), input '':U (icFcExplanation), input '':U (icFcIdentification), input '':U (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> end. end. if t_sBankNumber.tlExistRecord = true then do: /* Check whether it can find the records via the Customer/Supplier and BankNumber */ if can-find(first tqBankNumberForParentObject2 where tqBankNumberForParentObject2.tiParentObject_ID = t_sBankNumber.ParentObject_ID and tqBankNumberForParentObject2.tcBankNumber = t_sBankNumber.BankNumber and tqBankNumberForParentObject2.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and tqBankNumberForParentObject2.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode and tqBankNumberForParentObject2.tcBankNumberExtension = t_sBankNumber.BankNumberExtension) then do: /* Check whether it can find a unique record via the Customer/Supplier and BankNumber */ find tqBankNumberForParentObject2 where tqBankNumberForParentObject2.tiParentObject_ID = t_sBankNumber.ParentObject_ID and tqBankNumberForParentObject2.tcBankNumber = t_sBankNumber.BankNumber and tqBankNumberForParentObject2.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and tqBankNumberForParentObject2.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode and tqBankNumberForParentObject2.tcBankNumberExtension = t_sBankNumber.BankNumberExtension no-error. if not available tqBankNumberForParentObject2 then do: if vcActivityCode = "SupplierBankNumberExcelIntegration":U then do: assign vcMessage = trim(substitute(#T-67'More than one BankNumber found for the combination of Supplier &1 and BankNumber &2. Update of existing record is not possible.':255(591319374)T-67#, trim(t_sBankNumber.tcParentObjectCode), trim(t_sBankNumber.BankNumber) )). end. else if vcActivityCode = "CustomerBankNumberExcelIntegration":U then do: assign vcMessage = trim(substitute(#T-79'More than one BankNumber found for the combination of Customer &1 and BankNumber &2. Update of existing record is not possible.':255(779893960)T-79#, trim(t_sBankNumber.tcParentObjectCode), trim(t_sBankNumber.BankNumber) )). end. assign oiReturnStatus = -1. <M-65 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumber.tc_Rowid (icRowid), input 'QadFin-9826':U (icFcMsgNumber), input '':U (icFcExplanation), input '':U (icFcIdentification), input '':U (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> next PROCESSBLOCK. end. /* if not available tqBankNumberForParentObject2 */ end. else do: if vcActivityCode = "SupplierBankNumberExcelIntegration":U then do: assign vcMessage = trim(substitute(#T-64'No BankNumber found for the combination of Supplier &1 and BankNumber &2. Update of existing record is not possible.':255(332099381)T-64#, trim(t_sBankNumber.tcParentObjectCode), trim(t_sBankNumber.BankNumber) )). end. else if vcActivityCode = "CustomerBankNumberExcelIntegration":U then do: assign vcMessage = trim(substitute(#T-87'No BankNumber found for the combination of Customer &1 and BankNumber &2. Update of existing record is not possible.':255(954600931)T-87#, trim(t_sBankNumber.tcParentObjectCode), trim(t_sBankNumber.BankNumber) )). end. assign oiReturnStatus = -1. <M-62 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumber.tc_Rowid (icRowid), input 'QadFin-9825':U (icFcMsgNumber), input '':U (icFcExplanation), input '':U (icFcIdentification), input '':U (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> next PROCESSBLOCK. end. /* if can-find(first tqBankNumberForParentObject2 where */ end. /* if t_sBankNumber.tlExistRecord = true */ if vcActivityCode <> "Create":U then do: if last(t_sBankNumber.tc_Rowid) then assign vlRunCalculate = true. else assign vlRunCalculate = false. find first tqBankNumberForParentObject2 where tqBankNumberForParentObject2.tiParentObject_ID = t_sBankNumber.ParentObject_ID and tqBankNumberForParentObject2.tcBankNumber = t_sBankNumber.BankNumber and tqBankNumberForParentObject2.tcOwnBankNumber = t_sBankNumber.tcOwnBankNumber and tqBankNumberForParentObject2.tcPayFormatTypeCode = t_sBankNumber.tcPayFormatTypeCode and tqBankNumberForParentObject2.tcBankNumberExtension = t_sBankNumber.BankNumberExtension no-error. if available tqBankNumberForParentObject2 then do: <M-57 run DataLoad (input '' (icRowids), input string(tqBankNumberForParentObject2.tiBankNumber_ID) (icPkeys), input '' (icObjectIds), input '' (icFreeform), input yes (ilKeepPrevious), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> if viFcReturnSuper >= 0 then find first tBankNumber where tBankNumber.BankNumber_ID = t_sBankNumber.BankNumber_ID no-error. end. end. /* ================================================================= */ /* When in delete mode, ignore input data. */ /* When object not found, do not return an error. */ /* ================================================================= */ if vcActivityCode = "Delete":U then do: if viFcReturnSuper = -4 then delete t_sBankNumber. else do: if viFcReturnSuper <> 0 then oiReturnStatus = viFcReturnSuper. if viFcReturnSuper < 0 then leave PROCESSBLOCK. /* ================================================================= */ /* Update input to allow correct matching */ /* ================================================================= */ assign t_sBankNumber.tc_Rowid = tBankNumber.tc_Rowid t_sBankNumber.tc_ParentRowid = "" opPrimeKey = (if opPrimeKey = "" then "" else opPrimeKey + chr(4)) + string(tBankNumber.BankNumber_ID). end. next. end. if vcActivityCode = "Create":U or viFcReturnSuper = -4 or not available tBankNumber or (t_sBankNumber.tlExistRecord = false and (vcActivityCode = "SupplierBankNumberExcelIntegration":U or vcActivityCode = "CustomerBankNumberExcelIntegration":U)) then do: /* ================================================================= */ /* When object not found and in modify only mode, return an error. */ /* ================================================================= */ if vcActivityCode = "Modify":U then do: assign vcMessage = trim(#T-60'Object with key $1 does not exist.':100(48021)T-60#). <M-58 run SetMessage (input vcMessage (icMessage), input t_sBankNumber.BankNumber (icArguments), input 'tBankNumber.BankNumber':U (icFieldName), input t_sBankNumber.BankNumber (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumber.tc_Rowid (icRowid), input 'QadFin-9824':U (icFcMsgNumber), input '' (icFcExplanation), input '' (icFcIdentification), input '' (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> assign oiReturnStatus = -1. leave PROCESSBLOCK. end. /* ================================================================= */ /* When object not found or in create mode, create it. */ /* ================================================================= */ <M-59 run AddDetailLine (input 'BankNumber':U (icTable), input '' (icParentRowid), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> /* ================================================================= */ /* Update input to allow correct matching */ /* ================================================================= */ assign t_sBankNumber.tc_Status = "N":U. end. else do: /* ================================================================= */ /* Update input to allow correct matching */ /* ================================================================= */ assign t_sBankNumber.tc_Status = "C":U. end. if viFcReturnSuper <> 0 then oiReturnStatus = viFcReturnSuper. if viFcReturnSuper < 0 then leave PROCESSBLOCK. /* insert code for subtables here: BankNumberPayCode */ /* ================================================================= */ /* Delete existing detail */ /* ================================================================= */ for each tBankNumberPayCode where tBankNumberPayCode.tc_ParentRowid = tBankNumber.tc_Rowid: assign tBankNumberPayCode.tc_Status = "D":U. end. /* C/S Bank Conversion begin */ assign t_sBankNumber.BankNumber_ID = tBankNumber.BankNumber_ID. /* ================================================================= */ /* Update / add detail */ /* ================================================================= */ for each t_sBankNumberPayCode where t_sBankNumberPayCode.tc_ParentRowid = t_sBankNumber.tc_Rowid and t_sBankNumberPayCode.tc_Status <> "D":U: assign t_sBankNumberPayCode.BankNumber_ID = t_sBankNumber.BankNumber_ID. /* We need payformatgroup_id */ <Q-7 run PayFormatGroupPrim (all) (Read) (NoCache) (input ?, (PayFormatGroupID) input t_sBankNumberPayCode.tcPayFormatTypeCode, (PayFormatTypeCode) input t_sBankNumberPayCode.tiPayFormatGroupSequence, (PayFormatGroupSequence) output dataset tqPayFormatGroupPrim) in BPaymentFormat > find first tqPayFormatGroupPrim where tqPayFormatGroupPrim.tcPayFormatTypeCode = t_sBankNumberPayCode.tcPayFormatTypeCode and tqPayFormatGroupPrim.tiPayFormatGroupSequence = t_sBankNumberPayCode.tiPayFormatGroupSequence no-error. if not available tqPayFormatGroupPrim then do: assign vcMessage = trim(substitute(#T-51'The Payment Format Group with type &1 and sequence &2 was not found.':255(999890815)T-51#, trim(t_sBankNumberPayCode.tcPayFormatTypeCode), trim(string(t_sBankNumberPayCode.tiPayFormatGroupSequence)) )) oiReturnStatus = -1. <M-52 run SetMessage (input vcMessage (icMessage), input '':U (icArguments), input '':U (icFieldName), input '':U (icFieldValue), input 'E':U (icType), input 3 (iiSeverity), input t_sBankNumberPayCode.tc_Rowid (icRowid), input 'QadFin-9342':U (icFcMsgNumber), input '':U (icFcExplanation), input '':U (icFcIdentification), input '':U (icFcContext), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> leave PROCESSBLOCK. end. /* if not available tqPayFormatGroupPrim */ find first tBankNumberPayCode where tBankNumberPayCode.tc_ParentRowid = tBankNumber.tc_Rowid and tBankNumberPayCode.BankNumber_ID = t_sBankNumberPayCode.BankNumber_ID and tBankNumberPayCode.PayFormatGroup_ID = t_sBankNumberPayCode.PayFormatGroup_ID no-error. if available tBankNumberPayCode then assign t_sBankNumberPayCode.tc_Status = "C":U. else do: <M-5 run AddDetailLine (input 'BankNumberPayCode':U (icTable), input tBankNumber.tc_Rowid (icParentRowid), output viFcReturnSuper (oiReturnStatus)) in BBankNumber> if viFcReturnSuper <> 0 then oiReturnStatus = viFcReturnSuper. if viFcReturnSuper < 0 then leave PROCESSBLOCK. assign t_sBankNumberPayCode.BankNumber_ID = tBankNumber.BankNumber_ID tBankNumberPayCode.BankNumber_ID = tBankNumber.BankNumber_ID t_sBankNumberPayCode.PayFormatGroup_ID = tqPayFormatGroupPrim.tiPayFormatGroup_ID tBankNumberPayCode.PayFormatGroup_ID = tqPayFormatGroupPrim.tiPayFormatGroup_ID t_sBankNumberPayCode.tc_Status = "N":U. end. /* ================================================================= */ /* override value for identity fields in input */ /* ================================================================= */ assign t_sBankNumberPayCode.BankNumberPayCode_ID = tBankNumberPayCode.BankNumberPayCode_ID /* ================================================================= */ /* Update input to allow correct matching */ /* ================================================================= */ t_sBankNumberPayCode.BankNumber_ID = tBankNumberPayCode.BankNumber_ID t_sBankNumberPayCode.tc_Rowid = tBankNumberPayCode.tc_Rowid t_sBankNumberPayCode.tc_ParentRowid = tBankNumber.tc_Rowid. if vcActivityCode = "SupplierBankNumberExcelIntegration":U or vcActivityCode = "CustomerBankNumberExcelIntegration":U then do: <Q-49 run PayFormatCodebyGroupID (all) (Read) (NoCache) (input ?, (PayFormatCodeID) input t_sBankNumberPayCode.BankNumberPayCodeValue, (PayFormatCode) input t_SBankNumberPayCode.PayFormatGroup_ID, (PayFormatGroupID) output dataset tqPayFormatCodebyGroupID) in BPaymentFormat> if vcActivityCode = "SupplierBankNumberExcelIntegration":U then do: find first tqPayFormatCodebyGroupID where tqPayFormatCodebyGroupID.tlPayFormatCodeIsDefault = True no-error. if available tqPayFormatCodebyGroupID then do: assign t_sBankNumberPayCode.PayFormatCode_ID = tqPayFormatCodebyGroupID.tiPayFormatCode_ID t_sBankNumberPayCode.BankNumberPayCodeValue = tqPayFormatCodebyGroupID.tcPayFormatCode. end. /* if available tqPayFormatCodebyGroupID */ end. /* if vcActivityCode = "SupplierBankNumberExcelIntegration" */ else do: find first tqPayFormatCodebyGroupID no-error. if available tqPayFormatCodebyGroupID then assign t_sBankNumberPayCode.PayFormatCode_ID = tqPayFormatCodebyGroupID.tiPayFormatCode_ID. end. /* else do */ end. /* if vcActivityCode = "SupplierBankNumberExcelIntegration":U */ end. /* for each t_sBankNumberPayCode */ /* END of C/S Bank Conversion */ /* ================================================================= */ /* override value for identity fields in input */ /* ================================================================= */ assign t_sBankNumber.BankNumber_ID = tBankNumber.BankNumber_ID /* ================================================================= */ /* Update input to allow correct matching */ /* ================================================================= */ t_sBankNumber.tc_Rowid = tBankNumber.tc_Rowid t_sBankNumber.tc_ParentRowid = "" opPrimeKey = (if opPrimeKey = "" then "" else opPrimeKey + chr(4)) + string(tBankNumber.BankNumber_ID). end. /* stop quries */ <Q-25 run DebtorPrim (Stop) in BDebtor > <Q-26 run CreditorPrim (Stop) in BCreditor > <Q-27 run EmployeePrim (Stop) in BEmployee > <Q-28 run GLPrim (Stop) in BGL > <Q-29 run PayFormatGroupPrim (Stop) in BPaymentFormat > <Q-63 run BankNumberForParentObject (Stop) in BBankNumber > if oiReturnStatus = -98 then oiReturnStatus = 0.