PRBSOL ;Product bouwstenen ORGALUX[ 12/16/2003 1:44 PM
Do TRANSFER(11708)
Q
TRANSFERXML(KLNr,Diepte,WDikte,Kleur,NoSa)
If '$G(KLNr) Set KLNr=$$SELECT^KLANT6()
Quit:'KLNr
Set PRNr=0
K Sort
For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do
. Set KT=$P(^KPR(PRNr,0),D)
. Quit:'##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsOrgaluxProduct(PRNR)
. Quit:'$D(^PRBS("BS",PRNr))
. If $G(Diepte) Do Quit:Flunk
.. Set Flunk=0
.. Set:$E(KT,3,4)?2N&($E(KT,3,4)'=Diepte) Flunk=1
.. Set:$E(KT,1,2)="VL" Flunk=0
. If $G(WDikte) Do Quit:Flunk
.. Set Flunk=0
.. Set:(($E(KT,7,8)=16)!($E(KT,7,8)=18))&($E(KT,3,4)'=WDikte) Flunk=1
. Set KT=$E(KT,4,11)
. For Quit:$E(KT,$L(KT))'=" " S $E(KT,$L(KT))="" ; Achterste spaties wissen
. Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr,.NoSa)
. Set Klant=$P(Prijs,D)
. Set Dealer=$P($$PROD^KPRIJS(PRNr,"S","","EUR","","",NoSa),D,1) ; Dealer prijs is SPIL !
. Set BPrijs=$J(Dealer*2*1.21,0,2)
. Set NLPrijs=$J(Dealer*2*1.19,0,2)
. // [??]
. zn "HALUX"
. Set GrpURL=$$OLFoto^PV(PRNr)
. zn "ADMIN1"
. Quit:GrpURL=""
. Set HGrp=$LI(GrpURL)
. Set Grp=$LI(GrpURL,2)
. Set URL=$LI(GrpURL,3)
. Set Txt=$LI(GrpURL,4)
. Set Sort(HGrp,Grp,KT)=$LB(KT,BPrijs,URL)
. ;Set Sort(HGrp,Grp)=Txt
Set Dev=0
Set Dev=$$OPEN^vhDEV(,"OL Prijslijst.xml","W")
Use Dev
W "",!
W "",!
Set HGrp="",Grp="",KT=""
For Set HGrp=$O(Sort(HGrp)) Quit:HGrp="" Do
. For Set Grp=$O(Sort(HGrp,Grp)) Quit:Grp="" Do
. . Write " Type - SubType" ;,Sort(HGrp,Grp)
. . For Set KT=$O(Sort(HGrp,Grp,KT)) Quit:KT="" Do
. . . W ""
. . . Write "",$LI(Sort(HGrp,Grp,KT)),""
. . . Write "",$TR($LI(Sort(HGrp,Grp,KT),2),".",","),""
. . . Set URL=$LI(Sort(HGrp,Grp,KT),3)
. . . Write "",URL,""
. . . w "",!
. . Write "",!
W ""
Close:Dev'=0 Dev
Quit
TRANSFERFoto(KLNr,Diepte,WDikte,Kleur,NoSa)
If '$G(KLNr) Set KLNr=$$SELECT^KLANT6()
Quit:'KLNr
Set PRNr=0
For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do
. Set KT=$P(^KPR(PRNr,0),D)
. Quit:'##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsOrgaluxProduct(PRNR)
. Quit:'$D(^PRBS("BS",PRNr))
. If $G(Diepte) Do Quit:Flunk
.. Set Flunk=0
.. Set:$E(KT,3,4)?2N&($E(KT,3,4)'=Diepte) Flunk=1
.. Set:$E(KT,1,2)="VL" Flunk=0
. If $G(WDikte) Do Quit:Flunk
.. Set Flunk=0
.. Set:(($E(KT,7,8)=16)!($E(KT,7,8)=18))&($E(KT,3,4)'=WDikte) Flunk=1
. Set KT=$E(KT,4,11)
. For Quit:$E(KT,$L(KT))'=" " S $E(KT,$L(KT))="" ; Achterste spaties wissen
. Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr,.NoSa)
. Set Klant=$P(Prijs,D)
. Set Dealer=$P($$PROD^KPRIJS(PRNr,"S","","EUR","","",NoSa),D,1) ; Dealer prijs is SPIL !
. Set BPrijs=$J(Dealer*2*1.21,0,2)
. Set NLPrijs=$J(Dealer*2*1.19,0,2)
. // [??]
. zn "HALUX"
. Set GrpURL=$$OLFoto^PV(PRNr)
. zn "ADMIN1"
. Quit:GrpURL=""
. Set HGrp=$LI(GrpURL)
. Set Grp=$LI(GrpURL,2)
. Set URL=$LI(GrpURL,3)
. Set Txt=$LI(GrpURL,4)
. Set Sort(HGrp,Grp,KT)=$LI(KT,BPrijs,URL)
. Set Sort(HGrp,Grp)=Txt
Set Dev=0
;Set Dev=$$OPEN^vhDEV(,"OL Prijslijst.HTML","W")
Use Dev
W ""
W ""
W "
"
Set HGrp="",Grp="",KT=""
For Set HGrp=$O(Sort(HGrp)) Quit:HGrp="" Do
. For Set Grp=$O(Sort(HGrp,Grp)) Quit:Grp="" Do
. . Write "
"
. . Write "
",Sort(HGrp,Grp),"
"
. . Write "
"
. . For Set KT=$O(Sort(HGrp,Grp,KT)) Quit:KT="" Do
. . . Write "
"
W ""
W ""
Close:Dev'=0 Dev
Quit
OLFoto(PRNr)
Set URL=##class(cspBasis.ProductList).DataDefValueURL("N","OL",PRNr,"InfoSleutel","LB")
Set GrpTxt="" ;##class(cspBasis.ProductList).DataDefValue("N","OL",PRNr,"SubType","K")
Set Grp="1" ;##class(cspBasis.ProductList).DataDefValue("N","OL",PRNr,"ProductType","K")
Set HGrp="1" ;##class(cspBasis.ProductList).DataDefValue("N","OL",PRNr,"SubType","K")
Quit:URL="" ""
;w URL
Set $P(URL,"/",1,3)="http://www.orgalux.be/ProdCat"
Quit $LB(HGrp,Grp,URL,GrpTxt)
TRANSFER(KLNr,Diepte,WDikte,Kleur,NoSa)
If '$G(KLNr) Set KLNr=$$SELECT^KLANT6()
Quit:'KLNr
Set Dev=0
Set Dev=$$OPEN^vhDEV(,"OL PRIJSLIJST.TXT","W")
Use Dev
Set PRNr=0
Write $TR("PRNr,Product;Klant;Dealer;Cons B;Cons NL",";",$C(9)),!
For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do
. Set KT=$P(^KPR(PRNr,0),D)
. Quit:'##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().IsOrgaluxProduct(PRNR)
. Quit:'$D(^PRBS("BS",PRNr))
. If $G(Diepte) Do Quit:Flunk
.. Set Flunk=0
.. Set:$E(KT,3,4)?2N&($E(KT,3,4)'=Diepte) Flunk=1
.. Set:$E(KT,1,2)="VL" Flunk=0
. If $G(WDikte) Do Quit:Flunk
.. Set Flunk=0
.. Set:(($E(KT,7,8)=16)!($E(KT,7,8)=18))&($E(KT,3,4)'=WDikte) Flunk=1
. Set KT=$E(KT,4,11)
. For Quit:$E(KT,$L(KT))'=" " S $E(KT,$L(KT))="" ; Achterste spaties wissen
. Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr,.NoSa)
. Set Klant=$P(Prijs,D)
. Set Dealer=$P($$PROD^KPRIJS(PRNr,"S","","EUR","","",NoSa),D,1) ; Dealer prijs is SPIL !
. Set BPrijs=$J(Dealer*2*1.21,0,2)
. Set NLPrijs=$J(Dealer*2*1.19,0,2)
. Write PRNr,*9,KT,*9,$TR(Klant,".",","),*9,$TR(Dealer,".",","),*9,$TR(BPrijs,".",","),*9,$TR(NLPrijs,".",","),!
Close:Dev'=0 Dev
Quit
SK ; K naar S en P naar K
Set PRNr=""
For Set PRNr=$O(^PRBS("BS",PRNr)) Quit:PRNr="" Do
.Set BSCode=""
.Quit:$P($$GENTYP^HAD(PRNr),D,1,2)'="DIV\GRP"
.Set Found=0
.Kill ^PRBS("BS",PRNr,"KOST.001")
.For Set BSCode=$O(^PRBS("BS",PRNr,BSCode)) Quit:BSCode="" Do
..Set BSRec=^PRBS("BS",PRNr,BSCode)
..Set BSTyp=$P(BSRec,D,3)
..Set:BSTyp="S" Found=1
.Set Kost1=$P($G(^KPR(PRNr,"G")),D,11)
.Set Tijd=$P($G(^KPR(PRNr,"G")),D,16)
.Write !,PRNr," ",$P(^KPR(PRNr,0),D,1)," ",Kost1," ",$S(Found:"Gevonden",1:"")
.Quit:Found
.Quit:'Kost1
.Do CALC^PRBS(PRNr,.Som)
.;zw Som
.Set PPL=$P(^KPR(PRNr,"J6332"),D,19)
.Set Kost2=PPL-Som("H")
.Set Kost=$S(Kost2<0:Kost1,Kost2",Kost
.; Write "Doorvoeren:" R K
.;Quit:K'="J"
.Set Rec="\1\S\\\\\\\\\\Verzamelkost\\\\"
.Set $P(Rec,D,4)=Kost
.Set:Tijd $P(Rec,D,17)="Tijd:"_Tijd
.Set ^PRBS("BS",PRNr,"KOST.001")=Rec
Q
OL ; K naar S en P naar K
Set PRNr=""
For Set PRNr=$O(^PRBS("BS",PRNr)) Quit:PRNr="" Do
.Set BSCode=""
.Quit:$P(^PRBS("BS",PRNr),D,2)'="OL"
.Set Key=$O(^KPR(PRNr,"I"))
.Do DELIND^PRODUKT2(PRNr)
.Quit:$E(Key)'="I"
.Set $P(^KPR(PRNr,Key),D,5)=""
.Do BLDIND^PRODUKT2(PRNr)
Q
OLTXT ; K naar S en P naar K
Set PRNr=""
For Set PRNr=$O(^PRBS("BS",PRNr)) Quit:PRNr="" Do
.Set BSCode=""
.Quit:$P(^PRBS("BS",PRNr),D,2)'="OL"
.;Quit:$E($P(^KPR(PRNr,0),D,1),1,5)'="OL.AZ"
.Write $P(^KPR(PRNr,0),D),!
.For Set BSCode=$O(^PRBS("BS",PRNr,BSCode)) Quit:BSCode="" Do
..Set (Old,BSRec)=^(BSCode)
..If $P(BSRec,D,13)="VT" Set $P(BSRec,D,13)="Verpakkingstijd"
..If $P(BSRec,D,13)="vt" Set $P(BSRec,D,13)="Verpakkingstijd"
..If $P(BSRec,D,13)="LK" Set $P(BSRec,D,13)="Luchtkussens"
..If $P(BSRec,D,13)="lk" Set $P(BSRec,D,13)="Luchtkussens"
..If $P(BSRec,D,13)="OV" Set $P(BSRec,D,13)="Toeslag oververpakking"
..If $P(BSRec,D)?4.7N,$E($P(^KPR($P(BSRec,D),0),D),1,4)="VPO." Set $P(BSRec,D,11)="VERPAK"
..Quit:BSRec=Old
..Write Old,!,BSRec,!
..Set ^PRBS("BS",PRNr,BSCode)=BSRec
Q
OLADD ; K naar S en P naar K
Set PRNr=""
For Set PRNr=$O(^PRBS("BS",PRNr)) Quit:PRNr="" Do
.Set BSCode=""
.Quit:$P(^PRBS("BS",PRNr),D,2)'="OL"
.Quit:$E($P(^KPR(PRNr,0),D,1),1,7)'="OL.PLDR"
.Write $P(^KPR(PRNr,0),D),!
.Set Found=0
.For Set BSCode=$O(^PRBS("BS",PRNr,BSCode)) Quit:BSCode="" Do
..;Set BSRec=^(BSCode)
..;If $P(BSRec,D,3)="T" Set Found=1
.Quit:Found
.Set ^PRBS("BS",PRNr,"T.001")="\1\T\\\\30\30\OLVERPAK\\VERPAK\\Verpakkingstijd\\\"
.If $D(^PRBS("BS",PRNr,"P.002")) Do
..Set $P(^PRBS("BS",PRNr,"P.002"),D,2)=1
.Else
..Set ^PRBS("BS",PRNr,"P.002")="68079\1\K\\\\\\\\VERPAK\"
Q
OLSET ; K naar S en P naar K
Set PRNr=""
For Set PRNr=$$SELECT^PRODUKT6() Quit:PRNr'?4.7N Do
.Set BSCode=""
.Quit:$P(^PRBS("BS",PRNr),D,2)'="OL"
.Write $P(^KPR(PRNr,0),D),!
.Set BSRec=^PRBS("BS",PRNr,"T.001")
.Write BSRec,!
.Read Tijd
.Set $P(BSRec,D,7)=Tijd
.Set $P(BSRec,D,8)=Tijd
.Set ^PRBS("BS",PRNr,"T.001")=BSRec
Q