XML-versie van het WS.TBX.Order object vhLib.Macro 1 %CSP.Page 0 text/xml UTF-8 /VHISIE/TBX/PrintPage.csp 1 0 1 0 %Status m.a.w. pxWSOrd.Munt moet correct ingevuld worden (EUR of CHF); prijzen van WSOrd niet meer omrekenen, dus Munt="EUR" . Set pxWSOrd.Munt=$S(blnShowAK:"EUR", 1:Munt) . Set Munt="EUR" If pxWSOrd.LeverTijdID="ASAP" Do . Set LevTOms=pxWSOrd.LeverTijd . Set:(LevTOms[" (") $P(LevTOms," (",1)="ASAP" . Set pxWSOrd.LeverTijd=LevTOms Else If pxWSOrd.LeverTijdID="LATER" Do . Set pxWSOrd.LeverTijd=pxWSOrd.LeverTijd_$$$CRLF_">>"_$C(160)_pxWSOrd.Opmerking1 Else If $L(pxWSOrd.LeverTijdID) Do . Set pxWSOrd.LeverTijd=$TR(pxWSOrd.LeverTijd,$C(160)," ") . Set pxWSOrd.LeverTijd=$$$Replace(pxWSOrd.LeverTijd," - ","-") . Set:($L(pxWSOrd.LeverTijd," (")>1) pxWSOrd.LeverTijd=$$$Trim($P(pxWSOrd.LeverTijd," (",1))_" ("_$P(pxWSOrd.LeverTijd," (",2,99) . Set pxWSOrd.LeverTijd=$$$Replace(pxWSOrd.LeverTijd,"Semaine","Sem.") Set pxWSOrd.MeldingOfferteGeldig=TBXOrdersDto.GeefMeldingOfferteGeldig(Taal,"") Do ; If $L(pxWSOrd.NietMeeleveren) Do . Set str="" . For i=1:1:$L(pxWSOrd.NietMeeleveren,";") Do . . Set NietMeeKey=($P(pxWSOrd.NietMeeleveren,";",i)) . . Set:($E(NietMeeKey,1,2)="NM")&&($E(NietMeeKey,3)'="_") $E(NietMeeKey,1,2)="NM_" . . Set:($L(NietMeeKey)) str=str_$S($L(str):", ", 1:"")_$$$LCase($$$GetVertaling(NietMeeKey,Taal,"L")) . Set pxWSOrd.NietMeeleverenOms=str // Berekende waarden voor de Omschrijving van Kleurkeuze e.d. Set blnContainsGlas=0 Set i="" For Set WSLn=pxWSOrd.Lijnen.GetNext(.i) Quit:(i="") Do . Set WSLn.ItemDC=##class(BL.PR.GA.TandemBox).DesignCodeFromDS(WSLn.ItemDS) . ;Set:($L(WSLn.ItemDC)) WSLn.ItemDCOms=##class(cspBasis.GAProdTBox).WebTextValue("DC_"_WSLn.ItemDC,Taal,"L") . Set:($L(WSLn.ItemDC)) WSLn.ItemDCOms=$$$GetVertaling("DC_"_WSLn.ItemDC,Taal,"L") . Set:($L(WSLn.ItemDS)) WSLn.ItemDSOms=$$$GetVertaling("DS_"_WSLn.ItemDS,Taal,"L") . ;d WLIP^vhDBG(97,"Proxy") . ;d WL^vhDBG("ItemDSOms="_WSLn.ItemDSOms) . Set:($L(WSLn.ItemKL)) WSLn.ItemKLOms=$$$GetVertaling("KL_"_WSLn.ItemKL,Taal,"L") . Set:($L(WSLn.ItemKB)) WSLn.ItemKBOms=$$$GetVertaling("KL_"_WSLn.ItemKB_$S(WSLn.ItemKB?1(1"WI",1"BE"):"_KB", 1:""),Taal,"L") ; KL_EI_KB . Set:($L(WSLn.ItemRK)) WSLn.ItemRKOms=$$$GetVertaling("KL_"_WSLn.ItemRK,Taal,"L") . Set:($L(WSLn.ItemKX)) WSLn.ItemKXOms=$$$GetVertaling("KL_"_WSLn.ItemKX,Taal,"L") . Set:($L(WSLn.ItemKV)) WSLn.ItemKVOms=$$$GetVertaling("KLV_"_WSLn.ItemKV,Taal,"L") . Set:(WSLn.ItemFB="NM") WSLn.ItemFB="-" . Set blnContainsGlas=(blnContainsGlas)||(WSLn.LadeBevatGlasOfInschuifElement()) If 'blnContainsGlas Do . ; Kan ook op voorhand bepaald worden, en dan 'niet invullen' i.p.v. achteraf te wissen . Set i="" . For Set WSLn=pxWSOrd.Lijnen.GetNext(.i) Quit:(i="") Set WSLn.ItemKVOms="-" // Wis Prijzen AK / VK Quit:(blnShowVK && blnShowAK) Set:(pxWSOrd.BonType="INKP")&&('blnShowAK) pxWSOrd.BonType="BBON" Set:(blnShowAK) pxWSOrd.BonType=pxWSOrd.BonType_"-AK" Set TotPrijs=0 Set i="" For Set WSLn=pxWSOrd.Lijnen.GetNext(.i) Quit:(i="") Do . Set:(blnShowAK) TotPrijs=TotPrijs+(WSLn.AKPrijs*WSLn.Qty) . If $$$ShowVKOnly Do . . Set WSLn.AKPrijs="" . Else If $$$ShowAKOnly Do . . Set WSLn.KostPrijs="" . . ;Set WSLn.KostPrijs=WSLn.AKPrijs ; copy into VKPrijs . . ;Set WSLn.AKPrijs="" . Else If $$$ShowNone Do . . Set WSLn.KostPrijs="" . . Set WSLn.AKPrijs="" . Else If $$$ShowBoth Do . . ; Nothing . Set WSLn.KostPrijs=$$opgPrijsConvertX(Munt,WSLn.KostPrijs) . Set WSLn.AKPrijs=$$opgPrijsConvertX(Munt,WSLn.AKPrijs) Set:($$$ShowAKOnly) pxWSOrd.TotPrijs=TotPrijs Set pxWSOrd.TotPrijs=$$opgPrijsConvertX(Munt,pxWSOrd.TotPrijs) Quit opgPrijsConvertX(Munt,Val) Quit:($IsValidNum(Val)) $$PrijsConvert^cspBasis.Library(Munt,Val) Quit Val opgAddToLog If '$IsObject(pxWSOrd) Do Quit . Do ##class(cspBasis.GAProdTBox).AddToLog("PRINTPAGE","","","ERROR",wsID,$G(%session.Data("VERW")),$G(Taal),,) New lbExtras Set lbExtras="" Set:($L($G(XSLhref))) lbExtras=lbExtras_$LB("XSLhref="_XSLhref) Do ##class(cspBasis.GAProdTBox).AddToLog("PRINTPAGE",pxWSOrd.WebDomain,pxWSOrd.KLNummer,"P"_$S(blnShowAK:"-AKP",1:""),wsID,$G(VERW),$G(Taal),,lbExtras) ;Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,Domain,KLNr,WizMode,wsID,Verwerker,Taal,VhisieLogin,lbExtras) Quit ]]> 1 lbErrTypes