OfferteVolgensKlantSelectie ;OPMAKEN OFFERTES VOLGENS KLANTENSELEKTIE ;Go naar KOFPS2 [ 08/05/2002  11:48 AM ]

T1 ;GEEF HET TE COPIEREN OFFERTENUMMER\
T2 ;"K[] = selektie via klant"
T3 ;"[] = vervolg"
T5 ;C[] = COPIEREN DEFINITIEF
 
 ;    initialisatie + vraag
 S US="F",UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB"
SelecteerKlanten
 D ToonTitel
 S KSEL=1 D KP^KSEL G Exit:K="-"
 D ToonTitel,ToonAantal(Q0,KL,KLX)
SelecteerOfferte
 F  S K=$$SELECT^FLOW("KOFKL","KOFKL1",1) Q:K="-"  S KC=$P(^KOFKL1(K,"F"),D) Q:$D(@("^"_Q_UGL_"(KC,US,K)"))
 G SelecteerKlanten:K="-"
 S UR=K
 S TYPE=$P(@("^"_Q_UGL_"(KC,US,K,1)"),D,9)
 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")
 S UD=+UD_D_20,UVV=$P($P(UV," ",2),"=",2) D ^Flow.Offerte.KlantSelectie.ToonHoofdingOrigineel  
 I UGL="OFKL" S K="D",UTEL=0 D ^KOFKL3:'TYPE,1^KOFKL1:TYPE
BevestigCopie
 S R="K\24\3\"_$P($T(T5),U,2)_"\\1\\""-C""[K&$L(K)" D Input I K="-" S FP=104+$L($P($T(+1),U,2)) W @F,@F1 G SelecteerKlanten
 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 BevestigCopie
CreeerDuplicaten 
 S X=100,NoSa=$P("S",D,$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,14))
 F  S X=$N(B(X)) Q:X=-1  I B(X)'[D K B(X)
 S KCC=KC,URR=UR G ^Flow.Offerte.KlantSelectie.CreeerDuplicaten
Exit
 K @("^"_Q_"SEL($J)")
 Q
 
ToonAantal(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
 
ToonTitel
 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
 Q
 
Input S R7=1 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)_")"
 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)
 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
InputC S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
 R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
 E  G InputC
 S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
 K R,R0,R2,R3,R4,R5,R6,R7
 Q