KFCOF ; MODULE COPIEREN OFFERTELIJNEN; Quit naar %F10 [ 08/05/2002  10:44 AM ]
 G 1
 ;
T1 ;DIT ORDER IS REEDS GESLOTEN
T2 ;GEEF HET TE COPIEREN ;OFFERTE;ORDER;NUMMER
T3 ;K[] = selektie via klant
T4 ;COPIEREN ;OFFERTE;ORDER; VAN KLANT : 
T5 ;[] = vervolg
T6 ;COPIEREN ;OFFERTE;ORDER; : ; - VAN KLANT : 
T7 ;DIT IS GEEF DETAILOFFERTE
T8 ;C[] = COPIEREN DEFINITIEF
 ;
SELECT(GL) 
 S R=^KOD(KC,US,UR,1) I $P(R,D,22) S S=$P($T(T1),U,2) X ^cTXT(0,"N",89) R K Q "-"
S1 S R="K\21\3\"_$P($T(T2),U,2)_$P($T(T2),U,$F("FD",$E(GL,2))+1)_$P($T(T2),U,5)_"\"""_$P($T(T3),U,2)_"""\6\\$L(K)"
 D R0^cA100 Q:K="-" K G S6:$D(^KOFKL1(K)),S1:K'="K"
S2 S R="K\2000\DE KLANT\KL\K1" D R1^cA101 G S1:K="-"
 S K=^KKL(K,0),KCO=$P(K,D),FP=1803 W @F,@F1,$P($T(T4),U,2),$P($T(T4),U,$F("FD",$E(GL,2))+1),$P($T(T4),U,5),$P(K,D,2)
 S URO=0,LN=18
S3 S URO=$O(^KOFKL(KCO,"F",URO)) G S5:URO="" S R=^KOFKL(KCO,"F",URO,1) G S3:'$P(R,D,9)
 S LN=LN+1,FP=LN*100+1 W @F,@F1,$C(13),?1,URO,?10,$P(R,D,2),?21,$P(R,D,3) G S3:LN<22,S5:$O(^KOFKL(KCO,"F",URO))=""
S4 S R="K\23\3\"_$P($T(T2),U,2)_"\"""_$P($T(T5),U,2)_"""\6" D R0^cA100 I K="-" S FP=1801 W @F,@F1 G S2
 S LN=18 G S3:K="",S4:'$D(^KOFKL(KCO,"F",K)),S6
S5 S R="K\23\3\"_$P($T(T2),U,2)_"\\6" D R0^cA100 I K="-" S FP=1801 W @F,@F1 G S2
 I K="" S URO=0,LN=18 G S3
 G S5:'$D(^KOFKL(KCO,"F",K))
S6 S URO=K,KCO=$P(^KOFKL1(URO,"F"),D),R=^KOFKL(KCO,"F",URO,1)
 I GL="OFKL",'$P(R,D,9) S S=$P($T(T7),U,2) X ^cTXT(0,"N",89) R K Q "-"
 S FP=1801 W @F,@F1,!!!?2,$P($T(T6),U,2),$P($T(T6),U,$F("FD",$E(GL,2))+1),$P($T(T6),U,5),URO,$P($T(T6),U,6),$P(^KKL(^KK1(KCO),0),D,2)
 S R="K\24\3\"_$P($T(T8),U,2)_"\\1\\""-C""[K&$L(K)" D R0^cA100 Q:K="-" K
 Q URO
 ;
YZ s K="-" h 2 Q
 ;
1 S R=^KOD(KC,US,UR,1) I $P(R,D,22) S S=$P($T(T1),U,2) X ^cTXT(0,"N",89) R K S K="-" G YZ
 S R="K\21\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_"""\6\\$L(K)" D R0^cA100 G YZ:K="-",19:$D(^KOFKL1(K)),1:K'="K"
11 S R="K\2000\DE KLANT\KL\K1" D R1^cA101 G 1:K="-"
 S K=^KKL(K,0),KCO=$P(K,D),FP=1803 W @F,@F1,$P($T(T4),U,2),$P(K,D,2)
 S URO=0,LN=18
13 S URO=$O(^KOFKL(KCO,"F",URO)) G 17:URO="" S R=^KOFKL(KCO,"F",URO,1) G 13:'$P(R,D,9)
 S LN=LN+1,FP=LN*100+1 W @F,@F1,$C(13),?1,URO,?10,$P(R,D,2),?21,$P(R,D,3) G 13:LN<22,17:$O(^KOFKL(KCO,"F",URO))=""
15 S R="K\23\3\"_$P($T(T2),U,2)_"\"""_$P($T(T5),U,2)_"""\6" D R0^cA100 I K="-" S FP=1801 W @F,@F1 G 11
 S LN=18 G 13:K="",15:'$D(^KOFKL(KCO,"F",K)),19
17 S R="K\23\3\"_$P($T(T2),U,2)_"\\6" D R0^cA100 I K="-" S FP=1801 W @F,@F1 G 11
 I K="" S URO=0,LN=18 G 13
 G 17:'$D(^KOFKL(KCO,"F",K))
19 S URO=K,KCO=$P(^KOFKL1(URO,"F"),D),R=^KOFKL(KCO,"F",URO,1)
 I '$P(R,D,9) S S=$P($T(T7),U,2) X ^cTXT(0,"N",89) R K S K="-" G YZ
 S FP=1801 W @F,@F1,!!!?2,$P($T(T6),U,2),URO,$P($T(T6),U,3),$P(^KKL(^KK1(KCO),0),D,2)
 S R="K\24\3\"_$P($T(T8),U,2)_"\\1\\""-C""[K&$L(K)" D R0^cA100 G YZ:K="-"