PRODUKT5 ;Produkten [ 03/07/2003  9:10 AM ]
 ;
TELWIJZE 
 New zb,TelWijze
 Set K=$P(B(3),D,11),TelWijze=$$POPUP("TELWIJZE",$S(K="":"Z",1:K))
 Set:zb'="CANC" K=TelWijze
 Quit
 ;
CYCLECNT 
 New zb,CycleCnt
 Set K=$P(B(2),D,2),CycleCnt=$$POPUP("CYCLECOUNT",$S(K="":0,1:K))
 Set:zb'="CANC" K=CycleCnt
 Quit
 ;
SAMPSTAT 
 New zb,SampStat
 Set K=$P(B(3),D,12),SampStat=$$POPUP("SAMPLESTATUS",$S(K="":"E",1:K))
 Set:zb'="CANC" K=SampStat
 Quit
 ;
OPSLAG 
 New zb,Opslag
 Set K=$P(B(3),D,15),Opslag=$$POPUP("OPSLAGZONE",$S(K="":1,1:K))
 Set:zb'="CANC" K=Opslag
 Quit
 ;
STOCKGRP 
 New zb,StockGrp
 Set K=$P(B(2),D,1),StockGrp=$$POPUP("STOCKAGEGRP",$S(K="":1,1:K))
 Set:zb'="CANC" K=StockGrp
 Quit
 ;
ABCKLAS 
 New zb,ABCKlas
 Set K=$P(B(1),D,8),ABCKlas=$$POPUP("ABCKLAS",$S(K="C":1,1:K))
 Set:zb'="CANC" K=ABCKlas
 Quit
 ;
 ; Controle status
QCSTAT 
 New zb,QCStat
 Set K=$P(B(2),D,12) Set:$P(K,";")="" K=$P(K,";",2)
 Set QCStat=$$POPUP("QCSTAT",$S(K="":"BOS",1:K),,"MZ")
 Do:zb'="CANC"
 . Set K=QCStat
 . If $L(K,";")=1,$E(K,2)="P" Set K=";"_K
 Quit
 ;
 ; CB bij controle status - bij selectie van een item -> deactiveren van andere
CBQCSTATS(a,b,c,d)
 Kill:a=3 sX(4),sX(5) Kill:a=4 sX(3),sX(5) Kill:a=5 sX(3),sX(4) Kill:a=7 sX(8) Kill:a=8 sX(7)
 Quit 1
 ;
 ; CB bij controle status - invullen van de saparaterlijn
CBQCSTATA(sY)
 New sRec
 For sY=sY:-1 Quit:'$D(sY(sY))  Set sRec=sY(sY) Quit:$P(sRec,"`")="CO"  Set sY(sY+1)=sRec If $D(sX(sY)) Set sX(sY+1)=sX(sY) Kill sX(sY)
 Set:sY sY(sY+1)="&S"
 Set sY=$o(sY(""),-1)
 Quit
 ;
WVHBRND 
 New zb,WVHbRnd
 Set K=$P(B(16),D,6),WVHbRnd=$$POPUP("HFWVHBROUND",$S(K="":"S",1:K),,"Z")
 Set:zb'="CANC" K=WVHbRnd
 Quit
 ;
WVEENH 
 New zb,WVEenh,Metatag
 Set K=$P(B(16),D,9),WVEenh=$$POPUP("HFWVEENH",$S(K="":"ST",1:K))
 Do:zb'="CANC"
 .Set Metatag=$P($G(^RES("PRODUKT","PI","HFWVEENH","D",WVEenh)),"`",3)
 .Set $P(B(16),D,10)=Metatag,K=WVEenh Set:K="ST" K=""
 Quit
 ;
WVDMAG 
 New zb,WVDMag
 Set K=$P(B(16),D,11),WVDMag=$$POPUP("HFWVDEFMAG",$S(K="":"M",1:K))
 If zb'="CANC" Set K=WVDMag Set:K="M" K=""
 Quit
 ;
WVSMAG 
 New zb,WVSMag
 Set K=$P(B(16),D,12),WVSMag=$$POPUP("HFWVSUBMAG",$S(K="":"M",1:K),,"Z")
 Set:zb'="CANC" K=WVSMag
 Quit
 ;
ShowVHISIE 
 New zb,ShowVHISIE
 Set K=$P(B(4),D,3),ShowVHISIE=$$POPUP("SHOWVHISIE",+K)
 If zb'="CANC" Set K=ShowVHISIE Set:'K K=""
 Quit
 ;
FSCHout 
 New zb,FSCHout
 Set K=$P(B(4),D,5),FSCHout=$$POPUP("FSC",$S(K="":"Z",1:K),,"Z")
 If zb'="CANC" Set K=FSCHout
 Quit
 ;
