KFCOLC G 1 ;CONTRACT-ORDERLIJNEN (OPVRAGEN GEGEVENS) [ 04/25/2002  9:14 AM ]
 ;
S3 
 N MinAfn
 I $L(BackGrnd) D IDPROD^KF0 S R=BackGrnd D ^KF0268 S BackGrnd=""
S3A 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
 S MinAfn=$P($G(^KPBI("D",KC,PR)),D,2)
 I K?.N,K<MinAfn G S3A:'$$^vhTXTPOP("KFCOLC","AANTAL",,$$EXTNUM^vhDTyp(MinAfn,7,".T",0),$$EXTNUM^vhDTyp(K,7,".T",0))
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 I $L($G(LevTerm)) S K=""
 E  D  G 39:K="-",39:K="," I K="?",'UAF G 1
 .I $P($G(Contract),D,4)="STK",$P($G(ContrLns),"TST",2)'="" S K="" Q
 .I $L(BackGrnd) D IDPROD^KF0 S R=BackGrnd D ^KF0268 S BackGrnd=""
 .S R="K\23\54\LEVERT \C1\5" D R0
 .I K'="-",K'="," Q
 .I $P($G(Contract),D,4)'="STK" Q
 .S R=^KOD(KC,"F",URC,UVN)
 .Q:$P(R,D,6)=""  Q:'$D(ContrLns($P(R,D,6)))
 .S ContrLns($P(R,D,6))=ContrLns($P(R,D,6))-$P(R,D,3)
 .K:ContrLns($P(R,D,6))'>0 ContrLns($P(R,D,6))
 K LevTerm
 I "?"'[K D VALDATE^vhDTyp(K,"DW") G 1:'%TC S:K?.N&($P(%EXT,"/",2)<%WK) $P(%EXT,"/")=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"J","+1"),"J") S K=%EXT
5 I $L(K) S:K="?" K="  ?  " S ULT=K
 I 'BackGrnd D
 .S FP=2313+F60 W @F,"     ",@F,ULT
29 .F FP=2339,2439 W @F,@F2
 If $P($G(ContrLns),D,$L($G(ContrLns),D))="TST" Set ContrLns=ContrLns_D_ULT
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:$G(NoChkVp),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 ContrRef=$P(X,D,3)
 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
 .S:'$P($G(^KPBI("D",KC,PR)),D,3) EmptyContract(UR)=ContrRef,EmptyContract(UR,UVN)=U2
 .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
 ..N UOD,TLUNr,QtyNew,TLUNr2,Qty2
 ..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)*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,QtyNew=$P(X,D,3),TLUNr=$P(X,D,15)
 ..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,13)=TUZS-100,$P(X,D,15)=""
 ..S $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_"TO(LC,TR,TUZS)"),Qty2=$P(X,D,3),TLUNr2=$P(X,D,15)
 ..Quit:'$$CHKALG^DEFAULTS(LC,"KFCOLC","MARKSPLT","HADOPV")
 ..D MARKSPLT^HADOPV(TR,TLUNr,QtyNew+Qty2,QtyNew,TR,TLUNr2,Qty2)
 .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
 If $P(Contract,D,4)'="STK"!TR Do
 .F I=1:1:35 I $L($P(U2,D,I)) S B(100+I)=$P(U2,D,I)
 .S B(113)=ContrRef,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