cT365 ;Gestructureerde mededelingen ;%T36 ; [ 04/07/00  1:42 PM ]
 G 1
 ;
T0 ;Gestructureerde mededelingen ;
T1 ;Plaats smal papier op de printer en schakel hem aan\"[] = ok";
T2 ; Klant\Fac.nr\Fac.dat.\Tot fac ;1\Korting ;1\Betaald ;1;
T3 ; Overdrachttotaal; Eindtotaal;
 ;
T0F ;Communications structurées ;
T1F ;Mettez du papier A4 dans l'imprimante et mettez-la marche\"[] = ok";
T2F ; Client\N° fac\Dat.fact\Tot.fac ;1\Escompte ;1\Payé ;1;
T3F ; Total transfert; Total final;
 ;
T0E ;Gestructureerde mededelingen ;
T1E ;Plaats smal papier op de printer en schakel hem aan\"[] = ok";
T2E ; Klant\Fac.nr\Fac.dat.\Tot fac ;1\Korting ;1\Betaald ;1;
T3E ; Overdrachttotaal; Eindtotaal;
 ;
S1 S AFS(1,4)=T(4)_"\\1\\1\"_DEC,AFS(1,5)=T(5)_"\\1\\1\"_DEC,AFS(1,6)=T(6)_"\\1\\1\"_DEC D ^cA334
S1Z Q
 ;
 ; S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\'$L(K)" D R0
1 D ^cAN3223("","1") I K="-" G 1
11 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";30;;2",HD(3)=D_I1_"- "_$E(BNM,1,30)_";30;;2"
13 S TIT(1)=$P($T(@("T2"_QT)),U,2,99),TAB="29\36\45\57\67\79",AFS(1,1)=$P($T(@("T3"_QT)),U,2),(AFS(1,2),AFS(1,3))=""
15 S (KC,TEL)="",(T(4),T(5),T(6))=0,(BLZ,END,LN)=0
 ;
2 S KC=$O(@("^"_Q_"K4(PRO,DDX,KC)")),SW=1 I KC="" G 3
21 S TEL=$O(@("^"_Q_"K4(PRO,DDX,KC,TEL)")) I TEL="" S END=3 D ^cA334 G 2
23 I SW S TXT(1)=KC_"\\1\\\\KC_"" ""_$P(@(""^""_Q_""KL(^""_Q_""K1(KC),0)""),D,2)"
25 S L=^(TEL),TXT(2)=$P(L,D,14),TXT(3)=$P(L,D,5)
27 S TXT(4)=$P(L,D,7)_"\\1\\1\"_DEC,TXT(5)=$P(L,D,12)_"\\1\\1\"_DEC,TXT(6)=$P(L,D,11)_"\\1\\1\"_DEC
29 D S1 S TXT(1)="",SW=0,T(4)=T(4)+TXT(4),T(5)=T(5)+TXT(5),T(6)=T(6)+TXT(6) G 21
 ;
3 S AFS(1,1)=$P($T(@("T3"_QT)),U,3),END=1 D S1 K HD,TIT,AFS,TXT,TAB G ^cT366
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84