cTI4	;Printen Intrastat-verkoop ;%TI4 ; [ 07/26/01  2:06 PM ]
	G 1
	;
T0	;Printen Intrastat verkoop ;
T1	;Maand\"jjjj.mm[] = maand";     ;
T2	;STATISTISCH STELSEL 29 : Verzending (uitvoer);
T3	;van nationale of genationaliseerde goederen naar andere Lid-Staten;
T4	;Periode : maand ;    jaar ;     Paginanummer : ;
T5	; 1. Aangever : \\\\\ 2. Identificatienr.\ 3. Derde aangever :\\\ 4. Internationaal BTW-nr.;
T6	;\\\\\    = BTW-nummer\\\\    derde aangever;
T7	;    Adres    : \\\\\\    Adres    :\\\    (Alfa-numerieke code);
T8	;;
T9	;    Postcode +\\\\\\    Postcode +;
T10	;    Gemeente : \\\\\\    Gemeente :;
T11	;;
T12	;    Contactpers. : \\\\\    Nr. vestiging\    Contactpers. :;
T13	;;
T14	;    Tel.+Toestel : \\\\\\    Tel.+Toestel :;
T15	;;
T16	;    Fax : \\\\\\    Fax :;
T17	;------------------------------;
T18	;Regel\Lid-Staat\\Verv.\Haven van\\Aard v.d.\Goederencode\Netto-massa\Aanvullende\Factuurwaarde;
T19	;nr.\bestemming\\wijze\laden\\transactie\(8 cijfers)\(kg)\eenheden\(BEF);
T20	;5\6\\7\8\\11\12\13\14\15;
T21	; 16. Totale maandelijkse factuurwaarde : ;
T22	;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
	;
T0F	;Edition Intrastat ventes ;
T1F	;Mois\"aaaa.mm[] = mois";     ;
T2F	;STATISTIQUE TYPE 29 : Envoi (exportation);
T3F	;de marchandises nationales ou nationalisées vers d'autres Membres;
T4F	;Période : mois ;    année ;     N° de page   : ;
T5F	; 1.Déclarant : \\\\\ 2. N° d'identific.\ 3. Tiers déclarant :\\\ 4. N° de TVA international;
T6F	;\\\\\    = N° de TVA\\\\    tiers déclarant;
T7F	;    Adresse  : \\\\\\    Adresse  :\\\    (code alphanumérique);
T8F	;;
T9F	;    Code postal +\\\\\\    Code postal +;
T10F	;    Localité : \\\\\\    Localité :;
T11F	;;
T12F	;    Contact      : \\\\\    N° siège\    Contact      :;
T13F	;;
T14F	;    Tél.+Appareil: \\\\\\    Tél.+Appareil:;
T15F	;;
T16F	;    Fax : \\\\\\    Fax :;
T17F	;------------------------------;
T18F	;N°\Membre\\Type\Port de\\Genre de\Code march.\Poids net\Unités\Valeur facturée;
T19F	;Ligne\destin.\\trnsp\charg.\\transact.\(8 chiffres)\(kg)\supplém.\(BEF);
T20F	;5\6\\7\8\\11\12\13\14\15;
T21F	; 16. Valeur totale mensuelle facturée : ;
T22F	;Janvier\Février\Mars\Avril\Mai\Juin\Juillet\Août\Septembre\Octobre\Novembre\Décembre;
	;
