project QadFinancials > class PGTM > method CalculateTax


Parameters


bhTaxParametersHandleinput-outputhandle
bhTaxDetailDataHandleinput-outputhandle
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method PGTM.CalculateTaxByParam


program code (program1/pgtm.p)

if oiReturnStatus = 0 then
    assign oiReturnStatus = -98.

assign    
       vhIn = bhTaxParametersHandle
       vhOut = ?      
       vhInOut = bhTaxDetailDataHandle.

Create Dataset vhOut in widget-pool "non-persistent".
vhOut:name = "PGTM".

<M-1 run CallService
   (input  '' (icProgramName), 
    input  'CalculateTax':U (icMethodName), 
    input  vhIn by-reference (izInput), 
    input-output vhInOut by-reference (bzInputOutput), 
    input-output vhOut by-reference (bzOutput), 
    input  ? (icAsyncHandler), 
    output viFcReturnSuper (oiReturnStatus)) in PGTM>
    
if viFcReturnSuper <> 0 then 
    assign oiReturnStatus = viFcReturnSuper.

if oiReturnStatus = -98 then
    assign oiReturnStatus = 0.

delete object vhOut.