vhLib.Macro %RegisteredObject,APPS.TRANSP.TransportService APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler APPS.TRANSP.impl.VerpakkingEenheidFactory 1 DOM.common.impl.ProjectSettingsAPI 1 DOM.VKP.OrderAPI 1 EmailVoorBevestigingBepaler:APPS.TRANSP.impl.TransportService.EmailVoorBevestigingBepaler="",VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory="",ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI="",OrderAPI:DOM.VKP.OrderAPI="" 1 1 %Status 1 RitID:%String RitID:%String RitID:%String,LeveringID:%String RitID:%String,LeveringID:%String RitID:%String,LeveringID:%String APPS.TRANSP.dto.LeveringInfo RitID:%String,LeveringID:%String 1 %String Adres:DOM.VKP.LeverAdres APPS.TRANSP.dto.LeveringAdres RitID:%String,LeveringID:%String APPS.TRANSP.dto.DistributeurVerzendDataLijst 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)) } } quit VerzendDataLijst ]]> DistributeurData:DOM.TRANSP.DistributeurData 1 APPS.TRANSP.dto.DistributeurVerzendData VerpakkingEenheid:DOM.TRANSP.VerpakkingEenheid,Levering:DOM.TRANSP.Levering 1 APPS.TRANSP.dto.VerpakkingEenheid Levering:DOM.TRANSP.Levering 1 %Decimal KlantID:DOM.VKP.VanHoeckeKlantID 1 APPS.common.dto.Adres