KF11 G 1 ;MODULE TEKSTLIJNEN ;Quit naar %F10 [ 08/05/2002  10:44 AM ]
 ;
C1 W !?2,"[] = neen   1[] = ja" Q
 ;
S0 I UL>$P(UD,D,2) S FP=UL+1*100+1,UL=UL-1 W @F,@F1 S FP=UD*100+1 W @F,@FDL D S3
S0A S UL=UL+1
S0Z Q
 ;
S1 S FP=UL*100+1 W @F,@F1,$C(13),$J(UZ,4)
S1Z Q
 ;
S3 F I=UTEL-($P(UD,D,2)-$P(UD,D,1)):1:UTEL S:$D(UTA(UTB(I))) UTA(UTB(I))=UTA(UTB(I))-1
S3A K UTA(UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))),UTB(UTEL-($P(UD,D,2)-$P(UD,D,1)))
S3Z Q
 ;
1 S UUV=1,R="UO\22\3\TEKST\\"_UTL_"\\\\\L" D ^READ S:K="," K="-" G YZ:K="-"
3 S R="K\23\3\AFDRUKKEN OP FAKTUUR\C1^KF11\1\\""-,1""[K" D ^READ G 1:K="-"!(K=",")
 S B(105)=UO,B(117)="KF11"_"#"_K,B(118)=$P($H,",",2)_";T;;" S:K B(118)=B(118)_"OBF"
5 D S1 W ?5,UO F I=1,5,46,56,68,72,74,80 S FP=UL*100+I W @F,"|"
7 D S0 S UTA(UZ)=UL-1,UTEL=UTEL+1,UTB(UTEL)=UZ
 ;
YZ K UO Q
 ;
SCROL(UO,Funct) 
 New R
 Set UO=$G(UO)
N1 Do SCROL^READ("Tekst",UTL,UO,"","","","L")
 If $G(Funct) Quit K
 Quit:K="-"  Set UO=K
 Set R=@("^"_Q_UGL_"(KC,US,UR,1)") If $P(R,D,25)="M",$P(R,D,29)["F" Set K="" Goto N2
 Do SCROL^READ("Afruk op faktuur",1,"","[] = neen   1[] = ja","","-1[K","L",23)
 Goto N1:K="-"
N2 Set B(105)=UO,B(117)="KF11"_"#"_K
 Quit
 ;