vhLib.Macro,BL.Derde.KlantSpecifiek,Prod.Product 1 %RegisteredObject,%XML.Adaptor right PRODUCT %String %String %String %String %String %String %String %String Geeft aan of een product Nieuw is of reeds gekocht. Mogelijke waarden: "N" of "" (leeg). %String Mogelijke waarden (leeg = geen aanduiding) "N" : Nieuw "M" : Maatwerk "NZ" : Nieuw Zwart (om af te drukken) "MZ" : Maatwerk Zwart (om af te drukken) %String BL.FOP.Basis.pxAttribType %String %String BL.FOP.Basis.pxTekstBlok %String Indien Facturen : Afhankelijk van de Oorsprong wordt ProductType weggefilterd door de XSLT en blijft enkel staan indien Oorsprong = 'UNI'. XLST te vinden op deze locatie : \\fop_disabled\c$\FOP\XSLT\SFSFactuur.xlst APPS.EC.enu.ProductType PRNr:%String,KLNr:%String,Taal:%String,Basis:%String="?",Optie:%String,StatusNieuw:%String=-1 0 0) Set ..StatusIcon=$$GetStatusIcon(..StatusNieuw,$L(CodeMaatwerk)>0) // URL van InfoPage, koppeling wordt gelegd op de korttekst If (Basis?1(1"L",1"O",1"A",1"F",1"P"))||($$$TestKlant) Do . Quit:($G(OutputAction)?1(1"PRINT",1"FAX")) . Set ..InfoUrl=blImage.GetInfoPageURL(PRNr, "E", Taal) // URL van ProductBeeld om ge-embed te worden in de PDF door FOP; Returns proxy-object pxAttribType If (Basis="[Prod.VoorraadTelling]")||(blImage.ShowProductImage(KLNr,PRNr,Basis)) Do ; (Basis="[Prod.VoorraadTelling]") ; modified by WimV on 11/03/2011 --> terug actief op 07/06/2011 . Set ..ImageUrl=blImage.GetProductImageURL(PRNr,"FOPEMBED"_$S($G(OutputType)="PS":"PS", $G(OutputType)="PDF":"PDF", 1:"")) If Basis="T" Do . // Omschrijving LevREF ophalen (CW) . Do ##class(Prod.ProductTekst).GetOmschrijvingArrayViaPRNr(PRNr,"BR",.arTxt,3,0) . Set ..TEKST=##class(BL.FOP.Basis.pxTekstBlok).CreateFromArray(.arTxt) . Set ..LevRef=$$$Trim($P(RecJ,"\",3)) Else Do . Set ProduktOmschrijvingTaal = "" . Set:($IsObject($G(%blFlowDoc))) ProduktOmschrijvingTaal = %blFlowDoc.ProxySettings.GetAt("ProductOmschrijvingTaal") . Set:(ProduktOmschrijvingTaal="") ProduktOmschrijvingTaal = Taal . Do ..GeefOmschrijvingArrayVoorAlleTalen(PRNr,ProduktOmschrijvingTaal,.arTxt) . If $G(KLNr)=$$$KlantGroupNivelles Do ; Toevoegen van gewicht en intrastat . . Set Gewicht=$$$PRGet($$$Gewicht) . . Set GewichtFmt=$TR($J(Gewicht/1000,0,3),".",",") . . Set IntrastatID=$$$PRGet($$$Statistieknummer) . . Set IntrastatCode=$P($G(^INTRAST(2,IntrastatID_" ")),"\") . . Set arTxt($I(arTxt))="Intrastat: "_IntrastatCode_$S(Gewicht>0:" - "_GewichtFmt_"kg",1:"") . Set:($$$TestPrijsLijst)&&($IsObject(..ImageUrl)) arTxt($I(arTxt))=##class(%File).GetFilename($ZCVT(..ImageUrl.Content,"I","URL")) . Set ..TEKST=##class(BL.FOP.Basis.pxTekstBlok).CreateFromArray(.arTxt) If Basis="F" { If ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(PRNr) { // Niet voor verwijderde producten (^KPRO) Do ..ZetIntrastatGoederenCode(PRNr,KLNr,Taal) } } Quit GetStatusNieuw(StatusNieuw,IsMaatwerk) Quit:(IsMaatwerk)||($G(KLNr)="") "" Quit:(StatusNieuw=-1) $S($$RecentGekocht^STAT(KLNr,PRNr):"N", 1:"") Quit $S(+StatusNieuw>0:"N", 1:"") GetStatusIcon(StatusNieuw,IsMaatwerk) Quit:(Basis'?1(1"L",1"O",1"A",1"F")) "" Quit:(IsMaatwerk) $S(($G(OutputAction)?1(1"PRINT",1"FAX")):"MZ", 1 :"M") Quit:(StatusNieuw="N") $S(($G(OutputAction)?1(1"PRINT",1"FAX")):"NZ", 1 :"N") Quit "" ]]> 1 ProductID:%String,KlantID:DOM.VKP.VanHoeckeKlantID,Taal:%String 1 ProductID:%String,Taal:%String 1 Rec:%String,Taal:%String,Optie:%String ProductID:%String APPS.EC.enu.ProductType