Controle van usernaam en wachtwoord + alle bijhorende rechten BL.EC.Common,Prod.Product,BL.Prod 1 %RegisteredObject 0 6000 6010 6011 6012 1600 1601 1602 At Zoek LeaveTag IncStock IncNietStock IncAfgeleid c:\temp\ 192.168.100.2;192.168.100.10 flex/vhisie/data Tineke T!neKe tree_NL tree_FR Taal,ProductGroep w $$ParseStatus^vhLib(##class(BL.EC.Product).ExportAll()) 1 %Status oStream,FTPServers,FTPPaths,FTPFileNames,Users,WWs ",MailTo,Info,oStream,1) . If ($$$ISERR(Status)) Do . . Set MailMsg="class BL.EC.Product : "_Server_" "_Path_FileName_" User:"_User . . do ##class(vhLib.Logger).%New("VHISIE").ErrorMail("FTPStream","Productboom : FTP probleem met WWW"_$C(13,10)_MailMsg) Quit Status ]]> Taal,ProductGroep %Stream Groep oParent,pxParent BoomKey ",$$ListToPieces^vhLib(List,";") . Set obj=##class(pxemItem).%New() . Do %ECBL.Data.BuildFromList(obj.Subs,List) . Set obj.Tag=Kenmerk . Set obj.Omschrijving=$$$Translate(obj.Tag) . Set obj.ControlType=$$$ctCombo . Set OK=pxKeyCrit.Subs.Insert(obj) &sql(CLOSE TREECRIT) Set obj=##class(pxemItem).%New() Do %blData.BuildFromList(obj.Subs,$LB(..#vsStock,..#vsNietStock)) Set obj.Tag=..#vsStockType Set obj.Omschrijving=$$$Translate(obj.Tag) Set obj.ControlType=$$$ctCheckBox Set OK=pxCriteria.Criterias.Insert(obj) Quit pxCriteria ]]> Criteria %Query Page:%Integer,FullText:%Boolean 1 %Status 1 ProductPageExecute 0 %Status %LijnMax) Do ; End . Set AtEnd=1 Else Do ; Row . Set Row=%blProduct.KlantProdRefRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> List "_$$$Translate("ProdRefOms")_" : "_PakOms) . Set Row=$LB("KPR"_$LG(List,2))_%blProduct.ProductElements(PRNr,%KLNr,Tekst,"NoKlantProd;"_$S(%ECSession.Opties[$$$opShowProdRef:"ShowKlantProd",1:""))_$LB(PakCode,Aantal)_%blProduct.PrijsElements(PRNr,%KLNr)_%blData.FavorietElement(PRNr,1,1) Set $LI(Row,4,5)=$LB($LG(Row,4+%FullText)) Quit Row ]]> 1 ProductPageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch Criteria:pxCriteriaSet pxFetch Criteria:pxCriteriaSet pxFetch ",pxCritSearch.SelectCount,! /* If ZoekAt=$$$tgProductKortTekst Do ; KortTekst . Set ZoekKey=$TR(ZoekKey," ","*") . Set KeepCharOrig="@/.#+-",KeepChar="" . For I=1:1:$L(KeepCharOrig) Set:ZoekKey[$E(KeepCharOrig,I) KeepChar=KeepChar_$E(KeepCharOrig,I) . Set ZoekKey=$ZSTRIP($ZCVT(ZoekKey,"U"),"*P",,KeepChar_"*?\") . Set %PatternKey=$$WildCardToPattern^vhLib(ZoekKey,1) . Set KeepChar=KeepChar_$S(ZoekKey["\*":"*",1:"")_$S(ZoekKey["\?":"?",1:"") ; KeepChar uitbreiden met * of ? indien \* of \? voorkomt . Set BeginKey=$E($ZSTRIP($P($P($P(ZoekKey,"*"),"?"),"\"),"*P",,KeepChar),1,3) . Set KT=BeginKey_" " . For Set KT=$O(^KPR1(KT)) Quit:(KT="")||($E(KT,1,$L(BeginKey))'=BeginKey) Do . . ;d WL^vhDBG(PRNr_"-"_KT) . . Set PRNr=$P(^KPR1(KT),"\") . . Quit:PRNr'?4.7N . . Set %Key=$ZCVT($ZSTRIP($P(^KPR1(KT),"\",2),"*P",,KeepChar),"U") . . X "S %OK=%Key?.1"" """_%PatternKey . . Quit:'%OK . . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) . . Set Stock=$$$PRGet($$$StockType) . . Quit:(StockType'["S")&&Stock . . Quit:(StockType'["N")&&'Stock . . . . Quit:'%blProduct.IsAllowed(PRNr) . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("P",PRNr) If ZoekAt=$$$tgProductIdentNr Do ; Identnr . Set ZoekKey=$TR(ZoekKey," ","*") . Set %PatternKey=$$WildCardToPattern^vhLib($TR(ZoekKey,".,;:",""),1) . Set KeepChar=$S(ZoekKey["\*":"*",1:"")_$S(ZoekKey["\?":"?",1:"") . Set BeginKey=$E($$TRIMN^vhRtn1($P($P(ZoekKey,"*"),"?")),1,3) . Set ID=BeginKey_" " . For Set ID=$O(^KPR2(ID)) Quit:(ID="")||($E(ID,1,$L(BeginKey))'=BeginKey) Do . . Set PRNr=$P(^KPR2(ID),"\") . . Quit:PRNr'?4.7N . . Set %Key=$ZSTRIP($P(^KPR2(ID),"\",2),"*P",,KeepChar) . . X "S %OK=%Key?"_%PatternKey . . Quit:'%OK . . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) . . Set Stock=$$$PRGet($$$StockType) . . Quit:(StockType'["S")&&Stock . . Quit:(StockType'["N")&&'Stock . . Quit:'%blProduct.IsAllowed(PRNr) . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("P",PRNr) */ If ZoekAt=$$$tgProductKlantRef Do ; KlantProduct referentie . Set ZoekKey=$TR(ZoekKey," ","*") . Set KLNr=%ECSession.KlantNr . Set %PatternKey=$$WildCardToPattern^vhLib($TR(ZoekKey,".,;:",""),1) . Set KeepChar=$S(ZoekKey["\*":"*",1:"")_$S(ZoekKey["\?":"?",1:"") . Set BeginKey=$E($$TRIMN^vhRtn1($P($P(ZoekKey,"*"),"?")),1,3) . Set ID="" . For Set ID=$O(^PAKKET("IK",KLNr,ID)) Quit:(ID="") Do . . Set %Key=$ZSTRIP(ID,"*P",,KeepChar) . . X "S %OK=%Key?"_%PatternKey . . Quit:'%OK . . Set PAKRef=^PAKKET("IK",KLNr,ID) . . Set PRNr="" . . For Set PRNr=$O(^PAKKET("D",PAKRef,PRNr)) Quit:PRNr="" Do . . . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) . . . Set Stock=$$$PRGet($$$StockType) . . . Quit:(StockType'["S")&&Stock . . . Quit:(StockType'["N")&&'Stock . . . Quit:'%blProduct.IsAllowed(PRNr) . . . Set Tmp(..SortKey(PRNr))=PRNr . . Set SortKey="" . . For Set SortKey=$O(Tmp(SortKey)) Quit:SortKey="" Do . . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("P",Tmp(SortKey)) If ZoekAt=$$$tgProductLangTekst Do ; LangTekst . Set ZoekKey=$TR(" "_ZoekKey," ","*") . Set KeepCharOrig="@/.#+-",KeepChar="" . For I=1:1:$L(KeepCharOrig) Set:ZoekKey[$E(KeepCharOrig,I) KeepChar=KeepChar_$E(KeepCharOrig,I) . Set ZoekKey=$ZSTRIP($ZCVT(ZoekKey,"U"),"*P",,KeepChar_"*?\") . Set %PatternKey=$$WildCardToPattern^vhLib(ZoekKey,1) . Set KeepChar=KeepChar_$S(ZoekKey["\*":"*",1:"")_$S(ZoekKey["\?":"?",1:"") ; KeepChar uitbreiden met * of ? indien \* of \? voorkomt . Set PRNr=0 . For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do . . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) . . Set Stock=$$$PRGet($$$StockType) . . Quit:(StockType'["S")&&Stock . . Quit:(StockType'["N")&&'Stock . . Set %Key=$ZCVT($ZSTRIP(##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,%ECSession.Taal,"~",1),"*P",,KeepChar),"U") . . X "S %OK=%Key?.1"" """_%PatternKey . . Quit:'%OK . . Quit:'%blProduct.IsAllowed(PRNr) . . Set Tmp(..SortKey(PRNr))=PRNr . Set SortKey="" . For Set SortKey=$O(Tmp(SortKey)) Quit:SortKey="" Do . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("P",Tmp(SortKey)) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgProductTxt) Set pxFetch.HasFullText=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> PRNr 0 %Query Page:%Integer,FullText:%Boolean 1 %Status 1 ProductPageExecute 0 %Status %LijnMax) Do ; End . Set AtEnd=1 Else Do ; Row . Set Row=%blProduct.ProductRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> List 1 ProductPageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch PRNr,Level:%String="S" 0 %Boolean PRNr,ProductGroepen PRNr,ProductGroepen ProductGroepen PRNr 0 1 PRNr 0 1 PRNr 0 %Boolean 1 PRNr 0 PRNr " #define endPar Set Text=Text_"

" #define labelFmt(%txt) Set Text=Text_""_%txt_" : " #define valueFmt(%txt) Set Text=Text_""_%txt_"" #define highlightFmt(%txt) Set Text=Text_""_%txt_"" #define break Set Text=Text_"
" Set oProd=##class(Prod.Product).%OpenId(PRNr) Quit:'$isObject(oProd) "" Set Text="" If ..UitlopendProduct(PRNr)||($$$PRGet($$$NONAktief)=1)||('$LF(%ECSession.Toegang,$$$tgWebShop)) Do Quit pxProductDtl . ;If ..UitlopendProduct(PRNr)||($$$PRGet($$$NONAktief)=1) Do Quit pxProductDtl . Set pxProductDtl=##class(pxProductDtl).Create(PRNr,oProd.KortTekst,0) . $$$break . $$$break . $$$highlightFmt($$$Translate("WS:NietBestellen1")) $$$break . $$$highlightFmt($$$Translate("WS:NietBestellen2")) $$$break . Set pxProductDtl.Beschrijving=Text . Set pxProductDtl.MinAantal=0 . Set pxProductDtl.MaxAantal=0 $$$blData Set pxProductDtl=##class(pxProductDtl).Create(PRNr,oProd.KortTekst,$LG(%blData.FavorietElement(PRNr,1,1),1)) Do ..ProductDetailPrijs(oProd,%ECSession.KlantNr,pxProductDtl,1) s %ClientIP="192.168.1.15" If ..NotKSProduct(PRNr) $$$highlightFmt("*** geen KS product ***") $$$break $$$break $$$beginPar $$$labelFmt($$$Translate("Verpakking")) Set GrootVpk=oProd.Prijs.GrootVerpakking Set NormVpk=oProd.Prijs.NormaleVerpakking $$$valueFmt($S(GrootVpk=1:$$$Translate("PerStuk"),1:$$FormatNumber^vhLib("#.##0",GrootVpk))) If NormVpk,(GrootVpk'=NormVpk) $$$valueFmt(" & "_$S(NormVpk=1:$$$Translate("PerStuk"),1:$$FormatNumber^vhLib("#.##0",NormVpk))) $$$endPar ; Levertermijn $$$beginPar $$$labelFmt($$$Translate("Levertermijn")) Set Stock=oProd.StockNietStock If Stock Do ; Stock . $$$valueFmt($$$Translate("Voorraad")) Else Do ; Niet stock . If oProd.GenType["TBX",oProd.Prijs.LeveringsTermijn=0 Do ; Tandembox . . $$$valueFmt($$$Translate("MaatWerk")_", "_$$$Translate("72 uur")) . Else Do ; Niet stock . . $$$blLeverTermijn() . . Set lbTermijn=%blLeverTermijn.GetLeverTermijn(oProd.%Id()) . . If $LG(lbTermijn,2)="W" Do ; Weken . . . Set txtTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"week",1:"weken")) . . Else Do ; Dagen . . . Set txtTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"werkdag",1:"werkdagen")) . . $$$valueFmt(txtTermijn) . . $$$endPar . . $$$beginPar . . $$$labelFmt($$$Translate("MinBestel")) . . $$$valueFmt($$FormatNumber^vhLib("#.##0",oProd.Prijs.MinimumBestelhoeveelheid)_" "_$$$Translate("st.")) $$$endPar Set pxProductDtl.Beschrijving=Text Set MinVerpakking=oProd.Prijs.KleinVerpakking Set:'MinVerpakking MinVerpakking=oProd.Prijs.NormaleVerpakking Set:'MinVerpakking MinVerpakking=oProd.Prijs.GrootVerpakking Set:'MinVerpakking MinVerpakking=1 Set pxProductDtl.Veelvoud=MinVerpakking If Stock Do . Set pxProductDtl.MinAantal=1 . Set pxProductDtl.VeelvoudVerplicht=oProd.Prijs.VerkoopPerStuk=-1 . ; voor KS en HANDEL moet voor de NIET KS-producten STEEDS per veelvoud van de verpakking genomen worden . ;d WLIP^vhDBG(15,PRNr_" "_($LF(%ECSession.Opties,$$$opIsKS))_" "_$$ISPROD^KS(PRNr)_" "_ pxProductDtl.VeelvoudVerplicht) . Set:('pxProductDtl.VeelvoudVerplicht)&&($LF(%ECSession.Opties,$$$opIsKS)||$LF(%ECSession.Opties,$$$opIsHandel))&&($$ISPROD^KS(PRNr)'=1) pxProductDtl.VeelvoudVerplicht=1 ; KSers moet deze afneme per veelvoud !!! . ;d WLIP^vhDBG(15,PRNr_" "_$$ISPROD^KS(PRNr)_" "_ pxProductDtl.VeelvoudVerplicht) . Set:pxProductDtl.VeelvoudVerplicht pxProductDtl.MinAantal=MinVerpakking Else Do . Set pxProductDtl.VeelvoudVerplicht=1 . Set pxProductDtl.MinAantal=oProd.Prijs.MinimumBestelhoeveelheid Set pxProductDtl.MaxAantal=99999 ; Dit zou eigenlijk product afhankelijk moeten zijn Quit pxProductDtl ]]> PRNr PRNr,ImageTypes,ZonderKenmerk "_%tekst_" ("_%def_")" Set oProd=##class(Prod.Product).%OpenId(PRNr) Quit:'$isObject(oProd) "" $$$blData Set pxProductDtl=##class(pxProductDtl).Create(PRNr,oProd.KortTekst,$LG(%blData.FavorietElement(PRNr,1,1),1)) Do ..ProductDetailBeschrijving(oProd,%ECSession.KlantNr,pxProductDtl,.ImageTypes,.ZonderKenmerk) Do ..ProductDetailPrijs(oProd,%ECSession.KlantNr,pxProductDtl) Quit pxProductDtl ]]> Productomschrijving, productsleutels oProd,KLNr,pxProductDtl,ImageTypes,ZonderKenmerk " ;#define endPar Set Text=Text_"

" #define endPar Set Text=Text_"
" #define labelFmt(%txt) Set Text=Text_""_%txt_" : " #define valueFmt(%txt) Set Text=Text_""_%txt_"" #define break Set Text=Text_"
" Set Text="" Set KortTekst=oProd.KortTekst ;If $E(KortTekst,1,2)="OL" Do ..ProductDetailOrgalux(oProd,pxProductDtl) ; Orgalux ;Else If $P($G(^KPR(oProd.%Id(),0)),"\",3)?4.7N Do ; afgeleid product ;. Do ..AfgeleideImage(oProd,pxProductDtl) ;Else Do ; beslag producten Do ..ProductLinks(oProd,pxProductDtl,.ImageTypes) ; beslag producten Set:$G(Text)="" Text=$LG(..ProductElements(oProd.%Id(),KLNr),4) ; Verpakking $$$break $$$beginPar $$$labelFmt($$$Translate("Verpakking")) Set GrootVpk=oProd.Prijs.GrootVerpakking Set NormVpk=oProd.Prijs.NormaleVerpakking $$$valueFmt($S(GrootVpk=1:$$$Translate("PerStuk"),1:$$FormatNumber^vhLib("#.##0",GrootVpk))) If NormVpk,(GrootVpk'=NormVpk) $$$valueFmt(" & "_$S(NormVpk=1:$$$Translate("PerStuk"),1:$$FormatNumber^vhLib("#.##0",NormVpk))) $$$endPar ; Levertermijn $$$beginPar $$$labelFmt($$$Translate("Levertermijn")) Set Stock=oProd.StockNietStock If Stock Do ; Stock . $$$valueFmt($$$Translate("Voorraad")) Else Do ; Niet stock . If oProd.GenType["TBX",oProd.Prijs.LeveringsTermijn=0 Do ; Tandembox . . $$$valueFmt($$$Translate("MaatWerk")_", "_$$$Translate("72 uur")) . Else Do ; Niet stock . . $$$blLeverTermijn() . . Set lbTermijn=%blLeverTermijn.GetLeverTermijn(oProd.%Id()) . . If $LG(lbTermijn,2)="W" Do ; Weken . . . Set txtTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"week",1:"weken")) . . Else Do ; Dagen . . . Set txtTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"werkdag",1:"werkdagen")) . . $$$valueFmt(txtTermijn) . . $$$endPar . . $$$beginPar . . $$$labelFmt($$$Translate("MinBestel")) . . $$$valueFmt($$FormatNumber^vhLib("#.##0",oProd.Prijs.MinimumBestelhoeveelheid)_" "_$$$Translate("st.")) $$$endPar Set pxProductDtl.Beschrijving=Text ;Kenmerken Do:'$G(ZonderKenmerk) ..ProductDetailKenmerken(oProd,pxProductDtl) ]]> Afgeleide product D ##class(BL.EC.Product).%New().AfgeleideImage() oProd,pxProductDtl D ##class(BL.EC.Product).%New().ProductLinks() oProd,pxProductDtl,ImageTypes oProd,pxProductDtl Prijs oProd,KLNr,pxProductDtl,AlignLeft 0 "_%txt_"

" #define valueFmt(%txt,%AlignLeft) Set Text=Text_"

"_%txt_"

" #define break Set Text=Text_"
" New Q,D,U,KlantId,NetBrutP,R,Text Quit:'KLNr "" Quit:KLNr=1000 "" ; test klant vanhoecke Set PRNr=oProd.%Id() Set Q="K",U=";",D="\" Set Text="" ; Prijs Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr,%ECSession.NoSa) Set List=$LB($P(PrijsRec,"\",1),,$P(PrijsRec,"\",2)) Set:$E($P(PrijsRec,"\",3))="H" $LI(List,2)="H" Set KlantId=^KK1(KLNr) Set R=^KKL(KlantId,2),NetBrutP=$P(R,D,5) If NetBrutP Do ; Brutoprijs . ; TO DO Else Do ; Nettoprijs . $$$valueFmt($$FormatNumber^vhLib("#.##0,00",$S(%ECSession.Opties[$$$opNoPrice:99.99,1:+$P(PrijsRec,"\",1)))_" EUR"_$S($P(PrijsRec,"\",3)="H":"%",1:""),AlignLeft) Set pxProductDtl.Prijs=Text ]]> oProd,pxProductDtl " ;#define tabEnd Set Text=Text_"" #define kenmerk(%Kenmerk,%Value) "

"_%Kenmerk_":"_%Value_"

" #define subGroep(%Groep) "

"_%Groep_"

" #define groep(%Groep) "

"_%Groep_"

" Set Query="Prod.Kenmerk.DataDefinitie:LijstPerProductToelatenEC" Set Result=##class(%ResultSet).%New(Query) Set Status=Result.Execute(oProd.%Id()) Set Count=0 Kill MemSubGroep Set:(pxProductDtl.Beschrijving'="") pxProductDtl.Beschrijving=pxProductDtl.Beschrijving_"
" Kill FirstKenmerk For Quit:('Result.Next()) Do . Set Select=1,ID=Result.Get("ID"),KenmerkNaam=Result.Get("KenmerkNaam") . Set Waarden=$$LCVTSimple^vhLib(Result.Get("Waarden"),"`"),SubGroep=Result.Get("SubGroep") . Set:'$D(FirstKenmerk) pxProductDtl.Beschrijving=pxProductDtl.Beschrijving_$$$groep($$$Translate("Kenmerk")) . Set FirstKenmerk=1 . If $D(MemSubGroep),MemSubGroep'=SubGroep Do . . Set pxProductDtl.Beschrijving=pxProductDtl.Beschrijving_$$$subGroep(SubGroep) //"
"_ . Set MemSubGroep=SubGroep . For I=1:1:$L(Waarden,"`") Do . . Quit:$P(Waarden,"`",I)="" . . Set pxProductDtl.Beschrijving=pxProductDtl.Beschrijving_$$$kenmerk(KenmerkNaam,$P(Waarden,"`",I)) . . Set (Select,ID,KenmerkNaam,KenmerkVolgNr)="" ]]> PRNr,KLNr 0 als Optie["LevTermMinB" dan wordt de levertermijn en minbestelhoeveelheid toegevoegd aan de compact en full tekst als Optie["ShowProdRef" dan wordt de pakketgegevens ipv de korttekst getoond als Optie["NoKlantProd" dan worden de pakketgegevens niet verwerkt PRNr,KLNr,TekstAfter:%String,Optie:%String,ProjectRef:%String="" "_$$$Translate("OnsProdRef")_" : "_KortTekst If $L(PakketRef) Do . Set TCompact=""_$$$Translate("UwProdRef")_" : "_PakketRef If $L(ProjectRef) Do . Set TCompact=""_$$$Translate("UwProdRef")_": "_ProjectRef Set:..NotKSProduct(PRNr) TCompact=TCompact_"*** geen KS product ***" If $G(Optie)["LevTermMinB" Do . Set LevTermijn=$$$PRGet($$$LeveringsTermijn)+1 . Set MinBestel=$$$PRGet($$$MinimumBestelHoeveelheid) . Set:$L(TCompact) TCompact=TCompact_"
" . $$$blLeverTermijn() . Set lbTermijn=%blLeverTermijn.GetLeverTermijn(PRNr) . If $LG(lbTermijn,2)="W" Do ; Weken . . Set LevTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"week",1:"weken")) . Else Do ; Dagen . . Set LevTermijn=$LG(lbTermijn)_" "_$$$Translate($S($LG(lbTermijn)=1:"werkdag",1:"werkdagen")) . Set TCompact=TCompact_""_$$$Translate("Levertermijn")_" : "_LevTermijn . Set TCompact=TCompact_", "_$$$Translate("MinBestel")_" : "_$fn(MinBestel,".")_" "_$$$Translate("st.") Set TFull=TCompact Set LangTekst=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,%ECSession.Taal,"
",3) ; incl kleur en FSC Code Set:LangTekst'="" TFull=TFull_$S($L(TFull)&&$L(LangTekst):"
",1:"")_LangTekst Set TFull=TFull_"
"_$$$Translate("Identnr")_" : "_IdentNr Set:$L(EANCode) TFull=TFull_"
"_"EAN"_" : "_EANCode Set:$G(TekstAfter)'="" TFull=TFull_$S($L(TFull)&&$L(LangTekst):"
",1:"")_TekstAfter Quit $LB(PRNr,Naam,TCompact,TFull) ]]> PRNr 0 PRNr,KLNr,MetPakket Uw ref: "_PakketRef Else Do . Set Result=$$$Translate(..#ProductBestaatNiet) If $L(Oms) Set Result=Result_"~"_Oms Set:$E(Result)="~" $E(Result)="" Quit Result ]]> Week in $H formaat PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder 0 %Library.CacheStorage ^BL.EC.ProductD ProductDefaultData ^BL.EC.ProductD ^BL.EC.ProductI ^BL.EC.ProductS listnode %%CLASSNAME