cAT120 ;Openst. KL.facturen bij opstart ;%AT12 ;%AT12* ; [ 12/29/00  4:46 PM ]
 G 1
 ;
T0 ;Openstaande klantensaldi bij de opstart ;
T1 ;FNR\22\3\Saldonummer\"xxxxxx-[] = saldonr. verwijderen   99xxxx[] = voorschotnummer   -[] = einde"\7\\K?6n!(K?6n1"-")&$e(K)!(K="-")\\\726;
T2 ;FC\22\3\Factuur/Creditnota\"[] = factuur   1[] = creditnota"\1\\-1[K\\\826;
T3 ;DTM\22\3\Datum document\"dd.mm.jj[] = specifieke datum   [] = "_DT\8\DCTR\\\\926;
T4 ;K\22\3\Vervaldatum\"dd.mm.jj[] = specifieke datum   [] = "_VVD\8\DCTR\\\\1026;
T5 ;TOT\22\3\Totaal document\\11\INCTR\$l(K)\\\1126;
T6 ;OPE\22\3\Nog te betalen\"[] = zelfde bedrag"\11\INCTR\(K'>TOT)\\\1226;
T7 ;KKB\22\3\Korting contant\\11\INCTR\(K'>OPE)\\\1326;
T8 ;WBF\22\3\Te betalen in #\\11\INCTRBF\$l(K)\\\1426;
T9 ;Factuur;Creditnota;
T10 ;Bevestiging\"[] = ok   ,[]= hernemen";
T11 ;,[] = hernemen   V[] = verwijderen ;
 ;
T0F ;Soldes initiaux des clients au départ ;
T1F ;FNR\22\3\N° de solde\"xxxxxx-[] = radier solde xxxxxx   99xxxx[] = acompte   -[] = fin"\7\\K?6n!(K?6n1"-")&($e(K))!(K="-")\\\726;
T2F ;FC\22\3\Facture/Note de crédit\"[] = facture    1[] = note de crédit"\1\\-1[K\\\826;
T3F ;DTM\22\3\Date document\"jj.mm.aa[] = date spécifique   [] = "_DT\8\DCTR\\\\926;
T4F ;K\22\3\Date d'échéance\"jj.mm.aa[] = date spécifique   [] = "_VVD\8\DCTR\\\\1026;
T5F ;TOT\22\3\Total document\\11\INCTR\$l(K)\\\1126;
T6F ;OPE\22\3\Solde à payer \"[] = même montant"\11\INCTR\(K'>TOT)\\\1226;
T7F ;KKB\22\3\Esc. comptant\\11\INCTR\(K'>OPE)\\\1326;
T8F ;WBF\22\3\A payer en #\\11\INCTRBF\$l(K)\\\1426;
T9F ;Facture;Note de créd.;
T10F ;Confirmation\"[] = ok   ,[] = reprendre";
T11F ;,[] = reprendre   V[] = annuler ;
 ;
T0E ;Initial balance customer accounts ;
T1E ;FNR\22\3\Balance number\"xxxxxx-[] = remove balance nr.   99xxxx[] = number advancer   -[] = end"\7\\K?6n!(K?6n1"-")&$e(K)!(K="-")\\\726;
T2E ;FC\22\3\Invoice/Credit note\"[] = invoice   1[] = credit note"\1\\-1[K\\\826;
T3E ;DTM\22\3\Document date\"dd.mm.yy[] = specific date   [] = "_DT\8\DCTR\\\\926;
T4E ;K\22\3\Due date\"dd.mm.yy[] = specific date   [] = "_VVD\8\DCTR\\\\1026;
T5E ;TOT\22\3\Document total\\11\INCTR\$l(K)\\\1126;
T6E ;OPE\22\3\Still to pay\"[] = same amount"\11\INCTR\(K'>TOT)\\\1226;
T7E ;KKB\22\3\In cash discount\\11\INCTR\(K'>OPE)\\\1326;
T8E ;WBF\22\3\To pay in #\\11\INCTRBF\$l(K)\\\1426;
T9E ;Invoice;Credit note;
T10E ;Confirmation\"[] = ok   ,[]= retry";
T11E ;,[] = retry   V[] = remove ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
 ; wat geprint
S1 I K="" S:V=6 OPE=TOT,K=OPE S:V=3 K=DT,DTM=DT S:V=4 K=VVD
S1A S:V=2 FC=$P("F\C",D,K+1),K=$P($T(@("T9"_QT)),U,K+2) I (V>4)&(V<8) S R=K_"\13\\"_$P(QA_D_QD,D,V=8+1) W @F D R3 Q
S1Z W @F,$J(K,13) Q
 ;
 ; saldo tonen + leeg scherm
1 S QA=QD,VVD=DT,V=1,FP=660,WBF="",R=SAL_"\15\0\"_$P(MNTC,D,2) W @F,@F2 D R3 W $P(MNTC,D)
11 S:VM="" VM=BF G YZ:'$D(@("^"_Q_"BA(11,VM)")) I VM'=BF S QA=+$P(^(VM),D,7)
13 F X=1:1:8 S FP=$P($T(@("T"_X_QT)),D,11) W @F,@F2,"............."
15 W @F1 F FP=1118,1218,1318 W @F,"     ",@F5,@F,@F4,VM," ",@F5
 ;
 ; vraagstelling (V=nummer T-label)
2 S R=$P($T(@("T"_V_QT)),U,2),X=$P(R,D,11) S:V=8 R=$P(R,"#")_BF_$P(R,"#",2) D R0 S FP=X
21 G 1:K="," I K="-" W @F,"............." S V=V-1 G 2:V>0,YZ
23 S:V=2&(FNR>989999) K=1 D S1 G 3:V'=1 D ^cAT121 G 2:'OK
28 I FNR?6N1"-" S X=@("^"_Q_"VEB(+FNR,KC)") G 6
29 I FNR>989999 S FP=FP+100,V=V+1,K=1 D S1
 ;
3 I V=3 S R=DTM_D_CBT D ^cA104 S VVD=R,R=$P($T(@("T4"_QT)),U,2),FP=$P(R,D,11) W @F,".....",VVD
31 I V=4,$L(K) S VVD=K D S1 S R=VVD_D_DTM D ^cA326 I R<0 S V=3 D TXT^cAFA1(136) G 3
33 S V=V+1 G 2:V<8!(VM'=BF&(V=8))
 ;
 ; registratie
4 S V=V-1,R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\"",-""[K" D R0 G 1:K=",",2:K="-"
41 I VM=BF S WBF=OPE
43 S X=$$BEDR^cAFE1(Q,WBF,BF,$P(MNTC,D),"V") S:FC="F" SAL=SAL+X S:FC="C" SAL=SAL-X
45 S @%Q1=0,X=FC_D_DTM_D_VVD_D_TOT_D_OPE_D_KKB_D_D_D_VM_D_WBF_D,@("^"_Q_"KL(I1,FNR)")=X,$P(^(BJ),D)=SAL,@("^"_Q_"VEB(FNR,KC)")=X
47 S:FNR<990000 @("^"_Q_"VF(FNR)")=KC_D S @%Q1=1 G 1
 ;
 ; verwijderen
6 S VM=$P(X,D,9),X=+FNR_D_$P(X,D,1,6)_D_$P(X,D,10),TOT=$P(X,D,6) S:VM'=BF TOT=$P(X,D,8)
61 F V=1:1:8 S R=$P($T(@("T"_V_QT)),U,2,99),K=$P(X,D,V),FP=$P(R,D,11) S:V=2 K=K="C" D S1
63 S R="K\22\3\"_$P($T(@("T11"_QT)),U,2)_"\\1\\""-,V""[K&$L(K)\\\1" D R0 G 1:K'="V"
65 S TOT=$$BEDR^cAFE1(Q,TOT,BF,$P(MNTC,D),"V") S:$P(X,D,2)="F" SAL=SAL-TOT S:$P(X,D,2)="C" SAL=SAL+TOT
67 S @%Q1=0,$P(@("^"_Q_"KL(I1,BJ)"),D)=SAL K ^(+FNR) K @("^"_Q_"VEB(+FNR,KC)"),@("^"_Q_"VF(+FNR)") S @%Q1=1 G 1
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
INCTR ;K?.N!(K?.N1".".N&QA&($L(K#1)-1'>QA))!(K="-")
INCTRBF ;K?.N!(K?.N1".".N&QD&($L(K#1)-1'>QD))!(K="-")
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84