0 %RegisteredObject %String %Integer %Integer %String "NIL" %String $$USERID^vhUSER() %String +$H %String %String %String %String NLZ BONNrs " #define fmtBeginTable "" #define fmtEndTable "" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Do strmBody.Write("Opname: "_$$USERNAME^vhUSER(..Opname,-1)_" - "_$$EXTDATE^vhLib.DataTypes(..Datum)) Do strmBody.Write("
") Do strmBody.Write("
") Do strmBody.Write($$$fmtBeginTable) Do strmBody.Write("Klnr") Do strmBody.Write("Klant") Do strmBody.Write("Woonplaats") Do strmBody.Write("Regio") Do strmBody.Write("Lev.nr") Do strmBody.Write("Verz.") Do strmBody.Write("Pallet") Do strmBody.Write("Colli") Do strmBody.Write("Langg") Do strmBody.Write("Beloofd") Do strmBody.Write("Remb.") Do strmBody.Write("Extra") Do strmBody.Write("Reden") Do strmBody.Write("Opn.") Set NextRec="" For { Set NextRec=$O(NLZ(NextRec)) Quit:NextRec="" Set NLZRec=NLZ(NextRec) Set ID=$P(NLZRec,D) Set domNLZ=##class(DOM.TRANSP.impl.RegistratieNietGeleverdeBon).%OpenId(ID) Set domNLZ.RegistratieVerzonden=1 Set Save=domNLZ.%Save() Set Opname=domNLZ.GeregistreerdDoor Set:Opname=..Opname Opname="" Set:Opname Opname=$$USERNAME^vhUSER(Opname,-1) Set KLNr=$P(NLZRec,D,2),BONNr=$P(NLZRec,D,3),Reden=$P(NLZRec,D,4),Pallet=$P(NLZRec,D,5),Colli=$P(NLZRec,D,6),LangGoed=$P(NLZRec,D,7),Beloofd=$P(NLZRec,D,8),Rembours=$P(NLZRec,D,9),ExtraTeBet=$P(NLZRec,D,10) Set:'Pallet Pallet="" Set:'Colli Colli="" Set:'LangGoed LangGoed="" Set KlRec=^KKL(^KK1(KLNr),0) Set KlNaam=$P(KlRec,D,2),WoonPlaats=$P(KlRec,D,7),Regio=$P(KlRec,D,20) Set Regio="R"_$TR($J(Regio,2)," ",0) Set Node=$$NODE^FLOWBON(BONNr),VerzW=$P($P($P(^KUL(KLNr,Node,BONNr,1),D,7),"#")," ") Do strmBody.Write("") Do strmBody.Write(""_KLNr_"") Do strmBody.Write(""_" "_KlNaam_"") Do strmBody.Write(""_WoonPlaats_"") Do strmBody.Write(""_Regio_"") Do strmBody.Write(""_$$EXTNUM^vhLib.DataTypes(BONNr,0,".",0)_"") Do strmBody.Write(""_VerzW_"") Do strmBody.Write(""_$S(Pallet:"*",1:"")_"") Do strmBody.Write(""_$S(Colli:"*",1:"")_"") Do strmBody.Write(""_$S(LangGoed:"*",1:"")_"") Do strmBody.Write(""_Beloofd_"") Do strmBody.Write(""_$S(Rembours:"*",1:"")_"") Do strmBody.Write(""_$S(ExtraTeBet:"*",1:"")_"") Do strmBody.Write(""_Reden_"") Do strmBody.Write(""_Opname_"") Do strmBody.Write("") } Do strmBody.Write($$$fmtEndTable) Do strmBody.Write($$$fmtEndHtml) Quit strmBody ]]> BONNrs " #define fmtBeginTable "" #define fmtEndTable "" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Do strmBody.Write("Opname: "_$$USERNAME^vhUSER(..Opname,-1)_" - "_$$EXTDATE^vhLib.DataTypes(..Datum)) Do strmBody.Write("
") Do strmBody.Write("
") Do strmBody.Write($$$fmtBeginTable) Do strmBody.Write("Klnr") Do strmBody.Write("Klant") Do strmBody.Write("Woonplaats") Do strmBody.Write("Regio") Do strmBody.Write("Lev.nr") Do strmBody.Write("Verz.") Do strmBody.Write("Pallet") Do strmBody.Write("Colli") Do strmBody.Write("Langg") Do strmBody.Write("Beloofd") Do strmBody.Write("Remb.") Do strmBody.Write("Extra") Do strmBody.Write("Reden") Do strmBody.Write("Opn.") Set NextRec="" For { Set NextRec=$O(NLZ(NextRec)) Quit:NextRec="" Set NLZRec=NLZ(NextRec) Set ID=$P(NLZRec,D) Set domNLZ=##class(DOM.TRANSP.impl.RegistratieNietGeleverdeBon).%OpenId(ID) Set domNLZ.RegistratieVerzonden=1 Set Save=domNLZ.%Save() Set Opname=domNLZ.GeregistreerdDoor Set:Opname=..Opname Opname="" Set:Opname Opname=$$USERNAME^vhUSER(Opname,-1) Set KLNr=$P(NLZRec,D,2),BONNr=$P(NLZRec,D,3),Reden=$P(NLZRec,D,4),Pallet=$P(NLZRec,D,5),Colli=$P(NLZRec,D,6),LangGoed=$P(NLZRec,D,7),Beloofd=$P(NLZRec,D,8),Rembours=$P(NLZRec,D,9),ExtraTeBet=$P(NLZRec,D,10) Set:'Pallet Pallet="" Set:'Colli Colli="" Set:'LangGoed LangGoed="" Set KlRec=^KKL(^KK1(KLNr),0) Set KlNaam=$P(KlRec,D,2),WoonPlaats=$P(KlRec,D,7),Regio=$P(KlRec,D,20) Set Regio="R"_$TR($J(Regio,2)," ",0) Set Node=$$NODE^FLOWBON(BONNr),VerzW=$P($P($P(^KUL(KLNr,Node,BONNr,1),D,7),"#")," ") Do strmBody.Write("") Do strmBody.Write(""_KLNr_"") Do strmBody.Write(""_" "_KlNaam_"") Do strmBody.Write(""_WoonPlaats_"") Do strmBody.Write(""_Regio_"") Do strmBody.Write(""_$$EXTNUM^vhLib.DataTypes(BONNr,0,".",0)_"") Do strmBody.Write(""_VerzW_"") Do strmBody.Write(""_$S(Pallet:"*",1:"")_"") Do strmBody.Write(""_$S(Colli:"*",1:"")_"") Do strmBody.Write(""_$S(LangGoed:"*",1:"")_"") Do strmBody.Write(""_Beloofd_"") Do strmBody.Write(""_$S(Rembours:"*",1:"")_"") Do strmBody.Write(""_$S(ExtraTeBet:"*",1:"")_"") Do strmBody.Write(""_Reden_"") Do strmBody.Write(""_Opname_"") Do strmBody.Write("") } Do strmBody.Write($$$fmtEndTable) Do strmBody.Write($$$fmtEndHtml) Quit strmBody ]]> BONNrs " #define fmtBeginTable "" #define fmtEndTable "" #define fmtEndHtml "" Set strmBody=##class(%GlobalCharacterStream).%New() Do strmBody.Write($$$fmtBeginHtml) Do strmBody.Write("Opname: "_$$USERNAME^vhUSER(..Opname,-1)_" - "_$$EXTDATE^vhLib.DataTypes(..Datum)) Do strmBody.Write("
") Do strmBody.Write("
") Do strmBody.Write($$$fmtBeginTable) Do strmBody.Write("Klnr") Do strmBody.Write("Klant") Do strmBody.Write("Woonplaats") Do strmBody.Write("Regio") Do strmBody.Write("Lev.nr") Do strmBody.Write("Verz.") Do strmBody.Write("Opn.") Set NextRec="" For { Set NextRec=$O(NLZ(NextRec)) Quit:NextRec="" Set NLZRec=NLZ(NextRec) Set ID=$P(NLZRec,D) Set domNLZ=##class(DOM.TRANSP.impl.RegistratieRetour).%OpenId(ID) Set domNLZ.RegistratieVerzonden=1 Set Save=domNLZ.%Save() Set Opname=domNLZ.GeregistreerdDoor Set:Opname=..Opname Opname="" Set:Opname Opname=$$USERNAME^vhUSER(Opname,-1) Set KLNr=$P(NLZRec,D,2),BONNr=$P(NLZRec,D,3) Set KlRec=^KKL(^KK1(KLNr),0) Set KlNaam=$P(KlRec,D,2),WoonPlaats=$P(KlRec,D,7),Regio=$P(KlRec,D,20) Set Regio="R"_$TR($J(Regio,2)," ",0) Set Node=$$NODE^FLOWBON(BONNr),VerzW=$P($P($P(^KUL(KLNr,Node,BONNr,1),D,7),"#")," ") Do strmBody.Write("") Do strmBody.Write(""_KLNr_"") Do strmBody.Write(""_" "_KlNaam_"") Do strmBody.Write(""_WoonPlaats_"") Do strmBody.Write(""_Regio_"") Do strmBody.Write(""_$$EXTNUM^vhLib.DataTypes(BONNr,0,".",0)_"") Do strmBody.Write(""_VerzW_"") Do strmBody.Write(""_Opname_"") Do strmBody.Write("") } Do strmBody.Write($$$fmtEndTable) Do strmBody.Write($$$fmtEndHtml) Quit strmBody ]]> DevType