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,PopPos
 Set K=$P($G(B(2)),D,18),K=$S(K="O":K,1:+K),PopPos=U2(2)+K+1+(K="O"*4)_";"_(U2(6)+2)
 Set K=$$PI^vhPOPUP(PopPos,"-O1","Ordercumul","KLANT","ORDERCUMUL",K)
 Set K=$S(zb="CANC":"-",K="O":K,'K:"",1:K)
 Quit
 ;
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
 ;