POPUP(PopRef,Value,NoPop,Optie) 
 New R,Position
 Set Value=$G(Value)
 If '$G(NoPop) Do
 .If '$D(U2) New U2 Set U2=PopRef_";;;;C;C" Set:$D(sFR) $P(U2,D,5,6)=$TR($P(sFR,"`",5,6),"`",";")
 .Set Position=$P(U2,";",5)
 .If Position Do
 ..Set Position=Position-$P($G(^RES("PRODUKT","PI",PopRef,"D",Value)),"`")+1
 ..Set:$D(sFR) Position=Position+17
 .Set Position=Position_";"_$P(U2,";",6)
 .Set Value=$$PI^vhPOPUP(Position,$G(Optie)_"O1-",$P(U2,";"),"PRODUKT",PopRef,Value)
 Else  Set Value=$$FETCHPOP^vhScherm("PRODUKT",PopRef,Value,"O")
 Quit Value
 ;
 ; Display verpakkingsproduct
VerpakProd(PRNr,VerpakPRNr)
 New VerpakProd,Factuur,OptiDataDisplayName
 If $G(PRNr),'$G(VerpakPRNr) Set VerpakPRNr=$$GETVAL^KP0NL(PRNr,"J",32),Factuur=$$GETVAL^KP0NL(PRNr,"J",34)="F"
 If $G(VerpakPRNr) Do
 . If $D(^KPR(VerpakPRNr)) Set VerpakProd=$P(^KPR(VerpakPRNr,0),D) Set:$D(Factuur) VerpakProd=VerpakProd_" ("_$S(Factuur:"Factuur",1:"Proforma")_")"
 . Else  If $D(^KPRO(VerpakPRNr)) Set VerpakProd="Verwijderd ("_$P(^KPRO(VerpakPRNr,0),D)_")"
 . Else  Set VerpakProd="Onbekend"
 Else  Set VerpakProd=""
 If VerpakProd="",$G(PRNr) Set VerpakProd=##Class(BL.Prod.OptiBox.Diverse).OptiDataDisplayName(PRNr)
 Quit VerpakProd
 ;
 ; Editeren van de kundenstamm bij wijzigen producten
EditKuSta(PRNr)
 New zb,I,R,VHKLNr,BlumKLNr,OldBlumKLNr,NewBlumKLNr,Count,U2,U3Old,U3New
 Do:$G(PRNr)
 . For I=1200:1:1299 Set U2=$G(^KPR(0,I)) If $P(U2,";",16)="KundenStamm" Xecute "Set U3Old="_$P(U2,";",8) Quit
 . Set BlumKLNr="",Count=1
 . For  Set BlumKLNr=$O(^BLBeri("K",BlumKLNr)) Quit:BlumKLNr=""  Set Count=Count+1,BlumKLNr(Count)=BlumKLNr_"`"_$P(^BLBeri("K",BlumKLNr),D)
 . Set VHKLNr=""
 . For  Set VHKLNr=$O(^PRPUTZ("N",PRNr,VHKLNr)) Quit:VHKLNr=""  Set OldBlumKLNr=$P(^PRPUTZ("N",PRNr,VHKLNr,0),D),OldBlumKLNr(OldBlumKLNr)=""
 . Set (OldBlumKLNr,R)=""
 . For  Set OldBlumKLNr=$O(OldBlumKLNr(OldBlumKLNr)) Quit:OldBlumKLNr=""  Set R=R_";"_OldBlumKLNr
 . Set $E(R)="",OldBlumKLNr=R
 . Set NewBlumKLNr=$$WILD^vhPOPUP("C;C","-KOM1","",.BlumKLNr,OldBlumKLNr)
 . Quit:zb="CANC"  Quit:NewBlumKLNr=OldBlumKLNr
 . Set VHKLNr=""
 . For  Set VHKLNr=$O(^PRPUTZ("N",PRNr,VHKLNr)) Quit:VHKLNr=""  Do
 . .Kill ^PRPUTZ("IN",VHKLNr,PRNr)
 . Kill ^PRPUTZ("N",PRNr)
 . For I=1:1 Set BlumKLNr=$P(NewBlumKLNr,";",I) Quit:BlumKLNr=""  Do
 . . Set VHKLNr=$P(^BLBeri("K",BlumKLNr),D,3)
 . . Quit:'VHKLNr
 . . Set ^PRPUTZ("N",PRNr,VHKLNr,0)=BlumKLNr,^PRPUTZ("IN",VHKLNr,PRNr)=""
 . Do:$P(U2,";",16)="KundenStamm"
 . . Xecute "Set U3New="_$P(U2,";",8)
 . . Set FP=$P(U2,";",5)*100+$P(U2,";",6)
 . . Write @F,$J("",$P(U2,";",9)),@F,U3New
 . . Do DLOGMOD^LOG("PR",PRNr,,U3Old,U3New,$P(U2,";"))
 Quit
 ;
 ; Display van de kundenstamm bij wijzigen producten
