KOKKI1 G YZ ;OVERDRACHT COMMERCIELE KLANTENINFORMATIE ;KOKKI1; [ 05/02/2001  11:20 AM ]
 ;
T1 ;ER ZIJN NOG ;UITLEVERINGEN\ORDERS; OPEN VOOR KLANT ;  [] = ok 
T2 ;ER BESTAAN ;SCHERMEN.
T3 ;WELK SCHERM : ;-[] = einde programma
T4 ;SCHERM 
T5 ;KLANT ; IS REEDS COMMERCIEEL OVERGEDRAGEN  [] = ok
 ;
ID S RUB=";104;1;\;116;1;\" G 1
 ;
S2
 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
 S FP=$P(U2,U,5)*100+$P(U2,U,6) I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
 S FP=$P(U2,U,2)*100+$P(U2,U,3)-2 W @F
 I TST[(D_X_D) S TST=$P(TST,X,1)_X_U_(U1#100)_$P(TST,X,2) W $J("*",3-$L(U1#100))
 E  W $J("",3-$L(U1#100))
 W:$P(U2,U,22) U1#100 I '$P(U2,U,23) S FP=FP+3 W @F,@F6,$P(U2,U,1),@F9
 S FP=$P(U2,U,5)*100+$P(U2,U,6)-2
 W @F,": ",U3
 Q
 ;
1 S K=$P($T(+1),";",2) S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S U=";",(SW2,SW5,SCH)=1,$P(PNT,".",40)=".",X=@("^"_Q_"KL(0,0)")
13 S X=SCH+'($N(^(SCH+1*100))=-1) G 15:X=SCH S SCH=X G 13
15 S A(101)=^(101),A(102)=^(102),X=100
17 S X=$N(^(X)) G 2:X=-1 S K=$P(^(X),U,16) F I=1:1 S R=$P(RUB,D,I) Q:'$L(R)  I K=$P(R,U,2) S $P(R,U,4)=X\100,$P(RUB,D,I)=R
19 G 17
2 L  K B S FP=2001 W @F,@F1
 S KC=$$SELECT^KLANT6(1) G YZ:'KC S FP=2001 W @F,@F1 G 2:'$$CHKFLOW(KC)
 D O^cA612(1,1,24,80,0,1,0,1)
 S K=$P($T(+1),";",2) S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
21 S (I1,K)=@("^"_Q_"K1(KC)"),B(1)=@("^"_Q_"KL(K,0)") F X=1:1:9 I $D(^(X)) S B(X+1)=^(X)
 I $P(B(3),D,17) G 7
22 L @("^"_Q_"KL(I1)"):2 E  X ^cTXT(0,"N",14) R K G 2
23 S SW4="",TST=D F I=1:1 S R=$P(RUB,D,I) Q:'$L(R)  I @$P(R,U,3) S TST=TST_$P(R,U,2)_D I SW4'[$P(R,U,4) S SW4=SW4_$P(R,U,4)
24 S:'SW4 SW4=1 I $L(SW4)=1 S:SW2'=SW4 SW5=1 S SW2=SW4
25 S SW4=$L(SW4) S:SW4>1 SW4=SCH
26 I SW5 S FP=254 W @F,@F1
27 I SW4=1 D S3,S1 G 4
28 S FP=254 W @F,@F1 S FP=269 W @F,@F5 S FP=254,K=$T(T2) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3)
29 S SW5=1,U1=101 D S2 S U1=102 D S2
 ;
35 S FP=2203+F60,K=$P($T(T3),U,2) W @F,@F1,K S FP=FP+100 W @F,$P($T(T3),U,3) S FP=FP-100+$L(K)
36 W @F,".",@F2,@F,@F0 R U4 I U4="-" S SW5=1 G 5
37 G 36:U4'?1N,36:'U4!(U4>SW4)
38 S FP=2103+F60 W @F,@F1 S FP=355 W @F,$P($T(T4),U,2),U4
39 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=601 W @F,@F1 D S3,S1
 ;
4 S U1=SW2*100+2 I SW4=1 S U1=100
41 S U1=$N(A(U1)) I U1>0 D S2 G 41
43 D ^KOKKI2 G 35:SW4>1
 ;
5 S K=B(1)=@("^"_Q_"KL(I1,0)") F I=1:1:9 I $D(^(I)) S:B(I+1)'=^(I) K=0
51 D S3 G 2:K D C^cA612,^KOKKI3 G 2
 ;
6 S FP=2403+F60 W @F,@F4,$P($T(T1),U,2),$P($P($T(T1),U,3),D,$D(@("^"_Q_"OD(KC)"))\10+1),$P($T(T1),U,4)
 W $P(@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),D,2),$P($T(T1),U,5),@F5,@F0 R K G 2
 ;
7 S FP=2403+F60 W @F,@F4,$P($T(T5),U,2),$P(@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),D,2),$P($T(T5),U,3),@F5,@F0 R K G 2
 ;
YZ K A Q
 ;
S1 S Y=$D(@("^"_Q_"KL(0,0)")),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
CHKFLOW(KLNr)
 New R,Ok,ORDNr,BONNr
 Set Ok=1
 ; Controle WMS
 Set ORDNr=""
 For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do  Quit:'Ok
 . Quit:'$D(^ORDW("IO",ORDNr))
 . Set Ok=$$^vhTXTPOP("KOKKI","ORDW","",ORDNr,$P(^KKL(^KK1(KLNr),0),D,2))
 ; Er zijn nog orders
 If Ok,$D(^KOD(KLNr,"F")) Set Ok=$$^vhTXTPOP("KOKKI","KOD","",$P(^KKL(^KK1(KLNr),0),D,2))
 ; Controle terugnames
 If Ok,$D(^RCP("IK",KLNr)) Do
 . Set RCPNr=""
 . For  Set RCPNr=$O(^RCP("IK",KLNr,RCPNr)) Quit:RCPNr=""  Do  Quit:'Ok
 . . Set R=$G(^RCP("D",RCPNr))
 . . Quit:$P(R,D,2)'=KLNr  Quit:$P(R,D,20)="I"
 . . Set Ok=$$^vhTXTPOP("KOKKI","RCP","",$P(^KKL(^KK1(KLNr),0),D,2))
 ; Controle transport
 Set BONNr=""
 If Ok For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Do  Quit:'Ok
 . Set R=^KUL(KLNr,"F",BONNr,1),TranspRef=$P($P(R,D,8),";")
 . Quit:TranspRef=""
 . Set R=$G(^TRANSP("D",TranspRef))
 . Quit:R=""
 . If '$P(R,D,11),'$P(R,D,12) Set Ok=$$^vhTXTPOP("KOKKI","TRANSP","",BONNr,TranspRef)
 ; Er zijn nog leveringen
 If Ok,$D(^KUL(KLNr,"F")) Set Ok=$$^vhTXTPOP("KOKKI","KUL","",$P(^KKL(^KK1(KLNr),0),D,2))
 Quit Ok
 ;
PROMPT(B)
 New Prompt
 Set Prompt="Overdracht"
 Set:$P($G(B(3)),D,27) Prompt="Overdr. van"
 Set:$P($G(B(3)),D,17) Prompt="Overdr. naar"
 Quit Prompt
 ;
U3(B,U3)
 New OvdKLNr,KlKey
 Set OvdKLNr=$P($G(B(3)),D,17) Set:'OvdKLNr OvdKLNr=$P($G(B(3)),D,27)
 Set U3=OvdKLNr
 If OvdKLNr,$D(^KK1(OvdKLNr)) Set U3=OvdKLNr_" "_$$SG^cAFA1("KL",OvdKLNr,102)
 Set U3=$E(U3,1,20)
 Quit
 ;