project QadFinancials > class BDebtor > method CreateBankNumberPayCode
Description
Method to populate the tDBankNumberPayCodeRef temp-table with default attributes from PayFormatCode and PayFormatGroup table
Parameters
icPayFormatTypeCode | input | character | |
icParentRowID | input | character | Customer RowID |
tDBankNumberPayCodeRef | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bdebtor.p)
empty temp-table tDBankNumberPayCodeRef.
<Q-1 run PayFormatCodeByDefault (all) (Read) (NoCache)
(input icPayFormatTypeCode, (PayFormatTypeCode)
input ?, (PayFormatGroupSequence)
input yes, (PayFormatGroupIsActive)
input yes, (PayFormatCodeIsActive)
input yes, (PayFormatCodeIsDefault)
output dataset tqPayFormatCodeByDefault) in BPaymentFormat >
for each tqPayFormatCodeByDefault no-lock:
/* Allow only "Invoice" and "Payment" level attributes */
if tqPayFormatCodeByDefault.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-INVOICE} or
tqPayFormatCodeByDefault.tcPayFormatGroupLevel = {&PAYFORMATGROUPLEVEL-PAYMENT}
then do:
create tDBankNumberPayCodeRef.
assign
tDBankNumberPayCodeRef.BankNumberPayCodeSequence = tqPayFormatCodeByDefault.tiPayFormatGroupSequence
tDBankNumberPayCodeRef.PayFormatGroup_ID = tqPayFormatCodeByDefault.tiPayFormatGroup_ID
tDBankNumberPayCodeRef.tcPayFormatCodeValue = tqPayFormatCodeByDefault.tcPayFormatCode
tDBankNumberPayCodeRef.tcPayFormatCodeDescription = tqPayFormatCodeByDefault.tcPayFormatCodeDescription
tDBankNumberPayCodeRef.tcPayFormatGroupDescription = tqPayFormatCodeByDefault.tcPayFormatGroupDescription
tDBankNumberPayCodeRef.tiPayFormatGroupSequence = tqPayFormatCodeByDefault.tiPayFormatGroupSequence
tDBankNumberPayCodeRef.tcPayFormatGroupInputOption = tqPayFormatCodeByDefault.tcPayFormatGroupInputOption
tDBankNumberPayCodeRef.tcPayFormatGroupCode = tqPayFormatCodeByDefault.tcPayFormatGroupCode
tDBankNumberPayCodeRef.tlPayFormatGroupIsMandatory = tqPayFormatCodeByDefault.tlPayFormatGroupIsMandatory
tDBankNumberPayCodeRef.tcPayFormatGroupDataType = tqPayFormatCodeByDefault.tcPayFormatGroupDataType
tDBankNumberPayCodeRef.tc_ParentRowid = icParentRowID
viDBankNumberPayCodeRowid = viDBankNumberPayCodeRowid - 1
tDBankNumberPayCodeRef.tc_Rowid = string(viDBankNumberPayCodeRowid).
if tDBankNumberPayCodeRef.tcPayFormatGroupDataType = {&PAYFORMATGROUPDATATYPE-LOGICAL} and
(tDBankNumberPayCodeRef.tcPayFormatCodeValue = ? or
tDBankNumberPayCodeRef.tcPayFormatCodeValue = "":U)
then assign tDBankNumberPayCodeRef.tcPayFormatCodeValue = "false":U.
end.
end.