cT720	;Verkoopdagboek ;%T72;   [ 25/11/09  10:55:25 ]
	G 1
	;
	; Aanpassing afdrukken verkoopdagboek : nov. 2002 (GD - FB)
	; opbouwen van ^HULP(boot,$J+.01,journaalnummer,factuur) = inhoud VE
	; aflopen van facturen per journaal, afdrukken per journaal met eindoverzicht
	; per journaal (lijnen 4 tot 66+2) en helemaal op het einde een algemeen overzicht 
	; (lijnen 7 tot 86+2 : "kopie" van lijnen 4 tot 66+2), 
	; journaal - overkoepelend, maar per BTW - nummer (was vroeger reeds ingebouwd)
	; 
T0	;Verkoopdagboek ;
T1	;Factuur/ Datum Nummer + naam\Totaal;2\Maatstaf;2\BTW;2\BTW;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;
T9	;Journaal;Eindoverzicht ;alle journalen;
	;
T0F	;Journal des ventes ;
T1F	;Facture/ Date  Numéro + nom\Total;2\Base;2\Code;2\Montant;2\Taxes;2\Escompte;2\Différence;2\I;
T2F	;N.de cr.       du client\document;2\taxable;2\TVA;2\TVA;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 spéciales;Escompte comptant;Base taxable ;Différences; (IC);
T6F	;\       Total général des factures;;1\\    Total général des notes de crédit;;1\;
T7F	;\Débit;2\Crédit;2\Débit;2\Crédit;2;
T8F	;Transfert factures;Transfert notes de crédit;
T9F	;Journal;Aperçu final ;tous les journaux;
	;
T0E	;Sales journal ;
T1E	;Invoice/ Date  Number + name\Total;2\VAT;2\VAT;2\VAT;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 discount;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;
T9E	;Journal;Final summary ;all journals;
	;