T0E	;Printen Intrastat verkoop ;
T1E	;Maand\"jjjj.mm[] = maand";     ;
T2E	;STATISTISCH STELSEL 29 : Verzending (uitvoer);
T3E	;van nationale of genationaliseerde goederen naar andere Lid-Staten;
T4E	;Periode : maand ;    jaar ;     Paginanummer : ;
T5E	; 1. Aangever : \\\\\ 2. Identificatienr.\ 3. Derde aangever :\\\ 4. Internationaal BTW-nr.;
T6E	;\\\\\    = BTW-nummer\\\\    derde aangever;
T7E	;    Adres    : \\\\\\    Adres    :\\\    (Alfa-numerieke code);
T8E	;;
T9E	;    Postcode +\\\\\\    Postcode +;
T10E	;    Gemeente : \\\\\\    Gemeente :;
T11E	;;
T12E	;    Contactpers. : \\\\\    Nr. vestiging\    Contactpers. :;
T13E	;;
T14E	;    Tel.+Toestel : \\\\\\    Tel.+Toestel :;
T15E	;;
T16E	;    Fax : \\\\\\    Fax :;
T17E	;------------------------------;
T18E	;Regel\Lid-Staat\\Verv.\Haven van\\Aard v.d.\Goederencode\Netto-massa\Aanvullende\Factuurwaarde;
T19E	;nr.\bestemming\\wijze\laden\\transactie\(8 cijfers)\(kg)\eenheden\(BEF);
T20E	;5\6\\7\8\\11\12\13\14\15;
T21E	; 16. Totale maandelijkse factuurwaarde : ;
T22E	;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
	;
