1 %RegisteredObject Selecteer een bestaand of nieuw adres 1 TransportAdres 0 Selecteer een bestaand of nieuw transport 1 Transport,Type,Object,ToonDetail 0 11:11,1:Count),$P(LD("SET"),"`")=LD("POS") Do STORE^vhTERMINA() Do WRITE^vhLIST(.LD) Xecute $P(LD("CS"),"`",2) Set Input=$$SCROLL^vhLIST(.LD) Do REFRESH^vhTERMINA() Set Transport=$S(Input="S":$P(Transport("L",LD("SELECT")),"\"),1:Input) Kill Transport("L") Quit Transport ]]> Waarschuwing order reeds in een transport opgenomen 1 ORDNr,NoMod Waarschuwing levering reeds in een transport opgenomen 1 BONNr,NoMod Waarschuwing factuur reeds in een transport opgenomen 1 FANr,NoMod Waarschuwing proforma reeds in een transport opgenomen 1 PROFNr,NoMod Waarschuwing contact reeds in een transport opgenomen 1 Transport,ContactType,ContactRef Verwijder een contact uit een transport [Previously private] 1 Transport,ContactRef Verwijderen van een contact transporteur verwittigen 1 Transport,ConractRef Bevestiging voor het verwijderen van een order uit een transport 1 ORDNr Verwijderen van een order, transporteur verwittigen 1 Transport,ORDNr Bevestiging voor het verwijderen van een bon uit een transport 1 BONNr Verwijderen van een levering, transporteur verwittigen 1 Transport,BONNr Bevestiging voor het verwijderen van een factuur uit een transport 1 FANr Verwijderen van een factuur transporteur verwittigen 1 Transport,FANr Bevestiging voor het verwijderen van een proforma uit een transport 1 PROFNr Verwijderen van een proforma transporteur verwittigen 1 Transport,PROFNr Verwijder een ganse groep uit een transport [Previously private] 1 Transport,Adres Verwijderen van een transport 1 Transport Verwijderen van een transport transporteur verwittigen 1 Transport Aanpassen van een transport, transporteur verwittigen 1 Transport Aanpassen van een leveringsadres in een transport 1 Type:%String,Object,TransportAdres:%String Selecteer een transporteur 1 Type,Object,Default 0 Default transporteur voor een order of bon volgens de verzendwijze 1 Type,Object Aanpassen adressen in transport? Bevestigen 1 TransportAdres Toon het detail van een transport zonder interactie 1 Transport:%String 0 1 Transport:%String %Boolean Overzicht van een transport met interactie 1 Transport:%String 0 LD("MAX") Set LD("SELECT")=LD("MAX") Kill LD("OFFSET") . Set LD("SELECT")=+LD("SELECT") Do WRITE^vhLIST(.LD) Quit ]]> Selecteer een type adres 1 0 Type bon komt niet overeen met type transport 1 BonType,TransportType Controle van het maximum remboursbedrag per zending 1 Transport,Adres,RemboursBedrag,IsCumul MaximumRembours Set CheckMaximumRembours=$$^vhTXTPOP("TRANSPORT","MAXREMBOURS","",LevNaam,KlNaam,MaximumRembours,RemboursBedrag) . If $G(CheckMaximumRembours) Set CheckMaximumRembours=$$ASK^vhWACHTW("MANAGER",,,0) Else Set CheckMaximumRembours=0 Quit $G(CheckMaximumRembours,1) ]]> %Library.CacheStorage ^CHUI.Flow.Cons.TransportD TransportDefaultData ^CHUI.Flow.Cons.TransportD ^CHUI.Flow.Cons.TransportI ^CHUI.Flow.Cons.TransportS %%CLASSNAME