d OrgaluxPrintSelect^CHUI.Projects() %occInclude,%Prod.Product,APPS.PM.OL.Common,DOM.PM.OL,DOM.DomeinContext 1 %CHUI.TForm 62150,32751.36011 60290,55550.636499 0 OL ========================================================================================================================== PROPERTIES . ========================================================================================================================== %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.Ctrl.TKlantEdit %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TCheckBox %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton Design : Plus of Intivo %CHUI.TLabel %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup 3 16 43 53 DOM.PM.OL.Gamma.dto.ExportFilter 1 %List 1 ========================================================================================================================== METHODs . ========================================================================================================================== ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:%CHUI.TControlBasis %String Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis ========================================================================================================================== 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,$TR($$$PRGet($$$Gewicht),".",",") ; gewicht . . . . Set Stat=$$PROD^STAT(PRNr,KLNr,"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 FotoURLPiece = ##class(TECH.Config.ConfigMgr).Instance().GetString("CHUI.Orgalux.PrintSelect_FotoURLPiece") Set $P(Small,"/",1,FotoURLPiece)="http://res.vanhoecke.be/OLProdCat" Set $P(Big,"/",1,FotoURLPiece)="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) . . 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 lbKleur=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"Kleur") Set lbTBXType=##class(Prod.Kenmerk.DataDefinitie).Get(..#GroupID,UnID,"TandemboxType") ;w "get:",UnID," ",Grp," ",HGrp," ",LadeType,! Quit ]]> Kenmerk,oPopup