PVAfdekkapen
#include Prod.Product
 
 
Blum
	New AfdekLookup
	Set LEVNr=5005
	
	Do:'$D(AfdekLookup) BldBlumAfdekLookup(.AfdekLookup)
	Write "Codes",!
	Write "S : 1 standard kleur",!
	Write "X : 1 bijzondere kleur",!
	Write "2 : 2 kleuren",!
	Write "3 : 3 kleuren",!
	Write "4 : 4 kleuren",!
	Write "P : Persmal",!
	Write "NON : Nonactief !",!
	Set Key=0
	For  Set Key=$O(^KPR1(Key)) Quit:Key=""  Do
	. ; Controle bedrukte afdekkappen
	. Set PRNr=$P(^KPR1(Key),D)
	. Quit:'$d(^KPR(PRNr,"J"_LEVNr))
	. Set FullKT=$$$PRGet($$$KortTekst)
	. Set AfdekKT=$E(FullKT,1,8)
	. Quit:'$D(AfdekLookup(AfdekKT))
	. Write !!,PRNr," ",FullKT
	. Set Kleur=""
	. For  Set Kleur=$O(AfdekLookup(AfdekKT,Kleur)) Quit:Kleur=""  Do
	. . Set KleurKT=$E(FullKT,25-$L(Kleur)+1,25)
	. . Quit:KleurKT'=Kleur
	. . Set lbPrijsNew=$LG(AfdekLookup(AfdekKT,Kleur),2)
	. . Set lbPrijsOld=$LG(AfdekLookup(AfdekKT,Kleur),1)
	. . Set KleurCode=$E(FullKT,20,21)
	. . Set KleurPos=""
	. . Set:KleurCode="1F" KleurPos=3
	. . Set:KleurCode="2F" KleurPos=4
	. . Set:KleurCode="3F" KleurPos=5
	. . Set PPL=$$$PRGet($$$PPLMTL)
	. . ;w $$LCVT^vhLib(lbPrijsOld)
	. . If KleurPos="" Do
	. . . For I=1:1:$LL(lbPrijsOld) Do  Quit:KleurPos
	. . . . Set:+PPL=+$LG(lbPrijsOld,I) KleurPos=I
	. . Set:KleurPos="" KleurPos=2
	. . Set NewPPL=$S(KleurPos:$LI(lbPrijsNew,KleurPos),1:"")
	. . Write " ",KleurCode,"->",$E(" SX234P",KleurPos),*9,PPL,*9,NewPPL
	. . Write !,"Kleurcode SX234P[], -[]= SKIP, [] = uitvoeren zoals ingesteld"
	. . Read K
	. . Quit:K="-"
	. . If $zcvt(K,"U")="NON" Do  Quit
	. . . Do $$$PRSet($$$NONAktief,1)
	. . If K'="" Set KleurPos=$F("SX234P",$ZCVT(K,"U"))
	. . If 'KleurPos Do
	. . . Write "SKIPPED"
	. . Else  Do
	. . . Set NewPPL=$S(KleurPos:$LI(lbPrijsNew,KleurPos),1:"")
	. . . Do $$$PRSet($$$SchaduwPPL,NewPPL)
	. . . Do $$$PRSet($$$SchaduwKortingPerc,45.80)
	. . . Write " SET "_NewPPL
	Quit
 
 
