Index: APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml =================================================================== diff -u -r68318 -r68427 --- APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml (.../CommunicatieService.cls.xml) (revision 68318) +++ APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml (.../CommunicatieService.cls.xml) (revision 68427) @@ -69,7 +69,7 @@ Do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,LogBericht) If (Transporteur = Transporteurs.Dachser) && (CostCenter = "30467") { set ManifesteerTransporteur = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.ManifesteerTransporteur).%New() - Do ManifesteerTransporteur.Manifesteer("DAC",30467,##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(PickupDatumVan,"JJJJ-MM-DD"),##class(TECH.Format.impl.FormatAPI).%New().FormatHorolog(PickupDatumTot,"JJJJ-MM-DD")) + Do ManifesteerTransporteur.Manifesteer("DAC",30467,PickupDatumVan,PickupDatumTot) } ]]> Index: vhCARETAKER.mac.rou =================================================================== diff -u -r68311 -r68427 --- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 68311) +++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 68427) @@ -1284,14 +1284,13 @@ ManifesteerDachserTransportenVoorOPO ; maken dat EDI vroeger van Transsmart naar Dachser gestuurd wordt. (normaal dag voor pickup. wij/dachser willen 2 werkdagen voor) Try { Do InitRuntimeContext - do ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New().ManifesteerTransporteur("DAC","30467",$h,##class(TECH.DateTime).BerekenWerkdag($h,2)) + Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New() + do ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New().ManifesteerTransporteur(Transporteurs.Dachser,"30467",$h,##class(TECH.DateTime).BerekenWerkdag($h,2)) } Catch { Do OnError } Quit - - OnError set $ztrap="EndErrorTrapping"