Class KZIS.BP.XCG.PApoVouchersToSAP Extends Ens.BusinessProcessBPL [ ClassType = persistent, ProcedureBlock ]
{

/// BPL Definition
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='KZIS.Msg.MW.BPDataRequest' response='Ens.Response' includes='KZLibrary' height='2000' width='2000' >
<context>
<property name='DataResponse' type='KZIS.Msg.MW.CommonDataResponse' />
</context>
<sequence xend='550' yend='1050' >
<call name='StartTransaction' target='MWTransactions' async='0' xpos='550' ypos='200' >
<request type='KZIS.Msg.MW.BPDataRequest' >
<assign property='callrequest' value='request' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<scope name='DataTransaction' xpos='550' ypos='300' xend='550' yend='950' >
<sequence name='Import All Apo data' xpos='550' ypos='400' xend='550' yend='600' >
<trace name='Importing Apo data' value='"Importing Apo data"' xpos='550' ypos='200' />
<call name='ImportApoCodebookFiles' target='ApoImportCodebookFiles' async='1' xpos='550' ypos='300' >
<request type='KZIS.Msg.MW.BODataRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
<assign property='callrequest.KindCode' value='$$$tkcApoSyncMaterials' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<call name='ImportApoVoucherFiles' target='ApoImportVoucherFiles' async='1' xpos='550' ypos='400' >
<request type='KZIS.Msg.MW.BODataRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
<assign property='callrequest.KindCode' value='$$$tkcApoSyncVouchers' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<sync name='Import complete' calls='ImportApoCodebookFiles,ImportApoVoucherFiles' type='all' xpos='550' ypos='500' />
</sequence>
<call name='ExportApoCodebookFiles' target='SAPExportApoCodebookFiles' async='0' xpos='550' ypos='500' >
<request type='KZIS.Msg.MW.BODataRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
<assign property='callrequest.KindCode' value='$$$tkcApoSyncMaterials' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<call name='ExpostApoVoucherFiles' target='SAPExportApoVoucherFiles' async='0' xpos='550' ypos='600' >
<request type='KZIS.Msg.MW.BODataRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
<assign property='callrequest.KindCode' value='$$$tkcApoSyncVouchers' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<call name='CommitTransaction' target='MWTransactions' async='0' xpos='550' ypos='700' >
<request type='KZIS.Msg.MW.CommitTransactionRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<faulthandlers>
<catchall name='Handle exception' xpos='550' ypos='800' xend='550' yend='400' >
<call name='Transaction error' target='MWTransactions' async='0' xpos='550' ypos='200' >
<request type='KZIS.Msg.MW.ErrorTransactionRequest' >
<assign property='callrequest.Transaction' value='context.DataResponse.Transaction' action='set' />
</request>
<response type='KZIS.Msg.MW.CommonDataResponse' >
<assign property='context.DataResponse' value='callresponse' action='set' />
</response>
</call>
<call name='ApoVouchersEMailAlert' target='ApoVouchersEMailAlert' async='0' xpos='550' ypos='300' >
<request type='Ens.AlertRequest' >
<assign property='callrequest.SourceConfigName' value='"KZIS data transfer fatal error"' action='set' />
<assign property='callrequest.AlertText' value='"Apo voucher to SAP exception"' action='set' />
</request>
<response type='Ens.Response' />
</call>
</catchall>
</faulthandlers>
</scope>
</sequence>
</process>
}

}