BldBlumAfdekLookup(Afdk)
	;Record structure : $LB(OudePrijzen, NieuwePrijzen)
	;waar elke prijslist opgebouwd is als volgt $LB( Onbedrukt, 1 std kleur, 1 niet std kleur, 2 kleuren, 3 kleuren, 4 kleuren)
	Set Afdk(" 70.1503","NI")=$LB($LB(6.89,11.61,15.2,20.19,27.33,34.49),$LB(6.6,11.11,14.7,19.69,26.83,33.99))
	Set Afdk(" 70.1513","NI")=$LB($LB(6.89,11.61,15.2,20.19,27.33,34.49),$LB(6.6,11.11,14.7,19.69,26.83,33.99))
	Set Afdk(" 70.1563","NI")=$LB($LB(6.89,11.61,15.2,20.19,27.33,34.49),$LB(6.6,11.11,14.7,19.69,26.83,33.99))
	Set Afdk(" 70.1663","NI")=$LB($LB(8.43,13.15,16.74,21.74,28,87,36.03),$LB(8.06,12.6,16.18,21.18,28.31,35.47))
	Set Afdk(" 90M2503","NI")=$LB($LB(4.55,9.35,12.94,17.94,25.07,32.23),$LB(4.36,8.95,12.54,17.53,24.67,31.83))
	Set Afdk(" 90M2603","NI")=$LB($LB(6.17,10.9,14.49,19.48,26.62,33.77),$LB(5.9,10.43,14.02,19.02,26.15,33.31))
	Set Afdk(" 94M3603","NI")=$LB($LB(9.18,10.9,14.49,19.48,26.62,33.77),$LB(5.9,10.43,14.02,19.02,26.15,33.31))
	Set Afdk(" 80.6507","NI")=$LB($LB(6.17,10.9,14.49,19.48,26.62,33.77),$LB(5.9,10.43,14.02,19.02,26.15,33.31))
	Quit
	
DeBetho
	New AfdekLookup
	Set LEVNr=5529
	
	Do:'$D(AfdekLookup) BldDeBethoAfdekLookup(.AfdekLookup)
	Write "Codes",!
	Write "S : 1 standard kleur",!
	Write "2 : 2 kleuren",!
	Write "3 : 3 kleuren",!
	Write "4 : 4 kleuren",!
	Write "P : Persmal",!
	Write "NON : Nonactief !",!
	Set Key=0
	Set MemAfdekKT=""
	For  Set Key=$O(^KPR1(Key)) Quit:Key=""  Do
	. ; Controle bedrukte afdekkappen
	. Set PRNr=$P(^KPR1(Key),D)
	. Quit:'$d(^KPR(PRNr,"J"_LEVNr))
	. Set FullKT=$$$PRGet($$$KortTekst)
	. Set AfdekKT=$E(FullKT,1,8)
	. Quit:'$D(AfdekLookup(AfdekKT))
	. If AfdekKT'=MemAfdekKT Do
	. . Write !,"*************************"
	. . Write !,"***  ",AfdekKT
	. . Write !,"*************************"
	. . Set MemAfdekKT=AfdekKT
	. Write !!,PRNr," ",FullKT
	. Set Kleur=""
	. For  Set Kleur=$O(AfdekLookup(AfdekKT,Kleur)) Quit:Kleur=""  Do
	. . Set KleurKT=$E(FullKT,25-$L(Kleur)+1,25)
	. . Quit:KleurKT'=Kleur
	. . Set lbPrijsNew=$LG(AfdekLookup(AfdekKT,Kleur),2)
	. . Set lbPrijsOld=$LG(AfdekLookup(AfdekKT,Kleur),1)
	. . Set KleurCode=$E(FullKT,20,21)
	. . Set KleurPos=""
	. . ;Set:KleurCode="1F" KleurPos=3
	. . ;Set:KleurCode="2F" KleurPos=4
	. . ;Set:KleurCode="3F" KleurPos=5
	. . Set PPL=$$$PRGet($$$PPLMTL)
	. . ;w $$LCVT^vhLib(lbPrijsOld)
	. . If KleurPos="" Do
	. . . For I=1:1:$LL(lbPrijsOld) Do  Quit:KleurPos
	. . . . Set:+PPL=+$LG(lbPrijsOld,I) KleurPos=I
	. . Set NotFound=0
	. . Set:KleurPos="" KleurPos=2,NotFound=1
	. . Set IsBlanko=FullKT'?1.E1"*"4.5N1"*"1.E
	. . Set NewPPL=$S(KleurPos:$LI(lbPrijsNew,KleurPos),1:"")
	. . Write " ",KleurCode,"->",$E(" 12",KleurPos),*9,PPL,*9,NewPPL
	. . Write:NotFound " NIET GEVONDEN"
	. . Write:IsBlanko !," *** BLANKO ***"
	. . Write !,"Kleurcode 12[], -[]= SKIP, [] = uitvoeren zoals ingesteld"
	. . Read K
	. . Quit:K="-"
	. . If $zcvt(K,"U")="NON" Do  Quit
	. . . Do $$$PRSet($$$NONAktief,1)
	. . If K'="" Set KleurPos=$F("1 2",$ZCVT(K,"U"))
	. . If 'KleurPos Do
	. . . Write "SKIPPED"
	. . Else  Do
	. . . Set NewPPL=$S(KleurPos:$LI(lbPrijsNew,KleurPos),1:"")
	. . . Do $$$PRSet($$$SchaduwPPL,NewPPL)
	. . . ;Do $$$PRSet($$$SchaduwKortingPerc,45.80)
	. . . Write " SET "_NewPPL
	Quit
 
 
