KOFPS4 G 1 ;OPMAKEN OFFERTES VOLGENS KLANTENSELEKTIE ;Quit naar KOFPS1 [ 08/05/2002  11:48 AM ]
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
 ;    het opmaken van de offertes
1 S @%Q1=0,Q1="^"_Q_UGL_"(0,US,""UR"")",UL=UD+2,FP=UD*100+1 W @F,@F1,!?2,"OFFERTE OPGEMAAKT VOOR VOLGENDE KLANTEN" I KL'=0 S X=$D(@Q0) G 5:X
3 S KL=$N(@Q0) G YZ:KL=-1 I KL'?.N G YZ:KL]KLX
5 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
7 
 S I=100,FP=2303+F60 W @F,@F1,$P(A(0),D,2)
 ;G 3:KCC=$P(A(0),D,1) S I=100,FP=2303+F60 W @F,@F1,$P(A(0),D,2)
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 3:'OK,9
 ;
11 S UL=UL+1 I UL>20 S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=UD+3*100+1 W @F,@FDL
13 S FP=UL*100+1 W @F,$C(13),?2,$P(A(0),D,2) S USS=US
15 L (@Q1,@("^"_Q_UGL_"(KCC,US,URR)")) S UR=@Q1 I UR'?.N S US=UR G 15
17 I $D(@("^"_Q_UG1_"(UR,USS)")) S UR=UR+1 G 17
19 S @Q1=UR+1,US=USS W ?35,UR
21 S KC=$P(A(0),D,1) L (@("^"_Q_UGL_"(KCC,US,URR)"),@("^"_Q_UGL_"(KC,US,UR)"))
23 S KV=$P(A(0),D,11),KPL=$P(A(2),D,3),KLV=$P(A(3),D,3),KKN=$P(A(2),D,5) S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
25 S @("^"_Q_UGL_"(KC,US,UR,0)")=@("^"_Q_UGL_"(KCC,US,URR,0)"),U2=@("^"_Q_UGL_"(KCC,US,URR,1)")
27 S U2=$P(U2,D,1)_D_DT_D_$P(U2,D,3,5)_D_KC_D_$P(U2,D,7,17)_D_KV_D_$P(U2,D,19,20)_D_KLV_D_$P(U2,D,22,26)_D_KKN_D_$P(U2,D,28,99),@("^"_Q_UGL_"(KC,US,UR,1)")=U2
29 S UZ=100
31 S UZ=$N(@("^"_Q_UGL_"(KCC,US,URR,UZ)")) G 73:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 71:PR'?.N,71:'PR,71:'$D(@("^"_Q_"PR(PR,0)"))
33 S UA=$P(U2,D,3)
49 S X=$N(@("^"_Q_"PR(PR,""J"")")) G 31:$E(X,1)'="J"
51 S X=^(X),PLL=$P(X,D,7),UMC=$P(X,D,17) G 31:"I"[UMC
57 S R=$$KLANTPR^KPRIJS(KC,PR,NoSa)
 S UEP=$P(R,D,1),UMC=$P(R,D,2),AFA=$P(R,D,3),PLP=$P(R,D,4),PK1=$P(R,D,5),PK2=$P(R,D,6),KKD=$P(R,D,7)
 S PKP=$P(R,D,8),UPAR=$P(R,D,9),USP=$P(R,D,10),AFE=$P(R,D,11)
67 S UN=$J(UEP/AFE*UA,1,2) I KKN S UEP=PLP,UN=$J(UEP*(100-PK1)/100*(100-PK2)/100*UA/AFE,1,2)
69 S UBE=$J(UEP/AFE*UA,1,2),U2=$P(U2,D,1,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,20)_D_USP_D_UMC_D_$P(U2,D,23,99)
71 S @("^"_Q_UGL_"(KC,US,UR,UZ)")=U2 G 31
73 S @("^"_Q_UG1_"(UR,US)")=KC_D,@("^"_Q_UG2_"(US,KC,UR)")=""
75 S @("^"_Q_UGB_"(UR,US)")=KC_"\\\"_+$H G 3
YZ K @("^"_Q_"SEL($J)") Q
 ;
Z X ^cZ Q
ZZ ; 09.06.88 -  9 u 21