Index: APPS/TRANSP/impl/TransportService.cls.xml =================================================================== diff -u -r56492 -r59666 --- APPS/TRANSP/impl/TransportService.cls.xml (.../TransportService.cls.xml) (revision 56492) +++ APPS/TRANSP/impl/TransportService.cls.xml (.../TransportService.cls.xml) (revision 59666) @@ -56,7 +56,6 @@ RitID:%String,LeveringID:%String @@ -149,7 +148,14 @@ set itDistributeurDataIDs = ##class(TECH.ListIterator).%New(DistributeurDataIDs) while itDistributeurDataIDs.HasNext() { #dim DistributeurDataID As %String = itDistributeurDataIDs.Next() + + ; dedjudedju, dees kan ook APPS.TRANSP.Transsmart.data.VerzendDate opleveren, gelukkig komen de properties overeen + ; nog te refactoren dus -> properties naar een van de super classes? + ; TODO + ; APPS.TRANSP.GLS.GLSv1.data.VerzendData moet hier eigenlijk iets worden dat niet in de GLS/Transsmart packages zit + ; confirmatie gaat er uit voor Transsmart #dim DistributeurData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID) + If (((DistributeurData.LaatsteRequestType = "Registratie") && (DistributeurData.Status = "Finished")) || ((DistributeurData.LaatsteRequestType = "Confirmatie") && (DistributeurData.Status = "Failed"))){ do VerzendDataLijst.Insert(..GeefVerzendData(DistributeurData)) @@ -163,7 +169,13 @@ DistributeurData:DOM.TRANSP.DistributeurData 1 APPS.TRANSP.dto.DistributeurVerzendData -