Parameters
| icReportName | input | character | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bcreditorreport.p)
/* Summary info for OI,P,AAC,AAB */
if can-do("CreditorPrepayments":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-1'Summary Info By':30(1475)t-1#)
tBusinessFields.tcFcDescription = trim(#T-2'Summary Info By':100(1476)t-2#)
tBusinessFields.tcValueList = {&CREDITORSUMMARYBYS}
tBusinessFields.tcFcFieldName = "SummaryBy_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorAgeingAnalysisCurrent,CreditorAABGroup,CreditorAACGroup,CreditorAgeingABackwards":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-92'Summary Info By':30(1475)T-92#
tBusinessFields.tcFcDescription = #T-93'Summary Info By':30(1475)T-93#
tBusinessFields.tcValueList = {&CREDITORSUMMARYBYS1}
tBusinessFields.tcFcFieldName = "SummaryBy_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-94'Sort By':20(59810)T-94#)
tBusinessFields.tcFcDescription = trim(#T-95'Sort By':20(59810)T-95#)
tBusinessFields.tcValueList = trim(#T-100'Supplier Name':255(71071)T-100#) + chr(2) + "1":U + chr(2) +
trim(#T-101'Supplier Code':100(1935)t-101#) + chr(2) + "2":U
tBusinessFields.tcFcFieldName = "SortBy":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
/* Detail level, Sorting Creditor Account history report*/
if can-do("CreditorAccountsHistory":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-3'Detail Level':30(1477)t-3#)
tBusinessFields.tcFcDescription = trim(#T-4'Detail Level':100(1478)t-4#)
tBusinessFields.tcValueList = {&CREDITORDETAILLEVELS}
tBusinessFields.tcFcFieldName = "DetailLevel":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBoxM":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
/* Grouping level for AAC,AAB */
if can-do("CreditorAACGroup,CreditorAABGroup":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-7'Group By':30(1481)t-7#)
tBusinessFields.tcFcDescription = trim(#T-8'Group By':100(1482)t-8#)
tBusinessFields.tcValueList = {&CREDITORGROUPINGLEVELS}
tBusinessFields.tcFcFieldName = "GroupingLevel":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
/* Filters for CIREC Report */
if can-do("CreditorCIREC":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-9'Details':30(1483)t-9#)
tBusinessFields.tcFcDescription = trim(#T-10'Details':100(1484)t-10#)
tBusinessFields.tcFcFieldName = "Details":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-11'Nature':30(1485)t-11#)
tBusinessFields.tcFcDescription = trim(#T-12'Nature':100(1486)t-12#)
tBusinessFields.tcValueList = trim(#T-13'Current':40(1487)t-13#) + chr(2) + "CURRENT":U + chr(2) +
trim(#T-14'History':15(14938)T-14#) + chr(2) + "HISTORY":U
tBusinessFields.tcFcFieldName = "Nature":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorList,CreditorMasterCard":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-15'Active':30(1489)t-15#)
tBusinessFields.tcFcDescription = trim(#T-16'Active':100(1490)t-16#)
tBusinessFields.tcFcFieldName = "ActiveCreditor":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-17'Individual Payments':30(1491)t-17#)
tBusinessFields.tcFcDescription = trim(#T-18'Individual Payments':100(1492)t-18#)
tBusinessFields.tcFcFieldName = "IndividualPayments":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-19'Send Remittance':30(1493)t-19#)
tBusinessFields.tcFcDescription = trim(#T-20'Send Remittance':100(1494)t-20#)
tBusinessFields.tcFcFieldName = "SendRemittance":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-84'Federal Tax Id':30(61763)T-84#
tBusinessFields.tcFcDescription = #T-85'Federal Tax Id':20(61764)T-85#
tBusinessFields.tcFcFieldName = "FederalTaxID":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(18)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-86'State Tax Id':30(61765)T-86#
tBusinessFields.tcFcDescription = #T-87'State Tax Id':20(61766)T-87#
tBusinessFields.tcFcFieldName = "StateTaxID":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(18)":U
tBusinessFields.tcFcFieldType = "F":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-30'Business Relation Name':30(1504)T-30#)
tBusinessFields.tcFcDescription = trim(#T-31'Business Relation Name':100(1505)T-31#)
tBusinessFields.tcFcFieldName = "BusinessRelationName_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectBusinessRelation":U
tBusinessFields.tcLookupReturnField = "tqSelectBusinessRelation.tcBusinessRelationName1":U
tBusinessFields.tcLookupFilterField = "tBusinessRelation.BusinessRelationName1":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-32'Address Street':30(1506)t-32#)
tBusinessFields.tcFcDescription = trim(#T-33'Address Street':100(1507)t-33#)
tBusinessFields.tcFcFieldName = "AddressStreet1_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectAddress":U
tBusinessFields.tcLookupReturnField = "tqSelectAddress.tcAddressStreet1":U
tBusinessFields.tcLookupFilterField = "tAddress.AddressStreet1":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-34'Address City':30(1508)t-34#)
tBusinessFields.tcFcDescription = trim(#T-35'Address City':100(1509)t-35#)
tBusinessFields.tcFcFieldName = "AddressCity_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBusinessRelationSAO.SelectAddress":U
tBusinessFields.tcLookupReturnField = "tqSelectAddress.tcAddressCity":U
tBusinessFields.tcLookupFilterField = "tAddress.AddressCity":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-36'Control GL Profile (Invoice)':45(16292)T-36#)
tBusinessFields.tcFcDescription = trim(#T-37'Control GL Profile (Invoices)':100(1511)T-37#)
tBusinessFields.tcFcFieldName = "ProfileCodeInv_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-38'Control GL Profile (Credit Note)':45(16293)T-38#)
tBusinessFields.tcFcDescription = trim(#T-39'Control GL Profile (Credit Notes)':100(1513)T-39#)
tBusinessFields.tcFcFieldName = "ProfileCodeCn_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-40'Sub-Account Profile':40(4391)T-40#)
tBusinessFields.tcFcDescription = trim(#T-41'Sub-Account Profile':100(1515)T-41#)
tBusinessFields.tcFcFieldName = "ProfileCodeDiv_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BProfileSAO.SelectProfile":U
tBusinessFields.tcLookupReturnField = "tqSelectProfile.tcProfileCode":U
tBusinessFields.tcLookupFilterField = "tProfile.ProfileCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-44'Credit Terms':30(59486)T-44#)
tBusinessFields.tcFcDescription = trim(#T-45'Normal Credit Terms':100(1519)T-45#)
tBusinessFields.tcFcFieldName = "PaymentConditionCodeNm_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentConditionSAO.SelectPaymentCondition":U
tBusinessFields.tcLookupReturnField = "tqSelectPaymentCondition.tcPaymentConditionCode":U
tBusinessFields.tcLookupFilterField = "tPaymentCondition.PaymentConditionCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-50'Invoice Status Code':40(63587)T-50#)
tBusinessFields.tcFcDescription = trim(#T-51'Invoice Status Code':100(1525)T-51#)
tBusinessFields.tcFcFieldName = "Reason_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BReasonSAO.SelectReason":U
tBusinessFields.tcLookupReturnField = "tqSelectReason.tcReasonCode":U
tBusinessFields.tcLookupFilterField = "tReason.ReasonCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-52'Payment Group':30(1526)t-52#)
tBusinessFields.tcFcDescription = trim(#T-53'Payment Group Code':100(1527)t-53#)
tBusinessFields.tcFcFieldName = "PaymentGroup_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BPaymentGroupSAO.SelectPaymentGroup":U
tBusinessFields.tcLookupReturnField = "tqSelectPaymentGroup.tcPaymentGroupCode":U
tBusinessFields.tcLookupFilterField = "tPaymentGroup.PaymentGroupCode":U.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-54'BLWI Group':30(1528)t-54#)
tBusinessFields.tcFcDescription = trim(#T-55'BLWI Group Code':100(1529)t-55#)
tBusinessFields.tcFcFieldName = "BLWIGroup_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "TextBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U
tBusinessFields.tcLookupQuery = "BBLWIGroupSAO.SelectBLWIGroup":U
tBusinessFields.tcLookupReturnField = "tqSelectBLWIGroup.tcBLWIGroupCode":U
tBusinessFields.tcLookupFilterField = "tBLWIGroup.BLWIGroupCode":U.
end.
if can-do("CreditorAccountsHistory,CreditorAccountsSummary,CreditorAccountMovements":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = #T-62'Check if Balances Are Up to Date':60(65164)T-62#
tBusinessFields.tcFcDescription = #T-63'Check if Balances Are Up to Date':60(65164)T-63#
tBusinessFields.tcFcFieldName = "CheckHistory":U
tBusinessFields.tcDataType = "l":U
tBusinessFields.tcControlType = "Bool":U
tBusinessFields.tcDisplayFormat = "yes/no":U
tBusinessFields.tcFcFieldType = "F":U.
end.
if can-do("CreditorAccountsSummary,CreditorAccountMovements":U, icReportName)
then do:
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-64'Summary By':30(15436)T-64#)
tBusinessFields.tcColumnLabel = trim(#T-65'Summary By':20(15437)T-65#)
tBusinessFields.tcFcDescription = trim(#T-66'Summary By':100(15438)T-66#)
tBusinessFields.tcValueList = trim(#T-67'Cost Center':40(5214)T-67#) + chr(2) + "CC":U + chr(2) +
trim(#T-68'Currency':40(3957)T-68#) + chr(2) + "CURRENCY":U + chr(2) +
trim(#T-69'Sub-Account':40(4285)T-69#) + chr(2) + "DIVISION":U + chr(2) +
trim(#T-70'GL':40(4286)T-70#) + chr(2) + "GL":U + chr(2) +
trim(#T-71'Daybook':40(4294)T-71#) + chr(2) + "JOURNAL":U + chr(2) +
trim(#T-72'Project':40(4352)T-72#) + chr(2) + "PROJECT":U
tBusinessFields.tcFcFieldName = "SummaryBy_CANDO":U
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
/* Cross company */
if can-do("CreditorAgeingAnalysisCurrent,CreditorAgeingABackwards,CreditorAABGroup,CreditorAACGroup,CInvoiceRegister,CreditorWithholdingTax,CreditorWHTCertificate":U, icReportName)
then do:
assign vcCompanyList = "":U.
<Q-88 run CompanyByDomainActive (all) (Read) (NoCache)
(input ?, (CompanyId)
input viDomainID, (DomainId)
input true, (CompanyIsActive)
output dataset tqCompanyByDomainActive) in BCompany >
for each tqCompanyByDomainActive where
tqCompanyByDomainActive.tiDomain_ID = viDomainID and
tqCompanyByDomainActive.tlCompanyIsActive = true:
if vcCompanyList <> "":U
then assign vcCompanyList = vcCompanyList + chr(2).
assign vcCompanyList = vcCompanyList + tqCompanyByDomainActive.tcCompanyCode + chr(2) + tqCompanyByDomainActive.tcCompanyCode.
end.
create tBusinessFields.
assign tBusinessFields.tcSideLabel = trim(#T-73'Entity':30(4232)T-73#)
tBusinessFields.tcFcDescription = trim(#T-74'Entity':100(15456)T-74#)
tBusinessFields.tcFcFieldName = "Company_CANDO":U
tBusinessFields.tcValidationMask = "IsEntityCode"
tBusinessFields.tcValueList = vcCompanyList
tBusinessFields.tcDataType = "c":U
tBusinessFields.tcControlType = "ComboBox":U
tBusinessFields.tcDisplayFormat = "x(20)":U
tBusinessFields.tcFcFieldType = "F":U.
end.
<M-83 run GetBusinessFields3 (input icReportName (icReportname),
output oiReturnStatus (oiReturnStatus)) in BCreditorReport>