project QadFinancials > class PMultiDB > method validateEntityCodeAcrossDBs
Description
This API method will validate whether a company code has already been defined in a multi-DB environment
Parameters
tMFGEntity | input-output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/pmultidb.p)
if oiReturnStatus = 0 then
assign oiReturnStatus = -98.
assign
vhIn = ?
vhOut = ?
vhInOut = dataset tMFGDomain:handle.
create dataset vhIn in widget-pool "non-persistent".
create dataset vhOut in widget-pool "non-persistent".
vhIn:name = "PMultiDB-in".
vhOut:name = "PMultiDB-out".
<M-1 run CallService
(input '' (icProgramName),
input 'validateNewEntityCode':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 PMultiDB>
if viFcReturnSuper <> 0 then
assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus = -98 then
assign oiReturnStatus = 0.
delete object vhIn.
delete object vhOut.