1 %RegisteredObject Vast transport ? Op sommige computers (namelijk die van de GLS-consolidatie) werken we met een vast transport in de toerlijst-applicatie. Deze method haalt op welk transport dat momenteel is. N.B. Method NieuwTransport() bewaart een koppeling van het nieuwe transport aan de computer, in geval van een Admin-sessie op zulke computer. 1 1 Controle type bon met type transport 1 Type,Object,Transport Selecteer een openstaand adres van deze klant 1 Type,Object bevestiging . . Set:'##class(CHUI.Flow.Cons.Transport).ModTransportAdres(TransportAdres) TransportAdres="A" . Do:TransportAdres'="A" ..EditAdres(Type,Object,TransportAdres,ModAdres) Quit $G(TransportAdres) ]]> Controle van het leveringsadres 1 Type,Object,TransportAdres bevestiging . . Set:'##class(CHUI.Flow.Cons.Transport).ModTransportAdres(TransportAdres) ModAdres="A" . Do:ModAdres'="A" . . Do ..EditAdres(Type,Object,TransportAdres,ModAdres) . . Set ModAdres=1 Quit ModAdres ]]> Selecteer een openstaand transport 1 Type,Object,ToonDetail,BeperkTransporteur 1:##class(CHUI.Flow.Cons.Transport).SelectOrNieuwTransport(.Transport,$G(Type),$G(Object),$G(ToonDetail)),1:"N") Quit Transport ]]> Creeer een nieuw transport 1 Type,Object,Propertys Verzendwijze van order of bon nazien en eventueel wijzigen 1 Transport,Adres,Type,Object Verwijder een contact uit een transport [Previously private] 1 Transport,ContactRef Toevoegen van een order aan een transport 1 ORDNr,Transport,Adres 0 Order is reeds toegevoegd aan een transport 1 ORDNr,Transport,Adres,NoMod 0 Verwijder een order uit een transport [Previously private] 1 Transport,Adres,ORDNr 1 BONNr 1 BONNr Toevoegen van een leveringsbon aan een transport 1 BONNr,Transport,Adres 0 bevestiging . . . Set:'##class(CHUI.Flow.Cons.Transport).ModTransportAdres(TransportAdres) TransportAdres="A" . . Do:TransportAdres'="A" ..EditAdres("L",BONNr,TransportAdres,ModAdres) . . Set Transport=$P(TransportAdres,"||"),Adres=$P(TransportAdres,"||",2) . If 'Transport,Transport'="N" Do . . ;Do ..PopupIndienVoorHaefeleCH(BONNr) . . Do ..PopupIndienVoorHaefeleNO(BONNr) . . // Selecteer een adres van deze klant . . Set TransportAdres=..OpenstaandKlant("L",BONNr) . . Quit:TransportAdres="A" // Annuleer . . // Indien geen adres gekozen, selecteer een openstaand transport . . If 'TransportAdres Set TransportAdres=..Openstaand() Set:TransportAdres TransportAdres=TransportAdres_"||"_BONNr . . Quit:TransportAdres="A" // Annuleer . . Set Transport=$P(TransportAdres,"||"),Adres=$P(TransportAdres,"||",2) . . Set:Transport="" Transport="N" . . Set:Adres="" Adres=BONNr . Set:Transport="N" Transport=..NieuwTransport("L",BONNr) . Quit:'Transport // Geen tranportnummer geselcteerd . Quit:'..CheckLeveringTerugname("L",BONNr,Transport) ; Type bon moet overeenkomen met type transport . Set Obj=##class(Flow.Cons.Transport).%OpenId(Transport) . Quit:'$IsObject(Obj) . Do:Adres="" . . Do ##class(Flow.Cons.TransportAdres).GetAdres("L",BONNr,.Transporten,Transport) . . Set Adres=$P($O(Transporten("")),"||",2) . Set:Adres="" Adres=BONNr . Quit:##class(BL.Flow.Cons.TransportData).ShowKennisAnker($P(^KU1(BONNr,"F"),D))="ANNULEER" . If ##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(Obj.Transporteur) Do ; ABX . . Set Bons("BON",BONNr)="" . . Do SELBON^TRANSP($NAME(Bons)) . . Quit:$D(Bons("ANUL")) . . Do NEWGRP^TRANSP(Transport,$NAME(Bons("BON"))) . Else Do NEWGRP^TRANSPX(Transport,Adres,BONNr) Else Do ..BonExistInTransport(BONNr,Transport,Adres) ; De levering is reeds in een transport opgenomen If $G(ModBeheer),'$G(NoModDetail) Do ##class(CHUI.Flow.Cons.Transport).TransportDetail(Transport) ]]> Levering is reeds toegevoegd aan een transport 1 BONNr,Transport,Adres,NoMod 0 Verwijder een levering uit een transport [Previously private] 1 Transport,Adres,BONNr Toevoegen van een factuur aan een transport 1 FANr,Transport,Adres 0 Factuur is reeds toegevoegd aan een transport 1 FANr,Transport,Adres,NoMod 0 Verwijder een factuur uit een transport [Previously private] 1 Transport,Adres,FANr Toevoegen van een proforma aan een transport 1 PROFNr,Transport,Adres 0 Proforma is reeds toegevoegd aan een transport 1 PROFNr,Transport,Adres,NoMod 0 Verwijder een proforma uit een transport [Previously private] 1 Transport,Adres,PROFNr Verwijder een ganse groep uit een transport [Previously private] 1 Transport,Adres [Previously private] 1 Type,Object,TransportAdres,ModAdres Toevoegen van een vrij transport 1 ContactType,ContactRef 0 Toevoegen van een reeks leveringsbons aan een transport 1 BONNrs,Transport,Adres,AutoClose,VerpakkingNietVerplicht 0 Tijdelijke controle toegang tot menu 1 0 Tijdelijke controle toegang tot menu D ClassMethod^vhLib("BL.Flow.Cons.TransportFlow","CheckClosed",1,$H-5) 1 CheckDate 0 'T') &sql(OPEN CDATE) For &sql(FETCH CDATE) Quit:(SQLCODE '= 0) Do . Quit:TijdstipOphalingVoorzien>CheckDate . Set Transport(Creator,Transport)=Transporteur_"\"_TijdstipCreatie_"\"_TijdstipOphalingVoorzien &sql(CLOSE CDATE) Do:$D(Transport) . Set Creator="" . For Set Creator=$O(Transport(Creator)) Quit:Creator="" Do . . Kill Link . . Set Transport="",Multi=$O(Transport(Creator,$O(Transport(Creator,""))))'="" . . Set Body=$S(Multi:"Volgende transporten zijn",1:"Volgend transport is")_" nog niet gesloten:~~" . . Set Body=Body_"Transport Transporteur Aangemaakt Oph voorz~" . . Set Body=Body_"--------- ------------------------- ---------- ---------" . . For Set Transport=$O(Transport(Creator,Transport)) Quit:Transport="" Do . . . Set Transporteur=$$TRANSPORTEUR^TRANSP(Transport,1) . . . Set R=Transport(Creator,Transport),TijdstipCreatie=$P(R,"\",2),TijdstipOphalingVoorzien=$P(R,"\",3) . . . Set Body=Body_"~"_Transport_$J("",12-$L(Transport))_Transporteur_$J("",28-$L(Transporteur)) . . . Set Body=Body_$$EXTDATE^vhLib.DataTypes(TijdstipCreatie)_" "_$$EXTDATE^vhLib.DataTypes(TijdstipOphalingVoorzien) . . . Set Link($O(Link(""),-1)+1)="TRANSPC\"_Transport_"\R" . . Set MailId=$$SYSTEM^vhMAIL3("","","Afsluiten transport",Creator,.Body,.Link,"U","A") ]]> %Library.CacheStorage ^BL.Flow.Cons.TransportFlowD TransportFlowDefaultData ^BL.Flow.Cons.TransportFlowD ^BL.Flow.Cons.TransportFlowI ^BL.Flow.Cons.TransportFlowS %%CLASSNAME