cT720 ;Verkoopdagboek ;%T72; [ 01/11/01  3:43 PM ]
 G 1
 ;
T0 ;Verkoopdagboek ;
T1 ;Factuur/ Datum Nummer + naam\Totaal;2\Maatstaf;2\BTW;2\B.T.W.;2\Speciale;2\Korting;2\Verschil;2\I;
T2 ;Creditn.       van de klant\document;2\van heffing;2\code;2\bedrag;2\taks;2\contant;2\\C;
T3 ;Eindtotaal facturen;Eindtotaal creditnota's;
T4 ;Algemeen totaal der ;facturen;creditnota's;
T5 ;Klanten;BTW;Egalisatie;Speciale taks;Korting contant;Belastbare basis ;Verschillen ; (IC);
T6 ;\      Algemeen totaal der facturen;;1\\    Algemeen totaal der creditnota's;;1\;
T7 ;\Debet;2\Credit;2\Debet;2\Credit;2;
T8 ;Overdracht facturen;Overdracht creditnota's;
 ;
T0F ;Journal des ventes ;
T1F ;Facture/ Date Numéro + nom\Total;2\  Base   ;2\TVA;2\Montant;2\Taxes;2\Escompte;2\Différence;2\I;
T2F ;N.de cr.       du client\document;2\ taxable;2\code;2\T.V.A.;2\spéciales;2\comptant;2\\C;
T3F ;Total final des factures;Total final des notes de credit;
T4F ;Total général des ;factures;notes de crédit;
T5F ;Clients;TVA;Egalisation;Taxes speciaux;Escompte;Base taxable ;Différences; (IC);
T6F ;\      Total général des factures;;1\\    Total général des notes de credit;;1\;
T7F ;\Débit;2\Crédit;2\Débit;2\Crédit;2;
T8F ;Transfert factures;Transfert notes de crédit;
 ;
T0E ;Sales journal ;
T1E ;Invoice/ Date  Number + name\Total;2\VAT;2\VAT;2\V.A.T.;2\Special;2\In cash;2\Difference;2\I;
T2E ;Credit n       of customer\document;2\basis;2\code;2\amount;2\tax;2\discount;2\\C;
T3E ;Final total invoices;Final total credit notes;
T4E ;General total ;invoices;credit notes;
T5E ;Customers;VAT;Egalisation;Special tax;In cash disc.;Taxable basis ;Differences ; (IC);
T6E ;\            General total invoices;;1\\          General total credit notes;;1\;
T7E ;\Debit;2\Credit;2\Debit;2\Credit;2;
T8E ;Transfer invoices;Transfer credit notes;
 ;
 ; overzicht: dagboek naar file printen
DEV S DEV=$$HFS^cQ9 I DEV<51!(DEV>54) S DEV=0 G DEVZ:$ZV["MSM",DEVD
DEVA S I=Q_"VE.TXT"
DEVB O DEV:(I:"W"):2 E  S DEV=0 G DEVZ
DEVC U DEV:(I:"W") G DEVZ
DEVD S DEV=$$INFO^cQ5 O DEV:("WNS"):2 E  S DEV=0 ; Caché
DEVE I DEV'=0 U DEV
DEVZ Q
 ;
1 X F70 W @F80 I OVZ S PRINTER=$I D DEV I DEV'=0 S FAX=1 ; ivm %A334
10 S HD(1)=D,HD(2)=D_MNM_";C;F82",HD(3)=D
11 S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99),TAB="45\60\75\81\96\107\118\129\131",LN=0
13 S AFS(1,1)=$P($T(@("T8"_QT)),U,2)_"\\9",AFS(2,1)=$P($T(@("T8"_QT)),U,3)_"\\9"
15 S (TEF,TEC)=0,K="" K ^HULP(boot,$J) F Z=1:1 S K=$O(PBTW(K)) Q:'$L(K)  F I=0,1 S ^HULP(boot,$J,K,I,"F")=0,^("C")=0
 ;
 ;dagboek
2 S I1=$O(@Q6) G 5:'$L(I1),2:I1#1 S Z=^(I1) G 2:$P(Z,D,21)-SRT&(SRT'="A")
20 S K=$L($P(Z,D,11),"#")\2+$L($P(Z,D,9)),SMST=0 I $D(LNMAX) S:LNMAX-K<LN LN=99
21 S FC=$P(Z,D),KC=$P(Z,D,4),MST=$P(Z,D,11),B(1)=@("^"_Q_"KL(^"_Q_"K1(KC),0)"),BN=$P(B(1),D,16) F I=1:1:9 S TXT(I)=""
22 S TXT(9)="",K=$E(BN,1,2) I K?2U,$D(^BA(5,K)),$P(@("^"_Q_"BA(39)"),D,4)'=K,'$P(Z,D,8) S TXT(9)=1
220 I TXT(9) F I=1:2 S II=$P(MST,"#",I) Q:'$L(II)  I $D(PBTW(II)),PBTW(II)="0%(47)" S TXT(9)="" Q
 ;optelling
