cT366	;Gestructureerde mededelingen ;%T36 ; [ 04/07/00  1:43 PM ]
	G 1
	;
T0	;Gestructureerde mededelingen ;
T1	;Record ;1\ Foutmelding;
T2	;Niet-verwerkte records;
T3	;Plaats smal papier op de printer en schakel hem aan\"[] = ok";
T4	;1;Beweging kan niet verwerkt worden (onbekend).;
T5	;2;Familie kan niet verwerkt worden (onbekend).;
T6	;3;Verrichting kan niet verwerkt worden (onbekend).;
T7	;4;Detail kan niet verwerkt worden (onbekend).;
T8	;5;Geen gestructureerde mededeling;
T9	;6;Gestructureerde mededeling niet leesbaar;
T10	;7;Factuur reeds afgeboekt;
T11	;8;Klant onbekend / Openstaande factuur ontbreekt;
T12	;9;Factuur in vreemde munt;
T13	;10;Gedeeltelijke betaling;
	;
T0F	;Communications structurées ;
T1F	;Enreg. ;1\ Message d'erreur;
T2F	;Enregistrements non traités;
T3F	;Mettez du papier A4 dans l'imprimante et mettez-la en marche\"[] = ok";
T4F	;1;Mouvement ne peut pas être traité (inconnu).;
T5F	;2;Famille ne peut pas être traitée (inconnue).;
T6F	;3;Opération ne peut pas être traitée (inconnue).;
T7F	;4;Détail ne peut pas être traité (inconnu).;
T8F	;5;Pas de communication structurée;
T9F	;6;Communication structurée illisible;
T10F	;7;Facture déjà comptabilisée;
T11F	;8;Client inconnu / Facture ouverte manque;
T12F	;9;Facture en monnaie étrangère;
T13F	;10;Paiement partiel;
	;
T0E	;Gestructureerde mededelingen ;
T1E	;Record ;1\ foutmelding;
T2E	;Niet-verwerkte records;
T3E	;Plaats smal papier op de printer en schakel hem aan\"[] = ok";
T4E	;1;Beweging kan niet verwerkt worden (onbekend).;
T5E	;2;Familie kan niet verwerkt worden (onbekend).;
T6E	;3;Verrichting kan niet verwerkt worden (onbekend).;
T7E	;4;Detail kan niet verwerkt worden (onbekend).;
T8E	;5;Geen gestructureerde mededeling;
T9E	;6;Gestructureerde mededeling niet leesbaar;
T10E	;7;Factuur reeds afgeboekt;
T11E	;8;Klant onbekend / Openstaande factuur ontbreekt;
T12E	;9;Factuur in vreemde munt;
T13E	;10;Gedeeltelijke betaling;
	;
1	S FP=1601 W @F,@F1,!?2,$P($T(@("T2"_QT)),U,2) I $O(^HULP(boot,$J,""))="" G YZ
	; S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\'$L(K)" D R0
11	D ^cAN3223("","1") I K="-" G 11
13	S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";30;;2",HD(3)=D_$P($T(@("T2"_QT)),U,2)_";30;;2"
15	S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TAB="9\79",TVG=""
	;
2	S TVG=$O(^HULP(boot,$J,TVG)) I TVG="" S END=1 D ^cA334 G YZ
21	S L=^(TVG),ER=$P(L,D),L=$P(L,D,2)
23	F A=1:1 S B=$T(@("T"_A_QT)) Q:B=""  I $P(B,U,2)=ER S ER=$P(B,U,3) Q
25	S TXT(1)=TVG_"\1\\1",TXT(2)=L S:$L(L) TXT(2)=TXT(2)_" - "
27	S TXT(2)=TXT(2)_ER_"\\1" D ^cA334 G 2
	;
YZ	K ^HULP(boot,$J),HD,TIT,TAB Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.04.08 - 16 u 39 * V9.01