KFCOLA G 1 ;CONTRACT-ORDERLIJNEN (OPVRAGEN GEGEVENS) [ 10/13/98  9:02 AM ]
 ;
S3 S R="K\23\54\AANTAL \C2\6\\""-,""[K&($L(K)<2)!(K?.N&K&(K<$P(U2,D,3)))" D R0
S3Z Q
 ;
C1 S FP=2454 W @F,@F2,"[] = ",ULT Q
C2 S FP=2454 W @F,@F2,"[] = ",UA Q
 Q
 ;
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 R="K\23\54\LEVERT \C1\5" D R0 G 39:K=",",YZ:K="-"
 I K="?",'UAF G 1
 I "?"'[K D VALDATE^vhDTyp(K,"DW") G 1:'%TC S K=%EXT
5 I $L(K) S:K="?" K="  ?  " S ULT=K
 S FP=2313+F60 W @F,"     ",@F,ULT
29 F FP=2339,2439 W @F,@F2
32 S UA=$P(U2,D,3)
33 D S3 G 1:K="-",39:K=",",39:'K S UA=K,PGV=$P(X,D,16) G 35:'PGV S PNV=$P(X,D,15),PKV=$P(X,D,14)
330 S:'PNV PNV=PGV S:'PKV PKV=PNV G 35:'(UA#PGV),35:'(UA#PGV#PNV) S GR=UA#PGV#PNV#PKV G 35:'GR
34 S OGR=UA-GR,BGR=OGR+PKV,FP=2339 W @F,OGR S FP=2354 W @F,@F2,"AANTAL  : ",UA S FP=2439 W @F,BGR
340 D S3 G 1:K="-",39:K=",",340:'K S UA=K
35 S UAS=UA,ULTS=ULT,UA=$P(U2,D,3)-UA
 D KWNODE^FLOWORD(KC,US,UR,UVN)
36 S X=@("^"_Q_UGL_"(KC,US,UR,1)"),UN=$J(UEP/AFE*UA,1,2)
 S U26=$P(U2,D,26)
362 S U31=$$KFCOLM^KFCOLM(KC,US,UR,PC,UA,PR)
364 S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2) S UBE=$J(UEP/AFE*UA,1,2),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
37 S (TUZ,TUZS)=$P($P(U2,D,28),";"),U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,99)
 S @("^"_Q_UGL_"(KC,US,UR,UVN)")=U2
 D SWNODE^FLOWORD(KC,US,UR,UVN)
 Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UVN,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 S UA=UAS,ULT=ULTS,UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=UVN-100
 I TR,TUZ D
 .S TUZS=@("^"_Q_"TO(LC,TR,0)"),^(0)=TUZS+1
 .D KWNODE^FLOWTOE(LC,TR,TUZ)
 .S X=@("^"_Q_"TO(LC,TR,TUZ)")
 .S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*($P(X,D,3)-UA),0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*($P(X,D,3)-UA),0,2)
 .S $P(X,D,3)=$P(X,D,3)-UA,@("^"_Q_"TO(LC,TR,TUZ)")=X
 .D SWNODE^FLOWTOE(LC,TR,TUZ)
 .Do ProductToeleveringLijnGewijzigd^FLOWTOE2(LC,TR,TUZ,##class(DOM.AKP.enu.ProductToeleveringLijnWijzigingType).Aantal())
 .S $P(X,D,9)=$J($P(X,D,9)/$P(X,D,3)*UA,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UA,0,2)
 .S $P(X,D,3)=UA,$P(X,D,13)=TUZS-100,$P(X,D,15)=""
 .S $P(X,D,25)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ULT,"DW")-7,"DW")
 .S $P(X,D,28)=@("^"_Q_"OD(KC,US,UR,0)"),@("^"_Q_"TO(LC,TR,TUZS)")=X
 .D SWNODE^FLOWTOE(LC,TR,TUZS)
 .Do ProductToeleveringLijnGemaakt^FLOWTOE2(LC,TR,TUZS)
 S X=@("^"_Q_UGL_"(KC,US,UR,1)"),UN=$J(UEP/AFE*UA,1,2)
 S:KKN UEP=$P(U2,D,6),UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2) S UBE=$J(UEP/AFE*UA,1,2),UK="" S:PK1 UK=$J(PK1,4,1) S:PK2 UK=UK_" "_$J(PK2,4,1)
 S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,8)_D_UN_D_UN_D_$P(U2,D,11,14)_D_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_$P(U2,D,26,27)_D_TUZS_D_D_$P(U2,D,30,99)
 K B F I=1:1:35 I $L($P(U2,D,I)) S B(100+I)=$P(U2,D,I)
 S SW12=0,USP=$P(U2,D,21),U27=$P(U2,D,27),UL=ULSV,UC=PR
 G YYZ
39 S UL=ULSV,K="-"
 ;
YZ K UMC,UA,UK,UEP,ULT
YYZ K ULSV,LC,GR,BGR,OGR,AFA,AFE,AFR,AFRR,UPAR,MSG,PST,PPS,PC,PR,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PGV,PVN,PKV,S,Q15,Q16
 K UE,UBE,UOD,UOR,UAS,ULTS,X,TR,TUZ,TUZS,%TC,%INT,%EXT L @("^"_Q_UGL_"(KC,US,UR)") Q
 Q
Z X ^cZ Q
ZZ ; 15.10.90 - 11 u 04