23 F I=2:2 Q:'$L($P(MST,"#",I))  S SMST=SMST+$P(MST,"#",I),^(FC)=^HULP(boot,$J,$P(MST,"#",I-1),+TXT(9),FC)+$P(MST,"#",I)
 ;drukken
24 S TXT(1)=$P(Z,D,1)_" "_I1_" "_$E($P(Z,D,2),1,5)_" "_KC_" "_$P(B(1),D,2),TXT(2)=$P(Z,D,6)
25 G 27:'$L($P(MST,"#",2)) S TXT(3)=$P(MST,"#",2),TXT(4)=PBTW($P(MST,"#",1))_"\1",TXT(5)=$P(Z,D,8)
26 S TXT(6)=$P(Z,D,18),TXT(7)=$P(Z,D,10),TXT(8)=$P(Z,D,7)-SMST-$P(Z,D,10)
27 F I=2,3,5:1:8 S $P(TXT(I),D,5)=1,$P(TXT(I),D,6)=QD,$P(TXT(I),D,8)=(FC="C"+1)
28 S:'$P(Z,D,6) TXT(4)="" F I=3,5:1:8 S:'+TXT(I) TXT(I)=""
29 D ^cA334 G 2:$L($P(Z,D,11),"#")\2+$L($P(Z,D,9))'>1
 ;
3 F I=1:1:9 S TXT(I)=""
31 F I=4:2 Q:'$L($P(MST,"#",I))  S TXT(3)=$P(MST,"#",I)_"\\\\1\"_QD_"\\"_(FC="C"+1),TXT(4)=PBTW($P(MST,"#",I-1))_"\1" D ^cA334
33 I $P(Z,D,9) S TXT(4)="E\1",TXT(5)=$P(Z,D,9)_"\\\\1\"_QD_"\\"_(FC="C"+1),TXT(3)="",@("TE"_FC)=@("TE"_FC)+$P(Z,D,9) D ^cA334 
39 G 2
 ;
 ;journaalpost
5 S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\9",AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\9" S END=4 D ^cA334 
50 I OVZ,DEV'=0 C DEV U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER
51 S AFS(1,1)=$P($T(@("T8"_QT)),U,2)_"\\10",AFS(2,1)=$P($T(@("T8"_QT)),U,3)_"\\10"
53 S TAB="48\69\90\111\131",TIT(1)=$P($T(@("T6"_QT)),U,2,99),TIT(2)=$P($T(@("T7"_QT)),U,2,99) K A D S2
 ;
6 S TXT(1)=$P($T(@("T5"_QT)),U,2)_"\\1",TXT(2)=+A(1,2)_"\\\\1\"_QD_"\\1",TXT(5)=+A(2,2)_"\\\\1\"_QD_"\\2",(TXT(3),TXT(4))="" D S5,^cA334
60 S (TXT(2),TXT(5))="" I +A(1,5)!+A(2,5) S TXT(1)=$P($T(@("T5"_QT)),U,3),TXT(3)=+A(1,5),TXT(4)=+A(2,5) D S1,^cA334
61 I TEF!TEC S TXT(1)=$P($T(@("T5"_QT)),U,4),TXT(3)=TEF,TXT(4)=TEC D S1,^cA334
62 I +A(1,6)!+A(2,6) S TXT(1)=$P($T(@("T5"_QT)),U,5),TXT(3)=+A(1,6),TXT(4)=+A(2,6) D S1,^cA334
63 I +A(1,7)!+A(2,7) S TXT(1)=$P($T(@("T5"_QT)),U,6),TXT(3)=+A(1,7),TXT(4)=+A(2,7) D S1,^cA334
64 S I2="" F Z=1:1 S I2=$O(^HULP(boot,$J,I2)) Q:'$L(I2)  S I3="" D S3
65 I +A(1,8)!+A(2,8) S TXT(1)=$P($T(@("T5"_QT)),U,8),TXT(3)=+A(1,8),TXT(4)=+A(2,8) D S1,^cA334
66 S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\10",AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\10"
69 S END=1 D ^cA334
 ;
YZ Q
 ;
S1 S $P(TXT(1),D,3)=6 F I=5,8 S $P(TXT(3),D,I)=1
S1A S $P(TXT(4),D,5)=1,$P(TXT(4),D,8)=2
S1B F I=3,4 S $P(TXT(I),D,6)=QD I '+TXT(I) S TXT(I)=""
S1Z Q
 ;
S2 F I=1,2 F II=2:1:9 I $D(AFS(I,II)) S A(I,II)=AFS(I,II) K AFS(I,II)
S2A S A(1,5)=A(1,5)-TEF,A(2,5)=A(2,5)-TEC
S2Z Q
 ;
S3 F Z=1:1 S I3=$O(^HULP(boot,$J,I2,I3)) Q:'$L(I3)  S X=^(I3,"F"),Y=^("C") I X!Y D S4
S3Z Q
 ;
S4 S TXT(1)=$P($T(@("T5"_QT)),U,7)_PBTW(I2)_$S(I3:$P($T(@("T5"_QT)),U,9),1:""),TXT(3)=X,TXT(4)=Y D S1,^cA334
S4Z Q
 ;
S5 F I=2,5 S:'+TXT(I) TXT(I)=""
S5Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84