TECH.Mockable %String 5005 APPS.AKP.Zending.impl.ZendingService 1 Blum.FacturenRepository 1 APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer 1 APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService 1 %Integer 150 ZendingService:APPS.AKP.Zending.impl.ZendingService,BlumFacturenRepository:Blum.FacturenRepository,PrijsVerschillenMailer:APPS.AKP.AankoopControle.BLUM.impl.PrijsVerschillenMailer,TransactionService:APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService 1 1 %Status 1 INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %Integer INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %ListOfDataTypes INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %ListOfDataTypes INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %Integer zal volgende verwerking opnieuw geprobeerd worden. quit 0 } if $$$Not(..ZendingService.BestaatFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),999999)){ ;vervoer volledig gefactureerd do ..PrijsVerschillenMailer.PrijsVerschilMail(..#BlumLevNr,..GeefZendingID(E1EDP01)) } Quit 1 } ]]> E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 %String BlumFaktuur:Blum.Facturen,INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 1 %String E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 1 %Integer E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 1 %Numeric E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 1 %String E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01 1 %String INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %String INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %String INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %String INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 1 %String INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %String YY-MM-DD set:(E1EDK03.IDDAT="012" ) datum = $Extract(E1EDK03.DATUM,3,4) _ "-" _ $Extract(E1EDK03.DATUM,5,6)_ "-"_ $Extract(E1EDK03.DATUM,7,8) } quit datum ]]> INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02 %Numeric