1	S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10	S XQ=$P(R,U,2) I XQ="" S XQ=Q
12	S R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N!(""-,""[K)&$L(K)" D R0 I K="-"!(K=",") G YZ
14	S FP=403 W @F,$P($P($T(@("T1"_QT)),U,2),D)," : ",K,@F2
16	S R=1_D_1 D ^cA345 I K="-"!(K=",") G 12
17	S R=$$MNTC^cAFE1(Q,$$BJ^cAFE1(Q,BP)),BF=$P(R,D),QD=$P(R,D,2)
18	S PAR=@("^"_Q_"INTR(""%P"",""P"")") X F70 S LPB=LNMAX-18,LNMAX=999
	; zelf printer aanzetten
	; zelf bladsprong kontroleren met variabelen LPB,LLN
	;
	; sortering intrastat van de periode per soort beweging
2	K ^HULP(boot,$J) S (TFWA,TLN)=0,PER=BP*100,FNR="",QQ=Q,Q=$P(XQ,U),HQ=$P(XQ,U,2,999)
21	F US=29,19 F  S FNR=$O(@("^"_Q_"INTR(PER,US,FNR)")) Q:FNR=""  S U5=^(FNR,1) D
	. S FC=$P(U5,D,7) I FC="",$D(@("^"_Q_$S(US=29:"VE",1:"AA")_"(BP,FNR)")) S FC=$P(^(FNR),D)
	. S UZ=100 F  S UZ=$O(@("^"_Q_"INTR(PER,US,FNR,UZ)")) Q:UZ=""  S U2=^(UZ) D
	.. S BES=$P(U5,D),VWZ=$P(U5,D,2),PLA=$P(U5,D,3),TRA=$S($L($P(U5,D,4)):$P(U5,D,4),1:$P(U2,D,12))
	.. S GOE=$P(U2,D),NET=$P(U2,D,4),AEH=$P(U2,D,5),SWA=$P(U2,D,7)
	.. I US=29,SWA>0&(FC="C")!(SWA<0&(FC="F")) Q      ; geen neg. lijnen
	.. I US=19,SWA>0&(FC="F")!(SWA<0&(FC="C")) Q      ; enkel neg. lijnen
	.. F I="NET","AEH","SWA" I @I<0 S @I=-@I
	.. S TFWA=TFWA+SWA
	.. I GOE S GOE=$$SIG^cAFA1("INTR.GOE",GOE,103)
	.. S R=BES_D_VWZ_D_PLA_D_TRA_D_GOE I '$D(^HULP(boot,$J,R)) S ^(R)="",TLN=TLN+1 
	.. S $P(^(R),D)=$P(^(R),D)+NET,$P(^(R),D,2)=$P(^(R),D,2)+AEH,$P(^(R),D,3)=$P(^(R),D,3)+SWA
	;
	; opzetten printvariabelen
3	S Q=QQ I $L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999) G 21
31	S TAB="6\16\26\32\42\63\74\87\99\111\131" K HD
32	S TOP(1,6)=$P($T(@("T2"_QT)),U,2)_U_20,TOP(2,6)=$P($T(@("T3"_QT)),U,2)_U_20,TOP(3,6)=U_20,TOP(5,1)=""
33	F R=1:1:16 S TIT(R)=$P($T(@("T"_(R+4)_QT)),U,2) ; inladen titel
331	S $P(TIT(15),D,11)="("_BF_")"
34	F R="101\1","301\2","601\3","801\4","1001\5","506\6\S K=$E(K,1,3)_"" ""_$E(K,4,6)_"" ""_$E(K,7,9)","1006\7","1201\9" S K=$P(TIT(R\100),D,R#100)_$P(PAR,D,$P(R,D,2)) X:$L($P(R,D,3)) $P(R,D,3) S $P(TIT(R\100),D,R#100)=K_" " ; invullen gegevens
35	F R=101:100:1201,102:100:1202,103:100:1203,104:100:1204,107:100:1207,108:100:1208,110:100:1210,1502 S K=$P(TIT(R\100),D,R#100),$P(K,U,3)=1,$P(TIT(R\100),D,R#100)=K ; separator weg
36	F R=506,1006,1401:1:1411,1501:1:1511,1601:1:1611 S K=$P(TIT(R\100),D,R#100),$P(K,U,2)=2,$P(TIT(R\100),D,R#100)=K ; centreren nummers
37	F R=1:1:10 S TIT(13)=TIT(13)_D_$P(TIT(13),D)
	;
	; afdruk aangifte
4	S (LLN,T)=0,I="" I '$D(^HULP(boot,$J)) D S1 K TXT S TXT(6)="     N I H I L" D ^cA334 G 5
40	S I=$O(^HULP(boot,$J,I)) I I="" S R=TFWA_D_D_D_QD D S3 S AFS(1,1)=$P($T(@("T21"_QT)),U,2)_R_BF,TAB="131" G 5
41	S R=^(I),T=T+1,LLN=LLN+1 I LLN>LPB S LN=9999,LLN=1
42	D S1
43	S BES=$P(I,D),VWZ=$P(I,D,2),PLA=$P(I,D,3),TRA=$S($L($P(I,D,4)):$P(I,D,4),1:$P(R,D,12)),GOE=$P(I,D,5)
44	S NET=$P(R,D),AEH=$P(R,D,2),SWA=$P(R,D,3),K=""
45	F R=1:1:11 S TXT(R)=@$P("T\BES\K\VWZ\PLA\K\TRA\GOE\NET\AEH\SWA",D,R)
46	S TXT(1)=$E("00"_TXT(1),$L(TXT(1)),$L(TXT(1))+2)_D_2 F R=2,4,5,7 S TXT(R)=TXT(R)_D_2
47	S TXT(8)=TXT(8)_D_2
48	F R=9:1:11 S:'TXT(R) TXT(R)="" I TXT(R) S TXT(R)=TXT(R)_D_D_D_D_1_D_$S(R=11:QD,1:"")
49	D ^cA334 G 40
	;
	; einde afdruk
5	S END=1 D ^cA334
	;
YZ	Q
	;
S1	S TOP(4,6)=$P($T(@("T4"_QT)),U,2)_" "_$P($P($T(@("T22"_QT)),U,2),D,$P(BP,".",2))_"   "_$P($T(@("T4"_QT)),U,3)_" "_$P(BP,".")_"   "_$P($T(@("T4"_QT)),U,4)_(T-1\LPB+1)_"/"_(TLN-1\LPB+1)_U_20
S1Z	Q
	;
S3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
S3A	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)
S3B	S R=$J("",$P(R,D,3))_$J(R0,R1)_R4_R3
S3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 06.08.01 - 17 u 28 * V7.87