persistent 1 VHOpslag %Persistent Flow.Cons.Transport Als adresidentficatie wordt bonnummer genomen die als eerste werd opgenomen in de vervoerslijst Als initierend document geen levering is maar bv. een order of een vrij adres dan wordt een vrijnummer genomen van 7 cijfers beginnend met 9 %Integer %Integer in EUR %Float wordt berekend vanuit de order en leveringsbons %Float Link met LEVBS leveringsbouwsteen; %Integer Wie betaald de rekening %String Contacttype; %String Gebruiker aanmaak; %Integer Manueel ingegeven extra gewicht Kan ook negatief zijn %Float Sys.cTimeStamp "A" = pakjesdienst "I" = internationaal %String %String %Library.String %Library.String %Library.String %Library.Numeric %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String 1 1 Transport,Adres 1 1 Type,Object,TransportAdres,VastTransport Status is null or Transport->Status = 'P') and isnull(Naam,'')=:Naam and isnull(Toenaam,'')=:Toenaam and isnull(Aanspreking,'')=:Aanspreking and isnull(StraatNrBus,'')=:StraatNrBus and isnull(PostNummer,'')=:PostNummer and isnull(Woonplaats,'')=:Woonplaats and isnull(Land,'')=:Land) &sql(OPEN C2) For &sql(FETCH C2) Quit:(SQLCODE '= 0) Do . Set TransportType=$P(^TRANSP("D",Transport),"\",5) . If $D(IsTerugname),IsTerugname,TransportType'="T" Quit ; Object is terugname, transport niet . If $D(IsTerugname),'IsTerugname,TransportType="T" Quit ; Object is geen terugname, transport wel . If $G(VastTransport),Transport'=VastTransport Quit ; Het transport moet overeenkomen indien vast transport . If Object,$P(^TRANSP("D",Transport),"\",15)="S",$D(^TRANSP("D",Transport,"D")) Do Quit:'Groeperen ; Transport voor single adres . . Set Groeperen=$P(^TRANSP("D",Transport,"D",$O(^TRANSP("D",Transport,"D",""))),"\")=KlantNr . . If Groeperen,$D(^TRANSP("D",Transport,"D",Adres,"B")),$D(^TRANSP("D",Transport,"D",$O(^TRANSP("D",Transport,"D","")),"O")) Set Groeperen=0 . Else If Type="L",$D(^TRANSP("D",Transport,"D",Adres,"O")) Quit ; Dit transportadres bevat ook orders . Set TransportAdres(Transport_"||"_Adres)="" &sql(CLOSE C2) ]]> 1 Status is null or Transport->Status = 'P')) &sql(OPEN C4) For &sql(FETCH C4) Quit:(SQLCODE '= 0) Do . Set TransportType=$P(^TRANSP("D",Transport),"\",5) . If $D(IsTerugname),IsTerugname,TransportType'="T" Quit . If $D(IsTerugname),'IsTerugname,TransportType="T" Quit . If $G(VastTransport),Transport'=VastTransport Quit . Set TransportAdres(Transport_"||"_Adres)="" &sql(CLOSE C4) ]]> 1 Type,Object,Transport,BeperkTransporteur 'T') &sql(OPEN C5) For &sql(FETCH C5) Quit:(SQLCODE '= 0) Do . If $D(BeperkTransporteur),Transporteur'=BeperkTransporteur Quit . Set TransportType=$P(^TRANSP("D",Transport),"\",5) . If $D(IsTerugname),IsTerugname,TransportType'="T" Quit . If $D(IsTerugname),'IsTerugname,TransportType="T" Quit . If Object,$P(^TRANSP("D",Transport),"\",15)="S",$D(^TRANSP("D",Transport,"D")) Quit ; Transport voor single adres . Set Transport(Transport)="" &sql(CLOSE C5) // Ophalen van de gegevens van het opgegeven object // Order &sql(DECLARE C6O CURSOR FOR SELECT KlantNr INTO KlantNr FROM Flow_Order.Hoofding WHERE OrderNr=:Object) Do:Type="O" . &sql(OPEN C6O) . For &sql(FETCH C6O) Quit:(SQLCODE '= 0) . &sql(CLOSE C6O) // Levering &sql(DECLARE C6L CURSOR FOR SELECT KlantNr INTO KlantNr FROM Flow_Uitlevering.Hoofding WHERE BonNr=:Object) Do:Type="L" . &sql(OPEN C6L) . For &sql(FETCH C6L) Quit:(SQLCODE '= 0) . &sql(CLOSE C6L) ]]> 1 TransportAdres,Lengte 1 Type,Object,TransportAdres %CacheSQLStorage ^Flow.Cons.TransportAdresS data ^TRANSP "D" {Transport} "D" {Adres} "\" "A" 4 "\" 6 "\" 9 "\" "S" 2 "\" 5 "\" 3 "\" 1 "\" "A" 8 "\" 4 "\" "A" 2 "\" "A" 1 "\" "A" 24 "\" "A" 25 "\" "A" 6 "\" 2 "\" "S" 1 "\" "A" 5 "\" "A" 9 "\" "A" 15 "\" "A" 13 "\" "A" 14 "\" 10 "\" "A" 3 "\" 7 "\" "A" 7