Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bcoacrossref.p)
/* This method can be used to test the result you will get back from GetCOACrossRef */
/* Please don't delete this method yet, but put it in comment after you used it */
/*
empty temp-table tTestCOACrossRefResult.
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "CC01"
tTestCOACrossRefResult.tcProjectCode = "DefProj1".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = ""
tTestCOACrossRefResult.tcProjectCode = "defproj1".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = ""
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc01"
tTestCOACrossRefResult.tcProjectCode = "".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = ""
tTestCOACrossRefResult.tcProjectCode = "".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "20"
tTestCOACrossRefResult.tcCostCentreCode = "cc02"
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc02"
tTestCOACrossRefResult.tcProjectCode = "defproj1".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc01"
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc02"
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "20"
tTestCOACrossRefResult.tcCostCentreCode = "cc01"
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "20"
tTestCOACrossRefResult.tcCostCentreCode = "cc01"
tTestCOACrossRefResult.tcProjectCode = "defproj1".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "20"
tTestCOACrossRefResult.tcCostCentreCode = "cc02"
tTestCOACrossRefResult.tcProjectCode = "defproj1".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc01"
tTestCOACrossRefResult.tcProjectCode = "defproj".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "10"
tTestCOACrossRefResult.tcCostCentreCode = "cc02"
tTestCOACrossRefResult.tcProjectCode = "".
create tTestCOACrossRefResult.
assign tTestCOACrossRefResult.tcGLCode = "400000"
tTestCOACrossRefResult.tcDivisionCode = "20"
tTestCOACrossRefResult.tcCostCentreCode = ""
tTestCOACrossRefResult.tcProjectCode = "".
<M-1 run GetCOACrossRef
(input 727995 (iiSourceDomainID),
input 'COA Alt Test' (icCOACrossRefCode),
input ? (iiCOACrossRefID),
input 'ALTERNATE' (icCOACrossRefType),
input tApiCOACrossRefDet (tApiCOACrossRefDet),
input false (ilSkipMessages),
input-output tTestCOACrossRefResult (tCOACrossRefResult),
output oiReturnStatus (oiReturnStatus)) in BCOACrossRef>
for each tTestCOACrossRefResult:
message tTestCOACrossRefResult.tcGLCode
tTestCOACrossRefResult.tcDivisionCode
tTestCOACrossRefResult.tcCostCentreCode
tTestCOACrossRefResult.tcProjectCode
tTestCOACrossRefResult.tcTargetAltCOAStructDetCode
tTestCOACrossRefResult.tcTargetGLCode
tTestCOACrossRefResult.tcTargetDivisionCode
view-as alert-box.
end.
*/