cAT116 ;BTW-listing ;%AT11 ;%AT11* ; [ 07/27/01  9:49 AM ]
 G 1
 ;
T0 ;BTW-listing ;
T1 ;Kwartaalopgave van de vrijgestelde intracommunautaire leveringen;
T2 ;van goederen en de daarmee gelijkgestelde handelingen;
T3 ;voor de handelingen van het ;e kwartaal ;
T4 ; Volg\ Naam en volledig adres\ BTW-nummer\ C\Bedrag van de;2\  Periode;;1;
T5 ;nr;2\ van de klant\\ M\handelingen;2\ Kw.\ Jaar;
T6 ; Over te dragen; Algemeen totaal;
 ;
T0F ;Listing annuel de TVA ;
T1F ;Relevé trimestriel des livraisons intracommunautaires;
T2F ;de biens exemptées et des opérations assimilées;
T3F ;opérations du ;' trimestre ;
T4F ; N°  \ Nom et adresse complète\ N° de TVA\ C\Montant des ;2\  Période;;1;
T5F ;d'ordre;2\ du client\\ M\opérations;2\Trim.\ Année;
T6F ; A reporter; Montant total;
 ;
T0E ;VAT-report ;
T1E ;Quarter statement of the exempt intracommunity deliveries;
T2E ;of goods and equalized acts;
T3E ;for the acts of the ;' quarter;
T4E ; Nr\ Name and complete address\ VAT number\ C\Amount of;2\  Period;;1;
T5E ;nr;2\ of the customer\\ M\acts;2\ Qu.\ Year;
T6E ; To transfer; General total;
 ;
 ; samenstelling per recordtype
REC1 ;6\N;112\C;6\N;4\C;
REC2 ;6\N;32\C;24\C;28\C;11\C;17\C;5\C;5\C;
REC ;6\N;32\C;24\C;28\C;14\C;1\C;13\N;5\C;5\C;
REC9 ;6\N;84\C;11\C;4\C;13\N;6\N;4\C;
 ;
 ; record opbouwen & wegschrijven
S1 S S1=$T(@("REC"_$P(R,D))),S2="",S3=1
S1A S S3=S3+1,S4=$P(S1,U,S3),S6=$P(R,D,S3) G S1Y:S4="" S S5=$P(S4,D,2),S4=+S4,S6=$E(S6,1,S4)
S1B I S5="C" S S6=S6_$J("",S4-$L(S6)) G S1D
S1C I $L(S6)<S4 S S6=0_S6 G S1C
S1D S S2=S2_S6_VS G S1A
S1Y S ^HULP("TR",Q,TNR,TVG)=S2_RS
S1Z K S1,S2,S3,S4,S5,S6 Q
 ;
 ; omrekenen
S2 I BP=BP1,MNT1'=MNT3 S MST(B)=$$BEDR^cAFE1(Q,MST(B),$P(MNT1,D),$P(MNT3,D),"V")
S2A I BP>BP1,BP<BP2,MNT2'=MNT3 S MST(B)=$$BEDR^cAFE1(Q,MST(B),$P(MNT2,D),$P(MNT3,D),"V")
S2Z Q
 ;
 ; sorteren/groeperen op BTW-nr
1 D S1^cA305 S KT=$P(@("^"_Q_"BA(39)"),D,2),LD=$P(^(39),D,3),LL=$P(^(39),D,4) I LL'?2U S LL="BE"
10 K ^TEMP(boot,$J) S I1=0,QQ=Q,Q=$P(XQ,U),HQ=$P(XQ,U,2,999)
101 S K=$$BJ^cAFE1(Q,BP1),MNT1=$$MNTC^cAFE1(Q,K)
102 S K=$$BJ^cAFE1(Q,BP1+.01),MNT2=$$MNTC^cAFE1(Q,K)
103 S K=$$BJ^cAFE1(Q,BP2),MNT3=$$MNTC^cAFE1(Q,K),BF=$P(MNT3,D),QD=$P(MNT3,D,2)
11 S I1=$O(@("^"_Q_"KL(I1)")) G 39:I1="",11:'$D(^(I1,0)) S B(1)=^(0),K=$P(B(1),D,16)
 S BTWO=$$BTW^cAFO1(K),K=$E(BTWO,1,$L(LL)),SWI=0 I K'=LL,$L(K),$D(^BA(5,K)) S SWI=1
13 G 11:'SWI
 ;
 ; historieken
2 S I2A=BP1*100+1E6+.01,I2Z=BP2*100+1E6+.999,I2=I2A-.01,A=0,SWI=0
21 S I2=$O(@("^"_Q_"KL(I1,I2)")) G 3:I2<I2A!(I2>I2Z) S HS=^(I2)
23 S HV=$P(HS,D),HS=$P(HS,D,2,999) G 21:HV="",23:$L(HV)'=7,23:$E(HV)'="V" S FNR=$E(HV,2,7),BP=$E(I2,2,5)_"."_$E(I2,6,7)
25 G 23:'$D(@("^"_Q_"VE(BP,FNR)")) S N=^(FNR),FC=$P(N,D),BTW=$P(N,D,8),N=$P(N,D,11),Y=FC="F"*2-1 K MST
 ; VJ 26.07.01
