KOFPS1 G YZ ;OPMAKEN OFFERTES VOLGENS KLANTENSELEKTIE ;Go naar KOFPS2 [ 08/05/2002  11:48 AM ]
 ;
F4 S US="F" G 1
M4 S US="M" G 1
N4 S US="N" G 1
P4 S US="P" G 1
T4 S US="T" G 1
F5 S US="F" G 2
 ;
T1 ;GEEF HET TE COPIEREN OFFERTENUMMER\
T2 ;"K[] = selektie via klant"
T3 ;"[] = vervolg"
T5 ;C[] = COPIEREN DEFINITIEF
 ;
 ;    initialisatie + vraag
1 S UGL="OFF",UG1="OFF1",UG2="OFF2",UGB="OFFB" G 3
2 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB" G 3
3 S K=$P($T(+1),U,2),FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
4 S KSEL=1 D KP^KSEL G YZ:K="-"
 D ShowAantal(Q0,KL,KLX)
5 S FP=1303 W @F,@F1 S R="UR\21\3\"_$P($T(T1),U,2)_$P($T(T2),U,2)_"\6\\""-K""[K!(K?.N)&$L(K)" D R0 G 4:K="-"
7 I K'="K" G 5:'$D(@("^"_Q_UG1_"(UR,US)")) S KC=$P(^(US),D,1) G 21
9 S R="KC\2000\KLANT\KL\K1" D R1 G 5:K="-" S FP=1303 W @F,@F1,"COPIEREN OFFERTE VAN KLANT       : ",$P(^(KC,0),D,2) S KC=$P(KC," ",2)
11 S X=14,UR=0
13 I X<19 S UR=$N(@("^"_Q_UGL_"(KC,US,UR)")) I UR'=-1 D  G 13
 .S R=@("^"_Q_UGL_"(KC,US,UR,1)")
 .S X=X+1,FP=X*100+1+F60
 .W @F,$C(13),?1+6-$L(UR),UR,@FMTK,$P("\s\c\a\k\l\y\m\p",D,$F("SCAKLYMP",$P(R,D,25))),@FMTk
 .S FP=FP+10 W @F,$P(U,D,2) S FP=FP+11 W @F,$P(R,D,3)
15 S R="K\21\3\"_$P($T(T1),U,2) S:UR'=-1 R=R_$P($T(T3),U,2) S R=R_"\6\\""-""[K!(K?.N)" D R0 G 9:K="-"
17 I K="" S X=14,FP=X*100+1 W @F,@F1 G 13
19 G 15:'$D(@("^"_Q_UGL_"(KC,US,K)")) S UR=K
21 S TYPE=$P(@("^"_Q_UGL_"(KC,US,K,1)"),D,9)
22 S FP=104+$L($P($T(+1),U,2)) W @F,@F1 S UD=@("^"_Q_UGL_"(0,US,""UD"")"),UV=^("UV"),UUM=^("UUM") X ^("UT")
23 S UD=+UD_D_20,UVV=$P($P(UV," ",2),"=",2) D ^KOFPS2,^KOFPS3:UGL="OFF" I UGL="OFKL" S K="D",UTEL=0 D ^KOFKL3:'TYPE,1^KOFKL1:TYPE
25 S R="K\24\3\"_$P($T(T5),U,2)_"\\1\\""-C""[K&$L(K)" D R0 I K="-" S FP=104+$L($P($T(+1),U,2)) W @F,@F1 G 3
27 L @("^"_Q_UGL_"(KC,US,UR)"):2 E  S FP=2403+F60 W @F,@F4,"OFFERTE IN GEBRUIK [] = ok ",@F5,@F2,@F0 R K G 25
29 S X=100,NoSa=$P("S",D,$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,14))
31 S X=$N(B(X)) I X'=-1 G 31:B(X)[D K B(X) G 31
 ;
33 S KCC=KC,URR=UR G ^KOFPS4:UGL="OFF",^KOFPS5
 ;
YZ K @("^"_Q_"SEL($J)") Q
 ;
ShowAantal(Q0,KL,KLX)
 New Aantal,Warn
 Set Aantal=0
 For  Set KL=$O(@Q0) Quit:KL=""  Quit:KL]KLX  Set Aantal=Aantal+1
 Set Warn="Er "_$S(Aantal=1:"zal ",1:"zullen ")_Aantal_" offerte"_$S(Aantal=1:"",1:"s")_" aangemaakt worden"
 Do WARN^vhTXTPOP(Warn,"")
 Quit
 ;
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 S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
R1 D ^cA101 Q
 ;
Z X ^cZ Q
ZZ ; 03.11.88 - 10 u 31