cT291 ;INLEZEN AANKOOPFAKTUREN ;%T291;Do naar %A319,%A703,%T292,%T294,%T296, Go %T297 [ 04/14/00  10:46 AM ]
 ;
T0 ;Inlezen aankoopfacturen ;
T1 ;Inlezen bestand\"-[] = einde programma   [] = ok   x[] = reeds ingelezen bestand";
T2 ;Afdrukken dagboek facturen\"[] = ja   1[] = neen";
T3 ;Afdrukken ventilatie facturen\"[] = ja   1[] = neen";
T4 ;Inboeken facturen\"[] = neen   1[] = ja";
T5 ;Plaats breed blanco papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T6 ;Inboeken facturen\".[] = ok   ,[] = hernemen";
T7 ;ja;neen;Dagboek    : ;Ventilatie : ;Inboeken   : ;
T8 ;Nr.   Datum      Uur      Rec.                  Omschrijving                ;
T9 ;Recordtype foutief !;lengte is niet 128 posities !;dit zijn geen aankoopfacturen !;firmacode foutief !;
T10 ;Opgelet ! Controleer de lijst voor het inboeken van de facturen;er zijn fouten in het bestand - inboeken is niet mogelijk;
 ;
T0F ;Lecture des documents d'achat ;
T1F ;Lecture fichier\"-[] = fin du programme   [] = ok   x[] = fichier déjà lu";
T2F ;Edition journal des factures\"[] = oui   1[] = non";
T3F ;Edition ventilations des factures\"[] = oui   1[] = non";
T4F ;Inscription des factures\"[] = non   1[] = oui";
T5F ;Mettez du papier large dans l'imprimante et mettez-la en marche\"[] = ok   ,[] = reprendre";
T6F ;Inscription des factures\".[] = ok   ,[] = hernemen";
T7F ;oui;non;Journal    : ;Ventilation: ;Inscription: ;
T8F ;N°    Date       Hre      Rec.                  Description                 ;
T9F ;Type de record fautif !;Longueur n'est pas 128 positions !;Ce ne sont pas de factures d'achat !;Code firme fautif !;
T10F ;Attention ! Veuillez contrôler la liste avant l'inscription des factures;Il y a des erreurs dans le fichier - inscription impossible;
 ;
T0E ;Inlezen aankoopfacturen ;
T1E ;Inlezen bestand\"-[] = einde programma   [] = ok   x[] = reeds ingelezen bestand";
T2E ;Afdrukken dagboek facturen\"[] = ja   1[] = neen";
T3E ;Afdrukken ventilatie facturen\"[] = ja   1[] = neen";
T4E ;Inboeken facturen\"[] = neen   1[] = ja";
T5E ;Plaats breed blanco papier op de printer en schakel hem aan\"[] = ok   ,[] = hernemen";
T6E ;Inboeken facturen\".[] = ok   ,[] = hernemen";
T7E ;ja;neen;Dagboek    : ;Ventilatie : ;Inboeken   : ;
T8E ;Nr.   Datum      Uur      Rec.                  Omschrijving                ;
T9E ;Recordtype foutief !;lengte is niet 128 posities !;dit zijn geen aankoopfacturen !;firmacode foutief !;
T10E ;Opgelet ! Controleer de lijst voor het inboeken van de facturen;er zijn fouten in het bestand - inboeken is niet mogelijk;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S K="" G 21:'$D(^HULP("RC",Q)) D S8 S K="" G 21:'$D(S1)
 ;
2 S R="TNR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K?.N&K&(K<11)!(""-""[K)" D R0 G YZ:K="-"
21 I K="" D ^cA703 G 2:K="-"
23 I '$D(^HULP("RC",Q,TNR,10)) G F1
25 S S2=^(10) G F2:$L(S2)'=128,F1:$E(S2,1,2)'="00",F3:$E(S2,43)'=2 S S1=$E(S2,48,50) G F4:$E(Q_"  ",1,3)'=S1&(S1'="   ")
27 S FP=801,S1=^(0),I=1 W @F,@F1 D S7 S K="S DEC=1E"_QD X K
 ;
3 S R="A1\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\-1[K" D R0 G 11:K="-" S FP=1003 W @F,$P($T(@("T7"_QT)),U,4),$P($T(@("T7"_QT)),U,K+2),@F2
31 S R="A2\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\-1[K" D R0 G 3:K="-" S FP=1203 W @F,$P($T(@("T7"_QT)),U,5),$P($T(@("T7"_QT)),U,K+2),@F2
33 S A3=1,R="A3\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\-1[K" D R0:'(A1&A2) G 31:K="-" S FP=1403 W @F,$P($T(@("T7"_QT)),U,6),$P($T(@("T7"_QT)),U,'A3+2),@F2
 ; S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,""[K" D R0 G 3:K=",",33:K="-"
35 D ^cAN3223("","1",">80") G 3:K=",",33:K="-"
 ;
4 S SWF=0 I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="F" S SWF=1
41 S NM1=^(99,1),NM2=^(2),NM3=^(3) X F70 W @F80
43 S K=$E(^HULP("RC",Q,TNR,10),3,42) F I=0:1:9 S S1=$E(K,1,4),K=$E(K,5,40) Q:S1'?4N  S PBTW(I)=S1/100_"%"
 ;
5 D ^cT292:'A1,^cT294:'A2,^cT296:A3 X F71 G YZ:'A3 D F5:ER G YZ:ER=3
51 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-.,""[K&$L(K)" D R0 G 1:K=",",3:K="-"
53 G ^cT297
 ;
YZ Q
 ;
F1 S K=$P($T(@("T9"_QT)),U,2) D FZ G 2
F2 S K=$P($T(@("T9"_QT)),U,3) D FZ G 2
F3 S K=$P($T(@("T9"_QT)),U,4) D FZ G 2
F4 S K=$P($T(@("T9"_QT)),U,5) D FZ G 2
F5 S K=$P($T(@("T10"_QT)),U,ER)
FZ D TXT^cAFA1(250) Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
S7 S FP=I*100+702 W @F,$J(I,3) S FP=FP+6 W @F,$P(S1,D,2) S FP=FP+11 W @F,$P(S1,D,3) S FP=FP+9 W @F,$J($P(S1,D,4),5)
S7Z S FP=FP+8 W @F,$P(S1,D) S FP=FP+23 W @F,$E(S2,51,70) Q
 ;
S8 S R="501\1980",RV="506#1906\517#1917\527#1927\534#1934\757#1957",RH="701#780"
S8A S FP=602 W @F,@F4,$P($T(@("T8"_QT)),U,2),@F5,@F1 D ^cA319 K S1
S8B F I=1:1:10 I $D(^HULP("RC",Q,I,10)) S S2=^(10) I $L(S2)=128,$E(S2,1,2)="00",$E(S2,43)=2,$E(Q_"  ",1,3)=$E(S2,48,50)!($E(S2,48,50)="   ") S S1=^(0) D S7
S8Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84