Parameters
iiGL_ID | input | integer | |
iiDCollectionId | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdcollection.p)
<Q-2 run GLByIDsAllInfo (all) (Read) (NoCache)
(input ?, (CompanyId)
input iiGL_ID, (GL_ID)
output dataset tqGLByIDsAllInfo) in BGL >
find first tqGLByIDsAllInfo no-error.
if not available tqGLByIDsAllInfo
then do:
<M-3 run SetMessage
(input #T-1'An account $1 is not defined in the system.':100(49171)t-1# (icMessage),
input string(iigL_ID) (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5349':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
assign vhBufferForProDataSet = dataset tqGLByIDsAllInfo:get-buffer-handle(1).
create tGL.
<M-4 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGL:handle (ihTo),
output oiReturnStatus (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
<Q-5 run CurrencyByIDAllInfo (all) (Read) (NoCache)
(input tGL.Currency_ID, (Currency_ID)
output dataset tqCurrencyByIDAllInfo) in BCurrency >
find first tqCurrencyByIDAllInfo no-error.
if not available tqCurrencyByIDAllInfo
then do:
<M-6 run SetMessage
(input #T-7'An account $1 is not defined in the system.':100(49171)t-7# (icMessage),
input string(tGL.Currency_ID) (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5353':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
assign vhBufferForProDataSet = dataset tqCurrencyByIDAllInfo:get-buffer-handle(1).
create tGLCurrency.
<M-8 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLCurrency:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
for each tDCollection:
<Q-71 run DCollectionByDDocument (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input iiDCollectionId, (DCollectionId)
output dataset tqDCollectionByDDocument) in BDCollection>
find first tqDCollectionByDDocument no-error.
if available tqDCollectionByDDocument
then do:
create tGLBankNumber.
vhBufferForProDataSet = dataset tqDCollectionByDDocument:get-buffer-handle(1).
<M-63 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumber:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
<Q-42 run BankAccFormatPrim (all) (Read) (NoCache)
(input tGLBankNumber.BankAccFormat_ID, (BankAcctFormatId)
input ?, (BankAcctFormatCode)
output dataset tqBankAccFormatPrim) in BBankAccountFormat>
find first tqBankAccFormatPrim no-error.
if available tqBankAccFormatPrim
then tGLBankNumber.tcBankAccFormatCode = tqBankAccFormatPrim.tcBankAccFormatCode.
end. /*if available tqDCollectionByDDocument */
end. /*for each tDCollection*/
<Q-9 run BusinessRelationByIDAllInfo (all) (Read) (NoCache)
(input tGLBankNumber.BankBusinessRelation_ID, (BusinessRelation_ID)
output dataset tqBusinessRelationByIDAllInfo) in BBusinessRelation >
find first tqBusinessRelationByIDAllInfo no-error.
if not available tqBusinessRelationByIDAllInfo
then do:
<M-10 run SetMessage
(input #T-21'The business relation $1 cannot be found.':100(49180)t-21# (icMessage),
input string(tDCDebtor.BusinessRelation_ID) (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5757':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
vhBufferForProDataSet = dataset tqBusinessRelationByIDAllInfo:get-buffer-handle(1).
create tGLBankNumberBusRel.
<M-11 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumberBusRel:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
<Q-31 run ContactByIDAllInfo (all) (Read) (NoCache)
(input tGLBankNumberBusRel.BusinessRelation_ID, (BusinessRelation_ID)
output dataset tqContactByIDAllInfo) in BBusinessRelation >
vhBufferForProDataSet = dataset tqContactByIDAllInfo:get-buffer-handle(1).
create tGLBankNumberContact.
<M-32 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumberContact:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
<Q-28 run AddressTypeByCode (all) (Read) (NoCache)
(input {&ADDRESSTYPECODESYSTEM-HEADOFFICE}, (AddressTypeCode)
output dataset tqAddressTypeByCode) in BAddressType >
find first tqAddressTypeByCode no-error.
if not available tqAddressTypeByCode
then do:
<M-29 run SetMessage
(input #T-30'The Head Office address type is not defined in the system.':100(49190)t-30# (icMessage),
input '' (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5761':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
<Q-12 run AddressByIDsAllInfo (all) (Read) (NoCache)
(input tGLBankNumberBusRel.BusinessRelation_ID, (BusinessRelation_ID)
input tqAddressTypeByCode.tiAddressType_ID, (AddressType_ID)
output dataset tqAddressByIDsAllInfo) in BBusinessRelation >
find first tqAddressByIDsAllInfo no-error.
if not available tqAddressByIDsAllInfo
then do:
<M-13 run SetMessage
(input #T-22'The address with the business relation $1 and of type $2 cannot be found.':100(49184)t-22# (icMessage),
input string(tGLBankNumberBusRel.BusinessRelation_ID) + chr(2) + string(tqAddressTypeByCode.tiAddressType_ID) (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5758':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
vhBufferForProDataSet = dataset tqAddressByIDsAllInfo:get-buffer-handle(1).
create tGLBankNumberAddress.
<M-14 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumberAddress:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
/* get the country record and create one record for temp table tCompanyCountry */
<Q-15 run CountryByIDAllInfo (all) (Read) (NoCache)
(input tGLBankNumberAddress.Country_ID, (Country_ID)
output dataset tqCountryByIDAllInfo) in BCountry >
find first tqCountryByIDAllInfo no-error.
if not available tqCountryByIDAllInfo
then do:
<M-16 run SetMessage
(input #T-23'The address with ID $1 does not have a specified value for country.':200(49162)t-23# (icMessage),
input string(tGLBankNumberAddress.Address_ID) (icArguments),
input '' (icFieldName),
input '' (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '' (icRowid),
input 'QadFin-5759':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
assign oiReturnStatus = -1.
return.
end.
assign vhBufferForProDataSet = dataset tqCountryByIDAllInfo:get-buffer-handle(1).
create tGLBankNumberCountry.
<M-17 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumberCountry:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.
/* get the state record and create one record for temp table tCompanyState */
<Q-18 run StateByIDAllInfo (all) (Read) (NoCache)
(input tGLBankNumberAddress.State_ID, (State_ID)
output dataset tqStateByIDAllInfo) in BState >
assign vhBufferForProDataSet = dataset tqStateByIDAllInfo:get-buffer-handle(1).
create tGLBankNumberState.
<M-20 run BufferCopy
(input vhBufferForProDataSet (ihFrom),
input buffer tGLBankNumberState:handle (ihTo),
output viFcReturnSuper (oiReturnStatus)) in BDCollection>
if viFcReturnSuper < 0
then do:
assign oiReturnStatus = viFcReturnSuper.
return.
end.
else if viFcReturnSuper > 0
then do:
if oiReturnStatus = -98 or oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper.
end.