d OrgaluxPrintSelect^CHUI.Projects() %occInclude,Prod.Product 1 %RegisteredObject 0 OL ========================================================================================================================== LIJST . ========================================================================================================================== 0 Dealer Dealer="N/A" . . . If LandCode="BNL" Do ; Beide . . . . Set ConsPrijsB=$$ConsumentenPrijs^ORGALUX(PRNr,"B",$G(NoSa)) . . . . Set ConsPrijsNL=$$ConsumentenPrijs^ORGALUX(PRNr,"NL",$G(NoSa)) . . . Else Do . . . . Set ConsPrijs=$$ConsumentenPrijs^ORGALUX(PRNr,LandCode,$G(NoSa)) . . . ;Write PRNr,*9,KT,*9,$LG(Sort(HGrp,Grp,KT),5),*9,$LG(Sort(HGrp,Grp,KT),6),*9,$LG(Sort(HGrp,Grp,KT),7),! . . . ;Write PRNr,*9,$E(KT,1,5),*9,KortTekst ; met sort volgorde . . . Write KortTekst ; zonder sort volgorde . . . Write *9,$S($$$PRGet($$$BarcodeType="C128"):$$$PRGet($$$BarcodeWaarde),1:"") ; EAN Code . . . If Taal="NF" Do . . . . Write *9,##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"N",$G(Separ,">CR<")) . . . . Write *9,##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"F",$G(Separ,">CR<")) . . . Else Do . . . . Write *9,##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,Taal,$G(Separ,">CR<")) . . . If ExtraColumns Do . . . . New Grp,SGrp . . . . Set KSGrp=$P(^KPR(PRNr,$O(^KPR(PRNr,"I"))),"\",3) . . . . Set KGrp=$E(KSGrp,7,9) . . . . Set KSGrp=$E(KSGrp,12,14) . . . . Set HGrp=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"ProductType","","*",";"),1) . . . . Set Grp=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"SubType","","*",";"),1) . . . . Set Diepte=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"Diepte","","*",";"),1) . . . . Set Breedte=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"Breedte","","*",";"),1) . . . . Set WandDikte=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"WandDikte","","*",";"),1) . . . . Set Kleur=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"Kleur","","*",";"),1) . . . . Set LadeType=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"HoofdGroep","","*",";"),1) . . . . Do ##class(BL.Prod.OptiBox.Optimize).%New().GetVolume(PRNr,1,.OptiBreedte,.OptiDiepte,.OptiHoogte) . . . . ;Write *9,KGrp,*9,KSGrp,*9,HGrp,*9,Grp . . . . Write *9,Diepte,*9,WandDikte,*9,Breedte,*9,Kleur,*9,LadeType . . . . Write *9,$TR(OptiBreedte,".",","),*9,$TR(OptiDiepte,".",","),*9,$TR(OptiHoogte,".",",") . . . . Write *9,$$$PRGet($$$Gewicht) . . . . Set Stat=$$PROD^STAT(PRNr,0,"2006.10 ","2007.09 ","1,3") . . . . Write *9,$P(Stat,D,1),*9,$TR($P(Stat,D,3),".",",") . . . Write *9,$TR(Klant,".",",") . . . Write:DealerCol *9,$TR(Dealer,".",",") . . . If LandCode="BNL" Do . . . . Write *9,$TR(ConsPrijsB,".",",") . . . . Write *9,$TR(ConsPrijsNL,".",",") . . . Else Do . . . . Write *9,$TR(ConsPrijs,".",",") . . . Do GetOLPictures(UnID,.Big,.Small) . . . Write *9,Big,*9,Small . . . Write ! . . . Set Cnt=Cnt+1 Do CLOSE^vhDEV(Dev) Quit GetOLPictures(UnID,Big,Small) Set Big=##class(cspBasis.ProductList).DataDefValueURL("N",..#GroupID,UnID,"Sleutel","LI") Set Small=##class(cspBasis.ProductList).DataDefValueURL("N",..#GroupID,UnID,"Sleutel","LB") Quit:Small="" Set:Big="" Big=Small Set $P(Small,"/",1,$S($ZCVT($zu(5),"U")="ADMIN1":3,1:5))="http://res.vanhoecke.be/OLProdCat" Set $P(Big,"/",1,$S($ZCVT($zu(5),"U")="ADMIN1":3,1:5))="http://res.vanhoecke.be/OLProdCat" Quit ]]> 0 ",$$ListToPieces^vhLib(lbSortKey)," ",$$ListToPieces^vhLib(lbDiepte),! . . ;Set SortValue=$TR($J(SortValue,5)," ",0) . . Set ChkPRNr=1 . . Set Sort3=(1000+$LI(lbSortKey,3))_(1000+$LI(lbSortKey,4))_$P(^KPR(PRNr,0),"\") . . Set Sort($LI(lbSortKey,1),$LI(lbSortKey,2),Sort3)=$LB(PRNr,UnID,lbSortKey) . . Set Cnt=Cnt+1 Quit CheckBeperking(lbValue,lbSelect) New Selected,I Quit:(lbSelect="")||($LG(lbSelect)="") 1 ; geen beperking gewenst Quit:(lbValue="")||($LG(lbValue)="") 1 ; geen beperking voor dit product Quit:$LG(lbValue)="*" 1 ; wildcard gebruikt, geen beperking voor dit product ;w PRNr,":",$$ListToPieces^vhLib(lbValue,";"),"<->",$$ListToPieces^vhLib(lbSelect,";") Set Selected=0 For I=1:1:$LL(lbValue) For J=1:1:$LL(lbSelect) Set:($zcvt($LI(lbSelect,J),"U")=$zcvt($LI(lbValue,I),"U")) Selected=1 ;w "=",Selected,! Quit Selected OLProductGet(UnID,lbSortKey,lbTBXType,lbDiepte,lbWDikte,lbKleur,lbLadeType) New Sleutel,WaardenSortering,Sort1,Sort2,Sort3,Key Set lbSortKey="" Set Key="ProductType" ;K-line, Orga-line, wood-line, antislipmatten, boxsides Set lbSleutel=##class(Prod.Kenmerk.MetaDefinitie).GetWaardenSortering(..#GroupID_"||"_Key) Set Sleutel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,Key)) Quit:Sleutel="" "" Set Sort1=1 ;$S(Sleutel'="":$LF(lbSleutel,Sleutel),1:"~") Set Key="SubType" Set lbSleutel=##class(Prod.Kenmerk.MetaDefinitie).GetWaardenSortering(..#GroupID_"||"_Key) Set Sleutel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,Key)) Quit:Sleutel="" "" Set Sort2=$S(Sleutel'="":$LF(lbSleutel,Sleutel),1:"~") Set Key="Sleutel" Set lbSleutel=##class(Prod.Kenmerk.MetaDefinitie).GetWaardenSortering(..#GroupID_"||"_Key) Set Sleutel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,Key)) Quit:Sleutel="" "" Set Sort3=$S(Sleutel'="":$LF(lbSleutel,Sleutel),1:"~") Set Key="TandemboxType" Set lbSleutel=##class(Prod.Kenmerk.MetaDefinitie).GetWaardenSortering(..#GroupID_"||"_Key) Set Sleutel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,Key)) Quit:Sleutel="" "" Set Sort4=$S(Sleutel'="":$LF(lbSleutel,Sleutel),1:"~") Set lbSortKey=$LB(Sort1,Sort2,Sort3,Sort4) ;Set SubGroep=$$$PRGet($$$SubGroep) ;Set Groep=$$$PRGet($$$Groep) ;Set SortKey=SubGroep_$TR($J(SortValue,5)," ",0) Set lbDiepte=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"Diepte") Set lbWDikte=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"WandDikte") Set lbLadeType=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"HoofdGroep") Set lbTBXType=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"TandemboxType") Set lbKleur=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"Kleur") ;w "get:",UnID," ",Grp," ",HGrp," ",LadeType,! Quit ]]> d ##class(BL.Prod.OL.Query).test() 1 %Query KLNr,Taal="N",lbTBXTypeSelect="",lbDiepteSelect="",lbWDikteSelect="",lbKleurSelect="",lbLadeTypeSelect="",ForceAll=0,MultiProd=0,NoSa 1 %Status 1 qGetListExecute 0 %Status 1 PRNr,UnID,SortKeys DealerPrice DealerPrice="N/A" Set ConsPriceB=$$ConsumentenPrijs^KPRIJS(PRNr,"B",%NoSa) Set ConsPriceNL=$$ConsumentenPrijs^KPRIJS(PRNr,"NL",%NoSa) ; Omschrijving Set DescriptionN=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"N",$G(Separ,",")) Set DescriptionF=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"F",$G(Separ,",")) ;Set HGrp=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"ProductType","","*",";"),1) ;Set Grp=$LG(##class(cspBasis.ProductList).DataDefValueList(Taal,..#GroupID,UnID,"SubType","","*",";"),1) Set Depth=$LG(##class(cspBasis.ProductList).DataDefValueList(%Taal,..#GroupID,UnID,"Diepte","","*",";"),1) Set Width=$LG(##class(cspBasis.ProductList).DataDefValueList(%Taal,..#GroupID,UnID,"Breedte","","*",";"),1) Set SideThickness=$LG(##class(cspBasis.ProductList).DataDefValueList(%Taal,..#GroupID,UnID,"WandDikte","","*",";"),1) Set Color=$LG(##class(cspBasis.ProductList).DataDefValueList(%Taal,..#GroupID,UnID,"Kleur","","*",";"),1) Set DrawerType=$LG(##class(cspBasis.ProductList).DataDefValueList(%Taal,..#GroupID,UnID,"HoofdGroep","","*",";"),1) ;Do ##class(BL.Prod.OptiBox.Optimize).%New().GetVolume(PRNr,1,.OptiBreedte,.OptiDiepte,.OptiHoogte) ; Images Set ImageBigURL=%blImageLink.GetProductImageURL(PRNr, "WEB", "PB",$LB("W",$LB("JPG"))) Set ImageSmallURL=%blImageLink.GetProductImageURL(PRNr, "WEB", "PB",$LB("T",$LB("JPG"))) Set Row=$LB(UnID,Groep,Product,DescriptionN,DescriptionF,Depth,SideThickness,Width,Color,DrawerType,SalePrice,DealerPrice,ConsPriceB,ConsPriceNL,ImageSmallURL,ImageBigURL) Quit Row ]]> 1 qGetListExecute %Status