BldDeBethoAfdekLookup(Afdk)
	; Excel formule : ="Set Afdk("""&D7&""","""&E7&""")=$LB($LB(,"&SUBSTITUEREN(F7;",";".")&",,"&SUBSTITUEREN(G7;",";".")&"),$LB(,"&SUBSTITUEREN(H7;",";".")&",,"&SUBSTITUEREN(I7;",";".")&"))"
	;Record structure : $LB(OudePrijzen, NieuwePrijzen)
	;waar elke prijslist opgebouwd is als volgt $LB( Onbedrukt, 1 std kleur, 1 niet std kleur, 2 kleuren, 3 kleuren, 4 kleuren)
	;Set Afdk(" 90D2103","W")=$LB($LB(,34.72,,61.97),$LB(,34.72,,61.97))
	;Set Afdk(" 90D2103","S")=$LB($LB(,34.72,,61.97),$LB(,34.72,,61.97))
	;Set Afdk(" 80D6107","W")=$LB($LB(,39.67,,66.94),$LB(,39.67,,66.94))
	;Set Afdk(" 80D6107","S")=$LB($LB(,49.85,,77.12),$LB(,49.85,,77.12))
	;Set Afdk(" 94D3203","S")=$LB($LB(,63.71,,90.98),$LB(,63.71,,90.98))
	;Set Afdk("ZAAD230N","R737")=$LB($LB(,87.89,,121.72),$LB(,87.89,,121.72))
	;Set Afdk("ZAAD230N","R737")=$LB($LB(,87.89,,121.72),$LB(,87.89,,121.72))
	;Set Afdk("ZAAD330N","R737")=$LB($LB(,110.91,,138.17),$LB(,99.91,,127.17))
	;Set Afdk("ZAAD330N","W")=$LB($LB(,148.38,,174.87),$LB(,138.38,,164.87))
	Set Afdk("ZAAD430C","R737")=$LB($LB(,138.38,,164.87),$LB(,118.38,,144.87))
	Set Afdk("ZAAD430C","S")=$LB($LB(,178.38,,204.87),$LB(,148.38,,174.87))
	;Set Afdk("ZAAD532C","S")=$LB($LB(,148.38,,174.87),$LB(,148.38,,174.87))
	;Set Afdk("ZAAD532C","R737")=$LB($LB(,138.38,,164.87),$LB(,138.38,,164.87))
	;Set Afdk("ZAAD532C","SEIW")=$LB($LB(,138.38,164.87),$LB(,138.38,164.87))
	;Set Afdk("ZAAD532C","KU")=$LB($LB(,138.38,164.87),$LB(,138.38,164.87))
	;Set Afdk("ZAAD5329","IN-G")=$LB($LB(,178.38,,204.87),$LB(,178.38,,204.87))
	;Set Afdk(" 70D1503","NI")=$LB($LB(,83.13),$LB(,81.33))
	;Set Afdk(" 70D1504","NI")=$LB($LB(,105.06),$LB(,105.06))
	;Set Afdk(" 70D1663","NI")=$LB($LB(,85.8),$LB(,83.9))
	;Set Afdk(" 90D2503","NI")=$LB($LB(,68.7),$LB(,67.5))
	;Set Afdk(" 90D3603","NI")=$LB($LB(,72.01),$LB(,72.01))
	;Set Afdk(" 80D6507","NI")=$LB($LB(,95.31),$LB(,92.81))
	Quit