vhLib.Macro 1 pxPrijsOrderLijn Returns pxManueleLijn or pxProductLijn, depending on the content of Rec Basis contains F/O/A/L/T/P (Factuur/Order/Offerte/LeverBon/Toelev/Prijslijst) 1 Basis:%String,Rec:%String,KLNr:%String,Taal:%String,blnBruto:%String,blnManueelProd:%Boolean,lbDocRef:%List pxOrderLijn 0){ Set pcEenheidsprijs = 9 } } If IsSamenvattingLijn { Set ..LIJNTYPE=$S($P(LijnType,"#",2)=1:"GS", 1:"GT") ; (G)roep(S)ubtotaal - (G)roep(T)otaal Do ..SetPageBreak($P(LijnType,"#",3)=1) }Else{ Set ..LIJNTYPE="M" } Set ..AANTAL = ..GeefAantal(Rec) Set ..OMSCHRIJVING=$P(Rec,"\",5) If blnBruto { Set ..EPRIJSBRUTO=$P(Rec,"\",pcEenheidsprijs) Set ..TOTPRIJSBRUTO=$P(Rec,"\",16) } Else { Set ..EPRIJSNETTO=$P(Rec,"\",pcEenheidsprijs) } Set ..TOTPRIJSNETTO=$P(Rec,"\",9) If Basis = "F" { do ..VerwerkLijnOpFactuur($LI(lbDocRef,1), Rec ) }ElseIf Basis = "O" { do ..VerwerkLijnOpOrder($LI(lbDocRef,1), Rec ) }ElseIf Basis = "A" { do ..VerwerkLijnOpOfferte($LI(lbDocRef,1), Rec ) } Quit ]]> Rec:%String 1 %String Rec:%String 1