cT682 ;Uitgaande documenten ;%T68 ;%T68* ; [ 01/03/01  7:46 PM ]
 G 1
 ;
T0 ;Uitgaande fact/creditn ;
T1 ;A[] = annulatie document;xx-[] = verwijderen lijn;
T2 ;R[] = registratie factuur;D[] = detail ventilaties;
T3 ;[] = ingave rekening;[] = ingave O-code;+[] = vervolg;
T4 ;De opbrengstenrekening;O-code;
 ;
T0F ;Documents de sortie ;
T1F ;A[] = annulation document;xx-[] = annulation ligne;
T2F ;R[] = enregistrer document;D[] = détail ventilations;
T3F ;[] = sélection compte;[] = code O;+[] = suite;
T4F ;Compte profit;Code O;
 ;
T0E ;Registration of outgoing documents ;
T1E ;A[] = cancel document;xx-[] = remove line;
T2E ;R[] = invoice registration;D[] = detail ventilations;
T3E ;[] = input account;[] = input O code;+[] = next;
T4E ;The profit account;O code;
 ;
S1 S R="BR\2100\"_$P($T(@("T4"_QT)),U,2)_"\AR\R1" D @$G(@("^"_Q_"AR(0,5)"),"^cA217") G S1Z:K="-"!(K=",") D ^cT6821,^cT6822:$L(BR) G S1:'$L(BR)
S1Z Q
 ;
S2 S R="KK\2100\"_$P($T(@("T4"_QT)),U,3)_"\BA\3\1;;6;28",R(1)="""%F""",R(2)=22 D ^cA115 G S2Z:K="-"!(K=",")
S2A S STR=@("^"_Q_"BA(""%F"",22,K)"),BR=$P(STR,D,2) D ^cT6821,^cT6822:$L(BR) G S2:'$L(BR) D ^cT6823
S2Z K KK Q
 ;
1 S TUS=+NET,LN=0,LX=15 K A,^HULP(boot,$J) L @("^"_Q_"KL(I1)"):2 E  S R=14 D F2 G 4^cT681
11 S FP=515 W @F,$P(@Q91,D) S FP=1501 W @F,@F1 S (MAN,LD)=0 D S3^cT6822 S MAN=1
13 S TB=0 F R=1:1:3 F R0=2,3 S R1=$L($P($T(@("T"_R_QT)),U,R0))+3 I R1>TB S TB=R1
 ;
2 S R="K\22\3\"_$E($P($T(@("T1"_QT)),U,2)_$J("",TB),1,TB)_$P($T(@("T1"_QT)),U,3)_"\C1\3\INCTR\\\\1" D R0 G ^cT680:K="A",4:K="D"!(K="+"),5:K="R"
21 I K="" D S1:$P(EXBA,D,2)<2,S2:$P(EXBA,D,2)=2 G 2
23 I K="." D S2:$P(EXBA,D,2)=1,S1:$P(EXBA,D,2)=2 G 2
 ;         
3 S K=+K I '$D(^HULP(boot,$J,0,K)) S R=216 D F2 G 2
31 S (R0,R1)=0 F R=15:1:20 I $D(A(R)) S:'R1 R1=A(R) I A(R)=K S R0=1 Q
33 I 'R0 S R=219 D F2 G 2
35 S BE=$P(^(K),S,4)
37 K ^(K) S R=$O(^(K)) I R'="" S ^(K)=^(R),K=R G 37
39 S LD=R1-1,K="+",LN=LN-1,TUS=TUS+BE D S3^cT6822
 ;
4 S LX=15,FP=1501 W @F,@F1 K A I K="D" S LD=0
41 S LD=$O(^HULP(boot,$J,0,LD)) I LD'="" S A(LX)=LD D S2^cT6822 I LX<20 S LX=LX+1 G 41
43 S:LD="" LD=0 I LD,'$L($O(^HULP(boot,$J,0,LD))) S LD=0
45 G 2
 ;
5 I TUS S R=26 D F2 G 2
 ;
YZ G ^cT683
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
C1 W !?2,$E($P($T(@("T2"_QT)),U,2)_$J("",TB+2),1,TB+2),$P($T(@("T2"_QT)),U,3),!?2
C1A W $E(" "_$P($T(@("T3"_QT)),U,$S($P(EXBA,D,2)=2:3,1:2))_$J("",TB),1,TB)
C1B I $P(EXBA,D,2) W $E("  ."_$P($T(@("T3"_QT)),U,4-$P(EXBA,D,2))_$J("",TB),1,TB)
C1C I LD W $P($T(@("T3"_QT)),U,4)
C1Z Q
 ;
INCTR ;"ADR"[K!(K="."&+$P(EXBA,D,2))!(K="+"&LD)!(K?1.2N1"-")
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84