cT159 ;Inboeken wissels ;%T158 ; [ 01/02/01  11:02 AM ]
 G 1
 ;
T0 ;Inboeken wissels ;
T1 ;Factuurnummer\"[] = overzicht documenten   .[] = overzicht wisseldoc.   V[] = verwijderen";
T2 ;Bevestiging\"V[] = definitief verwijderen";
T3 ;Bedrag\"[] = openstaand   xxxx[] = bedrag factuur   xxxx-[] = bedrag cr.nota";Tot.;
T10 ;Muntcode verschilt van ;
 ;
T0F ;Inscription des traites ;
T1F ;N° de facture\"[] = aperçu des doc.   .[] = aperçu des doc. à traite   V[] = annulation";
T2F ;Confirmation\"V[] = annuler définitivement";
T3F ;Montant\"[] = solde   xxxx[] = montant facture    xxxx-[] = montant note de cr.";Tot.;
T10F ;Code mon. différent du ;
 ;
T0E ;Registration bills of exchange ;
T1E ;Invoice number\"[] = survey documents   .[] = survey bill of exch. docs   V[] = remove";
T2E ;Confirmation\"V[] = remove permanently";
T3E ;Amount\"[] = open   xxxx[] = invoice amount   xxxx-[] = amount cr.note";Tot.;
T10E ;Currency differs from ;
 ;
 ; sorteren openstaande facturen
S1 K ^HULP(boot,$J) S FNR=1E5-1 F  S FNR=$O(@Q1) Q:FNR'?6N  S I=$$DC^cAFD1($S(SORT=2:DT,1:$P(^(FNR),D,2+SORT)))_FNR,^HULP(boot,$J,I)=FNR
S1Z Q
 ;
 ; opentaande facturen
S2 K C8 S B1=0 F FP=1102:100:1802 W @F,$J("",56)
S2A S C1=$O(^HULP(boot,$J,C1)) I C1="" S C1=99999 G S2Z
S2B S FNR=^(C1),B1=B1+1,C8(FNR)=B1,K=@Q1 D OF G S2A:B1<8
S2Z Q
 ;
OF W /CUP(C8(FNR)+10,2),$P(K,D),$J(FNR,7),$J($P(K,D,2),9),$J($P(K,D,3),9),$J($P(K,D,9),4)
OFA I $P(K,D)="C" S $P(K,D,4)=-$P(K,D,4),$P(K,D,5)=-$P(K,D,5)
OFB S DEC=$$DEC^cAFA1($P(K,D,9)) W $$IP^cAFA1($P(K,D,4),DEC,13),$$IP^cAFA1($P(K,D,5),DEC,13)
OFZ Q
 ;
 ; wisselfacturen
S3 K C9 S B2=0 F FP=1159:100:1859 W @F,$J("",21)
S3A S C2=$O(@("^"_Q_"WI(WNR,C2)")) I C2="" S C2=99999 G S3Z
S3B S FNR=C2,B2=B2+1,C9(FNR)=B2,BDR=$P(^(C2),D,5) D WF G S3A:B2<8
S3Z Q
 ;
WF I $P(^(C2),D)="C" S BDR=-BDR
WFA W /CUP(C9(FNR)+10,59),$J(FNR,6),$$IP^cAFA1(BDR,QA,15)
WFZ Q
 ;
 ; facturen sorteren & detail tonen
1 D S1 S C1=99999,C2=C1 D S2,S3 W /CUP(20,68),$$IP^cAFA1(TOT,QA,12)
11 W /CUP(21,1),@F1 I $G(FNR),$D(C8(FNR)) W /CUP(C8(FNR)+10,32)," "
12 S R="FNR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\""-.V""[K&($L(K)<2)!(K?6N)\\\1" D R0 G YZ:K="-",4:K="V"
13 I K'?6N D S3:FNR=".",S2:FNR="" G 11
15 W /CUP(21,3),$P($P($T(@("T1"_QT)),U,2),D)," : ",FNR
17 S WZ=0 I $D(@("^"_Q_"WI(WNR,FNR)")) S A=^(FNR),WZ=1 G 3
19 S VM=$P(^(0),D,8) I $O(^(0))="" S VM=""
 ;
 ; opzoeken openstaande factuur
2 I '$D(@Q1) S R=86 D F2 G 11   ; factuur onbekend
21 I '$D(C8(FNR)) S A=FNR D S2 S FNR=A G 21
23 W /CUP(C8(FNR)+10,32),"*"
25 S A=@Q1,K=$P(A,D,9) S:K="" K=BF
27 I $L(VM),K'=VM S K=$P($T(@("T10"_QT)),U,2)_VM D F1 G 11
29 I VM="" S VM=K,QA=$$DEC^cAFA1(VM) W /CUP(20,58),@F4,$P($T(@("T3"_QT)),U,3),VM," ",@F5,@F2
 ;
 ; bedrag ingeven
3 S R="BDR\22\3\"_$P($T(@("T3"_QT)),U,2)_"\10\\""-""[K!$$W^cAFI2(K,QA,$P(A,D)=""C"")" D R0 G 11:K="-"
30 I $P(A,D)="C",$L(BDR) G 3:BDR'["-" S BDR=+BDR
31 S OF=$G(@Q1) I 'WZ,BDR>$P(OF,D,5) S R=217 D F2 G 3
33 I WZ,BDR>($P(OF,D,5)+$P(A,D,5)) S R=217 D F2 G 3
35 I 'WZ D ^cT1590 G 1      ; factuur toevoegen aan wissel
37 S WZ=BDR,BDR=0 D ^cT1591 ; factuur terug openstellen
39 S BDR=WZ,WZ=0 G 35
 ;
 ; verwijderen
4 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-V""[K&$L(K)\\\1" D R0 G 11:K'="V"
41 S FNR=99999
43 S FNR=$O(@("^"_Q_"WI(WNR,FNR)")) I FNR'="" S A=^(FNR),BDR=0 D ^cT1591 G 43
45 S @%Q1=0,$P(@("^"_Q_"WI(WNR,0)"),D)=1,FNR=WNR K @Q1 S @%Q1=1
47 D S1 S (C1,C2)=1E5-1 D S2,S3 W /CUP(20,68),$$IP^cAFA1(TOT,QA,12)
 ;
YZ K B1,B2,C8,C9 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84