27 ;I 'BTW S B=$P(N,S) I $L(B) S MST(B)=$P(N,S,2)*Y I $D(PBTW(B)),PBTW(B)="0%" D S2 S A=A+MST(B),SWI=1
 I $$ICVE^cT00A(Q,BP,FNR) S B=$P(N,S),MST(B)=$P(N,S,2)*Y D S2 S A=A+MST(B),SWI=1
29 G 23
 ;
 ; transfertdocumenten
3 S I3=""
31 S I3=$O(^DATA(Q,"COM.TRA",I3)) I I3="" G 35
 S N=^(I3,0),BP=$P(N,D,5)
 I $P(N,D,8)'=Q G 31
 I $P(N,D,9)'=$P(B(1),D) G 31
 I BP<BP1!(BP>BP2) G 31
 S SWI=1,A=A+$P(N,D)-$P(N,D,2)
 G 31
 ; opbouw hulpbestand
35 I SWI S ^TEMP(boot,$J,$P(B(1),D,16),$P(B(1),D))=A_D_Q,^(0)=$G(^(0))+A
 G 11
 ; volgende Q-waarde
39 S Q=QQ I $L(HQ) S Q=$P(HQ,U),HQ=$P(HQ,U,2,999),I1=0 G 11
 ;
 ; einde sorteren
4 I 'DV S HD(1)=D_$P($T(@("T1"_QT)),U,2)_";C"
 I 'DV S HD(2)=D_$P($T(@("T2"_QT)),U,2)_";C"
 I 'DV S HD(3)=D_$P($T(@("T3"_QT)),U,2)_KW_$P($T(@("T3"_QT)),U,3)_(BP1\1)_";C"
41 I 'DV S TIT(1)=$P($T(@("T4"_QT)),U,2,999)
 I 'DV S TIT(2)=$P($T(@("T5"_QT)),U,2,999)
 I 'DV S TAB="7\76\99\103\119\124\131",DEF="F81",V=0
 ;
 ; volgens BTW-nr
5 S I2="",(TOT,VNR)=0 I 'DV S AFS(1,2)=$P($T(@("T6"_QT)),U,2)_" "_BF
51 S I2=$O(^TEMP(boot,$J,I2)),Q=QQ I I2="" G 8:DV S AFS(1,2)=$P($T(@("T6"_QT)),U,3)_" "_BF,END=4 D ^cA334 G ^cAT118
53 S BE=^(I2,0),KC=$O(^(0)),BTW=$E(I2,3,999),Q=$P(^(KC),D,2) I BTW?1."0" S BE=$P(^(KC),D)
55 S B(1)=@("^"_Q_"KL(^"_Q_"K1(KC),0)"),TXT(3)=" "_$E(I2,1,2)_" "_BTW,Q=QQ I DV G 7
57 I VNR,VNR#22=0 S END=4 D ^cA334 S END=2 D ^cA334
 ;
 ; printen
6 S VNR=VNR+1,TXT(1)=VNR_D_1_D_D_1,TXT(2)=$P(B(1),D,4) S:$L(TXT(2)) TXT(2)=TXT(2)_" "
61 S TXT(2)=TXT(2)_$P(B(1),D,2)_" "_$P(B(1),D,5)_D_D_1,TXT(4)=D,TXT(5)=BE_"\\\\1\"_QD_D_D_1,TXT(6)=D,TXT(7)=D D ^cA334
63 F I=1:1:7 S TXT(I)=D
65 S TXT(2)=$P(B(1),D,6)_" "_$P(B(1),D,7)_" "_$$LAND^cAFO1($P(B(1),D,8))_D_D_1 D ^cA334 S LN=1
67 I BTW?1."0" S KC=$O(^TEMP(boot,$J,I2,KC)) I KC S BE=$P(^(KC),D),Q=$P(^(KC),D,2) G 55
69 G 51
 ;
 ; file
7 S VNR=VNR+1,R=$P(B(1),D,4) S:$L(R) R=R_" " S R=D_VNR_D_R_$P(B(1),D,2)_D_$P(B(1),D,5)_D
71 S R=R_$P(B(1),D,6)_" "_$P(B(1),D,7)_" "_$$LAND^cAFO1($P(B(1),D,8))_D
72 I BF="EUR" S BE=$J(BE*100,0,0)
73 S R=R_I2_D_D_$TR($FN(BE,"T")," ","")_"\00000\",TOT=TOT+BE,TVG=VNR+9 D S1 W @F,$J(VNR,8) G 67
 ;
 ; einde file
8 S R=$E(QN_$J("",32),1,32)_$E(@("^"_Q_"BA(99,2)")_$J("",24),1,24)_^(3)
81 S R=1_D_555555_D_R_D_1_D,TVG=1 D S1
83 S R=2_D_0_D_QN_D_@("^"_Q_"BA(99,2)")_D_^(3)_D_BTWNR_D_D_KW_(BP1\1)_D_$S(BF="EUR":"E",1:"B"),TVG=2 D S1
85 S R=9_D_999999_D_D_BTWNR_D_D_$TR($FN(TOT,"T")," ","")_D_VNR_D_D,TVG=VNR+10 D S1
86 I BF="EUR" S TOT=TOT/100
87 S L=^(0),$P(L,D,4)=VNR,$P(L,D,6)="A:BTW.TVA",^(0)=L
 S K=$G(@("^"_Q_"BA")@("%T",13,"K")) I $L(K) S $P(L,D,6)=$TR(K,D,U),^HULP("TR",Q,TNR,0)=L
 G ^cAT117
 ;
YZ K ^TEMP(boot,$J) Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87