Description
GetPostingLineEnabling
Parameters
tPostingLineEnabling | output | temp-table | Table containg the Enabling-specifications for posting-line fields |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/bjournalentry.p)
POSTINGBLOCK: DO:
for each tPosting where
tPosting.tc_Status <> "D":U,
each tPostingLine where
tPostingLine.tc_ParentRowid = tPosting.tc_Rowid and
tPostingLine.tc_Status <> "D":U:
if can-find (first tPostingLineEnabling where
tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid)
then next.
<Q-57 run GLForPostingLineEnabling (all) (Read) (Cache)
(input tPosting.Company_ID, (CompanyId)
input tPostingLine.tcGLCode, (GLCode)
output dataset tqGLForPostingLineEnabling) in BGL >
find first tqGLForPostingLineEnabling where
tqGLForPostingLineEnabling.tcGLCode = tPostingLine.tcGLCode
no-error.
if not available tqGLForPostingLineEnabling
then do:
<M-95 run SetMessage
(input trim(#T-69'This GL account is invalid.':100(2732)T-69#) (icMessage),
input '':U (icArguments),
input 'tPostingLine.tcGLCode':U (icFieldName),
input tPostingLine.tcGLCode (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input tPostingLine.tc_Rowid (icRowid),
input 'qadfin-511111':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BApplicationProperty>
assign oiReturnStatus = -1.
return.
end.
if tqGLForPostingLineEnabling.tiCurrency_ID = ?
then assign tqGLForPostingLineEnabling.tiCurrency_ID = 0.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcDivisionCode":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tlGLIsDivisionAccount.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcCostCentreCode":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tlGLIsCostCentreAccount.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcProjectCode":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tlGLIsProjectAccount.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcIntercoBusinessRelationCode":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tlGLIsIntercoAccount and
not tqGLForPostingLineEnabling.tlGLIsFixedInterco.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.PostingLineQTY":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tlGLIsQuantityAccount.
create tPostingLineEnabling.
assign tPostingLineEnabling.tc_Rowid = tPostingLine.tc_Rowid
tPostingLineEnabling.tcBusinessFieldName = "tPostingLine.tcCurrencyCode":U
tPostingLineEnabling.tlEnabled = tqGLForPostingLineEnabling.tiCurrency_ID = 0 and
not tqGLForPostingLineEnabling.tlGLIsLocalCurrency.
end.
END.