KFVZW G 1 ;MODULE VERZENDINGSWIJZE [ 05/24/2002  3:51 PM ]
 ;
1 I '$$CHKTRANS^ULTOER(UR) S K="-" G 53
 S $P(B(1),D,8)=$P(^KUL(KC,"F",UR,1),D,8)
 S UVW="",VVE=0,FP=UL*100+1 W @F,@F1
 S K=$P($P(B(1),D,7)," "),K=$$SELECT^KLVERZW(K,,,,KC),K=$P(K,";")
 S:K="" K="-" S:K=$P($P(B(1),D,7)," ") K="-" G 53:K="-",33
33 S UVW=K,FP=UL*100+1 W @F,@F1
36 S K=K_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",UVW,KT),UPT=$P(^RES("KLANT","PI","VERZENDWIJZE","D",UVW),"`",3)
 G 47:'UPT S ULV=$P(B(1),D,21)
37 G 47:'$D(@("^"_Q_"BA(153,ULV_"" "")")) F I="B","L","M" S @("P"_I)=@("^"_Q_"BA(153,ULV_"" "",I,0)")
39 S UPT=@("^"_Q_"BA(153,ULV_"" "",""P"",0)") G 47:"1"[UPT I UPT=2 D S0 S UPT=$S(UN<$P(PB,";",$L(PB,";")):1,1:"") G 47
41 I UPT=3 S UPT=$S($$LAND^vhRtn1(KL)=$$LAND^vhRtn1(PL):1,1:"") G 47
43 I $$LAND^vhRtn1(KL)=$$LAND^vhRtn1(PL) D S0 S UPT=$S(UN<$P(PB,";",$L(PB,";")):1,1:"") G 47
45 S UPT=""
47 G 52:UPT=$P($P(B(1),D,13),"#",2) S B(1)=$P(B(1),D,1,12)_D_$P($P(B(1),D,13),"#",1)_"#"_UPT_"#"_$P($P(B(1),D,13),"#",3)_D_$P(B(1),D,14,99),X=100
49 S X=$N(A(X)) I X'=-1 G 49:$P(A(X),U,16)'=113 S FP=$P(A(X),U,5)*100+$P(A(X),U,6) W @F,$J("",$P(A(X),U,9)),$J("",$P(A(X),U,13))
51 W @F,$P("VRIJ\TE BET.",D,$P($P(B(1),D,13),"#",2)+1)_"  "_$P($P(B(1),D,13),"#",1)_" "_$$MUNT^vhRtn1(,1)_" "_$P($P(B(1),D,13),"#",3)_" KG"
52 S R=B(1) D KILL(US,R,UR) S $P(R,D,7)=K D SET(US,R,UR)
53 S FP=UL*100+1 W @F,@F1
 ;
YZ K VVE,UVW,UPT,UN,PPAR,UPAR,PB,PL,PM,UU2,UMC Q
 ;
S0 S PPAR=$$MUNT^vhRtn1(PM,,12),UN=0,UZ=100
S0A S UZ=$O(@("^"_Q_"UL(KC,US,UR,UZ)")) G S0C:'UZ S UU2=^(UZ) G S0A:'$L($P(UU2,D,2)) S UMC=$P(UU2,D,22)
S0B S UPAR=$$MUNT^vhRtn1(UMC,,12),UN=UN+($P(UU2,D,9)*UPAR/PPAR) G S0A
S0C I UN<0 S UN=$E(UN,2,99)
S0Z Q
 ;
SELECT(K,KC,UGL,UR)
 New VerzWijz,PostCode
 Set VerzWijz=$$SELECT^KLVERZW(K,,,,KC,,,,,0)
 If VerzWijz="OD" Do
 . Set:UGL="OD" PostCode=$P(^KOD(KC,"F",UR,3),D,6) ; Leveringsadres
 . Set:UGL="UL" PostCode=$P(^KUL(KC,"F",UR,3),D,6) ; Leveringsadres
 . Set:$G(PostCode)="" PostCode=$P(^KKL(^KK1(KC),0),D,6)
 . Set VerzWijz=$$DEFAULT^KLVERZW(PostCode)
 Quit VerzWijz
 ;
SET(US,R,UR) 
 New Datum,VerzWijz
 Set VerzWijz=$P($P(R,D,7),"#"),Datum=$P(R,D,2)
 If VerzWijz="" Set VerzWijz="OD "
 If '$G(KC) New KC Set KC=$P(R,D,6)
 Set Datum=-$$INTDATE^vhDTyp(Datum)
 Set ^KU3(Datum,VerzWijz,UR)=KC_D_US
 Set:$D(^ORDW("D",UR)) $P(^ORDW("D",UR),D,2)=$TR(VerzWijz," ","")
 Quit
 ;
KILL(US,R,UR) 
 New Datum,VerzWijz
 Set VerzWijz=$P($P(R,D,7),"#"),Datum=$P(R,D,2)
 If VerzWijz="" Set VerzWijz="OD "
 Set Datum=-$$INTDATE^vhDTyp(Datum)
 Kill ^KU3(Datum,VerzWijz,UR)
 Quit
 ;
 Q
Z X ^cZ Q
ZZ ; 12.03.91 - 12 u 13