KOF2A G 1 ;MODULE WIJZIGEN OFFERTELIJNEN PRODUKTEN (OPVRAGEN GEGEVENS) [ 03/04/2003  2:34 PM ]
 ;
S2 S K=1
 I "\C\P\"'[(D_$$PRIJSKL^KLANT(KC,PR,$G(NoSa))_D) S K=$$CHKPRIJS^KPRIJS(PR,PLP,UEP,1,1,CIFP,$S(UEP<CIFP:"VHPRIJS",1:""),2452,60,120,,KC)
 S K=$P("-\",D,K+1)
 I UEP'<CIFP K AkpVkpVerlies(OFLUNr)
 I K="",UEP<CIFP S AkpVkpVerlies(OFLUNr)=PR_D_CIFP_D_UEP_D_AFE
 If '$D(AkpVkpVerlies(OFLUNr)),UEP<UEPS S AkpVkpVerlies(OFLUNr)=PR_D_UEPS_D_UEP_D_AFE_"\*"
S2Z Q
 ;
S3 S R="K\23\54\AANTAL \C4\6\\""-,""[K!(K?.N!(K?1""-"".N))\\" D R0
S3Z Q
 ;
C1 S FP=2454 W @F,@F2,"[] = ",ULT Q
C2 S FP=2454 W @F,@F2 D  Q
 .I $$ISKLANT^KS(KLNr),'$$ISPROD^KS(PR) W "K[], S[] of kort%   [] = ok"
 .E  W "of kort%   [] = ok" Q
C3 S FP=2454 W @F,@F2 S FP=2470 W @F,"[] = ",ULTT Q
C4 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 PERSTUK,OldAant,Modified,OFLUNr,MirrorLine
 S OldAant=$P(U2,D,3),OFLUNr=$P(U2,D,15)
 I 'OFLUNr D BUILDOFF^FLOWOFF3(KC,UR,UVN) S OFLUNr=$P(@("^"_Q_UGL_"(KC,US,UR,UVN)"),D,15),$P(U2,D,15)=OFLUNr
 S UEPS=UEP,PK1S=PK1,PK2S=PK2 G 29:"LW"'[SWLPA 
2 S R="K\23\54\LEVERT \C1\2\\""-,""[K!(K?.N&(K>0))!(K="".""&PSN)" D R0 G 39:K=",",YZ:K="-"
5 I $L(K) S ULT=K I SWLPA="W" S FP=2313+F60 W @F,"        ",@F,ULT W:K'="." " ",$S(ULT=1:"WEEK",1:"WEKEN")
29 F FP=2339,2439 W @F,@F2 I "PW"'[SWLPA S U26=$P(U2,D,26) G 32
30 S R="K\23\54\VERK PR\C2\9\\" D R0
 I $$ISKLANT^KS(KLNr),'$$ISPROD^KS(PR) I $E(K,$L(K))="%"!(K="K")!(K="S") D  G 31:K["%"
 .I $E(K,$L(K))="%" S:+K>100 K="?" S:+K<-100 K="?"
 .E  S K=$S(K="S":"E",1:K),R=$$KSKORT^KPRIJS(PR,K,$G(NoSa)) S:'R R=$$KSKORT^KPRIJS(,K,$G(NoSa)) S:R K=R_"%"
 I '("-,"[K!(K?.N)!(K?.N1"."1N)!(K?.N1"."2N)!(K["%"&(+K'>100)&(+K?.N!(+K?.N1"."1N)!(+K?1"-".N)!(+K?1"-".N1"."1N)))) G 30
 G YZ:K="-"&(SWLPA="P"),1:K="-" I K="," S K="-" G YZ
31 S U26=$P(U2,D,26) G 32:'$L(K) S (U26,PK1,PK2)="" I K["%" S UEP=PLP*(100-K)/100 S UEP=$J(UEP,1,2),PK1=+K G 312
310 S UEP=K S:PLP PK1=1-(UEP/PLP)*100 S UEP=$J(UEP,1,2)
312 D S2 I K="-" S UEP=UEPS,PK1=PK1S,PK2=PK2S G 29
313 S FP=2164 W:SWLPA="W" @F,@F2 I PK1 W:SWLPA="W" $J(PK1,4,1)," %" S U26="*"
314 I SWLPA="W" S FP=2264 W @F,@F2,UEP," ",UMC,"/",AFA
32 S UA=$P(U2,D,3) G 35:"AW"'[SWLPA
33 D S3 G YZ:K="-"&(SWLPA="A"),29:K="-",39:K=",",35:K="" S UA=K,PERSTUK=$P(X,D,13),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:PERSTUK=1,35:'(UA#PGV),35:'(UA#PGV#PNV) S GR=UA#PGV#PNV#PKV G 35:'GR
 I GR,PERSTUK=-1 G 35:$$WWNooitPerStuk^FLOW2(PR) S UA=$P(U2,D,3) G 33
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 YZ:K="-"&(SWLPA="A"),29:K="-",39:K="," I $L(K) S UA=K
35 S X=@("^"_Q_UGL_"(KC,US,UR,1)"),UN=$J(UEP/AFE*UA,1,2)
36 I KKN S:PLP UEP=$P(U2,D,6) S 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 Set Modified=+UA'=+$P(U2,D,3) Set:'Modified Modified=+UEP'=+$P(U2,D,6) Set:'Modified Modified=ULT'=$P(U2,D,25)
 S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4,5)_D_UEP_D_PK1_"#"_PK2_D_$P(U2,D,8)_D_UN_D_UN_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,24)_D_ULT_D_U26_D_$P(U2,D,27,99),^(UVN)=U2
 Do:OldAant'=UA
 . Set MirrorLine=$$MirrorLine^FLOWOFF(KC,UR,PR)
 . Quit:'MirrorLine
 . Quit:'$$ModMirror^PRODUKT(PR,UA)
 . Set R=^KOFKL(KC,"F",UR,MirrorLine)
 . Set $P(R,D,9)=$J($P(R,D,9)/$P(R,D,3)*UA,0,2)
 . Set $P(R,D,10)=$J($P(R,D,10)/$P(R,D,3)*UA,0,2)
 . Set $P(R,D,16)=$J($P(R,D,16)/$P(R,D,3)*UA,0,2)
 . Set $P(R,D,3)=UA,^KOFKL(KC,"F",UR,MirrorLine)=R
 . Do WL^PROC
 Do:Modified ResetVerstuurd^FLOWOFF3(UR)
39 S K="-"
 ;
YZ K LC,TR,TUZ,GR,BGR,OGR,AFA,AFE,AFR,AFRR,UMC,UPAR,MSG,PST,PPS,PC,PR,PLP,CIFP,PID,PRE,PSN,PY,PK1,PK2,PK1S,PK2S,PGV,PVN,PKV,S
 K Q15,Q16,UA,UE,UK,UEP,UEPS,UBE,UOD,UOR,ULT,U26,X,SWLPA,UIMP,TRLC,UTYP,%TC,%INT,%EXT L @("^"_Q_UGL_"(KC,US,UR)") Q
 ;