project QadFinancials > class BCOACrossRef > method TestGetCOACrossRef


Parameters


oiReturnStatusoutputintegerReturn 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.
  */