Description
This method is used to generate the final report file by specific prodataset.
Parameters
| ihProDs | input | handle | Handle of specific prodataset. |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/baccountinginterface.p)
assign oiReturnStatus = -98.
/* Call EDI method */
if valid-handle(ihProDs) and ihProDs <> ?
then do:
if viPEDI6ID = 0 or viPEDI6ID = ?
then do:
<I-1 {bFcStartAndOpenInstance
&CLASS = "PEDI"}>
end.
else do:
<I-2 {bFcOpenInstance
&CLASS = "PEDI"}>
end. /* if viPEDI6ID = 0 or viPEDI6ID = ? */
/* Call method ExcuteEDI to generate the result file */
<M-3 run ExecuteEDI
(input-output ihProDs (bzProDataSet),
input ihProDs:name (icSubSystemName),
output viFcReturnSuper (oiReturnStatus)) in PEDI>
if viFcReturnSuper <> 0
then do:
assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
<I-4 {bFcCloseAndStopInstance
&CLASS = "PEDI"}>
return.
end. /* if viFcReturnSuper < 0 */
end. /* if viFcReturnSuper <> 0 */
<I-5 {bFcCloseAndStopInstance
&CLASS = "PEDI"}>
end. /* if valid-handle(ihProDs) and ihProDs <> ? */
else do:
assign oiReturnStatus = -1.
<M-6 run SetMessage
(input #T-7'The export failed. Check that the input value is valid.':100(60865)t-7# (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input '':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-6160':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BAccountingInterface>
return.
end. /* if valid-handle(ihProDs) and ihProDs <> ? */
if valid-handle(ihProDs) then
ihProDs:clear().
if oiReturnStatus = -98
then assign oiReturnStatus = 0.