d OrgaluxPrintSelect^CHUI.Projects() %occInclude,Prod.Product,APPS.PM.OL.Common,DOM.PM.OL,DOM.DomeinContext 1 TCHUI.TForm OL ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.Ctrl.TKlantEdit TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TCheckBox TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton Design : Plus of Intivo TCHUI.TLabel TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup 3 16 43 53 DOM.PM.OL.Gamma.dto.ExportFilter 1 %List 1 CHUI.Orgalux.ExportFilterConverteerder 1 ========================================================================================================================== METHODs . ========================================================================================================================== ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis pmTBXType:%List %List %String Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis ========================================================================================================================== LIJST . ========================================================================================================================== 0 Dealer Dealer="N/A" . . . If LandCode="BNL" Do ; Beide . . . . Set ConsPrijsB=$$ConsumentPrijsBE^ORGALUX(PRNr,.NoSa) . . . . Set ConsPrijsNL=$$ConsumentPrijsNL^ORGALUX(PRNr,.NoSa) . . . Else Do . . . . Set ConsPrijs=$$ConsumentenPrijs^ORGALUX(PRNr,LandCode,.NoSa) . . . Write KortTekst ; zonder sort volgorde . . . Write *9,$$$PRGet($$$BarcodeWaarde) ; 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,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 Kenmerk,oPopup 1 %ListOfDataTypes 1 %ListOfDataTypes