T0D	;Verkaufjournal ;
T1D	;Rechnung / Datum Nummer Name\Beleg-;2\Steuerbasis;2\MWSt;2\MWSt;2\Spez.;2\Skonto;2\Differenz;2\I;
T2D	;Creditn.       van de klant\Total;2\ ;2\Code;2\Betrag;2\Steuern;2\Barzlg.;2\\C;
T3D	;Schlusstotal der Rechnungen;Schlusstotal der Gutschriften;
T4D	;Gesamttotal der ;Fakturen;Gutschriften;
T5D	;Kunden;MWSt;Egalisatie;Speciale taks;Barzahlungs-Skonto;Steuerbasis ;Differenzen ; (IC);
T6D	;\      Gesamttotal der Fakturen;;1\\    Gesamttotal der Gutschriften;;1\;
T7D	;\Soll;2\Haben;2\Soll;2\Haben;2;
T8D	;Übertrag Fakturen;Übertrag Gutschriften;
T9D	;Journal;Schlussübersicht ;alle Journale;
	;
	; 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
	;
	; start
	; KO - 01.08.03
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 A,AA,^HULP(boot,$J),^HULP(boot,$J+.01)
	; 
	; opbouwen ^HULP(boot,$J+.01,... per journaal - FB - 20.11.02
17	S I1="" F  S I1=$O(@Q6) Q:I1=""  I I1'["." D
	. S INH=^(I1),JRN=$P(INH,D,21) S:'JRN JRN=0 I SRT="A"!(SRT=JRN) S ^HULP(boot,$J+.01,JRN,I1)=INH
	;
	; aflopen van opgebouwde ^HULP en afdrukken per journaal - FB - 20.11.02
19	S JRN=""
191	S JRN=$O(^HULP(boot,$J+.01,JRN)) G 7:JRN="" S I1="",Q6="^HULP(boot,$J+.01,JRN,I1)"
	;
	; dagboek
2	K HD(4),A,TOP
	S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99)
	S TAB="45\60\75\81\96\107\118\129\131",LN=0
	S JRNCODE="V"_$S('JRN:"",1:$E("000",1,3-$L(JRN)))_$S('JRN:"",1:JRN)
	S JRNOMS=$P(@("^"_Q_"BA(""%T"",JRNCODE)"),D,2)_" "_$P(^(JRNCODE),D)
	S HD(3)=D_$P($T(@("T9"_QT)),U,2)_" "_JRN_" : "_JRNOMS_";C;F82"
	F  S I1=$O(@Q6) Q:'$L(I1)  I '(I1#1) S Z=^(I1) D
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)=""
	. ; VJ 26.07.01
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
	. S TXT(9)="" S SWIC=$$ICVE^cT00A(Q,BP,I1) I SWIC S TXT(9)=1  ; KU : 25.11.09
	. S BTWNR=$P(Z,D,36) I BTWNR="" S BTWNR=0
	. S TOP(1,1)=$$BTW^cAFO1($S(BTWNR'=0:BTWNR,1:$P($G(@("^"_Q_"BTW(0,0)")),D,7)))
	. I '$D(^HULP(boot,$J,BTWNR)) D
	.. N K,I
	.. S K="" F  S K=$O(PBTW(K)) Q:K=""  F I=0,1 D
	... S ^HULP(boot,$J,BTWNR,K,I,"F")=0,^("C")=0
	... S:'$D(^HULP(boot,$J,"EIND",BTWNR)) ^HULP(boot,$J,"EIND",BTWNR,K,I,"F")=0,^("C")=0
	.. F I=1,2 F K=1:1:$L(TAB,D) S A(BTWNR,I,K)=0
	. ; optelling
23	. F I=2:2 Q:'$L($P(MST,"#",I))  D
	.. S SMST=SMST+$P(MST,"#",I)
	.. S I5=$S('SWIC:+SWIC,1:(U_$P(SWIC,D,2)_U)[(U_$P(MST,"#",I-1)_U))  ; KU : 25.11.09
	.. S ^(FC)=^HULP(boot,$J,BTWNR,$P(MST,"#",I-1),I5,FC)+$P(MST,"#",I)
	.. S ^(FC)=$G(^HULP(boot,$J,"EIND",BTWNR,$P(MST,"#",I-1),I5,FC))+$P(MST,"#",I)
	. ; printen
24	. S TXT(1)=$P(Z,D)_$J(I1,7)_" "_$E($P(Z,D,2),1,5)_" "_KC_" "_$P(B(1),D,2),TXT(2)=$P(Z,D,6)
25	. I $L($P(MST,"#",2)) D
	.. 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 PRINT Q:$L($P(Z,D,11),"#")\2+$L($P(Z,D,9))'>1
	. ;
	. ; meerdere BTW-codes
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 PRINT
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
	;
	; eindtotaal dagboek
4	S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\9"
	S AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\9"
	S END=4 D ^cA334
	I SRT'="A",OVZ,DEV'=0 C DEV U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER
	;
	; journaalpost per BTW-nummer
5	S TAB="48\69\90\111\131"  ; ,BTWNR=""
	S $P(HD(4),D,2)=$P($T(@("T9"_QT)),U,3)_";C;F82"
	S TIT(1)=$P($T(@("T6"_QT)),U,2,99),TIT(2)=$P($T(@("T7"_QT)),U,2,99)
	; FB - 20.11.02 - journaalpost per journaal
51	; S BTWNR=$O(^HULP(boot,$J,BTWNR)) I BTWNR="" S END=4 K AFS D ^cA334 G 191
	; S I=BTWNR I I=0,$O(^(I))="" G 53
	; I I=0 S I=$P($G(@("^"_Q_"BTW")@(0,0)),D,7)
	; S TOP(1,1)=$$BTW^cAFO1(I)
53	K AFS(1) S AFS(1,1)=$P($T(@("T8"_QT)),U,2)_"\\11"
	K AFS(2) S AFS(2,1)=$P($T(@("T8"_QT)),U,3)_"\\11"
	S END=8 D ^cA334
	;
	; klanten
6	S TXT(1)=$P($T(@("T5"_QT)),U,2)_"\\1"
	S TXT(2)=$G(A(BTWNR,1,2))_"\\\\1\"_QD_"\\1" I 'TXT(2) S TXT(2)=""
	S TXT(5)=$G(A(BTWNR,2,2))_"\\\\1\"_QD_"\\2" I 'TXT(5) S TXT(5)=""
	S (TXT(3),TXT(4))="" D ^cA334
	; btw
60	S (TXT(2),TXT(5))="" I $G(A(BTWNR,1,5))!$G(A(BTWNR,2,5)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,3)
	. S TXT(3)=$G(A(BTWNR,1,5)),TXT(4)=$G(A(BTWNR,2,5)) D S1,^cA334
	; egalisatie
61	I TEF!TEC D
	. S TXT(1)=$P($T(@("T5"_QT)),U,4)
	. S TXT(3)=TEF,TXT(4)=TEC D S1,^cA334
	. S (TEF,TEC)=0 ; slechts 1x printen
	; spec.taks
62	I $G(A(BTWNR,1,6))!$G(A(BTWNR,2,6)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,5)
	. S TXT(3)=$G(A(BTWNR,1,6)),TXT(4)=$G(A(BTWNR,2,6)) D S1,^cA334
	; korting contant
63	I $G(A(BTWNR,1,7))!$G(A(BTWNR,2,7)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,6)
	. S TXT(3)=$G(A(BTWNR,1,7)),TXT(4)=$G(A(BTWNR,2,7)) D S1,^cA334
	; per BTW-code
64	S I2="" F  S I2=$O(^HULP(boot,$J,BTWNR,I2)) Q:I2=""  D S3
	; verschillen
65	I $G(A(BTWNR,1,8))!$G(A(BTWNR,2,8)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,8)
	. S TXT(3)=$G(A(BTWNR,1,8)),TXT(4)=$G(A(BTWNR,2,8)) D S1,^cA334
	; subtotaal
66	S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\11"
	S AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\11"
	S END=2 D ^cA334 S END=4 K AFS D ^cA334
	K ^HULP(boot,$J,BTWNR) G 191
	;
	; eindjournaalpost per BTW-nummer
7	G YZ:SRT'="A"
	I OVZ,DEV'=0 C DEV U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER
	S TAB="48\69\90\111\131",BTWNR="" K HD(4) S HD(3)=D
	S HD(4)=D_$P($T(@("T9"_QT)),U,3)_$P($T(@("T9"_QT)),U,4)_";C;F82"
	S TIT(1)=$P($T(@("T6"_QT)),U,2,99),TIT(2)=$P($T(@("T7"_QT)),U,2,99)
71	S BTWNR=$O(^HULP(boot,$J,"EIND",BTWNR)) I BTWNR="" G YZ
	S I=BTWNR I I=0,$O(^(I))="" G 73
	I I=0 S I=$P($G(@("^"_Q_"BTW")@(0,0)),D,7)
	S TOP(1,1)=$$BTW^cAFO1(I)
73	K AFS(1) S AFS(1,1)=$P($T(@("T8"_QT)),U,2)_"\\11"
	K AFS(2) S AFS(2,1)=$P($T(@("T8"_QT)),U,3)_"\\11"
	S END=8 D ^cA334
	;
	; klanten
8	S TXT(1)=$P($T(@("T5"_QT)),U,2)_"\\1"
	S TXT(2)=$G(AA(BTWNR,1,2))_"\\\\1\"_QD_"\\1" I 'TXT(2) S TXT(2)=""
	S TXT(5)=$G(AA(BTWNR,2,2))_"\\\\1\"_QD_"\\2" I 'TXT(5) S TXT(5)=""
	S (TXT(3),TXT(4))="" D ^cA334
	; btw
80	S (TXT(2),TXT(5))="" I $G(AA(BTWNR,1,5))!$G(AA(BTWNR,2,5)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,3)
	. S TXT(3)=$G(AA(BTWNR,1,5)),TXT(4)=$G(AA(BTWNR,2,5)) D S1,^cA334
	; egalisatie
81	I TEF!TEC D
	. S TXT(1)=$P($T(@("T5"_QT)),U,4)
	. S TXT(3)=TEF,TXT(4)=TEC D S1,^cA334
	. S (TEF,TEC)=0 ; slechts 1x printen
	; spec.taks
82	I $G(AA(BTWNR,1,6))!$G(AA(BTWNR,2,6)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,5)
	. S TXT(3)=$G(AA(BTWNR,1,6)),TXT(4)=$G(AA(BTWNR,2,6)) D S1,^cA334
	; korting contant
83	I $G(AA(BTWNR,1,7))!$G(AA(BTWNR,2,7)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,6)
	. S TXT(3)=$G(AA(BTWNR,1,7)),TXT(4)=$G(AA(BTWNR,2,7)) D S1,^cA334
	; per BTW-code
84	S I2="" F  S I2=$O(^HULP(boot,$J,"EIND",BTWNR,I2)) Q:I2=""  D S4
	; verschillen
85	I $G(AA(BTWNR,1,8))!$G(AA(BTWNR,2,8)) D
	. S TXT(1)=$P($T(@("T5"_QT)),U,8)
	. S TXT(3)=$G(AA(BTWNR,1,8)),TXT(4)=$G(AA(BTWNR,2,8)) D S1,^cA334
	; subtotaal
86	S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\11"
	S AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\11"
	S END=4 D ^cA334 
	G 71
	;
YZ	S END=6 D ^cA334 Q
	;
	; printen detaillijn + totaliseren per BTW-nummer
PRINT	D ^cA334
	S K=1 F  S K=$O(TXT(K)) Q:K=""  I $P(TXT(K),D,8) D
	. S A(BTWNR,$P(TXT(K),D,8),K)=$G(A(BTWNR,$P(TXT(K),D,8),K))+TXT(K)
	. S AA(BTWNR,$P(TXT(K),D,8),K)=$G(AA(BTWNR,$P(TXT(K),D,8),K))+TXT(K)
PRINTZ	Q
	;
	; correctie TXT ivm printen
S1	S $P(TXT(1),D,3)=6
	F I=5,8 S $P(TXT(3),D,I)=1
	S $P(TXT(4),D,5)=1,$P(TXT(4),D,8)=2
	F I=3,4 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)=""
S1Z	Q
	;
	; I2=BTW-code ; I3=aanduiding IC (0=neen <> 1=ja)
S3	F I3=0,1 S X=^HULP(boot,$J,BTWNR,I2,I3,"F"),Y=^("C") I X!Y D
	. S TXT(1)=$P($T(@("T5"_QT)),U,7)_PBTW(I2)_$P($T(@("T5"_QT)),U,10-I3)
	. S TXT(3)=X,TXT(4)=Y D S1,^cA334
S3Z	Q
	; I2=BTW-code ; I3=aanduiding IC (0=neen <> 1=ja)
	; wordt alleen gebruikt voor eindoverzicht alle journalen
S4	F I3=0,1 S X=$G(^HULP(boot,$J,"EIND",BTWNR,I2,I3,"F")),Y=$G(^("C")) I X!Y D
	. S TXT(1)=$P($T(@("T5"_QT)),U,7)_PBTW(I2)_$P($T(@("T5"_QT)),U,10-I3)
	. S TXT(3)=X,TXT(4)=Y D S1,^cA334
S4Z	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8