cT282	;Verkoopventilaties ;%T28 ;do uit %T281 ; [ 01/02/01  3:03 PM ]
	G 1
	;
T0	;Verkoopventilaties ;
T1	;Blz :;
T2	;Analytische uitsplitsing verkopen;
T3	;Debet;Credit;
T4	;Totaal;
	;
T0F	;Ventilations des ventes ;
T1F	;Page:;
T2F	;Détail analytique des ventes;
T3F	;Débit;Crédit;
T4F	;Total;
	;
T0E	;Sales ventilations ;
T1E	;Pge :;
T2E	;Analytical categorization sales;
T3E	;Debit;Credit;
T4E	;Total;
	;	
T0D	;Verkaufsaufteilung ;
T1D	;Pag :;
T2D	;Analytische Verkaufsaufteilung;
T3D	;Soll     :    Haben        *;
T4D	;Total;
	;
HD	S TXT(1)=$P($T(@("T2"_QT)),U,2),TXT(2)="",TXT(3)="" D ^cA334
HDA	S TXT(1)="",TXT(2)=$P($T(@("T3"_QT)),U,2),TXT(3)=$P($T(@("T3"_QT)),U,3) D ^cA334
HDB	S TXT(1)="",TXT(2)="--------------",TXT(3)="--------------" D ^cA334
HDZ	Q
	;
1	S (BR,DEB,CRD)=0 I PTS'=4 S HD(1)=D,HD(2)=D_MNM_" ;;F82",HD(3)=D_TITEL
	S TAB="104\118\132" D HD
11	S BR=$O(^HULP(boot,$J+.01,BR)) G 2:BR="" S BRA="",SWF=1
12	S BRA=$O(^HULP(boot,$J+.01,BR,BRA)) G 11:BRA="" I LN>(LNMAX-3) I PTS'=4 S END=4 D ^cA334 D HD
13	S TXT(1)=BR_" "_$S($D(@Q41):$E($P(^(0),D,2),1,35),1:"")
14	S TXT(1)=TXT(1)_"  "_BRA_" "_$S($D(@Q42):$E($P(^(0),D,2),1,35),1:"")
15	I $D(^HULP(boot,$J+.01,BR,BRA,1)) S INH=^(1),DEB=DEB+INH S TXT(2)=INH_"\\\\1\"_QD
16	S TXT(3)="" I $D(^(0)) S INH=^(0),CRD=CRD+INH S TXT(3)=INH_"\\\\1\"_QD
17	D ^cA334
18	S SWF=0 G 12
	;
2	S TXT(1)="",TXT(2)="--------------",TXT(3)="--------------" D ^cA334
21	S TXT(1)=$P($T(@("T4"_QT)),U,2),TXT(2)=DEB_"\\\\1\"_QD,TXT(3)=CRD_"\\\\1\"_QD D ^cA334
22	; S END=4 D ^cA334
	;
YZ	K SWF Q
	;
Z	X ^cZ Q
ZZ	; 22.06.04 - 16 u 32 * V8