vhLib.Macro,BL.Flow.Doc.Common,Prod.Product 1 pxPrijsOrderLijn %String BL.FOP.Prod.Product %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.Integer %Library.Integer %Library.Integer %String Prijslijst : huidige prijs om verschil te tonen pxProductLijn %String %String BL.FOP.Basis.pxTekstBlok pxChargeTrace list Als Halffabrikaten Halux, dan ander logo tonen in bovenliggend object (parent = toelev, order, ... ) %String BL.FOP.Basis.pxTekstBlok Specifiek voor EDI-bestellingen (als eerste gebruikt door SFS) %String Specifiek voor SFS (via EDI-bestellingen) %String Returns pxProductLijn Basis contains F/O/A/L/T/P (Factuur/Order/Offerte/LeverBon/Toelev/Prijslijst) lbDocRef contains info about the mainDoc (e.g. $LB(OFFNr)) 1 Basis:BL.Flow.Docs.enu.DocumentBasisCode,Rec:%String,KLNr:%String,Taal:%String,blnBruto:%String,blnManueelProd:%Boolean,lbDocRef:%List BL.Flow.Proxy.pxProductLijn Returns pxProductLijn lbDocRef contains info about the mainDoc (e.g. $LB(OFFNr)) 1 oLijn:Flow.Offerte.Lijn,KLNr:%String,Taal:%String,blnBruto:%String,lbDocRef:%List BL.Flow.Proxy.pxProductLijn Fill the data from the Rec into the properties of the Proxy object Basis:BL.Flow.Docs.enu.DocumentBasisCode,Rec:%String,KLNr:%String,Taal:%String,blnBruto:%String,blnManueelProd:%Boolean=0,lbDocRef:%List Fill the data from the Flow.Offerte.Lijn into the properties of the Proxy object Op Cache02 : Flow.Offerte.LijnAbstract op Cache01 : Flow.Offerte.Lijn oLijn:Flow.Offerte.Lijn,KLNr:%String,Taal:%String,blnBruto:%String,lbDocRef:%List Rec bevat de structuur van een (manueel) Productlijn 1 Returns pxProductLijn Basis contains P/A (PrijsLijst/Offerte) 1 KLNr:%Integer,PRNr:%Integer,Qty:%Integer,Omzet:%Float,Taal:%String,blnBruto:%String,Settings:BL.Flow.Proxy.pxPrijsLijstSettings,B2CPrijs:%Decimal 1 pxProductLijn Fill the 'PrijsLijst'-data for the specified product (PRNr) into the properties of the Proxy object KLNr:%Integer,PRNr:%Integer,Qty:%Integer,Omzet:%Float,Taal:%String,blnBruto:%String,Settings:BL.Flow.Proxy.pxPrijsLijstSettings,B2CPrijs:%Decimal 1 0 . . Set Aantal=$P(UtzRec,"\",5) . . Set PrijsRec=..GetKlantPrijs(KLNr,PRNr,NoSa,,$P(UtzRec,"\",5),,$S(blnBruto:"B",1:"N")) . . Set Tekst="" . . Set Prijs=$$FormatNumber^vhLib("#.##0,00",$P(PrijsRec,"\",1))_$S($P(PrijsRec,"\",3)="H":"%",1:"")_" "_$P(PrijsRec,"\",2) . . Set Tekst=Tekst_##class(Res.Vertaling).GetVertaling($$$GroepVert, $$$Aantal1,"L", Taal,$$FormatNumber^vhLib("#.##0",Aantal)) . . Set Tekst=Tekst_##class(Res.Vertaling).GetVertaling($$$GroepVert, $$$Aantal2,"L", Taal,Prijs) . . Do pxProd.TEKST.AppendItem(Tekst) Set KlantRef=$$DISP^PAKKET(KLNr,PRNr) Set:($L(KlantRef)) ..KLANTREF=KlantRef Quit fplPrijzen(oLijn,KLNr,PRNr,Qty,Omzet,NoSa,Taal,blnBruto,Settings) Set Prijs=..GetKlantPrijs(KLNr,PRNr,NoSa,,,,$S(blnBruto:"B",1:"N")) If blnBruto Do ; Brutoprijzen . Set oLijn.EPRIJSBRUTO=$P(Prijs,"\",1) . Set oLijn.TOTPRIJSBRUTO=Qty*$P(Prijs,"\",15) . Set oLijn.TOTPRIJSNETTO=Qty*$P(Prijs,"\",14) . Set oLijn.KORTING1=$$$PctToDecim($P(Prijs,"\",5)) . Set oLijn.KORTING2=$$$PctToDecim($P(Prijs,"\",6)) Else Do ; Nettoprijzen . Set oLijn.EPRIJSNETTO=$P(Prijs,"\",1) . Set oLijn.TOTPRIJSNETTO=Qty*$P(Prijs,"\",14) Set oLijn.EGROOTTEORDE=$P(Prijs,"\",3) Set:oLijn=%this oLijn.AANTAL=Qty ; afname volgens ingestelde periode Quit ]]> Get KlantPrijs^KPRIJS(...) Returns string 1 KLNr:%String,PRNr:%String,NoSa:%String,RefDat:%String,Aantal:%String,LevTerm:%String,Optie:%String 0 %String Invullen van de ChargeTrace gegevens in property CHARGETRACES ChargeTraceID:%String,Taal:%String 1 "_$Name(^ProdHist.ChargeTraceD(ChargeTraceID))_" mogelijk te corrigeren.") . Do objCT.Items.SetAt(ChargeAantal,ChargeID) If $isObject(objCT) Do . Do ..CHARGETRACES.Insert(objCT) Quit ]]> PRNr:%String 0 %String Speciaal voor ProcedureBlock = 0 !!! Param:%String 0 %String PasAanIndienOngeldig:%Boolean 1 '"_NoImageUrl_"'") Set ImageUrl.Content = NoImageUrl } } ]]> 1 %String