PVRoyalCrown #include Prod.Product PrijsLijstBeslag New Sort,NoSa,Separ,LimLEVNr,PRNr,OmsN,OmsF,Prijs,BarCode,StockType,LevTrm,MinBH,DocLinkN,DocLinkF,lbVerpak,GO,IdentNr,KortTekst Set KLNr=8197 Set NoSa="N" Set Separ=">CR<" Set LimLEVNr=5005 Set PRNr=0 For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do . Quit:'$$CheckProd(KLNr,PRNr) . If LimLEVNr Quit:'$D(^KPR(PRNr,"J"_LimLEVNr)) . Set Sort($$SORTKEY^PRODUKT(PRNr))=PRNr Set Dev=$$OPEN^vhDEV(,"RoyalCrownBeslag.txt","W") ;Set Dev=0 Use Dev Write $TR("Identnr;ProductNaam;StockType;Barcode;OmsN;OmsF;Prijs;GO;Verpak1;Verpak2;LevTrm;BestelH;HG;HGOmsN;HGOmsF;DocLinkN;DocLinkF",";",$C(9)),! Set SortKey="",HG="" For Set SortKey=$O(Sort(SortKey)) Quit:SortKey="" Do . Set PRNr=Sort(SortKey) . Set OmsN=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"N",Separ,1) ; met kleur . Set OmsF=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"F",Separ,1) . Set KortTekst=$$$PRGet($$$KortTekst) . Set IdentNr=$$$PRGet($$$IdentNummer) . Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr,NoSa) . Set GO=$S($P(Prijs,D,3)="H":"%",1:"") . Set Prijs=$P(Prijs,D,1) . Set Barcode=$$$PRGet($$$BarcodeWaarde) . Set StockType=$S($$$PRGet($$$StockType):"S",1:"N") . Set lbVerpak=$$lbVerpak^PRODUKT(PRNr) . If StockType="N" Do . . Set LevTrm=$$$PRGet($$$LeveringsTermijn)+1 . . Set MinBH=$$$PRGet($$$MinimumBestelHoeveelheid) . Else Do . . Set LevTrm="" . . Set MinBH="" . Set DocLinkN=##class(Prod.Product).DocLink(PRNr,"N") . Set DocLinkF=##class(Prod.Product).DocLink(PRNr,"F") . Set SKKey=$$$PRGet($$$KlassificatieKey) . Set KRec=^KLAS("K",SKKey) . Set HG=$P(KRec,D,5) . Set HGOms=$G(^KPHG1($E(100+$P(KRec,D,2),2,3)_$P(KRec,D,5)_" ")) . . Write IdentNr,*9,KortTekst,*9,StockType,*9,Barcode,*9,OmsN,*9,OmsF . Write *9,$TR(Prijs,".",","),*9,GO . Write *9,$LG(lbVerpak,1),*9,$LG(lbVerpak,2),*9,LevTrm,*9,MinBH . Write *9,HG,*9,$P(HGOms,D,1),*9,$P(HGOms,D,2) . Write *9,DocLinkN,*9,DocLinkF . Write ! Close:"0"'[Dev Dev Quit CheckProd(KLNr,PRNr) New Kort,IdentNr,SKKey,KRec,HKKey,GKKey,GenPRNr Quit:$$$PRGet($$$NONAktief) 0 ; Non aktief Set Rec=$G(^KSTPR(PRNr,0,0)) Quit:$P(Rec,D,8) 0 ; Niet opnemen in alle prijslijsten Set Rec=$G(^KSTKL(KLNr,PRNr,0)) Quit:$P(Rec,D,8) 0 ; Niet opnemen in prijslijst Quit:'$$$PRGet($$$StockType) 0 ; Alleen stockproducten Set KortT=$$$PRGet($$$KortTekst) Quit:KortT?.E1"*"4.5N1"*".E 0 ; SOPR Set IdentNr=$$$PRGet($$$IdentNummer) Quit:$E(IdentNr)=6 0 ; Kindprod Quit:$E(IdentNr)=7 0 ; DO Quit:$E(IdentNr)=8 0 ; klantgebonden Set SKKey=$$$PRGet($$$KlassificatieKey) Set KRec=^KLAS("K",SKKey) Quit:($P(KRec,D,5)="BX")&&($P(KRec,D,6)="ACC")&&($P(KRec,D,7)="ORG/BL") 0 Quit:'$P(KRec,D,12) 0 ; Niet tonen Set HKKey=$P(KRec,D,8) Set GKKey=$P(KRec,D,9) Quit:'$P(^KLAS("K",HKKey),D,12) 0 ; Niet tonen Quit:'$P(^KLAS("K",GKKey),D,12) 0 ; Niet tonen Set GenPRNr=$$$PRGet($$$GenProduct) ; Geen afgeleide Quit:GenPRNr'="" 0 Quit:PRNr=128173 0 ; 558.5001 EP LI Quit:PRNr=128175 0 ; 558.5001 EP RE Quit 1 ORGALUXPRIJS ; laten draaien in ADMIN1 s Q="K" s D="\",U=";" Set Dev=0 Set Dev="\\notes01\shared\P V\rcprijs.txt" o Dev:("WSN") use Dev &sql(DECLARE cProductPrijs CURSOR FOR SELECT ID,KortTekst INTO :PRNr,:KortTekst FROM Prod.Product WHERE KortTekst %startswith "OL" ) &sql(OPEN cProductPrijs) For &sql(FETCH cProductPrijs) Quit:(SQLCODE '= 0) Do . . Set PrijsRec=$$KLANTPR^KPRIJS(8197,PRNr) ; 8197=Royal Crown . Write PRNr,*9,KortTekst,*9,$tr($P(PrijsRec,D),".",","),*9,$P(PrijsRec,D,3),! &sql(CLOSE cProductPrijs) Close:Dev[0 Dev Quit ORGALUX ; laten uitvoeren in HALUX Set D="\" Set Dev=0 Set Dev="\\notes01\shared\P V\rc.html" o Dev:("WSN") use Dev &sql(DECLARE cProduct CURSOR FOR SELECT ID INTO :PRNr FROM Prod.Product WHERE KortTekst %startswith "OL" ) &sql(OPEN cProduct) Write "" Write "" Write "" Write "" Write "" For &sql(FETCH cProduct) Quit:(SQLCODE '= 0) Do . . Do OLKENMERK(PRNr) . &sql(CLOSE cProduct) Write "
" Write "PRNrIdentNrKortTekstOmschrijvingHoofdGrpGroepKleurFotoGrootFotoKleinCorpusBreedteWandDikteLadeDiepteVereistenGoedOmWeten
" Write "" Write "" Close:Dev[0 Dev Q OLKENMERK(PRNr) Set oProduct=##class(Prod.Product).%OpenId(PRNr) Set GroepID="OL" Set Taal="N" Set Type=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"ProductType","K","1",";") Quit:$LG(Type)="" Set SubType=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"SubType","K","1",";") Set Oms=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"Sleutel","O","1",";") Set FotoK=##class(cspBasis.ProductList).DataDefValueURL(Taal,GroepID,PRNr,"InfoSleutel","LI") Set FotoG=##class(cspBasis.ProductList).DataDefValueURL(Taal,GroepID,PRNr,"InfoSleutel","LB") Set Kleur=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"Kleur","K","*",";") Set Breedte=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"Breedte","K","*",";") Set WandDikte=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"WandDikte","K","*",";") Set Diepte=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"Diepte","K","*",";") Set Vereisten=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"Vereist","K","*",";") Set GoedOmWeten=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"BOWeten","K","*",";") ;Set DynSpace=##class(cspBasis.ProductList).DataDefValueList(Taal,GroepID,PRNr,"DynSpace","K","*",";") Set FotoK=$P(FotoK,"/",$L(FotoK,"/")) Set FotoG=$P(FotoG,"/",$L(FotoG,"/")) Write "" Write "",PRNr,"","",oProduct.IdentNummer,"","",oProduct.KortTekst,"" Write "",$LG(Oms),"" Write "",$LG(Type),"","",$LG(SubType),"","",$LG(Kleur),"" Write "",FotoK,"","",FotoG,"" Write "",$LG(Breedte),"","",$LG(WandDikte),"" Write "",$LG(Diepte),"","",$LG(Vereisten),"","",$LG(GoedOmWeten),"" Write "" Quit