DispKuSta(PRNr)
 New KundenStamm,VHKLNr,BlumKLNr,BlumKlNaam,IsDO
 If $G(PRNr),$D(^PRPUTZ("N",PRNr)) Do
 . Set VHKLNr=""
 . For  Set VHKLNr=$O(^PRPUTZ("N",PRNr,VHKLNr)) Quit:VHKLNr=""  Set BlumKLNr($P(^PRPUTZ("N",PRNr,VHKLNr,0),D))=""
 . Set (BlumKLNr,KundenStamm)=""
 . For  Set BlumKLNr=$O(BlumKLNr(BlumKLNr)) Quit:BlumKLNr=""  Do
 . . Set BlumKlNaam=$P(^BLBeri("K",BlumKLNr),D)
 . . Set:BlumKlNaam["Van Hoecke - " BlumKlNaam=$P(BlumKlNaam,"Van Hoecke - ",2)
 . . Set:BlumKlNaam[" Keukenfabriek" BlumKlNaam=$P(BlumKlNaam," Keukenfabriek")
 . . Set IsDO=$P(^BLBeri("K",BlumKLNr),D,6)="DO"
 . . Set KundenStamm=KundenStamm_", "_BlumKLNr_" "_BlumKlNaam_$S(IsDO:"(DO)",1:"")
 Quit $E($G(KundenStamm),3,55)
 ;
 ; Geeft de kundenstamm van een product
GeefKuSta(PRNr)
 New KundenStamm,VHKLNr,BlumKLNr,BlumKlNaam,IsDO
 If $G(PRNr),$D(^PRPUTZ("N",PRNr)) Do
 . Set (VHKLNr,KundenStamm)=""
 . For  Set VHKLNr=$O(^PRPUTZ("N",PRNr,VHKLNr)) Quit:VHKLNr=""  Set KundenStamm=KundenStamm_D_$P(^PRPUTZ("N",PRNr,VHKLNr,0),D)
 Set $E(KundenStamm)=""
 Quit $G(KundenStamm)
 ;
 ; Niet beschikbaar voor
NOTAVAILABLETO 
 New zb,NotAvailableTo
 Set K=$P(B(4),D,4) S:K="" K="Z"
 Set NotAvailableTo=$$POPUP("NOTAVAILABLETO",K,,"MZ")
 Do:zb'="CANC"
 . Set K=NotAvailableTo S:K="Z" K=""
 Quit
 ;
 ; Alle beperkt actief en Orgalux op WWWOL
NOTAVAILABLETOWWWOL
 New PRNr,Count
 Set (PRNr,Count)=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Quit:$P(^KPR(PRNr,1),D,25)'=2  ; Niet beperkt actief
 . Quit:'$$ISORGAL^PRODUKT2(PRNr)  ; Enkel Orgaluxproducten
 . Set Count=Count+1
 . Do MODFIELD^PRODUKT(PRNr,404,"WWWOL")
 Write !,Count
 Quit
 
 ; Controle van een product in uitverkoop
UitVerkoop(PRNr)
 New UitVerkoop,GenPRNr,UitVerkocht,KortTekst,Subject,Body,From,To,InStock,Besteld
 Set UitVerkoop=$P(^KPR(PRNr,0),D,6)
 If UitVerkoop,UitVerkoop'>$H Do
 . Set FysStock=$P(^KPR(PRNr,0),D,14)
 . Set Besteld=$P(^KPR(PRNr,0),D,17)
 . Set UitVerkocht=(FysStock+Besteld)=0
 . Quit:'UitVerkocht
 . Set GenPRNr=$P(^KPR(PRNr,0),D,3)
 . Do MODFIELD^PRODUKT(PRNr,106,"")
 . Set KortTekst=$P(^KPR(PRNr,0),D)
 . Set From=$ZUTIL(110)_"@VANHOECKE.BE"
 . Set To=$$USERNAME^vhUSER("CW;VDR","@",1)
 . Set Subject="Uitverkoop """_KortTekst_""""
 . Set Body="Van product """_KortTekst_""" is de voorraad 0 (uitverkocht)."_$C(10,13)_"Gelieve dit product te "
 . Set Body=Body_$S(GenPRNr:"fusioneren met "_$P(^KPR(GenPRNr,0),D)_".",1:"verwijderen.")
 . Set Status=$$SendMiniMail^vhLib(From,To,Subject,Body)
 Quit