KTSPLIT G 1 ;SPLITSEN LIJNEN TOELEVERINGEN [ 12/01/2003  12:01 PM ]
 ;
C1 S FP=2454+F60 W @F,@F2,"[] = ",ULT Q
C2 
 N R,KLNr,ORDNr,OLNr,PakFact
 S R=^KTO(LC,TR,UVN),ORDNr=$P(R,D,27),OLNr=$P(R,D,28),PakFact=""
 I ORDNr,OLNr S R=^KO1(ORDNr,"F"),KLNr=$P(R,D),R=^KOD(KLNr,"F",ORDNr,OLNr),PakFact=$P(R,D,36)
 S FP=2454+F60 W @F,@F2,"[] = ",UA W:PakFact>1 " (veelvoud van ",PakFact,")" Q
 ;
M0 S FP=2403+F60 W @F,@F2,@F4,MSG," [] = OK ",@F5,@F0 R K G YZ
M4 S MSG="LEVERANCIER PRODUKT VERSHILLEND VAN TOELEVERING" G M0
M5 S MSG="PRODUKT IN GEBRUIK" G M0
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
1 S SW12=1,ULSV=UL K UZ I $G(ScrolToe) S K=UVN-100
 S Q15="^(""W    0.0T""_UOD_$J(TR,6,0)_$J((UVN-100),3,0))",Q16="^(""W    0.0R""_UODD_$J(UR,6,0)_$J((UUZ-100),3,0))"
2 S X=@("^"_Q_UGL_"(LC,TR,1)")
 S UOD=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(X,D,2)),"DS"),D,"")
 S UI=$P(X,D,2),UJ=$P(X,D,3)
3 K UA,UO S FP=$P(UD,D,2)+1*100+1 W @F,@F1 I '$G(ScrolToe) G 43:'$D(UTA)!($N(UTA(0))=-1) S FP=2403+F60 W @F,"Nummer v/d te splitsen lijn : ",@F0 R K
5 G 3:K?.E1C.E!(K=""),43:K="-"!(K=","),3:K'?.N S UVN=K+100
 I $D(UTA(K))!$G(ScrolToe) S:'$G(ScrolToe) UL=UTA(K) S U2=@("^"_Q_UGL_"(LC,TR,UVN)") G 9:$P(U2,D,2),YZ:$G(ScrolToe)
7 S FP=2403+F60 W @F,@F2,@F4,"LIJN ",$P("ONBEKEND\NIET SPLITSBAAR",D,$D(^(UVN))+1)," [] = OK ",@F5,@F0 R K G 3
9 S PR=$P(U2,D,2)
10 L (@("^"_Q_UGL_"(LC,TR)"),@("^"_Q_"PR(PR)")):2 E  G M5
11 S UA=0,X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),PY=$P(X,D,17)
12 S X=^(1),PSN=$P(X,D,20),X=^(2),PRE=$P(X,D,9),PID=$P(X,D,25)
13 Do ##class(CHUI.ToolKit).ProductHoofding(19,PR)
17 S X=$N(^("J")) G M4:$E(X,2,99)'=LC S X=^(X),PLQ=$P(X,D,6),PGV=$P(X,D,16)
19 S UEP=$P(U2,D,6),PK1=$P($P(U2,D,7),"#",1),PK2=$P($P(U2,D,7),"#",2),USP=$P(U2,D,21),PA=UEP-(UEP*PK1/100),PA=PA-(PA*PK2/100)
21 S UMC=$P(U2,D,22),ULT=$P(U2,D,25)
27 S R=PSN_D_(PST-$P(PRE,"#",2))_D_($P(PY,"#",2)-$S('$P(U2,D,27):$P(U2,D,3),1:0))_D_ULT_D_PLQ_D_UEP_D_PK1_D_PK2_D_PA_D_UMC_D_USP_D_PGV_D D ^KTRWL
29 S R="K\23\54\LEVERT \C1\5" D R0 G YZ:K="," I K="-" G YZ:$G(ScrolToe),3
 I $L(K),K'="?" D VALDATE^vhLib.DataTypes(K,"DW") G 29:'%TC D
 .S:K?.N&($P(%EXT,"/",2)<%WK) $P(%EXT,"/")=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"J","+1"),"J")
 .S K=%EXT
30 I $L(K) S:K="?" K="  ?  " S ULT=K,FP=2039+F60 W @F,"     ",@F,ULT
32 S UA=$P(U2,D,3)
33 S R="K\23\54\AFNAME \C2\6\\""-,""[K!$$CHKAANT(LC,TR,UVN,K)\\" D R0 G 29:K="-",YZ:K="," I K S UA=K
35 I UA=$P(U2,D,3) S K="-" G 43
 S UAS=UA,UA=$P(U2,D,3)-UA,ULTS=ULT,ULT=$P(U2,D,25)
 S UR=$P(U2,D,27),UUZ=$P($P(U2,D,28),";")
351 G 36:'UR
352 S KC=$P(@("^"_Q_"O1(UR,""F"")"),D,1)
354 L (@("^"_Q_"TO(LC,TR)"),@("^"_Q_"OD(KC,""F"",UR)")):2 E  S FP=2403+F60 W @F,@F2,@F4,"ORDER ",UR," IS IN GEBRUIK [] = OK ",@F5 R K G 354
36 D SPLITTLN^FLOWTOE6(LC,TR,UVN,UAS,ULTS)
43 ;S UL=ULSV
 ;
YZ K UO,U2,UR,UUZ,KC,UN,MSG,PGV,PST,PC,PR,PN,PID,PRE,PSN,PY,PK1,PK2,Q15,Q16,UAS,UBE,UOD,UODD,UOR,ULTS,X,XOD,RPR,%TC,%INT,%EXT L @("^"_Q_"TO(LC,TR)") Q
 Q
 ;
SCROL(UVN) 
 G 1
 ;
CHKAANT(LEVNr,TOENr,TLNr,NewAant) 
 New R,Ok,OldAant,KLNr,ORDNr,OLNr,PakFact
 Set R=^KTO(LEVNr,TOENr,TLNr),OldAant=$P(R,D,3),ORDNr=$P(R,D,27),OLNr=$P(R,D,28)
 Set Ok=NewAant?.N&(NewAant>0)&(NewAant'>OldAant)
 If Ok,ORDNr,OLNr Do
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
 .Set R=^KOD(KLNr,"F",ORDNr,OLNr),PakFact=$P(R,D,36) Set:'PakFact PakFact=1
 .Set Ok='(NewAant#PakFact)
 Quit Ok
 ;