KOFPS5 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 D ^KOFPS6 S I4=" "
31 S I4=$N(@("^"_Q_UGL_"(KCC,US,URR,I4)")),I5=-1 G 73:I4=-1 I $D(^(I4))=1 S U2=^(I4),@("^"_Q_UGL_"(KC,US,UR,I4)")=U2 G 31
33 S I5=$N(@("^"_Q_UGL_"(KCC,US,URR,I4,I5)")),I6=-1 G 31:I5=-1 I $D(^(I5))=1 S U2=^(I5),@("^"_Q_UGL_"(KC,US,UR,I4,I5)")=U2 G 33
35 S I6=$N(@("^"_Q_UGL_"(KCC,US,URR,I4,I5,I6)")),I7=-1 G 33:I6=-1 I $D(^(I6))=1 S U2=^(I6),@("^"_Q_UGL_"(KC,US,UR,I4,I5,I6)")=U2 G 35
37 S I7=$N(@("^"_Q_UGL_"(KCC,US,URR,I4,I5,I6,I7)")),I8=-1 G 35:I7=-1 I $D(^(I7))=1 S U2=^(I7),@("^"_Q_UGL_"(KC,US,UR,I4,I5,I6,I7)")=U2 G 37
39 S I8=$N(@("^"_Q_UGL_"(KCC,US,URR,I4,I5,I6,I7,I8)")) G 37:I8=-1 I $D(^(I8))=1 S U2=^(I8),@("^"_Q_UGL_"(KC,US,UR,I4,I5,I6,I7,I8)")=U2 G 39
41 G 31
73 S @("^"_Q_UG1_"(UR,US)")=KC_D,@("^"_Q_UG2_"(US,KC,UR)")=""
75 S @("^"_Q_UGB_"(UR,US)")=KC_"\\\"_+$H
 D CREATOR(KC,UR)
 G 3
YZ K @("^"_Q_"SEL($J)")
 Q
 ;
CREATOR(KLNr,OFFNr)
 New R,Closed
 Set R=^KOFKL(KLNr,"F",OFFNr,1),Closed=$P(R,D,22),($P(R,D,8),$P(R,D,22),$P(R,D,24))="",^KOFKL(KLNr,"F",OFFNr,1)=R
 Do CREATOR^FLOWOFF
 Set R=^KOFKL(KLNr,"F",OFFNr,1),$P(R,D,22)=Closed,^KOFKL(KLNr,"F",OFFNr,1)=R
 Quit
 ;