vhLib.Macro 1 %RegisteredObject,%XML.Adaptor right TPADRES %String %String %String BL.FOP.Basis.pxAttribUnit %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String Ingevuld als de naam van het leveringsadres verschillend is van de klantnaam %String BL.FOP.Derde.pxAdres pxTranspDoc list pxLevRecuPak list BL.FOP.Basis.pxTekstHTML list Returns pxTranspAdres 1 TransportNr:%String,GroepNr:%String,KLNr:%String,Taal:%String pxTranspAdres Fill the data from the Rec into the properties of the Proxy object TransportNr:%String,GroepNr:%String,KLNr:%String,Taal:%String ",1:"
")) . Do:($IsObject(pxOpm)) ..Opmerkingen.Insert(pxOpm) Set Rec=$G(^TRANSP("D",TransportNr,"D",GroepNr,"A")) For I=24,25 Do:($L($P(Rec,"\",I))) . Set pxOpm=##class(BL.FOP.Basis.pxTekstHTML).Create("OPMERKING",$P(Rec,"\",I), $LB("type=OPMKL"),1) . Do:($IsObject(pxOpm)) pxOpm.ReplaceCharToBR("~",$S($G(FopType)="M":"
",1:"
")) . Do:($IsObject(pxOpm)) ..Opmerkingen.Insert(pxOpm) Set lbKenAnk=$S(ContactType="K":##class(BL.Flow.Cons.TransportData).GetKennisAnker(ContactRef), 1:"") Set HeeftKenAnk=$LL(lbKenAnk) For Quit:('$LL(lbKenAnk)) Set KenAnkID=$LI(lbKenAnk) Quit:(KenAnkID="") Do . Set lbKenAnk=$LI(lbKenAnk,2,99) . Set ObjKenAnk=##class(Derde.Kennis.Kennis).%OpenId(KenAnkID) . Quit:('$IsObject(ObjKenAnk)) . Set KennisAnker=$TR(ObjKenAnk.Msg,$$$CRLF," ") . Set pxOpm=##class(BL.FOP.Basis.pxTekstHTML).Create("OPMERKING",ObjKenAnk.Msg, $LB("type=KENANK"),1) . Do:($IsObject(pxOpm)) ..Opmerkingen.Insert(pxOpm) Quit ]]> Build Opmerkingen voor AfleveringsNotas, via TransportLijst.FillFromToerLijst(...) ProcedureBlock doesn't allow use of $NAME(...) function Taal:%String,blnRecuPak:%Boolean=0 0