KLPOP ;MODULE BEHEER KLANTEN (PopUp);KLPOP; [ 11/28/2003  10:05 AM ]
 ;
PROJREF ; Projectreferentie
 New zb,PopPos
 Set K=+$P($G(B(2)),D,27),PopPos=U2(2)+K+1_";"_(U2(6)+2)
 Set K=$$PI^vhPOPUP(PopPos,"-O1","Projectref.","SYSTEM","JANEEN",K)
 Set:zb="CANC" K="-"
 Quit
 ;
FREEWMS ; Vrijgave WMS
 ;
 New zb,PopPos
 Set K=+$P($G(B(3)),D,8),PopPos=U2(2)+K+1_";"_(U2(6)+2)
 Set K=$$PI^vhPOPUP(PopPos,"-O1","Vrijgave WMS","SYSTEM","NEENJA",K)
 Set:zb="CANC" K="-"
 Quit
 ;
ORDERCUMUL ; Cumuleren van orders bij levering en facturatie
 New zb
 Set K=$P($G(B(2)),D,18),$P(K,";")=$S($P(K,";")="O":$P(K,";"),1:+K)
 Set K=$$PI^vhPOPUP("C;C","-O1M","Ordercumul","KLANT","ORDERCUMUL",K)
 Set:K="A" K=";A"
 If zb="CANC" Set K="-"
 Else  Set $P(K,";")=$S(zb="CANC":"-",$P(K,";")="O":$P(K,";"),'$P(K,";"):"",1:$P(K,";"))
 Set Locals("K")=K
 Quit
 ;
CBOrderCumul(sSelect,sOld,sNew,sRec)
 New I
 If $P(sRec,"`")="A" ; Aventos
 Else  Do
 . For I=1:1 Set R=$G(sY(I)) Quit:R=""  If $P(R,"`")'="A" Kill sX(I)
 . Set:'sOld sX(sSelect)=1
 Quit 1
 ;
SENDWMS ; Orders doorsturen naar het WMS
 New zb,SendWMS
 Set SendWMS=$P($G(B(3)),D,8)
 Set K=$$PI^vhPOPUP("C;C","-O1","Doorsturen WMS","KLANT","SENDWMS",SendWMS)
 Set:zb="CANC" K="-"
 Set Locals("K")=K
 Quit
 ;