KFAFRCD G 1 ;AFROEP-ORDERLIJNEN - levering per dag (OPVRAGEN GEGEVENS) [ 10/31/2001  2:38 PM ]
 ;
S3 I $L(BackGrnd) D IDPROD^KF0 S R=BackGrnd D ^KF0268 S BackGrnd=""
 S R="K\23\54\AANTAL \C2\6\\""-,""[K&($L(K)<2)!(K?.N&K&(K'>$P(U2,D,3)))" D R0
 I K="" S K=UA
S3Z Q
 ;
C1 S FP=2454 W @F,@F2,"[] = ",$$EXTDATE^vhDTyp(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 N ULTTemp
 I $L($G(LevTerm)) S K="" K LevTerm
 E  D  G 39:K="-",39:K="," I K="?",'UAF G 1
 .I $L(BackGrnd) D IDPROD^KF0 S R=BackGrnd D ^KF0268 S BackGrnd=""
 .S R="K\23\54\LEVEREN\C1\8" D R0
 I $L(K) D VALDATE^vhDTyp(K,"DK",$H) G 1:'%TC I '$$ISARBDAG^vhRtn2(%INT),'$$^vhTXTPOP("FLOW","NOARBDAG","",%EXT) G 1
 I $L(K) Do  I ULT="" S ULT=ULTTemp G 5
 .S ULTTemp=ULT,ULT=%INT
 .Quit:$$DIFFDATE^vhDTyp($$EXTDATE^vhDTyp(DefLeverDag),%EXT,"DK")\7'>10
 .Quit:$$^vhTXTPOP("FLOWORD","PLUS10WEKENPD","",%EXT,$J($$DIFFDATE^vhDTyp($$EXTDATE^vhDTyp(DefLeverDag),%EXT,"DK")\7+.5,0,0),$$EXTDATE^vhDTyp(DefLeverDag)) ; Ingegeven leverweek is meer dan 10 weken te ver
 .Set ULT=""
5 S FP=2313+F60 W @F,"     ",@F,$$EXTDATE^vhDTyp(ULT)
 F FP=2339,2439 W @F,@F2
32 S UA=$P(U2,D,3)
33 I $G(Aantal),Aantal'>UA S (UA,K)=Aantal
 E  D S3
 K Aantal
 G 1:K="-",39:K="," S:K UA=K S 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,URS=UR,UODS=UOD,UORS=UOR,UR=URC,X=@("^"_Q_UGL_"(KC,US,UR,1)")
 S UOD=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp($P(X,D,2)),"DS"),D,"")
 S UOR=$P("R\O",D,$P(X,D,17)+1)
 S (TUZ,TUZS)=$P($P(U2,D,28),";"),UA=$P(U2,D,3)-UA,ULT=$P(U2,D,25),X=@("^"_Q_"PR(PR,2)")
 D KWNODE^FLOWORD(KC,UR,UVN)
 I 'UA D
 .I $D(LVHCYB),$D(@("^"_Q_UGL_"(0,US,4)")) S URLC=UR D @^(4)
 .Do ProductOrderLijnAnnulatie^FLOWORD2(KC,UR,UVN)
 .K @("^"_Q_UGL_"(KC,US,UR,UVN)")
 .I $O(@("^"_Q_UGL_"(KC,US,UR,100)"))'="" Q
 .K @("^"_Q_UGL_"(KC,US,UR)")
 .K @("^"_Q_UG1_"(UR,US)")
 .K @("^"_Q_UGB_"(UR,US)")
 .K @("^"_Q_UG2_"(US,KC,UR)")
 .I TR,TUZ D
 ..S TUZ=$P($P(U2,D,28),";"),X=@("^"_Q_"TO(LC,TR,TUZ)"),$P(X,D,27)=URS
 ..S $P(X,D,28)=@("^"_Q_"OD(KC,US,URS,0)"),@("^"_Q_"TO(LC,TR,TUZ)")=X
 I UA D
 .I $D(LVHCYB),$D(@("^"_Q_UGL_"(0,US,3)")) S URLC=UR D @^(3)
 .I TR,TUZ D
 ..S TUZS=@("^"_Q_"TO(LC,TR,0)"),^(0)=TUZS+1
 ..D KWNODE^FLOWTOE(LC,TR,TUZ)
 ..S TUZ=$P($P(U2,D,28),";"),X=@("^"_Q_"TO(LC,TR,TUZ)")
 ..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,@("^"_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)*UAS,0,2),$P(X,D,10)=$P(X,D,9),$P(X,D,16)=$J($P(X,D,16)/$P(X,D,3)*UAS,0,2)
 ..S $P(X,D,3)=UAS,$P(X,D,25)=$$EXTDATE^vhDTyp($$INTDATE^vhDTyp(ULTS,"DW")-7,"DW")
 ..S $P(X,D,27)=URS,$P(X,D,28)=@("^"_Q_"OD(KC,US,URS,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,15)_D_UBE_D_$P(U2,D,17,99),^(UVN)=U2
 .D SWNODE^FLOWORD(KC,UR,UVN)
 .Do ProductOrderLijnGewijzigd^FLOWORD2(KC,UR,UVN,##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
 S UA=UAS,ULT=ULTS,UR=URS,UOD=UODS,UOR=UORS,UVN=@("^"_Q_UGL_"(KC,US,UR,0)"),UZ=UVN-100,X=@("^"_Q_"PR(PR,2)")
 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,15)_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 B(126)="="
 S UTOT=UTOT+UN D SHOWTOT^KFTOT(UTOT)
 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,PLL,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PGV,PVN,PKV,S,Q15,Q16
 K UE,UBE,UOD,UOR,UAS,ULTS,URS,URC,UODS,UORS,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