Quit
	
	; Plaatsen van de AUTO pinning voor de E24 producten afhankelijk van de IC>=4
PinE24
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set IDNr=$P(^KPR(PRNr,2),D,25)
	. Set KortT=$P(^KPR(PRNr,0),D,1)
	. Quit:'$D(^KPR(PRNr,"J5005"))
	. Quit:KortT["*DO*"
	. Quit:KortT["*KP*"
	. ;use 0 write PRNr," "
	. Set BLID=0_$TR($E(IDNr,2,99),".","")
	. Set BLRec=$G(^BLProd("D",BLID))
	. Set IC=$P(BLRec,D,2)
	. Quit:IC=""
	. If IC<4 Quit ; E12 = Default
	. ; Pinning aanmaken
	. Quit:$D(^PRPUTZ("N",PRNr))  ; Reeds gepinned
	. Set ^PRPUTZ("N",PRNr,4682,0)="271250\E24"
	. Set ^PRPUTZ("IN",4682,PRNr)="E24"
	Quit
	
	; Verwijder alle automatisch geplaatste pinnings PIN = gemarkeerde met "AUTO" 
RemovePinE24
	Set PRNr=""
	For  Set PRNr=$O(^PRPUTZ("IN",4682,PRNr)) Quit:PRNr=""  Do
	. If ^PRPUTZ("IN",4682,PRNr)="E24" Do
	..  Kill ^PRPUTZ("N",PRNr,4682,0)
	..  Kill ^PRPUTZ("IN",4682,PRNr)
	Quit
 
	;Verwijder alle pinning als de Externe specificatie niet meer bestaat
RemoveNonExistPin
	Set (PRNr,KLNr)=""
	For  Set PRNr=$O(^PRPUTZ("N",PRNr)) Quit:PRNr=""  Do
	. For  Set KLNr=$O(^PRPUTZ("N",PRNr,KLNr)) Quit:KLNr=""  Do
	..  Set BLKLNr=$P(^PRPUTZ("N",PRNr,KLNr,0),D)
	..  If '$D(^KPR(PRNr)) Do  Quit  ; product bestaat niet meer
 	...   Kill ^PRPUTZ("N",PRNr,KLNr,0)
	...   Kill ^PRPUTZ("IN",KLNr,PRNr)
	..  Quit:BLKLNr="044260" ; BKK directklant
	..  Quit:BLKLNr="452250" ; Meubar directklant
	..  Set IDNr=$P(^KPR(PRNr,2),D,25)
	..  Set KortT=$P(^KPR(PRNr,0),D,1)
	..  Quit:'$D(^KPR(PRNr,"J5005")) ; Geen BLUM product
	..  Quit:KortT["*DO*" ; Geen direct producten
	..  Set BLID=0_$TR($E(IDNr,2,99),".","")
	..  If '$D(^BLProd("RP",BLKLNr,BLID)) Do  ; Externe specificatie bestaat niet
	...   Write "Verwijderd ",KortT," ",KLNr,!
	...   Kill ^PRPUTZ("N",PRNr,KLNr,0)
	...   Kill ^PRPUTZ("IN",KLNr,PRNr)
	Quit
	
	; Plaatsen van de pinning voor product in de externe specificatie
PinES
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set IDNr=$P(^KPR(PRNr,2),D,25)
	. Set KortT=$P(^KPR(PRNr,0),D,1)
	. Quit:'$D(^KPR(PRNr,"J5005"))
	. Quit:KortT["*KP*"
	. Set KLNr=$P(KortT,"*",2)
	. Quit:(KLNr'?4.5N)&&(KLNr'="DO")
	. Quit:'$D(^KK1(KLNr)) ; Klantnr bestaat niet
	. Quit:$D(^PRPUTZ("N",PRNr,KLNr))  ; Reeds gepinned	
	. ; Opzoeken BLUM klantnr
	. If KLNr="DO"  Set BLKLNr="044260"
	. Else  Do
	..   Set BLKLNr=""
	..  For  Set BLKLNr=$O(^BLBeri("K",BLKLNr)) Quit:BLKLNr=""  Quit:$P(^BLBeri("K",BLKLNr),D,3)=KLNr
	. Quit:BLKLNr=""
	. Set BLID=0_$TR($E(IDNr,2,99),".","")
	. Set BLRec=$G(^BLProd("D",BLID))
	. Write:'$D(^BLProd("RP",BLKLNr,BLID)) "GEEN EXTERNE ",KortT," ",KLNr," ",BLKLNr,!
	. Quit:'$D(^BLProd("RP",BLKLNr,BLID)) ; Er bestaat geen externe specificatie
	. Write "PIN ",KortT," ",KLNr," ",BLKLNr,!
	. Set ^PRPUTZ("N",PRNr,KLNr,0)=BLKLNr_D_"ES"
	. Set ^PRPUTZ("IN",KLNr,PRNr)="ES"
	Quit
	
	
Lijst(ELijst)   ; aanpassen van een rubriek van een product
	Set:'$G(ELijst) ELijst=12
	Set:ELijst=12 BLKLNr=212250 ; E12
	Set:ELijst=24 BLKLNr=212250 ; E24
	Set File=0
	Set File=$$OPEN^vhDEV("\\notes01\shared\p v","BLUME"_ELijst_"x.txt","W")
	Use File
	Kill Cnt
	Write $TR("SortKey;HG;GR;SG;IdentNr;KortTekst;Aantal;HPPL;HKrt;HGO;HOmzet;IC;E12PPL;E12Krt;E12GO;E12Omzet;E12Mark",";",$C(9)),!
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set IDNr=$P(^KPR(PRNr,2),D,25)
	. Set KortT=$P(^KPR(PRNr,0),D,1)
	. Quit:'$D(^KPR(PRNr,"J5005"))
	. Quit:KortT["*DO*"
	. Quit:KortT["*KP*"
	. ;use 0 write PRNr," "
	. Set BLID=0_$TR($E(IDNr,2,99),".","")
	. Set BLRec=$G(^BLProd("D",BLID))
	. Set IC=$P(BLRec,D,2)
	. Set:IC="" IC="*"
	. Set RecI=$O(^KPR(PRNr,"I"))
	. Set RecI=^KPR(PRNr,RecI)
	. Set BPrijs=$$BLPRIJS^Blum.RaadplegenProduct(PRNr,BLKLNr)
 	. ;Set Stat=$$PROD^STAT(PRNr,0,"2003.04 ","2004.03",1)
 	. Set Stat=$P($G(^AKANAL(PRNr)),D,1)
    . Set BVPA=$J($P(BPrijs,D,1),0,2)
    . Set BKrt=$J($P(BPrijs,D,3)*100,0,2)
    . Set BGO=$P(BPrijs,D,2)
    . Set BMark=""
    . Set RecJ=^KPR(PRNr,"J5005")
	. Set HVPA=$P(RecJ,D,19)
	. Set HKrt=$P(RecJ,D,9)
	. Set HGO=$P(RecJ,D,28)
	. If 'BVPA,'BKrt Set BVPA=HVPA,BKrt=HKrt,BGO=HGO,BMark=1
    . Set BOmzet=BVPA*(1-(BKrt/100))/$S(BGO="M":1000,BGO="H":100,1:1)*Stat
    . Set HOmzet=HVPA*(1-(HKrt/100))/$S(HGO="M":1000,HGO="H":100,1:1)*Stat
	. Use File
	. Write $$SORTKEY^PRODUKT(PRNr)
	. Write *9,$P(RecI,D,1),*9,$P(RecI,D,2),*9,$P(RecI,D,3)
	. Write *9,IDNr
	. Write *9,KortT
	. Write *9,$TR(Stat,".",",")
	. Write *9,$TR(HVPA,".",","),*9,$TR(HKrt,".",","),*9,HGO,*9,$TR(HOmzet,".",",")
	. Write *9,IC
	. Write *9,$TR(BVPA,".",","),*9,$TR(BKrt,".",","),*9,BGO,*9,$TR(BOmzet,".",","),*9,BMark
	. Write !
	Close:0'[File File
	Q