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 S L=^(TEL) 23 I SW S TXT(1)=$$KL^cAFO1("KL",KC,2) 25 S 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 I TXT(6)+TXT(5)