Index: cTA803.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA803.mac.rou (.../cTA803.mac.rou) (revision 29059) +++ cTA803.mac.rou (.../cTA803.mac.rou) (revision 43422) @@ -35,3 +35,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9112.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9112.mac.rou (.../cT9112.mac.rou) (revision 29059) +++ cT9112.mac.rou (.../cT9112.mac.rou) (revision 43422) @@ -1,4 +1,4 @@ -cT9112 ;BTW aangifte ;%T91 ;%T9111>.>%T9113 ; [ 16/11/09 14:13:18 ] +cT9112 ;BTW aangifte ;%T91 ;%T9111>.>%T9113 ; [ 22/02/10 10:55:49 ] G 1 ; T0 ;BTW aangifte; @@ -74,17 +74,16 @@ 71 S I="46",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD 73 S I="85",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD 75 S I="63",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD -77 S I="71",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD +77 S I="71",TXT(7)="",TXT(8)=I I $G(VAK(I)) S TXT(7)=VAK(I)_"\\\\1\"_QD I SWLEEG=1 S TXT(7)=0_"\\\\1\"_QD 78 D ^cA334 S END=3 D ^cA334 ; 8 S I="47",TXT(1)="",TXT(2)=I I VAK(I) S TXT(1)=VAK(I)_"\\\\1\"_QD 81 S I="86",TXT(3)="",TXT(4)=I I VAK(I) S TXT(3)=VAK(I)_"\\\\1\"_QD 83 S I="65",TXT(5)="",TXT(6)=I I VAK(I) S TXT(5)=VAK(I)_"\\\\1\"_QD -85 S I="72",TXT(7)="",TXT(8)=I I VAK(I) S TXT(7)=VAK(I)_"\\\\1\"_QD +85 S I="72",TXT(7)="",TXT(8)=I I $G(VAK(I)) S TXT(7)=VAK(I)_"\\\\1\"_QD 87 D ^cA334 ; YZ G ^cT9113 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTA19.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA19.mac.rou (.../cTA19.mac.rou) (revision 29059) +++ cTA19.mac.rou (.../cTA19.mac.rou) (revision 43422) @@ -61,3 +61,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT391.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT391.mac.rou (.../cT391.mac.rou) (revision 29059) +++ cT391.mac.rou (.../cT391.mac.rou) (revision 43422) @@ -118,4 +118,3 @@ FZ K R Q ; ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cT950.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT950.mac.rou (.../cT950.mac.rou) (revision 29059) +++ cT950.mac.rou (.../cT950.mac.rou) (revision 43422) @@ -45,3 +45,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT377.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT377.mac.rou (.../cT377.mac.rou) (revision 29059) +++ cT377.mac.rou (.../cT377.mac.rou) (revision 43422) @@ -39,3 +39,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT19.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT19.mac.rou (.../cT19.mac.rou) (revision 29059) +++ cT19.mac.rou (.../cT19.mac.rou) (revision 43422) @@ -66,4 +66,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT156.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT156.mac.rou (.../cT156.mac.rou) (revision 29059) +++ cT156.mac.rou (.../cT156.mac.rou) (revision 43422) @@ -88,3 +88,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT853.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT853.mac.rou (.../cT853.mac.rou) (revision 29059) +++ cT853.mac.rou (.../cT853.mac.rou) (revision 43422) @@ -77,4 +77,3 @@ FZ K R Q ; ZZ ; 19.05.04 - 16 u 09 * V8 - Index: cT29.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT29.mac.rou (.../cT29.mac.rou) (revision 29059) +++ cT29.mac.rou (.../cT29.mac.rou) (revision 43422) @@ -39,4 +39,3 @@ YZ G ^cT64 ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT43.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT43.mac.rou (.../cT43.mac.rou) (revision 29059) +++ cT43.mac.rou (.../cT43.mac.rou) (revision 43422) @@ -77,4 +77,3 @@ S8Z Q ; ZZ ; 25.09.01 - 11 u 01 * V7.88 - Index: cT58.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT58.mac.rou (.../cT58.mac.rou) (revision 29059) +++ cT58.mac.rou (.../cT58.mac.rou) (revision 43422) @@ -114,4 +114,3 @@ ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 - Index: cT6423.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6423.mac.rou (.../cT6423.mac.rou) (revision 29059) +++ cT6423.mac.rou (.../cT6423.mac.rou) (revision 43422) @@ -37,3 +37,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT97.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT97.mac.rou (.../cT97.mac.rou) (revision 29059) +++ cT97.mac.rou (.../cT97.mac.rou) (revision 43422) @@ -143,3 +143,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA226.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA226.mac.rou (.../cTA226.mac.rou) (revision 29059) +++ cTA226.mac.rou (.../cTA226.mac.rou) (revision 43422) @@ -29,4 +29,3 @@ FZ K R,RA Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT861.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT861.mac.rou (.../cT861.mac.rou) (revision 29059) +++ cT861.mac.rou (.../cT861.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTN8026.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN8026.mac.rou (.../cTN8026.mac.rou) (revision 29059) +++ cTN8026.mac.rou (.../cTN8026.mac.rou) (revision 43422) @@ -8,37 +8,50 @@ G 1 VBZ Q ; ; -T1 ;VATSENDING;SIGNATURE; -T2 ;DECLARER; -T3 ;VATNUMBER;NAME;ADDRESS;POSTCODE;CITY;SENDINGREFERENCE;COUNTRY; +T1 ;VATConsignment;SIGNATURE; +T2 ;Declarant; +T3 ;VATNumber;Name;Street;PostCode;City;SENDINGREFERENCE;CountryCode;EmailAddress; T4 ;VATRECORD; -T5 ;RECNUM;VATNUMBER;DPERIODE;ASK;DATA; -T6 ;MONTH;QUARTER;YEAR; -T7 ;PAYMENT;RESTITUTION; +T5 ;RECNUM;VATNUMBER;Period;Ask;Data; +T6 ;Month;Quarter;Year; +T7 ;Payment;Restitution; T8 ;DATA_ELEM; -T9 ;\D0\D1\D2\D3\D45\D46\D47\D48\D49\D54\D55\D56\D57\D59\D61\D62\D63\D64\D71\D72\D81\D82\D83\D84\D85\D86\D87\D91\;\D0\D1\D2\D3\D45\D46\D47\D48\D49\D54\D55\D56\D57\D59\D61\D62\D63\D64\D71\D72\D81\D82\D83\D84\D85\D86\D87\; +T9 ;\0\1\2\3\45\46\47\48\49\54\55\56\57\59\61\62\63\64\71\72\81\82\83\84\85\86\87\91\;\0\1\2\3\45\46\47\48\49\54\55\56\57\59\61\62\63\64\71\72\81\82\83\84\85\86\87\; T10 ;SIGNATURE; T11 ;DATE;NAME;ROLE;TELEPHONENUMBER;EMAIL T12 ;Het pad voor de electronische btw-aangifte is niet correct ingevuld.; T13 ;Kan het uniek nummer voor de aangifte niet bepalen.; T14 ;Postcode niet gevonden, gelieve in te vullen bij parameters boekhouding.; T15 ;DATE;NAME;ROLE;TELEPHONENUMBER;EMAIL; T16 ;ClientListingNihil; +T17 ;VATDeclarationsNbr; +T18 ;VATDeclaration; +T19 ;SequenceNumber; +T20 ;DeclarantReference; +T21 ;Amount;GridNumber; +T22 ;http://www.minfin.fgov.be/InputCommon; +T23 ;E-mail ondertekenaar werd niet ingevuld.; +T24 ;Representative;RepresentativeID;issuedBy;identificationType;Phone; +T25 ;Telefoon ondertekenaar werd niet ingevuld.; ; -T12F ;Le chemin d�exportation de la d�claration �lectronique est incorrect.; +T12F ;Le chemin d'exportation de la d�claration �lectronique est incorrect.; T13F ;Impossible de d�finir le num�ro unique de la d�claration.; T14F ;Code postal pas trouv�, s.v.p. le remplir dans param. comptables.; +T23F ;E-mail signataire n'est pas rempli.; +T25F ;Telephone signataire n'est pas rempli.; ; T12E ;The path for the electronic VAT declaration is not correct.; T13E ;Could not get unique number for the declaration.; T14E ;Could not find the postal code. Please fill in at accounting param.; +T23E ;E-mail Signer was not filled in.; +T25E ;Telephone Signer was not filled in.; ; 1 N SC,NVAK,I1,NVAKVAL,XMLFILE,RECNUM,VAKLIST,SENDREF,TEMP,IDINDEX,POSTCODE,XMLPATH S $ZT="TRAP^cAN000" ; S OK=1 S SENDREF=$$SENDREF(JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4),KW,MAAND(1)_MAAND(2)) - I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) K="0\"_K G YZ + I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ S RECNUM=1 ; ;------------------------------------------------------------------------------ @@ -53,7 +66,11 @@ S TEMPOK=1 I '$G(SWVB) S POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) I $G(SWVB) S POSTCODE=PCVB - I POSTCODE'?4N S K=$P($T(@("T14"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) K="0\"_K G YZ + I POSTCODE'?4N S K=$P($T(@("T14"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; Nakijken of telefoon is ingevuld + I $P(B(1),D,13)="" S K=$P($T(@("T25"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; Nakijken of e-mail adres is ingevuld + I $P(B(1),D,14)="" S K=$P($T(@("T23"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; KD - 20.06.07 - adresgegevens nakijken 13 I $G(SWVB) S IDINDEX=5 G 2 S IDINDEX=4 @@ -69,11 +86,11 @@ 21 I '$G(SWVB) S XMLFILE=$G(@("^"_Q_"BA(""%T"",13,""E"")")) I $G(SWVB) S XMLFILE=FILEVB ; Parameter niet ingevuld - I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) K="0\"_K G Y + I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Nakijken of het pad bestaat - 26.06.07 S XMLPATH=$P(XMLFILE,D,1,$L(XMLFILE,D)-1) ; KD - 23.07.07 Test op pad mag niet aangezien de TST routine geen shares kan aftesten. - I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) K="0\"_K G Y + I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Bestandsnaam samenstellen S XMLFILE=XMLFILE_JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4) I 'KW S XMLFILE=XMLFILE_"M"_MAAND(1)_MAAND(2)_".xml" G 23 @@ -84,80 +101,117 @@ D . ; Root element . S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) - . S SC=XMLWRITER.WriteAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") - . ; S SC=XMLWRITER.WriteAttribute("xsi:noNamespaceSchemaLocation","http://minfin.fgov.be/portail1/nl/intervat/MultiDeclarationTVA-NoSignature-14.xsd") + . S SC=XMLWRITER.WriteAttribute($P($T(@("T17")),U,2),"1") + . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/VATConsignment") . D ENDLN + . ; Representative . D + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,2)) D ENDLN + .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T24")),U,4),"BE"),SC=XMLWRITER.WriteAttribute($P($T(@("T24")),U,5),"NVAT"),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. ; naam of benaming [] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Adres: straat, nr, postbus [] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Postcode [maxLength 4] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. ; Gemeente [maxLength 100] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Country + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; uniek referentie nr van de zending van de fiduciaire [<99999999999999] + .. ; S SC=XMLWRITER.Element($P($T(@("T3")),U,7)),SC=XMLWRITER.WriteChars(SENDREF),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,9)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.EndElement() D ENDLN + . ; VATDelcaration + . S SC=XMLWRITER.Element($P($T(@("T18")),U,2)) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T19")),U,2),RECNUM) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T20")),U,2),SENDREF) + . D ENDLN + . ; Declarant + . D .. S SC=XMLWRITER.Element($P($T(@("T2")),U,2)) D ENDLN .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,7)),SC=XMLWRITER.EndElement() D ENDLN - .. I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN + .. .. ; naam of benaming [] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN .. ; Adres: straat, nr, postbus [] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN .. ; Postcode [maxLength 4] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN .. ; Gemeente [maxLength 100] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN .. ; Country - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN .. ; uniek referentie nr van de zending van de fiduciaire [<99999999999999] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,7)),SC=XMLWRITER.WriteChars(SENDREF),SC=XMLWRITER.EndElement() D ENDLN + .. ; S SC=XMLWRITER.Element($P($T(@("T3")),U,7)),SC=XMLWRITER.WriteChars(SENDREF),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,9)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN .. S SC=XMLWRITER.EndElement() D ENDLN - . S SC=XMLWRITER.Element($P($T(@("T4")),U,2)) D - .. D ENDLN + . ; S SC=XMLWRITER.Element($P($T(@("T4")),U,2)) D + .. ; D ENDLN .. ; volgnummer van de aangifte [1-999] - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)),SC=XMLWRITER.WriteChars(RECNUM),SC=XMLWRITER.EndElement() D ENDLN + .. ; S SC=XMLWRITER.Element($P($T(@("T5")),U,2)),SC=XMLWRITER.WriteChars(RECNUM),SC=XMLWRITER.EndElement() D ENDLN .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,3)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN + .. ; S SC=XMLWRITER.Element($P($T(@("T5")),U,3)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN .. ;------------------------------------------------------------------------------ .. ; Periode .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,4)) D - ... D ENDLN - ... ; maand van de periode [1-12] - ... I 'KW S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(MAAND(1)_MAAND(2)),SC=XMLWRITER.EndElement() D ENDLN - ... ; kwartaal van de periode [1-4] - ... I KW S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars(KW),SC=XMLWRITER.EndElement() D ENDLN - ... ; jaar van de periode (formaat YYYY) [] - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars(JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)),SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.Element($P($T(@("T5")),U,4)) D + .. D ENDLN + .. ; maand van de periode [1-12] + .. I 'KW S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(MAAND(1)_MAAND(2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; kwartaal van de periode [1-4] + .. I KW S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars(KW),SC=XMLWRITER.EndElement() D ENDLN + .. ; jaar van de periode (formaat YYYY) [] + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars(JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)),SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.EndElement() D ENDLN .. ;------------------------------------------------------------------------------ - .. ; Vragen - .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,5)) D - ... ; aanvraag van betaalformulieren [YES/NO] - ... S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,2),$S($P(B(2),D,8)=1:"YES",1:"NO")) - ... ; aanvraag om terugbetaling [YES/NO] - ... S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,3),$S($P(B(2),D,7)=1:"YES",1:"NO")) - .. S SC=XMLWRITER.EndElement() D ENDLN - .. ; ClientListNihil - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T16")),U,2)),SC=XMLWRITER.WriteChars("NO"),SC=XMLWRITER.EndElement() D ENDLN - .. ;------------------------------------------------------------------------------ - .. ; Vakken - .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,6)) D ENDLN D - ... S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) D ENDLN D - .... ; Lijst met vakken ophalen; vak D91 MAG ALLEEN IN DECEMBER INGEVULD WORDEN - .... S VAKLIST=$P($T(@("T9")),U,3) - .... I 'KW,(MAAND(1)_MAAND(2))=12 S VAKLIST=$P($T(@("T9")),U,2) - .... I $$DC^cAFD1(DT)'<20100205,BP2>2010 D - ..... S VAKLIST=VAKLIST_$S($E(VAKLIST,$L(VAKLIST))'=D:D,1:"")_"D44\D88\" ; KU : 12.11.09 - ..... I '$L($G(NVAK(44))) S NVAK(44)=0 - ..... I '$L($G(NVAK(88))) S NVAK(88)=0 - .... ; Door de vakken lopen - .... S I1="" F S I1=$O(NVAK(I1)) Q:I1="" D - ..... ; Nakijken of het nummer mag gebruikt worden in deze aangifte - ..... I (VAKLIST)'[("D"_+I1) Q - ..... ; Ofwel vak D71 ofwel vak D72 mag in de xml voorkomen - ..... ; I ("\71\72\")[(I1),+NVAK(I1)=0 Q - ..... S NVAKVAL=NVAK(I1)*100 - ..... S SC=XMLWRITER.Element("D"_+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN - ... S SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN + . ; Vakken + . ;------------------------------------------------------------------------------ + . S SC=XMLWRITER.Element($P($T(@("T5")),U,6)) D ENDLN D + .. ; S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) D ENDLN D + .. ; Lijst met vakken ophalen; vak D91 MAG ALLEEN IN DECEMBER INGEVULD WORDEN + .. S VAKLIST=$P($T(@("T9")),U,3) + .. I 'KW,(MAAND(1)_MAAND(2))=12 S VAKLIST=$P($T(@("T9")),U,2) + .. I $$DC^cAFD1(DT)'<20100205,BP2>2010 D + ... S VAKLIST=VAKLIST_$S($E(VAKLIST,$L(VAKLIST))'=D:D,1:"")_"44\88\" ; KU : 12.11.09 + ... I '$L($G(NVAK(44))) S NVAK(44)=0 + ... I '$L($G(NVAK(88))) S NVAK(88)=0 + .. ; Door de vakken lopen + .. S I1="" F S I1=$O(NVAK(I1)) Q:I1="" D + ... ; Nakijken of het nummer mag gebruikt worden in deze aangifte + ... I (VAKLIST)'[("\"_+I1_"\") Q + ... ; Ofwel vak D71 ofwel vak D72 mag in de xml voorkomen + ... ; I ("\71\72\")[(I1),+NVAK(I1)=0 Q + ... ; S NVAKVAL=NVAK(I1)*100 + ... S NVAKVAL=NVAK(I1) + ... S SC=XMLWRITER.Element($P($T(@("T21")),U,2)),SC=XMLWRITER.WriteAttribute($P($T(@("T21")),U,3),+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN + ... ; S SC=XMLWRITER.Element("D"_+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndElement() D ENDLN - . ; KU : Door Intervat bevestigd dat dit NIET in de XML mag gezet worden. + . + . ;------------------------------------------------------------------------------ + . ; Vragen + . ;------------------------------------------------------------------------------ + . ; ClientListNihil + . I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T16")),U,2)),SC=XMLWRITER.WriteChars("NO"),SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.Element($P($T(@("T5")),U,5)) D + .. ; aanvraag om terugbetaling [YES/NO] + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,3),$S($P(B(2),D,7)=1:"YES",1:"NO")) + .. ; aanvraag van betaalformulieren [YES/NO] + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,2),$S($P(B(2),D,8)=1:"YES",1:"NO")) + . S SC=XMLWRITER.EndElement() D ENDLN + . ; + . ; S SC=XMLWRITER.EndElement() D ENDLN + . ; S SC=XMLWRITER.EndElement() D ENDLN + . ; KU : Werd door Intervat bevestigd dat dit NIET in de XML mag gezet worden. . ; KU : 04.01.08 : Signature : identificatie van de ondertekenaar . ; S SC=XMLWRITER.Element($P($T(@("T1")),U,3)) D ENDLN . ; datum (formaat YYYY-MM-DD) @@ -171,6 +225,7 @@ . ; e-mail adres van de ondertekenaar : 50 lang . ; S SC=XMLWRITER.Element($P($T(@("T15")),U,6)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN . ; S SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndRootElement() D ENDLN S SC=XMLWRITER.EndDocument() ; @@ -186,6 +241,7 @@ DATEZ Q R ; ENDLN S SC=XMLWRITER.WriteChars($C(13,10)) +ENDLNZ Q ; SENDREF(JAAR,KW,MAAND) N OUT,I2,SJAAR @@ -202,5 +258,4 @@ SENDREFZ Q OUT ; ; -ZZ ; 16.10.08 - 14 u 11 * V9.04 - +ZZ ; 02.02.10 - 14 u 30 * V9.06 Index: cT181A5.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT181A5.mac.rou (.../cT181A5.mac.rou) (revision 29059) +++ cT181A5.mac.rou (.../cT181A5.mac.rou) (revision 43422) @@ -90,4 +90,3 @@ S3Z S @Q12=@Q12_ERR Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT57.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT57.mac.rou (.../cT57.mac.rou) (revision 29059) +++ cT57.mac.rou (.../cT57.mac.rou) (revision 43422) @@ -96,3 +96,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA80.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA80.mac.rou (.../cTA80.mac.rou) (revision 29059) +++ cTA80.mac.rou (.../cTA80.mac.rou) (revision 43422) @@ -20,3 +20,4 @@ ; ZZ ; 18.05.04 - 15 u 48 * V8 + Index: cT642.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT642.mac.rou (.../cT642.mac.rou) (revision 29059) +++ cT642.mac.rou (.../cT642.mac.rou) (revision 43422) @@ -73,4 +73,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT405.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT405.mac.rou (.../cT405.mac.rou) (revision 29059) +++ cT405.mac.rou (.../cT405.mac.rou) (revision 43422) @@ -27,3 +27,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cT681.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT681.mac.rou (.../cT681.mac.rou) (revision 29059) +++ cT681.mac.rou (.../cT681.mac.rou) (revision 43422) @@ -84,4 +84,3 @@ INCTR2 ;K?.N!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))!(K="."&$L(B))!(K=",") ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT256.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT256.mac.rou (.../cT256.mac.rou) (revision 29059) +++ cT256.mac.rou (.../cT256.mac.rou) (revision 43422) @@ -109,4 +109,3 @@ YZ K S1,S2,NUM,DAT,CD,BC,BEDR,BNR,GEL,OM1,Q93,HBEDR Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT181.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT181.mac.rou (.../cT181.mac.rou) (revision 29059) +++ cT181.mac.rou (.../cT181.mac.rou) (revision 43422) @@ -64,3 +64,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT540.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT540.mac.rou (.../cT540.mac.rou) (revision 29059) +++ cT540.mac.rou (.../cT540.mac.rou) (revision 43422) @@ -107,3 +107,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT44.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT44.mac.rou (.../cT44.mac.rou) (revision 29059) +++ cT44.mac.rou (.../cT44.mac.rou) (revision 43422) @@ -97,4 +97,3 @@ S9Z S PP(12)=MUNT D ^cA109 Q ; ZZ ; 18.05.04 - 15 u 48 * V8 - Index: cTN111.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN111.mac.rou (.../cTN111.mac.rou) (revision 29059) +++ cTN111.mac.rou (.../cTN111.mac.rou) (revision 43422) @@ -513,4 +513,3 @@ ICZ Q R ; ZZ ; 18.04.08 - 16 u 39 * V9.01 - Index: cT630.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT630.mac.rou (.../cT630.mac.rou) (revision 29059) +++ cT630.mac.rou (.../cT630.mac.rou) (revision 43422) @@ -76,4 +76,3 @@ R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT290.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT290.mac.rou (.../cT290.mac.rou) (revision 29059) +++ cT290.mac.rou (.../cT290.mac.rou) (revision 43422) @@ -96,3 +96,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT184A.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT184A.mac.rou (.../cT184A.mac.rou) (revision 29059) +++ cT184A.mac.rou (.../cT184A.mac.rou) (revision 43422) @@ -34,3 +34,4 @@ ; ZZ ; 04.11.04 - 10 u 11 * V8.02 + Index: cT812.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT812.mac.rou (.../cT812.mac.rou) (revision 29059) +++ cT812.mac.rou (.../cT812.mac.rou) (revision 43422) @@ -91,4 +91,3 @@ FZ K R Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTE5.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE5.mac.rou (.../cTE5.mac.rou) (revision 29059) +++ cTE5.mac.rou (.../cTE5.mac.rou) (revision 43422) @@ -60,3 +60,4 @@ ; ZZ ; 27.12.99 - 9 u 32 * V7.24 + Index: cTU14.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU14.mac.rou (.../cTU14.mac.rou) (revision 29059) +++ cTU14.mac.rou (.../cTU14.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT20.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT20.mac.rou (.../cT20.mac.rou) (revision 29059) +++ cT20.mac.rou (.../cT20.mac.rou) (revision 43422) @@ -118,4 +118,3 @@ FZ K R Q ; ZZ ; 06.04.05 - 14 u 11 * V8.03 - Index: cT331.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT331.mac.rou (.../cT331.mac.rou) (revision 29059) +++ cT331.mac.rou (.../cT331.mac.rou) (revision 43422) @@ -107,4 +107,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT801.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT801.mac.rou (.../cT801.mac.rou) (revision 29059) +++ cT801.mac.rou (.../cT801.mac.rou) (revision 43422) @@ -90,4 +90,3 @@ FZ K RT Q ; ZZ ; 25.04.06 - 15 u 44 * V8.07 - Index: cT178.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT178.mac.rou (.../cT178.mac.rou) (revision 29059) +++ cT178.mac.rou (.../cT178.mac.rou) (revision 43422) @@ -75,3 +75,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT7082.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT7082.mac.rou (.../cT7082.mac.rou) (revision 29059) +++ cT7082.mac.rou (.../cT7082.mac.rou) (revision 43422) @@ -106,4 +106,3 @@ R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; ZZ ; 24.09.03 - 14 u 21 * V7.96 - Index: cT00B.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT00B.mac.rou (.../cT00B.mac.rou) (revision 29059) +++ cT00B.mac.rou (.../cT00B.mac.rou) (revision 43422) @@ -161,4 +161,3 @@ NMNDZ Q ; ZZ ; 25.09.01 - 11 u 01 * V7.88 - Index: cT138.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT138.mac.rou (.../cT138.mac.rou) (revision 29059) +++ cT138.mac.rou (.../cT138.mac.rou) (revision 43422) @@ -48,3 +48,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT134.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT134.mac.rou (.../cT134.mac.rou) (revision 29059) +++ cT134.mac.rou (.../cT134.mac.rou) (revision 43422) @@ -81,3 +81,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT33.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT33.mac.rou (.../cT33.mac.rou) (revision 29059) +++ cT33.mac.rou (.../cT33.mac.rou) (revision 43422) @@ -82,4 +82,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT9110.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9110.mac.rou (.../cT9110.mac.rou) (revision 29059) +++ cT9110.mac.rou (.../cT9110.mac.rou) (revision 43422) @@ -157,4 +157,3 @@ FZ K R Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT48.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT48.mac.rou (.../cT48.mac.rou) (revision 29059) +++ cT48.mac.rou (.../cT48.mac.rou) (revision 43422) @@ -39,4 +39,3 @@ YZ Q ; ZZ ; 18.05.04 - 15 u 48 * V8 - Index: cT6424.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6424.mac.rou (.../cT6424.mac.rou) (revision 29059) +++ cT6424.mac.rou (.../cT6424.mac.rou) (revision 43422) @@ -72,4 +72,3 @@ INCTR ;K?.N!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))!(K="-")!(K=",") ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT131.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT131.mac.rou (.../cT131.mac.rou) (revision 29059) +++ cT131.mac.rou (.../cT131.mac.rou) (revision 43422) @@ -87,3 +87,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT00.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT00.mac.rou (.../cT00.mac.rou) (revision 29059) +++ cT00.mac.rou (.../cT00.mac.rou) (revision 43422) @@ -34,3 +34,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU90.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU90.mac.rou (.../cTU90.mac.rou) (revision 29059) +++ cTU90.mac.rou (.../cTU90.mac.rou) (revision 43422) @@ -52,3 +52,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTU16.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU16.mac.rou (.../cTU16.mac.rou) (revision 29059) +++ cTU16.mac.rou (.../cTU16.mac.rou) (revision 43422) @@ -54,3 +54,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT843.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT843.mac.rou (.../cT843.mac.rou) (revision 29059) +++ cT843.mac.rou (.../cT843.mac.rou) (revision 43422) @@ -22,3 +22,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA561.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA561.mac.rou (.../cTA561.mac.rou) (revision 29059) +++ cTA561.mac.rou (.../cTA561.mac.rou) (revision 43422) @@ -23,3 +23,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT6412.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6412.mac.rou (.../cT6412.mac.rou) (revision 29059) +++ cT6412.mac.rou (.../cT6412.mac.rou) (revision 43422) @@ -154,4 +154,3 @@ INVESTZ Q SWINV ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cTA806.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA806.mac.rou (.../cTA806.mac.rou) (revision 29059) +++ cTA806.mac.rou (.../cTA806.mac.rou) (revision 43422) @@ -66,4 +66,3 @@ ; Z X ^cZ Q ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT292.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT292.mac.rou (.../cT292.mac.rou) (revision 29059) +++ cT292.mac.rou (.../cT292.mac.rou) (revision 43422) @@ -53,3 +53,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT430.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT430.mac.rou (.../cT430.mac.rou) (revision 29059) +++ cT430.mac.rou (.../cT430.mac.rou) (revision 43422) @@ -60,3 +60,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA2.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA2.mac.rou (.../cTA2.mac.rou) (revision 29059) +++ cTA2.mac.rou (.../cTA2.mac.rou) (revision 43422) @@ -11,3 +11,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT182.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT182.mac.rou (.../cT182.mac.rou) (revision 29059) +++ cT182.mac.rou (.../cT182.mac.rou) (revision 43422) @@ -83,4 +83,3 @@ BBTWZ Q BBTW ; ZZ ; 15.04.03 - 9 u 31 * V7.94 - Index: cT35.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT35.mac.rou (.../cT35.mac.rou) (revision 29059) +++ cT35.mac.rou (.../cT35.mac.rou) (revision 43422) @@ -50,4 +50,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT64.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT64.mac.rou (.../cT64.mac.rou) (revision 29059) +++ cT64.mac.rou (.../cT64.mac.rou) (revision 43422) @@ -77,4 +77,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cTU10.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU10.mac.rou (.../cTU10.mac.rou) (revision 29059) +++ cTU10.mac.rou (.../cTU10.mac.rou) (revision 43422) @@ -71,3 +71,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT6411.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6411.mac.rou (.../cT6411.mac.rou) (revision 29059) +++ cT6411.mac.rou (.../cT6411.mac.rou) (revision 43422) @@ -17,3 +17,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT130.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT130.mac.rou (.../cT130.mac.rou) (revision 29059) +++ cT130.mac.rou (.../cT130.mac.rou) (revision 43422) @@ -105,3 +105,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT820.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT820.mac.rou (.../cT820.mac.rou) (revision 29059) +++ cT820.mac.rou (.../cT820.mac.rou) (revision 43422) @@ -74,4 +74,3 @@ FZ K R Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT817.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT817.mac.rou (.../cT817.mac.rou) (revision 29059) +++ cT817.mac.rou (.../cT817.mac.rou) (revision 43422) @@ -67,4 +67,3 @@ ; Z X ^cZ Q ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT810.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT810.mac.rou (.../cT810.mac.rou) (revision 29059) +++ cT810.mac.rou (.../cT810.mac.rou) (revision 43422) @@ -82,3 +82,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT862.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT862.mac.rou (.../cT862.mac.rou) (revision 29059) +++ cT862.mac.rou (.../cT862.mac.rou) (revision 43422) @@ -111,4 +111,3 @@ S1Z Q S2 ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT840.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT840.mac.rou (.../cT840.mac.rou) (revision 29059) +++ cT840.mac.rou (.../cT840.mac.rou) (revision 43422) @@ -70,3 +70,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT392E.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT392E.mac.rou (.../cT392E.mac.rou) (revision 29059) +++ cT392E.mac.rou (.../cT392E.mac.rou) (revision 43422) @@ -125,3 +125,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT408.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT408.mac.rou (.../cT408.mac.rou) (revision 29059) +++ cT408.mac.rou (.../cT408.mac.rou) (revision 43422) @@ -30,3 +30,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cT402.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT402.mac.rou (.../cT402.mac.rou) (revision 29059) +++ cT402.mac.rou (.../cT402.mac.rou) (revision 43422) @@ -145,3 +145,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cTU63.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU63.mac.rou (.../cTU63.mac.rou) (revision 29059) +++ cTU63.mac.rou (.../cTU63.mac.rou) (revision 43422) @@ -30,3 +30,4 @@ Z X ^cZ Q ZZ ; 19.07.90 - 16 u 32 + Index: cT195.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT195.mac.rou (.../cT195.mac.rou) (revision 29059) +++ cT195.mac.rou (.../cT195.mac.rou) (revision 43422) @@ -77,3 +77,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT481.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT481.mac.rou (.../cT481.mac.rou) (revision 29059) +++ cT481.mac.rou (.../cT481.mac.rou) (revision 43422) @@ -91,3 +91,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT54.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT54.mac.rou (.../cT54.mac.rou) (revision 29059) +++ cT54.mac.rou (.../cT54.mac.rou) (revision 43422) @@ -66,3 +66,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT261.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT261.mac.rou (.../cT261.mac.rou) (revision 29059) +++ cT261.mac.rou (.../cT261.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT634.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT634.mac.rou (.../cT634.mac.rou) (revision 29059) +++ cT634.mac.rou (.../cT634.mac.rou) (revision 43422) @@ -39,3 +39,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT68.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT68.mac.rou (.../cT68.mac.rou) (revision 29059) +++ cT68.mac.rou (.../cT68.mac.rou) (revision 43422) @@ -79,4 +79,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT102.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT102.mac.rou (.../cT102.mac.rou) (revision 29059) +++ cT102.mac.rou (.../cT102.mac.rou) (revision 43422) @@ -23,3 +23,4 @@ ; ZZ ; 30.03.01 - 13 u 39 * V7.85 + Index: cT1590.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT1590.mac.rou (.../cT1590.mac.rou) (revision 29059) +++ cT1590.mac.rou (.../cT1590.mac.rou) (revision 43422) @@ -63,4 +63,3 @@ FZ K R Q ; ZZ ; 24.02.06 - 9 u 54 * V8.06 - Index: cT66E5.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT66E5.mac.rou (.../cT66E5.mac.rou) (revision 29059) +++ cT66E5.mac.rou (.../cT66E5.mac.rou) (revision 43422) @@ -1,47 +1,50 @@ -cT66E5 ;Overschrijvingsorder ;%T66 ;Go uit %T66E4 ; [ 04/12/00 9:06 AM ] - G 1 - ; -T0 ;Overschrijvingsorder ; -T1 ;Blz :; -T2 ;: Nummer : Naam : Woonplaats : Banknummer : Bedrag : Omschrijving :; -T3 ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer; -T4 ;:------------------------------------------------------------------------------------------------------------------------:; - ; -T0F ;Ordre de virements ; -T1F ;Page:; -T2F ;: Num�ro : Nom : Localit� : N� bancair : Montant : Description :; -T3F ;Veuillez mentionner les donn�es suivantes sur la disquette:;Code application : 01;N� d'immatriculation ;N� de t�l�phone; -T4F ;:------------------------------------------------------------------------------------------------------------------------:; - ; -T0E ;Overschrijvingsorder ; -T1E ;Blz :; -T2E ;: Nummer : Naam : Woonplaats : Banknummer : Bedrag : Omschrijving :; -T3E ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer; -T4E ;:------------------------------------------------------------------------------------------------------------------------:; - ; -1 X F70 W @F80 S (BLZ,LN)=0 -11 S R=$G(@("^"_Q_"BA(""%T"",5,BR)"),3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D -12 S R1=$E(BNR,1,3)_"-"_$E(BNR,4,10)_"-"_$E(BNR,11,12)_D_DAT_D_AFK_D_(L+LT)_D_L_D_T_D_RN_D D ^cA321 - ; -2 D 8 S I1="" -21 S I1=$O(^HULP(boot,$J,I1)) G 3:I1="" S K=^(I1),LN=LN+1,R=$P(K,D,11)_D_14_D_D_QD I LN>50 D 85 W $$FF^cA334 D 8 -22 W !,": ",$P(K,D),?9,": ",$P(K,D,2),?40,": ",$P(K,D,5),?66,": ",$P(K,D,8),?81,":" D R3 W ": " F R=13:1:15 W $P(K,D,R)," " -23 W ?121,":" G 21 - ; -3 D 85 W $$FF^cA334 X F71 K BLZ,LN -31 D O^cA612(15,1,7,80,1,0,0,0) S K=$T(@("T3"_QT)) -33 W /CUP(1,2),$P(K,U,2),!?10,$P(K,U,3),!?10,NM1,!?10,$P(K,U,4),INS,!?10,$P(K,U,5) D TXT^cAFA1(4),C^cA612 - ; -YZ K ^HULP(boot,$J) Q - ; -8 S BLZ=BLZ+1,LN=0 W !,NM1,?114,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?114,DT,!,NM3,?115,TD,! -81 D 85 W !,$P($T(@("T2"_QT)),U,2) -85 W !,$P($T(@("T4"_QT)),U,2) Q - ; -R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 -R3A 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) -R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 -R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT66E5 ;Overschrijvingsorder ;%T66 ;Go uit %T66E4 ; [ 04/12/00 9:06 AM ] + G 1 + ; +T0 ;Overschrijvingsorder ; +T1 ;Blz :; +T2 ;: Nummer : Naam : Woonplaats : Banknummer : Bedrag : Omschrijving :; +T3 ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer; +T4 ;:------------------------------------------------------------------------------------------------------------------------:; + ; +T0F ;Ordre de virements ; +T1F ;Page:; +T2F ;: Num�ro : Nom : Localit� : N� bancair : Montant : Description :; +T3F ;Veuillez mentionner les donn�es suivantes sur la disquette:;Code application : 01;N� d'immatriculation ;N� de t�l�phone; +T4F ;:------------------------------------------------------------------------------------------------------------------------:; + ; +T0E ;Overschrijvingsorder ; +T1E ;Blz :; +T2E ;: Nummer : Naam : Woonplaats : Banknummer : Bedrag : Omschrijving :; +T3E ;Volgende gegevens moeten op de diskette vermeld worden:;Toepassingscode : 01;Inschrijvingsnummer ;Telefoonnummer; +T4E ;:------------------------------------------------------------------------------------------------------------------------:; + ; +1 X F70 W @F80 S (BLZ,LN)=0 + ; KO - 29.10.07 - Wegwerken ^_Q_BA("%T",5 +11 ; S R=$G(@("^"_Q_"BA(""%T"",5,BR)"),3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D + S R=$$SIG^cAFA1("AR",BR,204),R=$G(R,3)_D_PRO_D_BNK_D_1_D_"01"_D_$E(BTW,3,5)_"-"_$E(BTW,6,8)_"-"_$E(BTW,9,11)_D_INS_D + S I1=BNR + I $$IBAN^cAFI2(BNR) S I1=$E(BNR,5,99) ; KU : 09.06.08 +12 S R1=$E(I1,1,3)_"-"_$E(I1,4,10)_"-"_$E(I1,11,12)_D_DAT_D_AFK_D_(L+LT)_D_L_D_T_D_RN_D D ^cA321 + ; +2 D 8 S I1="" +21 S I1=$O(^HULP(boot,$J,I1)) G 3:I1="" S K=^(I1),LN=LN+1,R=$P(K,D,11)_D_14_D_D_QD I LN>50 D 85 W $$FF^cA334 D 8 +22 W !,": ",$P(K,D),?9,": ",$P(K,D,2),?40,": ",$P(K,D,5),?66,": ",$P(K,D,8),?81,":" D R3 W ": " F R=13:1:15 W $P(K,D,R)," " +23 W ?121,":" G 21 + ; +3 D 85 W $$FF^cA334 X F71 K BLZ,LN,PTS +31 D O^cA612(15,1,7,80,1,0,0,0) S K=$T(@("T3"_QT)) +33 W /CUP(1,2),$P(K,U,2),!?10,$P(K,U,3),!?10,NM1,!?10,$P(K,U,4),INS,!?10,$P(K,U,5) D TXT^cAFA1(4),C^cA612 + ; +YZ K ^HULP(boot,$J) Q + ; +8 S BLZ=BLZ+1,LN=0 W !,NM1,?114,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?114,DT,!,NM3,?115,TD,! +81 D 85 W !,$P($T(@("T2"_QT)),U,2) +85 W !,$P($T(@("T4"_QT)),U,2) Q + ; +R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 +R3A 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) +R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 +R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 + ; +ZZ ; 19.06.08 - 12 u 09 * V9.01 Index: cT842.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT842.mac.rou (.../cT842.mac.rou) (revision 29059) +++ cT842.mac.rou (.../cT842.mac.rou) (revision 43422) @@ -86,4 +86,3 @@ FZ K R Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cTU60.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU60.mac.rou (.../cTU60.mac.rou) (revision 29059) +++ cTU60.mac.rou (.../cTU60.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT482.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT482.mac.rou (.../cT482.mac.rou) (revision 29059) +++ cT482.mac.rou (.../cT482.mac.rou) (revision 43422) @@ -120,3 +120,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT280.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT280.mac.rou (.../cT280.mac.rou) (revision 29059) +++ cT280.mac.rou (.../cT280.mac.rou) (revision 43422) @@ -124,4 +124,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT6420.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6420.mac.rou (.../cT6420.mac.rou) (revision 29059) +++ cT6420.mac.rou (.../cT6420.mac.rou) (revision 43422) @@ -54,4 +54,3 @@ S1Z Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT37.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT37.mac.rou (.../cT37.mac.rou) (revision 29059) +++ cT37.mac.rou (.../cT37.mac.rou) (revision 43422) @@ -93,4 +93,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT283.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT283.mac.rou (.../cT283.mac.rou) (revision 29059) +++ cT283.mac.rou (.../cT283.mac.rou) (revision 43422) @@ -49,4 +49,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT914.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT914.mac.rou (.../cT914.mac.rou) (revision 29059) +++ cT914.mac.rou (.../cT914.mac.rou) (revision 43422) @@ -130,4 +130,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTU27.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU27.mac.rou (.../cTU27.mac.rou) (revision 29059) +++ cTU27.mac.rou (.../cTU27.mac.rou) (revision 43422) @@ -39,3 +39,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTU65.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU65.mac.rou (.../cTU65.mac.rou) (revision 29059) +++ cTU65.mac.rou (.../cTU65.mac.rou) (revision 43422) @@ -59,3 +59,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cTU92.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU92.mac.rou (.../cTU92.mac.rou) (revision 29059) +++ cTU92.mac.rou (.../cTU92.mac.rou) (revision 43422) @@ -66,3 +66,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTU32.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU32.mac.rou (.../cTU32.mac.rou) (revision 29059) +++ cTU32.mac.rou (.../cTU32.mac.rou) (revision 43422) @@ -38,3 +38,4 @@ ; ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTA102.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA102.mac.rou (.../cTA102.mac.rou) (revision 29059) +++ cTA102.mac.rou (.../cTA102.mac.rou) (revision 43422) @@ -107,3 +107,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA6.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA6.mac.rou (.../cTA6.mac.rou) (revision 29059) +++ cTA6.mac.rou (.../cTA6.mac.rou) (revision 43422) @@ -35,3 +35,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT632.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT632.mac.rou (.../cT632.mac.rou) (revision 29059) +++ cT632.mac.rou (.../cT632.mac.rou) (revision 43422) @@ -42,3 +42,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9107.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9107.mac.rou (.../cT9107.mac.rou) (revision 29059) +++ cT9107.mac.rou (.../cT9107.mac.rou) (revision 43422) @@ -94,4 +94,3 @@ YZ G ^cT9108 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTU22.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU22.mac.rou (.../cTU22.mac.rou) (revision 29059) +++ cTU22.mac.rou (.../cTU22.mac.rou) (revision 43422) @@ -49,3 +49,4 @@ Z X ^cZ Q ZZ ; 27.12.90 - 9 u 19 + Index: cT6822.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6822.mac.rou (.../cT6822.mac.rou) (revision 29059) +++ cT6822.mac.rou (.../cT6822.mac.rou) (revision 43422) @@ -75,4 +75,3 @@ FZ K R Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT811.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT811.mac.rou (.../cT811.mac.rou) (revision 29059) +++ cT811.mac.rou (.../cT811.mac.rou) (revision 43422) @@ -74,4 +74,3 @@ FZ K R Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cTA4.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA4.mac.rou (.../cTA4.mac.rou) (revision 29059) +++ cTA4.mac.rou (.../cTA4.mac.rou) (revision 43422) @@ -71,3 +71,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT802.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT802.mac.rou (.../cT802.mac.rou) (revision 29059) +++ cT802.mac.rou (.../cT802.mac.rou) (revision 43422) @@ -103,4 +103,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 23.06.05 - 17 u 03 * V8.04 - Index: cTU5.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU5.mac.rou (.../cTU5.mac.rou) (revision 29059) +++ cTU5.mac.rou (.../cTU5.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT866.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT866.mac.rou (.../cT866.mac.rou) (revision 29059) +++ cT866.mac.rou (.../cT866.mac.rou) (revision 43422) @@ -94,3 +94,4 @@ ; ZZ ; 04.11.04 - 10 u 11 * V8.02 + Index: cT910.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT910.mac.rou (.../cT910.mac.rou) (revision 29059) +++ cT910.mac.rou (.../cT910.mac.rou) (revision 43422) @@ -59,4 +59,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTE6.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE6.mac.rou (.../cTE6.mac.rou) (revision 29059) +++ cTE6.mac.rou (.../cTE6.mac.rou) (revision 43422) @@ -69,3 +69,4 @@ ; ZZ ; 19.04.00 - 14 u 04 * V7.3 + Index: cT661L.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT661L.mac.rou (.../cT661L.mac.rou) (revision 29059) +++ cT661L.mac.rou (.../cT661L.mac.rou) (revision 43422) @@ -1,83 +1,82 @@ -cT661L ;Betalingsvoorstel leveranciers ;%T66 ; [ 02/23/00 9:25 AM ] - G 1 - ; -T0 ;Totaal per leverancier ; -T1 ;Omschrijving; -T2 ;Journaal;allemaal; -T3 ;Muntcode;allemaal; -T4 ;Subtotaal; -T5 ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; -T6 ;Bevestiging\"+[] = enkel leveranciers met positief saldo"; - ; -T0F ;Total par fournisseur ; -T1F ;Description; -T2F ;Journal;tous; -T3F ;Code mon.;tous; -T4F ;Sous-total; -T5F ;N� de facture; existe d�j� pour ce proposition; d�j� pay�; -T6F ;Confirmation\"+[] = seulement fournisseurs avec un solde positif"; - ; -T0E ;Totaal per leverancier ; -T1E ;Omschrijving; -T2E ;Journaal;allemaal; -T3E ;Muntcode;allemaal; -T4E ;Subtotaal; -T5E ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; -T6E ;Bevestiging\"+[] = enkel leveranciers met positief saldo"; - ; - ; opbouw BVS.LE via module L[] bij BVS.DET - ; UREF = BVS.DET -1 D EG^cAFA1 -11 K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J) -13 S BF=$$BF^cAFA1 D VM(BF) - ; - ; detaillijnen BVS.DET groeperen per leverancier_muntcode -2 S UI1=0,VNR=0 -21 S UI1=$O(@UREF) I UI1="" G 4 -23 S OF=^(UI1),KC=$P(OF,D),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF -25 S I4=$G(^HULP(boot,$J,KC,VM(MF))) -27 I 'I4 S VNR=VNR+1,I4=VNR,^(VM(MF))=I4 - ; - ; totaal per leverancier_muntcode -3 S R=$G(^DATA(Q,"BVS.LE",BVS,I4)) -31 S $P(R,D)=KC ; leverancier -32 S $P(R,D,2)=$P(R,D,2)+1 ; aantal doc. -33 S $P(R,D,3)=$P(R,D,3)+$P(OF,D,3) ; totaal bedrag -34 S $P(R,D,4)=MF ; muntcode -35 S $P(R,D,5)=$P(OF,D,5) ; vvvvvv -39 S ^DATA(Q,"BVS.LE",BVS,I4)=R G 21 - ; - ; scroll tonen -4 D C^cA612 -41 D BS^cAN210("BVS.LE",1,1,1,0) - ; - ; einde -Y K KC,VM,VNR,I4,TOT -YA K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J) -YZ Q - ; -R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 - ; - ; Delete : kill combinatie leverancier_muntcode in BVS.LE - ; UREF = BVS.LE -DEL S R=@UREF K @UREF -DELA N UQC,USC,UREF,UI1 -DELB D DMS^cAN000("UQC","USC","BVS.DET") S UREF=^DMC(UQC,USC,"DATA","REF") -DELC N BEGIN,EINDE S BEGIN=$P(R,D,5)*1E6+1E12,EINDE=BEGIN+999999 -DELD S UI1=BEGIN F S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE) D - . S OF=^(UI1) I $P(OF,D)=$P(R,D),$P(OF,D,6)=$P(R,D,4) K ^(UI1) -DELZ D CUM^cT661 Q - ; - ; positief saldo : module +[] in BVS.LE - ; UREF = BVS.LE -POS S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\K=""+""!(K=""-"")" D R0 G POSZ:K="-" -POSA S UI1=0 F S UI1=$O(@UREF) Q:UI1="" I $P(^(UI1),D,3)<0 D DEL -POSZ Q - ; - ; offici�le muntcode -VM(K) I K="" S K=BF - I '$D(VM(K)) S VM(K)=K I $D(@("^"_Q_"BA(11,K)")) S VM(K)=$P(^(K),D) -VMZ Q - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT661L ;Betalingsvoorstel leveranciers ;%T66 ; [ 02/23/00 9:25 AM ] + G 1 + ; +T0 ;Totaal per leverancier ; +T1 ;Omschrijving; +T2 ;Journaal;allemaal; +T3 ;Muntcode;allemaal; +T4 ;Subtotaal; +T5 ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; +T6 ;Bevestiging\"+[] = enkel leveranciers met positief saldo"; + ; +T0F ;Total par fournisseur ; +T1F ;Description; +T2F ;Journal;tous; +T3F ;Code mon.;tous; +T4F ;Sous-total; +T5F ;N� de facture; existe d�j� pour ce proposition; d�j� pay�; +T6F ;Confirmation\"+[] = seulement fournisseurs avec un solde positif"; + ; +T0E ;Totaal per leverancier ; +T1E ;Omschrijving; +T2E ;Journaal;allemaal; +T3E ;Muntcode;allemaal; +T4E ;Subtotaal; +T5E ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; +T6E ;Bevestiging\"+[] = enkel leveranciers met positief saldo"; + ; + ; opbouw BVS.LE via module L[] bij BVS.DET + ; UREF = BVS.DET +1 D EG^cAFA1 +11 K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J) +13 S BF=$$BF^cAFA1 D VM(BF) + ; + ; detaillijnen BVS.DET groeperen per leverancier_muntcode +2 S UI1=0,VNR=0 +21 S UI1=$O(@UREF) I UI1="" G 4 +23 S OF=^(UI1),KC=$P(OF,D),MF=$P(OF,D,6) D VM(MF) I MF="" S MF=BF +25 S I4=$G(^HULP(boot,$J,KC,VM(MF))) +27 I 'I4 S VNR=VNR+1,I4=VNR,^(VM(MF))=I4 + ; + ; totaal per leverancier_muntcode +3 S R=$G(^DATA(Q,"BVS.LE",BVS,I4)) +31 S $P(R,D)=KC ; leverancier +32 S $P(R,D,2)=$P(R,D,2)+1 ; aantal doc. +33 S $P(R,D,3)=$P(R,D,3)+$P(OF,D,3) ; totaal bedrag +34 S $P(R,D,4)=MF ; muntcode +35 S $P(R,D,5)=$P(OF,D,5) ; vvvvvv +39 S ^DATA(Q,"BVS.LE",BVS,I4)=R G 21 + ; + ; scroll tonen +4 D C^cA612 +41 D BS^cAN210("BVS.LE",1,1,1,0) + ; + ; einde +Y K KC,VM,VNR,I4,TOT +YA K ^DATA(Q,"BVS.LE",BVS),^HULP(boot,$J) +YZ Q + ; +R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 + ; + ; Delete : kill combinatie leverancier_muntcode in BVS.LE + ; UREF = BVS.LE +DEL S R=@UREF K @UREF +DELA N UQC,USC,UREF,UI1 +DELB D DMS^cAN000("UQC","USC","BVS.DET") S UREF=^DMC(UQC,USC,"DATA","REF") +DELC N BEGIN,EINDE S BEGIN=$P(R,D,5)*1E6+1E12,EINDE=BEGIN+999999 +DELD S UI1=BEGIN F S UI1=$O(@UREF) Q:UI1=""!(UI1>EINDE) D + . S OF=^(UI1) I $P(OF,D)=$P(R,D),$P(OF,D,6)=$P(R,D,4) K ^(UI1) +DELZ D CUM^cT661 Q + ; + ; positief saldo : module +[] in BVS.LE + ; UREF = BVS.LE +POS S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\K=""+""!(K=""-"")" D R0 G POSZ:K="-" +POSA S UI1=0 F S UI1=$O(@UREF) Q:UI1="" I $P(^(UI1),D,3)<0 D DEL +POSZ Q + ; + ; offici�le muntcode +VM(K) I K="" S K=BF + I '$D(VM(K)) S VM(K)=K I $D(@("^"_Q_"BA(11,K)")) S VM(K)=$P(^(K),D) +VMZ Q + ; +ZZ ; 05.02.01 - 16 u 23 * V7.84 Index: cTA183.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA183.mac.rou (.../cTA183.mac.rou) (revision 29059) +++ cTA183.mac.rou (.../cTA183.mac.rou) (revision 43422) @@ -170,4 +170,3 @@ YZ Q ; ZZ ; 24.02.06 - 9 u 54 * V8.06 - Index: cTA225.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA225.mac.rou (.../cTA225.mac.rou) (revision 29059) +++ cTA225.mac.rou (.../cTA225.mac.rou) (revision 43422) @@ -45,3 +45,4 @@ ; ZZ ; 06.08.01 - 17 u 28 * V7.87 + Index: cT159.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT159.mac.rou (.../cT159.mac.rou) (revision 29059) +++ cT159.mac.rou (.../cT159.mac.rou) (revision 43422) @@ -251,4 +251,3 @@ FZ K R Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT850.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT850.mac.rou (.../cT850.mac.rou) (revision 29059) +++ cT850.mac.rou (.../cT850.mac.rou) (revision 43422) @@ -103,4 +103,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cT214.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT214.mac.rou (.../cT214.mac.rou) (revision 29059) +++ cT214.mac.rou (.../cT214.mac.rou) (revision 43422) @@ -90,3 +90,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT684.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT684.mac.rou (.../cT684.mac.rou) (revision 29059) +++ cT684.mac.rou (.../cT684.mac.rou) (revision 43422) @@ -10,3 +10,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU24.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU24.mac.rou (.../cTU24.mac.rou) (revision 29059) +++ cTU24.mac.rou (.../cTU24.mac.rou) (revision 43422) @@ -61,3 +61,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cTU41.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU41.mac.rou (.../cTU41.mac.rou) (revision 29059) +++ cTU41.mac.rou (.../cTU41.mac.rou) (revision 43422) @@ -64,3 +64,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT687.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT687.mac.rou (.../cT687.mac.rou) (revision 29059) +++ cT687.mac.rou (.../cT687.mac.rou) (revision 43422) @@ -51,4 +51,3 @@ FZ S %=$T(+0)_" "_K D TXT^cAFA1(250),^cA400 K % Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT804.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT804.mac.rou (.../cT804.mac.rou) (revision 29059) +++ cT804.mac.rou (.../cT804.mac.rou) (revision 43422) @@ -25,3 +25,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT683.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT683.mac.rou (.../cT683.mac.rou) (revision 29059) +++ cT683.mac.rou (.../cT683.mac.rou) (revision 43422) @@ -27,3 +27,4 @@ ; ZZ ; 18.05.04 - 15 u 48 * V8 + Index: cT916.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT916.mac.rou (.../cT916.mac.rou) (revision 29059) +++ cT916.mac.rou (.../cT916.mac.rou) (revision 43422) @@ -109,4 +109,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT333.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT333.mac.rou (.../cT333.mac.rou) (revision 29059) +++ cT333.mac.rou (.../cT333.mac.rou) (revision 43422) @@ -48,4 +48,3 @@ ; Z X ^cZ Q ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cTU11.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU11.mac.rou (.../cTU11.mac.rou) (revision 29059) +++ cTU11.mac.rou (.../cTU11.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT433.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT433.mac.rou (.../cT433.mac.rou) (revision 29059) +++ cT433.mac.rou (.../cT433.mac.rou) (revision 43422) @@ -82,3 +82,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT53.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT53.mac.rou (.../cT53.mac.rou) (revision 29059) +++ cT53.mac.rou (.../cT53.mac.rou) (revision 43422) @@ -80,3 +80,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT915.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT915.mac.rou (.../cT915.mac.rou) (revision 29059) +++ cT915.mac.rou (.../cT915.mac.rou) (revision 43422) @@ -66,4 +66,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT281.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT281.mac.rou (.../cT281.mac.rou) (revision 29059) +++ cT281.mac.rou (.../cT281.mac.rou) (revision 43422) @@ -106,4 +106,3 @@ ; Z X ^cZ Q ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cT183.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT183.mac.rou (.../cT183.mac.rou) (revision 29059) +++ cT183.mac.rou (.../cT183.mac.rou) (revision 43422) @@ -64,4 +64,3 @@ S1Z Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT100.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT100.mac.rou (.../cT100.mac.rou) (revision 29059) +++ cT100.mac.rou (.../cT100.mac.rou) (revision 43422) @@ -134,4 +134,3 @@ - Index: cT383.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT383.mac.rou (.../cT383.mac.rou) (revision 29059) +++ cT383.mac.rou (.../cT383.mac.rou) (revision 43422) @@ -161,4 +161,3 @@ FORMZ Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT321.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT321.mac.rou (.../cT321.mac.rou) (revision 29059) +++ cT321.mac.rou (.../cT321.mac.rou) (revision 43422) @@ -164,4 +164,3 @@ S5Z Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT89.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT89.mac.rou (.../cT89.mac.rou) (revision 29059) +++ cT89.mac.rou (.../cT89.mac.rou) (revision 43422) @@ -21,3 +21,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT60.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT60.mac.rou (.../cT60.mac.rou) (revision 29059) +++ cT60.mac.rou (.../cT60.mac.rou) (revision 43422) @@ -13,3 +13,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT11.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT11.mac.rou (.../cT11.mac.rou) (revision 29059) +++ cT11.mac.rou (.../cT11.mac.rou) (revision 43422) @@ -90,4 +90,3 @@ FZ K R Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTA216.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA216.mac.rou (.../cTA216.mac.rou) (revision 29059) +++ cTA216.mac.rou (.../cTA216.mac.rou) (revision 43422) @@ -51,3 +51,4 @@ ; ZZ ; 06.08.01 - 17 u 28 * V7.87 + Index: cTA560.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA560.mac.rou (.../cTA560.mac.rou) (revision 29059) +++ cTA560.mac.rou (.../cTA560.mac.rou) (revision 43422) @@ -87,3 +87,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT294.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT294.mac.rou (.../cT294.mac.rou) (revision 29059) +++ cT294.mac.rou (.../cT294.mac.rou) (revision 43422) @@ -59,3 +59,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT710.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT710.mac.rou (.../cT710.mac.rou) (revision 29059) +++ cT710.mac.rou (.../cT710.mac.rou) (revision 43422) @@ -92,4 +92,3 @@ ; Z X ^cZ Q ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT561.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT561.mac.rou (.../cT561.mac.rou) (revision 29059) +++ cT561.mac.rou (.../cT561.mac.rou) (revision 43422) @@ -93,3 +93,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU7.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU7.mac.rou (.../cTU7.mac.rou) (revision 29059) +++ cTU7.mac.rou (.../cTU7.mac.rou) (revision 43422) @@ -61,3 +61,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT707.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT707.mac.rou (.../cT707.mac.rou) (revision 29059) +++ cT707.mac.rou (.../cT707.mac.rou) (revision 43422) @@ -36,4 +36,3 @@ ; Z X ^cZ ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT830.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT830.mac.rou (.../cT830.mac.rou) (revision 29059) +++ cT830.mac.rou (.../cT830.mac.rou) (revision 43422) @@ -70,4 +70,3 @@ FZ K R Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT278.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT278.mac.rou (.../cT278.mac.rou) (revision 29059) +++ cT278.mac.rou (.../cT278.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT52.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT52.mac.rou (.../cT52.mac.rou) (revision 29059) +++ cT52.mac.rou (.../cT52.mac.rou) (revision 43422) @@ -75,3 +75,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU28.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU28.mac.rou (.../cTU28.mac.rou) (revision 29059) +++ cTU28.mac.rou (.../cTU28.mac.rou) (revision 43422) @@ -34,3 +34,4 @@ Z X ^cZ Q ZZ ; 07.06.88 - 16 u 58 + Index: cT813.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT813.mac.rou (.../cT813.mac.rou) (revision 29059) +++ cT813.mac.rou (.../cT813.mac.rou) (revision 43422) @@ -129,4 +129,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT167.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT167.mac.rou (.../cT167.mac.rou) (revision 29059) +++ cT167.mac.rou (.../cT167.mac.rou) (revision 43422) @@ -9,7 +9,14 @@ ; ; Titel + locken 1 D P^cA612(2,1,20,80,1,1,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) - L +@("^"_Q_"BA(39)"):2 E D TXT^cAFA1(14) G YZ + ; KO - 18.09.08 - Indien ook nieuwe boekhouding: locken ^DATA(,"Q" + ; I '$$LOCKFRM^cTN901(Q) G YZ + I '$$TESTQ G 11 + S REFQ=$P($$REF^cAFA10(Q,"Q"),D) + S REFQ=$$REPL^cAFA10(REFQ,"UI1","UI1Q") + S UI1Q=Q + L +@REFQ:2 E D TXT^cAFA1(14) G YZ +11 L +@("^"_Q_"BA(39)"):2 E D TXT^cAFA1(14) G Y6 L +@("^"_Q_"BA(25)"):2 E D TXT^cAFA1(14) G Y5 L +@("^"_Q_"BA(33)"):2 E D TXT^cAFA1(14) G Y4 L +@("^"_Q_"BA(74)"):2 E D TXT^cAFA1(14) G Y3 @@ -44,8 +51,13 @@ S $P(^(7),D,2)=$P(J,D,2) ; Telefoon jaarlisting S $P(^(7),D,3)=$P(K,D) ; Contactpersoon kwartaalopgave S $P(^(7),D,4)=$P(K,D,2) ; Telefoon kwartaalopgave + S $P(^(7),D,5)=$P(J,D,3) ; E-mail adres jaarlisting + S $P(^(7),D,6)=$P(K,D,3) ; E-mail adres kwartaalopgave ;S E=$TR($G(@("^"_Q_"BA")@("%T",13,"E"),"A:\"),D,"/") ; KD - 26.06.07 ;S $P(^DPAR(0,"PAR","BH",8),D)=E ; KD - 26.06.07 + I '$$TESTQ G 3 ; geen licentie + S $P(^DPAR(0,"PAR","BH",8),D,4)=$$SIG^cAFA1("Q",Q,265) ; Default map voor maandafsluiting + S $P(^DPAR(0,"PAR","BH",8),D,5)=$$SIG^cAFA1("Q",Q,1001) ; Default map voor PDF bestand ; ; V6 met logging v/d wijzigingen 3 N UQA,USA S UQA=0,USA="PAR.BH" @@ -76,6 +88,13 @@ S K=$P(^DPAR(0,"PAR","BH",7),D,3,4) S @("^"_Q_"BA")@("%T",13,"J",1)=J S @("^"_Q_"BA")@("%T",13,"K",1)=K + S $P(@("^"_Q_"BA(""%T"",13,""J"",1)"),D,3)=$P(^DPAR(0,"PAR","BH",7),D,5) + S $P(@("^"_Q_"BA(""%T"",13,""K"",1)"),D,3)=$P(^DPAR(0,"PAR","BH",7),D,6) + I '$$TESTQ G Y + K TAB + S TAB(265)=$P(^DPAR(0,"PAR","BH",8),D,4) + S TAB(1001)=$P(^DPAR(0,"PAR","BH",8),D,5) + D B^cAN220("Q","",Q,"TAB") ; ; einde Y L -@("^"_Q_"BA")@("%T",13) @@ -84,7 +103,24 @@ Y3 L -@("^"_Q_"BA(33)") Y4 L -@("^"_Q_"BA(25)") Y5 L -@("^"_Q_"BA(39)") + ; KO - 18.09.08 - Indien ook nieuwe boekhouding: gegevens overzetten naar ^DATA(,"Q" +Y6 ; S OK=$$PARBH^cTN901(Q,2) + I $L($G(REFQ)) L -@REFQ YZ D C^cA612 Q ; +PADPDF(PAD) ; Testen of ingegeven pad niet gelijk is aan pad BH + N R + S $ZT="TRAP^cAN000" + S R=1 + I '$L(PAD) G PADPFZ + I PAD=$P(B(9),D,4) S R=0 +PADPFZ Q R + ; +TESTQ() ; Testen of ^DATA(,"Q" bestaat + N UQCQ,USCQ,R + S $ZT="TRAP^cAN000" + S R=1 + D DMS^cAN000("UQCQ","USCQ","Q",1) I '$L(UQCQ)!'$L(USCQ) S R=0 ; geen licentie +TESTQZ Q R + ; ZZ ; 04.08.08 - 17 u 33 * V9.02 - Index: cT686.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT686.mac.rou (.../cT686.mac.rou) (revision 29059) +++ cT686.mac.rou (.../cT686.mac.rou) (revision 43422) @@ -119,4 +119,3 @@ YZ K HULPE,HULPEA,R1,R2,S,DOMVVD,BPB,BC,BH,FNX,HIS,IT,FT,X,T,FAK,NET,BTW,MST,LXT,BR,KKBX,SW71,Y,OM1,AVE,SWAV,BRA,KREDBEP Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT432.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT432.mac.rou (.../cT432.mac.rou) (revision 29059) +++ cT432.mac.rou (.../cT432.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9108.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9108.mac.rou (.../cT9108.mac.rou) (revision 29059) +++ cT9108.mac.rou (.../cT9108.mac.rou) (revision 43422) @@ -62,4 +62,3 @@ YZ G ^cT9109 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTN80401.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN80401.mac.rou (.../cTN80401.mac.rou) (revision 29059) +++ cTN80401.mac.rou (.../cTN80401.mac.rou) (revision 43422) @@ -9,35 +9,44 @@ VBZ Q ; T0 ;IC-opgave ; -T1 ;VatIntra;RecipientId;SenderId;ControlRef;MandataireId;SenderDate;VersionTech;Test; +T1 ;;RecipientId;SenderId;ControlRef;MandataireId;SenderDate;VersionTech;Test; T2 ;AgentRepr;DecNumber; -T3 ;DeclarantList; -T4 ;SequenceNum;DeclarantNum;ClientNbr;AmountSum; -T5 ;CompanyInfo; -T6 ;VATNum;Name;Street;CityAndZipCode;Country; -T7 ;Period; -T8 ;ClientList; +T3 ;IntraListing; +T4 ;SequenceNumber;DeclarantReference;ClientsNbr;AmountSum; +T5 ;Declarant; +T6 ;VATNumber;Name;Street;PostCode;CountryCode;City;EmailAddress; +T7 ;Period;Month;Quarter;Year; +T8 ;IntraClient; T9 ;SequenceNum; -T10 ;CompanyInfo;VATNum;Country; +T10 ;CompanyInfo;CompanyVATNumber;Country;issuedBy; T11 ;Period;Amount;Code; T12 ;Het pad voor de IC-kwartaalopgave is niet correct ingevuld.; T13 ;Kan het uniek nummer voor de opgave niet bepalen.; T15 ;De I.C.-kwartaalopgave is leeg; T16 ;Postcode niet gevonden, gelieve in te vullen bij parameters boekhouding.; +T17 ;IntraConsignment;IntraListingsNbr; +T18 ;http://www.minfin.fgov.be/InputCommon; +T19 ;E-mail ondertekenaar werd niet ingevuld.; +T20 ;Representative;RepresentativeID;issuedBy;identificationType;Phone; +T21 ;Telefoon ondertekenaar werd niet ingevuld.; ; T0F ;Relev� IC ; T12F ;Le chemin d�exportation du relev� IC �lectronique est incorrect.; T13F ;Impossible de d�finir le num�ro unique du relev� IC.; T15F ;Le relev� IC est vide; T16F ;Code postal pas trouv�, s.v.p. le remplir dans param. comptables.; +T19F ;E-mail signataire n'est pas rempli.; +T21F ;Telephone signataire n'est pas rempli.; ; T0E ;IC Statement ; T12E ;The path for the electronic IC Statement is not correct.; T13E ;Could not get unique number for the IC Statement.; T15E ;The IC Statement is empty; T16E ;Could not find the postal code. Please fill in at accounting param.; +T19E ;E-mail Signer was not filled in.; +T21E ;Telephone Signer was not filled in.; ; -1 N XMLFILE,BTWNR,MAND,CTRLREF,SEQNR,NBRCLIENT,TOTCLIENT,I3,I4,NODE,TEST,XMLPATH,B,UI1 +1 N XMLFILE,BTWNR,MAND,CTRLREF,SEQNR,NBRCLIENT,TOTCLIENT,I3,I4,NODE,TEST,XMLPATH,B,UI1,POSTCODE ; S $ZT="TRAP^cAN000" 2 ;------------------------------------------------------------------------------ @@ -65,7 +74,7 @@ G 220 ; ; Nakijk of er klanten gevonden zijn -23 I 'NBRCLIENT S K=$P($T(@("T15"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) G YZ +23 I 'NBRCLIENT S K=$P($T(@("T15"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; ;------------------------------------------------------------------------------ ; Test listing @@ -74,13 +83,20 @@ S TEST=$G(SWTEST) ; 24 S SENDREF=$$SENDREF($P(BP1,"."),KW,MND) - I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) G YZ + I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; KU : 08.01.08 ; niet nodig aangezien Woonpl - ; S POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) - ; I POSTCODE'?4N S K=$P($T(@("T16"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) G YZ + I $G(SWVB) S POSTCODE=$$SIG^cAFA1("Q",Q,302) + I '$G(SWVB) S POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) + I POSTCODE'?4N S K=$P($T(@("T16"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; 25 I '$G(SWVB) S B(1)=$G(@("^"_Q_"BTW(0,0)")) I $G(SWVB) S B(1)=TABGEG(1) + ; + ; Nakijken of telefoon is ingevuld + I $P(B(1),D,13)="" S K=$P($T(@("T21"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; Nakijken of e-mail adres is ingevuld + I $P(B(1),D,14)="" S K=$P($T(@("T19"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; ; opzoeken adresgegevens I $G(SWVB) S IDINDEX=5 G 3 S IDINDEX=4 @@ -97,10 +113,10 @@ 31 I '$G(SWVB) S XMLFILE=@("^"_Q_"BA(""%T"",13,""K"")") I $G(SWVB) S XMLFILE=FILEVB ; Parameter niet ingevuld - I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D TXT^cAFA1(250) G Y + I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Nakijken of het pad bestaat - 26.06.07 S XMLPATH=$P(XMLFILE,D,1,$L(XMLFILE,D)-1) - I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D TXT^cAFA1(250) G Y + I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Bestandsnaam samenstellen S XMLFILE=XMLFILE_$P(BP1,".") I '$G(SWTEST),'$L(MND) S XMLFILE=XMLFILE_"Q"_KW_".xml" @@ -113,86 +129,94 @@ S SC=XMLWRITER.StartDocument() D ENDLN D . ; Root element - . S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) - . ; RecipientId - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,3),"VAT-ADMIN") + . ; S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) + . S SC=XMLWRITER.RootElement($P($T(@("T17")),U,2)) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T17")),U,3),"1") + . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/IntraConsignment") . ; SenderId . S BTWNR=$P(B(1),D,7),BTWNR=$$BTW^cAFO1(BTWNR),BTWNR=$$DP^cAFA1(BTWNR) - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,4),$E(BTWNR,3,999)) . ; ControlRef . S CTRLREF=$TR($J(SENDREF,4)," ","0") - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,5),$E(BTWNR,3,999)_CTRLREF) . ; MandataireId . S MAND=$P(B(1),D,9) - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,6),$E(MAND,1,14)) - . ; SenderDate - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,7),$ZDATE($H,3)) - . ; VersionTech - . ; S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,8),"1.2") - . ; Test - . I TEST S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,9),TEST) - . ; Xml definities - . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/VatIntra") - . S SC=XMLWRITER.WriteAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") - . ; S SC=XMLWRITER.WriteAttribute("xsi:noNamespaceSchemaLocation","http://minfin.fgov.be/portail1/nl/vatintra/VatIntra.xsd") - . ; S SC=XMLWRITER.WriteAttribute("xsi:schemaLocation","http://www.minfin.fgov.be/VatIntra file:http://minfin.fgov.be/portail1/fr/vatintra/VatIntra.xsd") - . ; S SC=XMLWRITER.WriteAttribute("xsi:schemaLocation","http://www.minfin.fgov.be/VatIntra \\data-m.be\dfs\mappen\Documenten\Klanten\TERBEK~1\Boekhouding\AANGIF~1\VatIntra.xsd") . D ENDLN . ; - . ; AGENTREPR - . S SC=XMLWRITER.Element($P($T(@("T2")),U,2)) + . ; Representative + . S SC=XMLWRITER.Element($P($T(@("T20")),U,2)) D ENDLN . D - .. ; DecNumber - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T2")),U,3),"1") - .. ; - .. ; COMPANY INFO - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)) D ENDLN - .. D - ... ; VATNum - ... I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN - ... I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(BTWNR),SC=XMLWRITER.EndElement() D ENDLN - ... ; Name - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN - ... ; Street - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN - ... ; CityAndZipCode - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteChars($E($P(B(1),D,IDINDEX),1,30)),SC=XMLWRITER.EndElement() D ENDLN - ... ; Country - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN + .. + .. ; VATNum + .. S SC=XMLWRITER.Element($P($T(@("T20")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T20")),U,4),"BE"),SC=XMLWRITER.WriteAttribute($P($T(@("T20")),U,5),"NVAT"),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Name + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Street + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Postcode + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. ; City + .. ; CityAndZipCode + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,7)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Country + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T20")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndElement() D ENDLN . ; + . ; + . ; . ; DECLARANTLIST . S SC=XMLWRITER.Element($P($T(@("T3")),U,2)) . D .. ; SequenceNum - .. S SEQNR="00001" + .. S SEQNR="1" .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,2),SEQNR) - .. ; DeclarantNum - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF_SEQNR) .. ; ClientNbr .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,4),NBRCLIENT) + .. ; DeclarantNum + .. ; S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF_SEQNR) + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF) .. ; AmountSum - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,5),$$CENT(TOTCLIENT)) + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,5),TOTCLIENT) .. D ENDLN .. ; .. ; COMPANY INFO .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)) D ENDLN .. D ... ; VATNum - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN ... ; Name - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN ... ; Street - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN + ... ; Postcode + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + ... ; City ... ; CityAndZipCode - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteChars($E($P(B(1),D,IDINDEX),1,30)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,7)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN ... ; Country - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + ... ; E-mail + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + ... ; Phone + ... S SC=XMLWRITER.Element($P($T(@("T20")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T18")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN .. S SC=XMLWRITER.EndElement() D ENDLN .. ; .. ; PERIOD - .. S SC=XMLWRITER.Element($P($T(@("T7")),U,2)),SC=XMLWRITER.WriteChars($S($L(MND):$P(BP1,".",2)_$P(BP1,"."),1:$S($$DC^cAFD1(DT)'<20100205:"3",1:"")_KW_$P(BP1,"."))),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T7")),U,2)) D ENDLN + .. I $L(MND) D + ... S SC=XMLWRITER.Element($P($T(@("T7")),U,3)) + ... S SC=XMLWRITER.WriteChars($P(BP1,".",2)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T7")),U,5)) + ... S SC=XMLWRITER.WriteChars($P(BP1,".")),SC=XMLWRITER.EndElement() D ENDLN + ... ; S SC=XMLWRITER.WriteChars($S($L(MND):$P(BP1,".",2)_$P(BP1,"."),1:$S($$DC^cAFD1(DT)'<20100205:"3",1:"")_KW_$P(BP1,"."))) + .. I '$L(MND) D + ... S SC=XMLWRITER.Element($P($T(@("T7")),U,4)) + ... S SC=XMLWRITER.WriteChars(KW),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T7")),U,5)) + ... S SC=XMLWRITER.WriteChars($P(BP1,".")),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.EndElement() D ENDLN .. ; .. D CLIENT . S SC=XMLWRITER.EndElement() D ENDLN @@ -223,18 +247,13 @@ ; CLIENTLIST CLIENTB S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,2),TEL) D ENDLN - ; COMPANYINFO - S SC=XMLWRITER.Element($P($T(@("T10")),U,2)) D ENDLN ; VATNum - S SC=XMLWRITER.Element($P($T(@("T10")),U,3)),SC=XMLWRITER.WriteChars(BTW),SC=XMLWRITER.EndElement() D ENDLN - ; Country - S SC=XMLWRITER.Element($P($T(@("T10")),U,4)),SC=XMLWRITER.WriteChars($E(I3,1,2)),SC=XMLWRITER.EndElement() D ENDLN - S SC=XMLWRITER.EndElement() D ENDLN - ; Amount - S SC=XMLWRITER.Element($P($T(@("T11")),U,3)),SC=XMLWRITER.WriteChars($$CENT(BE)),SC=XMLWRITER.EndElement() D ENDLN + S SC=XMLWRITER.Element($P($T(@("T10")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T10")),U,5),$E(I3,1,2)),SC=XMLWRITER.WriteChars(BTW),SC=XMLWRITER.EndElement() D ENDLN ; Code ; I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T11")),U,4)),SC=XMLWRITER.WriteChars(CODE),SC=XMLWRITER.EndElement() D ENDLN I BP1>2010 S SC=XMLWRITER.Element($P($T(@("T11")),U,4)),SC=XMLWRITER.WriteChars(CODE),SC=XMLWRITER.EndElement() D ENDLN + ; Amount + S SC=XMLWRITER.Element($P($T(@("T11")),U,3)),SC=XMLWRITER.WriteChars(BE),SC=XMLWRITER.EndElement() D ENDLN S SC=XMLWRITER.EndElement() D ENDLN ; I BTW?1."0" S KC=$O(^TEMP(boot,$J,I3,KC)) I KC S BE=$P(^(KC),D) G CLIENTB I '$G(SWVB) G CLIENTA @@ -244,13 +263,8 @@ ;--------------------------------------------------------------------------------------------------------------------------- ; ENDLN S SC=XMLWRITER.WriteChars($C(13,10)) +ENDLNZ Q ; -CENT(EURO) ; Omzetten euro's naar eurocenten - N OUT,DEL - S EURO=$TR(EURO,",",".") - S OUT=EURO*100 -CENTZ Q OUT - ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; SENDREF(JAAR,KW,MAAND) @@ -268,5 +282,4 @@ L -@("^"_Q_"BA(""%T"",13,""K"")") SENDREFZ Q OUT ; -ZZ ; 16.10.08 - 14 u 11 * V9.04 - +ZZ ; 02.02.10 - 14 u 30 * V9.06 Index: cTA10.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA10.mac.rou (.../cTA10.mac.rou) (revision 29059) +++ cTA10.mac.rou (.../cTA10.mac.rou) (revision 43422) @@ -88,3 +88,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT31.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT31.mac.rou (.../cT31.mac.rou) (revision 29059) +++ cT31.mac.rou (.../cT31.mac.rou) (revision 43422) @@ -49,3 +49,4 @@ Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 + Index: cT137.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT137.mac.rou (.../cT137.mac.rou) (revision 29059) +++ cT137.mac.rou (.../cT137.mac.rou) (revision 43422) @@ -64,4 +64,3 @@ ; Z X ^cZ Q ZZ ; 24.02.06 - 9 u 54 * V8.06 - Index: cTA181.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA181.mac.rou (.../cTA181.mac.rou) (revision 29059) +++ cTA181.mac.rou (.../cTA181.mac.rou) (revision 43422) @@ -108,4 +108,3 @@ D LOW^%PRIO,cTA181(QQ,QU,WAT),LOG^cQCTK1 Q ; ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cTN1212.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN1212.mac.rou (.../cTN1212.mac.rou) (revision 29059) +++ cTN1212.mac.rou (.../cTN1212.mac.rou) (revision 43422) @@ -370,4 +370,3 @@ VENTZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cTE15.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE15.mac.rou (.../cTE15.mac.rou) (revision 29059) +++ cTE15.mac.rou (.../cTE15.mac.rou) (revision 43422) @@ -75,3 +75,4 @@ Z X ^cZ Q ZZ ; 19.04.00 - 14 u 04 * V7.3 + Index: cT814.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT814.mac.rou (.../cT814.mac.rou) (revision 29059) +++ cT814.mac.rou (.../cT814.mac.rou) (revision 43422) @@ -118,4 +118,3 @@ FZ K RT Q ; ZZ ; 24.02.06 - 9 u 54 * V8.06 - Index: cT320.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT320.mac.rou (.../cT320.mac.rou) (revision 29059) +++ cT320.mac.rou (.../cT320.mac.rou) (revision 43422) @@ -171,4 +171,3 @@ YZ S END=6 D ^cA334 Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT393.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT393.mac.rou (.../cT393.mac.rou) (revision 29059) +++ cT393.mac.rou (.../cT393.mac.rou) (revision 43422) @@ -92,4 +92,3 @@ FZ K R Q ; ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cTU12.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU12.mac.rou (.../cTU12.mac.rou) (revision 29059) +++ cTU12.mac.rou (.../cTU12.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT376.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT376.mac.rou (.../cT376.mac.rou) (revision 29059) +++ cT376.mac.rou (.../cT376.mac.rou) (revision 43422) @@ -44,3 +44,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU40.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU40.mac.rou (.../cTU40.mac.rou) (revision 29059) +++ cTU40.mac.rou (.../cTU40.mac.rou) (revision 43422) @@ -52,3 +52,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT913.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT913.mac.rou (.../cT913.mac.rou) (revision 29059) +++ cT913.mac.rou (.../cT913.mac.rou) (revision 43422) @@ -85,4 +85,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTA440.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA440.mac.rou (.../cTA440.mac.rou) (revision 29059) +++ cTA440.mac.rou (.../cTA440.mac.rou) (revision 43422) @@ -93,4 +93,3 @@ FZ K R Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT471.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT471.mac.rou (.../cT471.mac.rou) (revision 29059) +++ cT471.mac.rou (.../cT471.mac.rou) (revision 43422) @@ -110,4 +110,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT65.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT65.mac.rou (.../cT65.mac.rou) (revision 29059) +++ cT65.mac.rou (.../cT65.mac.rou) (revision 43422) @@ -1,62 +1,66 @@ -cT65 ;Centralisatiedagboek ;%T65 ; [ 01/03/01 3:23 PM ] - G 1 - ; -T0 ;Centralisatiedagboek ; -T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand"; -T2 ;Aantal cijfers centralisatie\"[] = detail per rekening x[] = centralisatie op x cijfers"; -T4 ;Boekingsmaand : ;Aantal cijfers : ; -T7 ; Nummer\ Naam van de rekening\Debet;2\Credit;2; -T8 ;Overdrachttotaal;Eindtotaal; - ; -T0F ;Journal centralisateur ; -T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois sp�cifique"; -T2F ;Degr� de d�tail\"[] = d�tail par compte x[] = centralisation sur x chiffres"; -T4F ;Mois comptable: ;Nombre chiffres : ; -T7F ; Num�ro\ Nom du compte\D�bit;2\Cr�dit;2; -T8F ;Montant transfert;Total final; - ; -T0E ;Centralisation journal ; -T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month"; -T2E ;Nr of ciphers centralisation\"[] = detail per account x[] = centralisation on x ciphers"; -T4E ;Fiscal month : ;Nr of ciphers : ; -T7E ; Number\ Name of the account\Debit;2\Credit;2; -T8E ;Transfer total;Final total; - ; -1 S BPB=@("^"_Q_"BA(2)"),BPX=$E(^(7)+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 I 'QP S BP=PP(1),AC=PP(2) G 3 -11 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 - ; -2 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" -21 D R0 G YZ:K="-" S PP(1)=BP,FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP -23 I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2 -25 S R="AC\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K>0&(K<8)!(""-""[K)" -27 D R0 G 2:K="-" S:'K AC=7 S PP(2)=AC,FP=550 W @F,$P($T(@("T4"_QT)),U,3),AC -29 S R=0 S KEU="1#2#9" D ^cAN3223("",KEU) G 2:K=",",25:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ - ; -3 S I1=0,BLZ=0,Q4="^"_Q_"AR(I1)",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) -30 S TAB="11\49\64\79" S TIT(1)=$P($T(@("T7"_QT)),U,2,99) -31 S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(BPB,D,2) S:BP>K BPB=K\1*12+(K#1*100),K=K+1 -33 S BX=BJ*12+BM-BPB+1,BJ=$$BJ^cAFE1(Q,BP) X F70 W @F80 -35 S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D) -37 S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_MNM_";C;F82",HD(3)=D -39 D S1 F I=0,1 S (T(I),A(I))=0 - ; -4 S I1=$O(@Q4) I I1="" D S1 G Y -41 S K=^(I1,0) G 4:'$D(^(BJ))&(AC=7),43:'$D(^(BJ)) S A(0)=A(0)+$P(^(BJ),D,BX),A(1)=A(1)+$P(^(BJ+.02),D,BX) G 4:'A(0)&'A(1)&(AC=7) -43 I AC<7 S K=$E($P(K,D),1,AC) G 4:$E($O(@Q4),1,AC)=K,4:'A(0)&'A(1) S:$D(^(K_" ",0)) K=^(0) -45 S TXT(1)=$P(K,D)_D_D_1_D_D_D_D_"$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")" -451 S TXT(2)=$P(K,D,2)_D_D_1 -453 S TXT(3)=A(0)_"\\\\1\"_QD_D_D_1,TXT(4)=A(1)_"\\\\1\"_QD_D_D_1 -47 D ^cA334 F I=0,1 S T(I)=T(I)+TXT(I+3),A(I)=0 -49 G 4 - ; -Y I BP'.12 BPX=BPX+.88 I 'QP S BP=PP(1),AC=PP(2) G 3 +11 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 + ; +2 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" +21 D R0 G YZ:K="-" S PP(1)=BP,FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP +23 I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2 +25 S R="AC\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K>0&(K<8)!(""-""[K)" +27 D R0 G 2:K="-" S:'K AC=7 S PP(2)=AC,FP=550 W @F,$P($T(@("T4"_QT)),U,3),AC +29 S R=0 S KEU="1#2#4#5#9" D ^cAN3223("",KEU) G 2:K=",",25:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ + ; +3 S I1=0,BLZ=0,Q4="^"_Q_"AR(I1)",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) +30 S TAB="11\49\64\79" S TIT(1)=$P($T(@("T7"_QT)),U,2,99) + I PTS=3!(PTS=4) S TIT(1)=TIT(1)_$P($T(@("T9"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8) +31 S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(BPB,D,2) S:BP>K BPB=K\1*12+(K#1*100),K=K+1 +33 S BX=BJ*12+BM-BPB+1,BJ=$$BJ^cAFE1(Q,BP) ;X F70 W @F80 +35 S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D) +37 S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_MNM_";C;F82",HD(3)=D +39 D S1 F I=0,1 S (T(I),A(I))=0 + ; +4 S I1=$O(@Q4) I I1="" D S1 G Y +41 S K=^(I1,0) G 4:'$D(^(BJ))&(AC=7),43:'$D(^(BJ)) S A(0)=A(0)+$P(^(BJ),D,BX),A(1)=A(1)+$P(^(BJ+.02),D,BX) G 4:'A(0)&'A(1)&(AC=7) +43 I AC<7 S K=$E($P(K,D),1,AC) G 4:$E($O(@Q4),1,AC)=K,4:'A(0)&'A(1) S:$D(^(K_" ",0)) K=^(0) +45 S TXT(1)=$P(K,D)_D_D_1_D_D_D_D_"$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")" +451 S TXT(2)=$P(K,D,2)_D_D_1 +453 S TXT(3)=A(0)_"\\\\1\"_QD_D_D_1,TXT(4)=A(1)_"\\\\1\"_QD_D_D_1 + I PTS=3!(PTS=4) S TXT(5)=BP +47 D ^cA334 F I=0,1 S T(I)=T(I)+TXT(I+3),A(I)=0 +49 G 4 + ; +Y I $G(PTS)'=4,BP'2010 S BTWC="" F S BTWC=$O(BTWC(BTWC)) Q:'$L(BTWC) I +BTWC(BTWC),$$SIG^cAFA1("DB.BTW",UI1DB_" "_BTWC,103) S OK=2 Q . I OK=2 Q . I $$SIG^cAFA1("ISO.LAND",LANDKL,101)=LLVEN S OK=0 Q ; Land klant = Kenletters BTW-nr vennootschap - . I '$$IC^cTI0("",DATIC,"",$$SIG^cAFA1("ISO.LAND",LANDKL,101)) S OK=0 Q ; land klant geen EU-land + . I '$$EG^cTNI00(Q,DATIC,"",$$SIG^cAFA1("ISO.LAND",LANDKL,101),"\1\1") S OK=0 Q ; land klant geen EU-land ; Maatstaven per BTW-code aflopen ; Maatstaf van BTW-codes ophalen ICKWF S BTWC="" @@ -140,5 +144,4 @@ G ICKWF1 ICKWZ Q OK ; -ZZ ; 16.10.08 - 14 u 11 * V9.04 - +ZZ ; 02.02.10 - 14 u 30 * V9.06 Index: cTU20.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU20.mac.rou (.../cTU20.mac.rou) (revision 29059) +++ cTU20.mac.rou (.../cTU20.mac.rou) (revision 43422) @@ -73,3 +73,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT22.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT22.mac.rou (.../cT22.mac.rou) (revision 29059) +++ cT22.mac.rou (.../cT22.mac.rou) (revision 43422) @@ -48,3 +48,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT590.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT590.mac.rou (.../cT590.mac.rou) (revision 29059) +++ cT590.mac.rou (.../cT590.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT591.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT591.mac.rou (.../cT591.mac.rou) (revision 29059) +++ cT591.mac.rou (.../cT591.mac.rou) (revision 43422) @@ -30,3 +30,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT372.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT372.mac.rou (.../cT372.mac.rou) (revision 29059) +++ cT372.mac.rou (.../cT372.mac.rou) (revision 43422) @@ -43,3 +43,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTE10.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE10.mac.rou (.../cTE10.mac.rou) (revision 29059) +++ cTE10.mac.rou (.../cTE10.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ ; ZZ ; 19.04.00 - 14 u 04 * V7.3 + Index: cT864.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT864.mac.rou (.../cT864.mac.rou) (revision 29059) +++ cT864.mac.rou (.../cT864.mac.rou) (revision 43422) @@ -75,3 +75,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU42.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU42.mac.rou (.../cTU42.mac.rou) (revision 29059) +++ cTU42.mac.rou (.../cTU42.mac.rou) (revision 43422) @@ -64,3 +64,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT420.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT420.mac.rou (.../cT420.mac.rou) (revision 29059) +++ cT420.mac.rou (.../cT420.mac.rou) (revision 43422) @@ -115,4 +115,3 @@ ; Z X ^cZ Q ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT73.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT73.mac.rou (.../cT73.mac.rou) (revision 29059) +++ cT73.mac.rou (.../cT73.mac.rou) (revision 43422) @@ -203,4 +203,3 @@ ; Z X ^cZ Q ZZ ; 18.05.04 - 15 u 48 * V8 - Index: cT6410.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6410.mac.rou (.../cT6410.mac.rou) (revision 29059) +++ cT6410.mac.rou (.../cT6410.mac.rou) (revision 43422) @@ -30,4 +30,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT101.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT101.mac.rou (.../cT101.mac.rou) (revision 29059) +++ cT101.mac.rou (.../cT101.mac.rou) (revision 43422) @@ -106,4 +106,3 @@ WIZ Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT4.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT4.mac.rou (.../cT4.mac.rou) (revision 29059) +++ cT4.mac.rou (.../cT4.mac.rou) (revision 43422) @@ -51,3 +51,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT172.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT172.mac.rou (.../cT172.mac.rou) (revision 29059) +++ cT172.mac.rou (.../cT172.mac.rou) (revision 43422) @@ -101,3 +101,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTN1010.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN1010.mac.rou (.../cTN1010.mac.rou) (revision 29059) +++ cTN1010.mac.rou (.../cTN1010.mac.rou) (revision 43422) @@ -104,4 +104,3 @@ ; ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT803.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT803.mac.rou (.../cT803.mac.rou) (revision 29059) +++ cT803.mac.rou (.../cT803.mac.rou) (revision 43422) @@ -74,4 +74,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT296.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT296.mac.rou (.../cT296.mac.rou) (revision 29059) +++ cT296.mac.rou (.../cT296.mac.rou) (revision 43422) @@ -108,3 +108,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT279.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT279.mac.rou (.../cT279.mac.rou) (revision 29059) +++ cT279.mac.rou (.../cT279.mac.rou) (revision 43422) @@ -79,4 +79,3 @@ FZ K R Q ; ZZ ; 25.09.01 - 11 u 01 * V7.88 - Index: cT9101.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9101.mac.rou (.../cT9101.mac.rou) (revision 29059) +++ cT9101.mac.rou (.../cT9101.mac.rou) (revision 43422) @@ -134,3 +134,4 @@ ; ZZ ; 08.02.08 - 15 u 00 * V9.00 + Index: cTU61.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU61.mac.rou (.../cTU61.mac.rou) (revision 29059) +++ cTU61.mac.rou (.../cTU61.mac.rou) (revision 43422) @@ -10,3 +10,4 @@ Z X ^cZ Q ZZ ; 19.07.90 - 11 u 36 + Index: cT489.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT489.mac.rou (.../cT489.mac.rou) (revision 29059) +++ cT489.mac.rou (.../cT489.mac.rou) (revision 43422) @@ -41,3 +41,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT173.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT173.mac.rou (.../cT173.mac.rou) (revision 29059) +++ cT173.mac.rou (.../cT173.mac.rou) (revision 43422) @@ -89,3 +89,4 @@ ; ZZ ; 29.10.02 - 11 u 38 * V7.93 + Index: cT17.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT17.mac.rou (.../cT17.mac.rou) (revision 29059) +++ cT17.mac.rou (.../cT17.mac.rou) (revision 43422) @@ -78,4 +78,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT470.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT470.mac.rou (.../cT470.mac.rou) (revision 29059) +++ cT470.mac.rou (.../cT470.mac.rou) (revision 43422) @@ -107,4 +107,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTE7.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE7.mac.rou (.../cTE7.mac.rou) (revision 29059) +++ cTE7.mac.rou (.../cTE7.mac.rou) (revision 43422) @@ -94,3 +94,4 @@ ; ZZ ; 27.12.99 - 9 u 32 * V7.24 + Index: cT142.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT142.mac.rou (.../cT142.mac.rou) (revision 29059) +++ cT142.mac.rou (.../cT142.mac.rou) (revision 43422) @@ -59,3 +59,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTN8060.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN8060.mac.rou (.../cTN8060.mac.rou) (revision 29059) +++ cTN8060.mac.rou (.../cTN8060.mac.rou) (revision 43422) @@ -69,7 +69,7 @@ ; EXP(UI1BL,FILE) ; Exporteren BTW-listing ; Input: UI1BL: UI1 van de BTW-listing - ; FILE : pad + file naar waar file moet geexporteerd worden + ; FILE : pad + file naar waar file moet geexporteerd worden N INHBL,UREFDET,KJ,B,MIN,LLVEN S $ZT="TRAP^cAN000" ; Ophalen gegevens IC-kwartaalopgave @@ -92,9 +92,12 @@ S $P(B(1),D,3)=$P(INHBL,D,7) ; Postcode S $P(B(1),D,5)=$P(INHBL,D,8)_" "_$P(INHBL,D,9) + ; Telefoon + S $P(B(1),D,13)=$P(INHBL,D,12) + ; E-mail + S $P(B(1),D,14)=$P(INHBL,D,13) ; Opstarten export S OK=$$VB^cTN80601(UI1BL,UREFDET,KJ,FILE,.B,MIN,LLVEN) EXPZ Q OK ; -ZZ ; 16.10.08 - 14 u 11 * V9.04 - +ZZ ; 11.12.09 - 14 u 25 * V9.06 Index: cT0.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT0.mac.rou (.../cT0.mac.rou) (revision 29059) +++ cT0.mac.rou (.../cT0.mac.rou) (revision 43422) @@ -63,3 +63,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT164.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT164.mac.rou (.../cT164.mac.rou) (revision 29059) +++ cT164.mac.rou (.../cT164.mac.rou) (revision 43422) @@ -54,3 +54,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA38.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA38.mac.rou (.../cTA38.mac.rou) (revision 29059) +++ cTA38.mac.rou (.../cTA38.mac.rou) (revision 43422) @@ -63,3 +63,5 @@ ; ZZ ; 19.03.07 - 15 u 31 * V8.08 + + Index: cT297.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT297.mac.rou (.../cT297.mac.rou) (revision 29059) +++ cT297.mac.rou (.../cT297.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT00A.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT00A.mac.rou (.../cT00A.mac.rou) (revision 29059) +++ cT00A.mac.rou (.../cT00A.mac.rou) (revision 43422) @@ -135,4 +135,3 @@ YZ Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT370.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT370.mac.rou (.../cT370.mac.rou) (revision 29059) +++ cT370.mac.rou (.../cT370.mac.rou) (revision 43422) @@ -67,4 +67,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTN9301.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN9301.mac.rou (.../cTN9301.mac.rou) (revision 29059) +++ cTN9301.mac.rou (.../cTN9301.mac.rou) (revision 43422) @@ -582,4 +582,3 @@ ISV(FNR) Q ($G(FNR)'<"990000"&($G(FNR)'>"999999")) ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT121.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT121.mac.rou (.../cT121.mac.rou) (revision 29059) +++ cT121.mac.rou (.../cT121.mac.rou) (revision 43422) @@ -45,3 +45,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU29.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU29.mac.rou (.../cTU29.mac.rou) (revision 29059) +++ cTU29.mac.rou (.../cTU29.mac.rou) (revision 43422) @@ -26,3 +26,4 @@ Z X ^cZ Q ZZ ; 11.07.88 - 10 u 23 + Index: cT6413.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6413.mac.rou (.../cT6413.mac.rou) (revision 29059) +++ cT6413.mac.rou (.../cT6413.mac.rou) (revision 43422) @@ -33,4 +33,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT120.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT120.mac.rou (.../cT120.mac.rou) (revision 29059) +++ cT120.mac.rou (.../cT120.mac.rou) (revision 43422) @@ -56,3 +56,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT76.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT76.mac.rou (.../cT76.mac.rou) (revision 29059) +++ cT76.mac.rou (.../cT76.mac.rou) (revision 43422) @@ -183,4 +183,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 24.09.03 - 14 u 21 * V7.96 - Index: cT98.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT98.mac.rou (.../cT98.mac.rou) (revision 29059) +++ cT98.mac.rou (.../cT98.mac.rou) (revision 43422) @@ -21,3 +21,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT480.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT480.mac.rou (.../cT480.mac.rou) (revision 29059) +++ cT480.mac.rou (.../cT480.mac.rou) (revision 43422) @@ -98,4 +98,3 @@ S9Z S PP(13)=MUNT D ^cA109 Q ; ZZ ; 18.05.04 - 15 u 48 * V8 - Index: cT201.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT201.mac.rou (.../cT201.mac.rou) (revision 29059) +++ cT201.mac.rou (.../cT201.mac.rou) (revision 43422) @@ -68,3 +68,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9103.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9103.mac.rou (.../cT9103.mac.rou) (revision 29059) +++ cT9103.mac.rou (.../cT9103.mac.rou) (revision 43422) @@ -44,3 +44,4 @@ ; ZZ ; 08.02.08 - 15 u 00 * V9.00 + Index: cT9104.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9104.mac.rou (.../cT9104.mac.rou) (revision 29059) +++ cT9104.mac.rou (.../cT9104.mac.rou) (revision 43422) @@ -71,4 +71,3 @@ YZ G ^cT9105 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTU3.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU3.mac.rou (.../cTU3.mac.rou) (revision 29059) +++ cTU3.mac.rou (.../cTU3.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT500.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT500.mac.rou (.../cT500.mac.rou) (revision 29059) +++ cT500.mac.rou (.../cT500.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT703.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT703.mac.rou (.../cT703.mac.rou) (revision 29059) +++ cT703.mac.rou (.../cT703.mac.rou) (revision 43422) @@ -90,4 +90,3 @@ ; Z X ^cZ ZZ ; 15.04.03 - 9 u 31 * V7.94 - Index: cT99.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT99.mac.rou (.../cT99.mac.rou) (revision 29059) +++ cT99.mac.rou (.../cT99.mac.rou) (revision 43422) @@ -42,4 +42,3 @@ YZ Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT890.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT890.mac.rou (.../cT890.mac.rou) (revision 29059) +++ cT890.mac.rou (.../cT890.mac.rou) (revision 43422) @@ -46,3 +46,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA182.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA182.mac.rou (.../cTA182.mac.rou) (revision 29059) +++ cTA182.mac.rou (.../cTA182.mac.rou) (revision 43422) @@ -82,4 +82,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 23.06.05 - 17 u 03 * V8.04 - Index: cTA101.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA101.mac.rou (.../cTA101.mac.rou) (revision 29059) +++ cTA101.mac.rou (.../cTA101.mac.rou) (revision 43422) @@ -98,3 +98,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT56.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT56.mac.rou (.../cT56.mac.rou) (revision 29059) +++ cT56.mac.rou (.../cT56.mac.rou) (revision 43422) @@ -118,3 +118,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT381.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT381.mac.rou (.../cT381.mac.rou) (revision 29059) +++ cT381.mac.rou (.../cT381.mac.rou) (revision 43422) @@ -58,4 +58,3 @@ 85 W !,"************************************************************************" Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cTU2.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU2.mac.rou (.../cTU2.mac.rou) (revision 29059) +++ cTU2.mac.rou (.../cTU2.mac.rou) (revision 43422) @@ -45,3 +45,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT66A.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT66A.mac.rou (.../cT66A.mac.rou) (revision 29059) +++ cT66A.mac.rou (.../cT66A.mac.rou) (revision 43422) @@ -1,55 +1,54 @@ -cT66A ;Leveranciersbetalingen V6 ;%T66 ; [ 02/23/00 1:53 PM ] - G 1 - ; -T0 ;Annuleren betaling; -T1 ;Bevestiging\".[] = ok"; -T2 ;Deze betaling kan niet worden geannuleerd; -T3 ;Factuur ; reeds afgeboekt bij leverancier ; -T4 ;Totaal bedrag; - ; -T0F ;Annulation paiement; -T1F ;Confirmation\".[] = ok"; -T2F ;Cette paiement ne peut pas �tre annul�; -T3F ;Facture ; d�j� pay�e pour fournisseur ; -T4F ;Montant total; - ; -T0E ;Annuleren betaling; -T1E ;Bevestiging\".[] = ok"; -T2E ;Deze betaling kan niet worden geannuleerd; -T3E ;Factuur ; reeds afgeboekt bij leverancier ; -T4E ;Totaal bedrag; - ; - ; via module A[] vanuit BVB.LE - ; B(1) = BVB - ; UREF = BVB.LE -1 ;D O^cA612(7,1,15,80,1,0,0,0),T^cA612(" "_$P($T(@("T0"_QT)),U,2)_" ",0,1,1,0,0) ;10.03.00 - D P^cA612(7,1,15,80,1,0,0,0," "_$P($T(@("T0"_QT)),U,2)_" ",0,1,1,0,0) - ; - ; opzoeken ^_Q_L3 -2 S DATUM=$$DC^cAFA1($P(B(1),D,6))_"."_BVB,TREC=$G(@("^"_Q_"L3(PRO,DATUM)")) -21 I '$P(TREC,D,4) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ -23 W /CUP(2,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,": ",$$IP^cAFA1($P(TREC,D),$P(TREC,D,8),0),$P(TREC,D,7) -25 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.,""[K&$L(K)" D R0 I K'="." G YZ - ; - ; aflopen ^_Q_L3: betaling onderweg bij openstaande factuur wegdoen -3 S KC="" F S KC=$O(@("^"_Q_"L3(PRO,DATUM,KC)")) Q:KC="" D - . S I1=$$UI1^cAFA1("LE",101,KC),LNM=$$SIG^cAFA1("LE",I1,102) - . S I4="" F S I4=$O(@("^"_Q_"L3(PRO,DATUM,KC,I4)")) Q:I4="" D - .. S J=^(I4),FNR=$P(J,D,14),OF=$G(@("^"_Q_"LE(I1,FNR)")) - .. I OF="" S K=$E($P($T(@("T3"_QT)),U,2)_FNR_$P($T(@("T3"_QT)),U,3)_KC_" "_LNM,1,64) D TXT^cAFA1(250) Q - .. S $P(OF,D,12)=$P(OF,D,12)-$P(J,D,11) I '$P(OF,D,12) S $P(OF,D,11)=0 - .. S $P(OF,D,13)=$P(OF,D,13)-$P(J,D,19) - .. S @("^"_Q_"LE(I1,FNR)")=OF K @("^"_Q_"L3(PRO,DATUM,KC,I4)") -31 K @("^"_Q_"L3(PRO,DATUM)") - ; - ; datum wissen -4 D W^cAN220("BVB",0,BVB,106,"") -41 D W^cAN220("BVB",0,BVB,130,"") - ; - ; einde -YZ D C^cA612 Q - ; -R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT66A ;Leveranciersbetalingen V6 ;%T66 ; [ 02/23/00 1:53 PM ] + G 1 + ; +T0 ;Annuleren betaling; +T1 ;Bevestiging\".[] = ok"; +T2 ;Deze betaling kan niet worden geannuleerd; +T3 ;Factuur ; reeds afgeboekt bij leverancier ; +T4 ;Totaal bedrag; + ; +T0F ;Annulation paiement; +T1F ;Confirmation\".[] = ok"; +T2F ;Cette paiement ne peut pas �tre annul�; +T3F ;Facture ; d�j� pay�e pour fournisseur ; +T4F ;Montant total; + ; +T0E ;Annuleren betaling; +T1E ;Bevestiging\".[] = ok"; +T2E ;Deze betaling kan niet worden geannuleerd; +T3E ;Factuur ; reeds afgeboekt bij leverancier ; +T4E ;Totaal bedrag; + ; + ; via module A[] vanuit BVB.LE + ; B(1) = BVB + ; UREF = BVB.LE +1 ;D O^cA612(7,1,15,80,1,0,0,0),T^cA612(" "_$P($T(@("T0"_QT)),U,2)_" ",0,1,1,0,0) ;10.03.00 + D P^cA612(7,1,15,80,1,0,0,0," "_$P($T(@("T0"_QT)),U,2)_" ",0,1,1,0,0) + ; + ; opzoeken ^_Q_L3 +2 S DATUM=$$DC^cAFA1($P(B(1),D,6))_"."_BVB,TREC=$G(@("^"_Q_"L3(PRO,DATUM)")) +21 I '$P(TREC,D,4) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ +23 W /CUP(2,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,": ",$$IP^cAFA1($P(TREC,D),$P(TREC,D,8),0),$P(TREC,D,7) +25 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.,""[K&$L(K)" D R0 I K'="." G YZ + ; + ; aflopen ^_Q_L3: betaling onderweg bij openstaande factuur wegdoen +3 S KC="" F S KC=$O(@("^"_Q_"L3(PRO,DATUM,KC)")) Q:KC="" D + . S I1=$$UI1^cAFA1("LE",101,KC),LNM=$$SIG^cAFA1("LE",I1,102) + . S I4="" F S I4=$O(@("^"_Q_"L3(PRO,DATUM,KC,I4)")) Q:I4="" D + .. S J=^(I4),FNR=$P(J,D,14),OF=$G(@("^"_Q_"LE(I1,FNR)")) + .. I OF="" S K=$E($P($T(@("T3"_QT)),U,2)_FNR_$P($T(@("T3"_QT)),U,3)_KC_" "_LNM,1,64) D TXT^cAFA1(250) Q + .. S $P(OF,D,12)=$P(OF,D,12)-$P(J,D,11) I '$P(OF,D,12) S $P(OF,D,11)=0 + .. S $P(OF,D,13)=$P(OF,D,13)-$P(J,D,19) + .. S @("^"_Q_"LE(I1,FNR)")=OF K @("^"_Q_"L3(PRO,DATUM,KC,I4)") +31 K @("^"_Q_"L3(PRO,DATUM)") + ; + ; datum wissen +4 D W^cAN220("BVB",0,BVB,106,"") +41 D W^cAN220("BVB",0,BVB,130,"") + ; + ; einde +YZ D C^cA612 Q + ; +R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 + ; +ZZ ; 05.02.01 - 16 u 23 * V7.84 Index: cT168.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT168.mac.rou (.../cT168.mac.rou) (revision 29059) +++ cT168.mac.rou (.../cT168.mac.rou) (revision 43422) @@ -121,4 +121,3 @@ FZ K R Q ; ZZ ; 05.02.01 - 16 u 23 * V7.84 - Index: cT185A.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT185A.mac.rou (.../cT185A.mac.rou) (revision 29059) +++ cT185A.mac.rou (.../cT185A.mac.rou) (revision 43422) @@ -63,3 +63,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT631.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT631.mac.rou (.../cT631.mac.rou) (revision 29059) +++ cT631.mac.rou (.../cT631.mac.rou) (revision 43422) @@ -54,3 +54,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9124E.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9124E.mac.rou (.../cT9124E.mac.rou) (revision 29059) +++ cT9124E.mac.rou (.../cT9124E.mac.rou) (revision 43422) @@ -1,4 +1,4 @@ -cT9124E ;Printen BTW-aangifte; cT9114; [ 24/11/09 16:10:13 ] +cT9124E ;Printen BTW-aangifte; cT9114; [ 22/02/10 10:35:10 ] ; G YZ ; @@ -56,14 +56,14 @@ I VAK("46") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("46"),QD,0),".",""),12) I VAK("85") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("85"),QD,0),".",""),12) I VAK("63") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("63"),QD,0),".",""),12) - I VAK("71") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("71"),QD,0),".",""),12) + I $G(VAK("71")) W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(VAK("71"),QD,0),".",""),12) I $G(SWNIHIL) W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(0,QD,0),".",""),12) I SWLEEG=1 W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1843,"Y",$J($TR($$IP^cAFA1(0,QD,0),".",""),12) ; Vak 47, 86, 65 en 72 I VAK("47") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("47"),QD,0),".",""),12) I VAK("86") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("86"),QD,0),".",""),12) I VAK("65") W $C(27),"*p",X+1195,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("65"),QD,0),".",""),12) - I VAK("72") W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("72"),QD,0),".",""),12) + I $G(VAK("72")) W $C(27),"*p",X+1765,"X",$C(27),"*p",Y+1956,"Y",$J($TR($$IP^cAFA1(VAK("72"),QD,0),".",""),12) ; Vak 48 en 87 I VAK("48") W $C(27),"*p",X+80,"X",$C(27),"*p",Y+2069,"Y",$J($TR($$IP^cAFA1(VAK("48"),QD,0),".",""),12) I VAK("87") W $C(27),"*p",X+635,"X",$C(27),"*p",Y+2069,"Y",$J($TR($$IP^cAFA1(VAK("87"),QD,0),".",""),12) @@ -86,4 +86,3 @@ YZ Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT404.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT404.mac.rou (.../cT404.mac.rou) (revision 29059) +++ cT404.mac.rou (.../cT404.mac.rou) (revision 43422) @@ -44,3 +44,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cT851.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT851.mac.rou (.../cT851.mac.rou) (revision 29059) +++ cT851.mac.rou (.../cT851.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT6400.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6400.mac.rou (.../cT6400.mac.rou) (revision 29059) +++ cT6400.mac.rou (.../cT6400.mac.rou) (revision 43422) @@ -38,3 +38,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTN1113.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN1113.mac.rou (.../cTN1113.mac.rou) (revision 29059) +++ cTN1113.mac.rou (.../cTN1113.mac.rou) (revision 43422) @@ -235,4 +235,3 @@ VKOLZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT193.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT193.mac.rou (.../cT193.mac.rou) (revision 29059) +++ cT193.mac.rou (.../cT193.mac.rou) (revision 43422) @@ -64,3 +64,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT863.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT863.mac.rou (.../cT863.mac.rou) (revision 29059) +++ cT863.mac.rou (.../cT863.mac.rou) (revision 43422) @@ -76,3 +76,4 @@ ; ZZ ; 19.03.07 - 15 u 31 * V8.08 + Index: cTA804.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA804.mac.rou (.../cTA804.mac.rou) (revision 29059) +++ cTA804.mac.rou (.../cTA804.mac.rou) (revision 43422) @@ -22,3 +22,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT186.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT186.mac.rou (.../cT186.mac.rou) (revision 29059) +++ cT186.mac.rou (.../cT186.mac.rou) (revision 43422) @@ -54,3 +54,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT6422.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6422.mac.rou (.../cT6422.mac.rou) (revision 29059) +++ cT6422.mac.rou (.../cT6422.mac.rou) (revision 43422) @@ -75,4 +75,3 @@ FZ K R Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cTA56.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA56.mac.rou (.../cTA56.mac.rou) (revision 29059) +++ cTA56.mac.rou (.../cTA56.mac.rou) (revision 43422) @@ -120,3 +120,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT72.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT72.mac.rou (.../cT72.mac.rou) (revision 29059) +++ cT72.mac.rou (.../cT72.mac.rou) (revision 43422) @@ -64,4 +64,3 @@ S9 S QPT=$T(+0) D ^cA109 Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT277.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT277.mac.rou (.../cT277.mac.rou) (revision 29059) +++ cT277.mac.rou (.../cT277.mac.rou) (revision 43422) @@ -75,4 +75,3 @@ Q ; ZZ ; 25.09.01 - 11 u 01 * V7.88 - Index: cT646.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT646.mac.rou (.../cT646.mac.rou) (revision 29059) +++ cT646.mac.rou (.../cT646.mac.rou) (revision 43422) @@ -50,4 +50,3 @@ FZ S %=$T(+0)_" "_K D TXT^cAFA1(250),^cA400 K % Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT371.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT371.mac.rou (.../cT371.mac.rou) (revision 29059) +++ cT371.mac.rou (.../cT371.mac.rou) (revision 43422) @@ -47,3 +47,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA100.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA100.mac.rou (.../cTA100.mac.rou) (revision 29059) +++ cTA100.mac.rou (.../cTA100.mac.rou) (revision 43422) @@ -22,3 +22,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU13.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU13.mac.rou (.../cTU13.mac.rou) (revision 29059) +++ cTU13.mac.rou (.../cTU13.mac.rou) (revision 43422) @@ -57,3 +57,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT160.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT160.mac.rou (.../cT160.mac.rou) (revision 29059) +++ cT160.mac.rou (.../cT160.mac.rou) (revision 43422) @@ -15,3 +15,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU17.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU17.mac.rou (.../cTU17.mac.rou) (revision 29059) +++ cTU17.mac.rou (.../cTU17.mac.rou) (revision 43422) @@ -55,3 +55,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT730.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT730.mac.rou (.../cT730.mac.rou) (revision 29059) +++ cT730.mac.rou (.../cT730.mac.rou) (revision 43422) @@ -147,4 +147,3 @@ TOPZ Q ; ZZ ; 24.02.06 - 15 u 49 * V8.06 - Index: cT12.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT12.mac.rou (.../cT12.mac.rou) (revision 29059) +++ cT12.mac.rou (.../cT12.mac.rou) (revision 43422) @@ -90,4 +90,3 @@ FZ K R Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT187.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT187.mac.rou (.../cT187.mac.rou) (revision 29059) +++ cT187.mac.rou (.../cT187.mac.rou) (revision 43422) @@ -51,3 +51,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT680.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT680.mac.rou (.../cT680.mac.rou) (revision 29059) +++ cT680.mac.rou (.../cT680.mac.rou) (revision 43422) @@ -91,4 +91,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT501.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT501.mac.rou (.../cT501.mac.rou) (revision 29059) +++ cT501.mac.rou (.../cT501.mac.rou) (revision 43422) @@ -54,4 +54,3 @@ YZ Q ; ZZ ; 04.04.05 - 14 u 29 * V8.03 - Index: cT682.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT682.mac.rou (.../cT682.mac.rou) (revision 29059) +++ cT682.mac.rou (.../cT682.mac.rou) (revision 43422) @@ -71,4 +71,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cTU26.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU26.mac.rou (.../cTU26.mac.rou) (revision 29059) +++ cTU26.mac.rou (.../cTU26.mac.rou) (revision 43422) @@ -31,3 +31,4 @@ Z X ^cZ Q ZZ ; 11.01.90 - 12 u 26 + Index: cTN0093.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN0093.mac.rou (.../cTN0093.mac.rou) (revision 29059) +++ cTN0093.mac.rou (.../cTN0093.mac.rou) (revision 43422) @@ -428,4 +428,3 @@ TOTDBZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT163.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT163.mac.rou (.../cT163.mac.rou) (revision 29059) +++ cT163.mac.rou (.../cT163.mac.rou) (revision 43422) @@ -63,4 +63,3 @@ FZ K R Q ; ZZ ; 11.12.01 - 15 u 20 * V7.9 - Index: cTA00.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA00.mac.rou (.../cTA00.mac.rou) (revision 29059) +++ cTA00.mac.rou (.../cTA00.mac.rou) (revision 43422) @@ -25,3 +25,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT330.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT330.mac.rou (.../cT330.mac.rou) (revision 29059) +++ cT330.mac.rou (.../cT330.mac.rou) (revision 43422) @@ -131,4 +131,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT69.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT69.mac.rou (.../cT69.mac.rou) (revision 29059) +++ cT69.mac.rou (.../cT69.mac.rou) (revision 43422) @@ -131,3 +131,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT720.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT720.mac.rou (.../cT720.mac.rou) (revision 29059) +++ cT720.mac.rou (.../cT720.mac.rou) (revision 43422) @@ -250,4 +250,3 @@ S4Z Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT91XML.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT91XML.mac.rou (.../cT91XML.mac.rou) (revision 29059) +++ cT91XML.mac.rou (.../cT91XML.mac.rou) (revision 43422) @@ -2,23 +2,32 @@ ; G 1 ; -T1 ;VATSENDING; -T2 ;DECLARER; -T3 ;VATNUMBER;NAME;ADDRESS;POSTCODE;CITY;SENDINGREFERENCE;COUNTRY; +T1 ;VATConsignment; +T2 ;Declarant; +T3 ;VATNumber;Name;Street;PostCode;City;SENDINGREFERENCE;CountryCode;EmailAddress; T4 ;VATRECORD; -T5 ;RECNUM;VATNUMBER;DPERIODE;ASK;DATA; -T6 ;MONTH;QUARTER;YEAR; -T7 ;PAYMENT;RESTITUTION; +T5 ;RECNUM;VATNUMBER;Period;Ask;Data; +T6 ;Month;Quarter;Year; +T7 ;Payment;Restitution; T8 ;DATA_ELEM; -T9 ;\D0\D1\D2\D3\D45\D46\D47\D48\D49\D54\D55\D56\D57\D59\D61\D62\D63\D64\D71\D72\D81\D82\D83\D84\D85\D86\D87\D91\;\D0\D1\D2\D3\D45\D46\D47\D48\D49\D54\D55\D56\D57\D59\D61\D62\D63\D64\D71\D72\D81\D82\D83\D84\D85\D86\D87\; +T9 ;\0\1\2\3\45\46\47\48\49\54\55\56\57\59\61\62\63\64\71\72\81\82\83\84\85\86\87\91\;\0\1\2\3\45\46\47\48\49\54\55\56\57\59\61\62\63\64\71\72\81\82\83\84\85\86\87\; T10 ;SIGNATURE; T11 ;DATE;NAME;ROLE;TELEPHONENUMBER;EMAIL T12 ;Het pad voor de electronische btw-aangifte is niet correct ingevuld.; T13 ;Kan het uniek nummer voor de aangifte niet bepalen.; T14 ;Postcode niet gevonden, gelieve in te vullen bij parameters boekhouding.; T15 ;ClientListingNihil; +T17 ;VATDeclarationsNbr; +T18 ;VATDeclaration; +T19 ;SequenceNumber; +T20 ;DeclarantReference; +T21 ;Amount;GridNumber; +T22 ;http://www.minfin.fgov.be/InputCommon; +T23 ;E-mail ondertekenaar werd niet ingevuld.; +T24 ;Representative;RepresentativeID;issuedBy;identificationType;Phone; +T25 ;Telefoon ondertekenaar werd niet ingevuld.; ; -T12F ;Le chemin d�exportation de la d�claration �lectronique est incorrect.; +T12F ;Le chemin d'exportation de la d�claration �lectronique est incorrect.; T13F ;Impossible de d�finir le num�ro unique de la d�claration.; T14F ;Code postal pas trouv�, s.v.p. le remplir dans param. comptables.; ; @@ -43,6 +52,10 @@ ; ; KD - 29.08.07 - Postcode ophalen uit parameters boekhouding S TEMPOK=1,POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) I POSTCODE'?4N S K=$P($T(@("T14"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) G YZ + ; Nakijken of telefoon is ingevuld + I $P(B(1),D,15)="" S K=$P($T(@("T25"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) G YZ + ; Nakijken of e-mail adres is ingevuld + I $P(B(1),D,14)="" S K=$P($T(@("T23"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) G YZ ; KD - 20.06.07 - adresgegevens nakijken 13 S IDINDEX=4 15 S TEMP=$P(B(1),D,IDINDEX) @@ -71,82 +84,107 @@ D . ; Root element . S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) - . S SC=XMLWRITER.WriteAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") - . ; S SC=XMLWRITER.WriteAttribute("xsi:noNamespaceSchemaLocation","http://minfin.fgov.be/portail1/nl/intervat/MultiDeclarationTVA-NoSignature-14.xsd") + . S SC=XMLWRITER.WriteAttribute($P($T(@("T17")),U,2),"1") + . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/VATConsignment") . D ENDLN + . ; Representative . D + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,2)) D ENDLN + .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T24")),U,4),"BE"),SC=XMLWRITER.WriteAttribute($P($T(@("T24")),U,5),"NVAT"),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. ; naam of benaming [] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Adres: straat, nr, postbus [] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Postcode [maxLength 4] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. ; Gemeente [maxLength 100] + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Country + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,9)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,15))),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.EndElement() D ENDLN + . ; VATDelcaration + . S SC=XMLWRITER.Element($P($T(@("T18")),U,2)) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T19")),U,2),RECNUM) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T20")),U,2),SENDREF) + . D ENDLN + . ; Declarant + . D .. S SC=XMLWRITER.Element($P($T(@("T2")),U,2)) D ENDLN .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,7)),SC=XMLWRITER.EndElement() D ENDLN - .. I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN .. ; naam of benaming [] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,2)),SC=XMLWRITER.EndElement() D ENDLN .. ; Adres: straat, nr, postbus [] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,3)),SC=XMLWRITER.EndElement() D ENDLN .. ; Postcode [maxLength 4] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN .. ; Gemeente [maxLength 100] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2)),SC=XMLWRITER.EndElement() D ENDLN + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN .. ; Country - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T3")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,7),1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T3")),U,9)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T24")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T22")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,15))),SC=XMLWRITER.EndElement() D ENDLN .. ; uniek referentie nr van de zending van de fiduciaire [<99999999999999] - .. S SC=XMLWRITER.Element($P($T(@("T3")),U,7)),SC=XMLWRITER.WriteChars(SENDREF),SC=XMLWRITER.EndElement() D ENDLN + .. ; S SC=XMLWRITER.Element($P($T(@("T3")),U,7)),SC=XMLWRITER.WriteChars(SENDREF),SC=XMLWRITER.EndElement() D ENDLN .. S SC=XMLWRITER.EndElement() D ENDLN - . S SC=XMLWRITER.Element($P($T(@("T4")),U,2)) D - .. D ENDLN - .. ; volgnummer van de aangifte [1-999] - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)),SC=XMLWRITER.WriteChars(RECNUM),SC=XMLWRITER.EndElement() D ENDLN - .. ; BTW nummer van de belastingplichtige in 10 posities [[0]+[0-9]{9}] - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,3)),SC=XMLWRITER.WriteChars($TR($P(B(1),D,7),"BE","")),SC=XMLWRITER.EndElement() D ENDLN .. ;------------------------------------------------------------------------------ .. ; Periode .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,4)) D - ... D ENDLN - ... ; maand van de periode [1-12] - ... I 'KW S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(MAAND(1)_MAAND(2)),SC=XMLWRITER.EndElement() D ENDLN - ... ; kwartaal van de periode [1-4] - ... I KW S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars(KW),SC=XMLWRITER.EndElement() D ENDLN - ... ; jaar van de periode (formaat YYYY) [] - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars(JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)),SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN - .. ;------------------------------------------------------------------------------ - .. ; Vragen - .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,5)) D - ... ; aanvraag van betaalformulieren [YES/NO] - ... S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,2),$S($P(B(2),D,8)=1:"YES",1:"NO")) - ... ; aanvraag om terugbetaling [YES/NO] - ... S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,3),$S($P(B(2),D,7)=1:"YES",1:"NO")) - .. S SC=XMLWRITER.EndElement() D ENDLN - .. ; ClientListNihil - .. I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T15")),U,2)),SC=XMLWRITER.WriteChars("NO"),SC=XMLWRITER.EndElement() D ENDLN - .. ;------------------------------------------------------------------------------ - .. ; Vakken - .. ;------------------------------------------------------------------------------ - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,6)) D ENDLN D - ... S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) D ENDLN D - .... ; Lijst met vakken ophalen; vak D91 MAG ALLEEN IN DECEMBER INGEVULD WORDEN - .... S VAKLIST=$P($T(@("T9")),U,3) - .... I 'KW,(MAAND(1)_MAAND(2))=12 S VAKLIST=$P($T(@("T9")),U,2) - .... I $$DC^cAFD1(DT)'<20100205,BP2>2010 D - ..... S VAKLIST=VAKLIST_$S($E(VAKLIST,$L(VAKLIST))'=D:D,1:"")_"D44\D88\" ; KU : 12.11.09 - ..... I '$L($G(NVAK(44))) S NVAK(44)=0 - ..... I '$L($G(NVAK(88))) S NVAK(88)=0 - .... ; Door de vakken lopen - .... S I1="" F S I1=$O(NVAK(I1)) Q:I1="" D - ..... ; Nakijken of het nummer mag gebruikt worden in deze aangifte - ..... I (VAKLIST)'[("D"_+I1) Q - ..... ; Ofwel vak D71 ofwel vak D72 mag in de xml voorkomen - ..... ; I ("\71\72\")[(I1),+NVAK(I1)=0 Q - ..... ; Indien vak 91 = 0 niet printen - ..... I I1=91,(+NVAK(I1)=0) Q - ..... S NVAKVAL=NVAK(I1)*100 - ..... ; S NVAKVAL=$P(NVAK(I1),".")*100+$P(NVAK(I1),".",2) - ..... S SC=XMLWRITER.Element("D"_+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN - ... S SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.Element($P($T(@("T5")),U,4)) D + .. D ENDLN + .. ; maand van de periode [1-12] + .. I 'KW S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(MAAND(1)_MAAND(2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; kwartaal van de periode [1-4] + .. I KW S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars(KW),SC=XMLWRITER.EndElement() D ENDLN + .. ; jaar van de periode (formaat YYYY) [] + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars(JAAR(1)_JAAR(2)_JAAR(3)_JAAR(4)),SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndElement() D ENDLN + . ;------------------------------------------------------------------------------ + . ; Vakken + . ;------------------------------------------------------------------------------ + . S SC=XMLWRITER.Element($P($T(@("T5")),U,6)) D ENDLN D + .. ; S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) D ENDLN D + .. ; Lijst met vakken ophalen; vak D91 MAG ALLEEN IN DECEMBER INGEVULD WORDEN + .. S VAKLIST=$P($T(@("T9")),U,3) + .. I 'KW,(MAAND(1)_MAAND(2))=12 S VAKLIST=$P($T(@("T9")),U,2) + .. I $$DC^cAFD1(DT)'<20100205,BP2>2010 D + ... S VAKLIST=VAKLIST_$S($E(VAKLIST,$L(VAKLIST))'=D:D,1:"")_"44\88\" ; KU : 12.11.09 + ... I '$L($G(NVAK(44))) S NVAK(44)=0 + ... I '$L($G(NVAK(88))) S NVAK(88)=0 + .. ; Door de vakken lopen + .. S I1="" F S I1=$O(NVAK(I1)) Q:I1="" D + ... ; Nakijken of het nummer mag gebruikt worden in deze aangifte + ... I (VAKLIST)'[("\"_+I1_"\") Q + ... ; Ofwel vak D71 ofwel vak D72 mag in de xml voorkomen + ... ; I ("\71\72\")[(I1),+NVAK(I1)=0 Q + ... ; Indien vak 91 = 0 niet printen + ... I I1=91,(+NVAK(I1)=0) Q + ... ; S NVAKVAL=NVAK(I1)*100 + ... ; S NVAKVAL=$P(NVAK(I1),".")*100+$P(NVAK(I1),".",2) + ... S NVAKVAL=NVAK(I1) + ... ; S SC=XMLWRITER.Element("D"_+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T21")),U,2)),SC=XMLWRITER.WriteAttribute($P($T(@("T21")),U,3),+I1),SC=XMLWRITER.WriteChars(+NVAKVAL),SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.EndElement() D ENDLN + . ;------------------------------------------------------------------------------ + . ; Vragen + . ;------------------------------------------------------------------------------ + . ; ClientListNihil + . I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T15")),U,2)),SC=XMLWRITER.WriteChars("NO"),SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.Element($P($T(@("T5")),U,5)) D + .. ; aanvraag om terugbetaling [YES/NO] + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,3),$S($P(B(2),D,7)=1:"YES",1:"NO")) + .. ; aanvraag van betaalformulieren [YES/NO] + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T7")),U,2),$S($P(B(2),D,8)=1:"YES",1:"NO")) + . S SC=XMLWRITER.EndElement() D ENDLN + . S SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndRootElement() D ENDLN S SC=XMLWRITER.EndDocument() ; @@ -156,6 +194,7 @@ YZ Q ; ENDLN S SC=XMLWRITER.WriteChars($C(13,10)) +ENDLNZ Q ; SENDREF(JAAR,KW,MAAND) N OUT,I2,SJAAR @@ -172,5 +211,4 @@ SENDREFZ Q OUT ; ; -ZZ ; 08.02.08 - 15 u 00 * V9.00 - +ZZ ; 02.02.10 - 14 u 30 * V9.06 Index: cT434.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT434.mac.rou (.../cT434.mac.rou) (revision 29059) +++ cT434.mac.rou (.../cT434.mac.rou) (revision 43422) @@ -128,4 +128,3 @@ F2 S S9=$P($T(@("T18"_QT)),U,2)_I_" "_S1,ER=1 D S2 Q ; ZZ ; 25.09.01 - 11 u 01 * V7.88 - Index: cT117.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT117.mac.rou (.../cT117.mac.rou) (revision 29059) +++ cT117.mac.rou (.../cT117.mac.rou) (revision 43422) @@ -46,3 +46,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT990.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT990.mac.rou (.../cT990.mac.rou) (revision 29059) +++ cT990.mac.rou (.../cT990.mac.rou) (revision 43422) @@ -22,4 +22,3 @@ YZ Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT845.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT845.mac.rou (.../cT845.mac.rou) (revision 29059) +++ cT845.mac.rou (.../cT845.mac.rou) (revision 43422) @@ -60,4 +60,3 @@ FZ K R Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT50.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT50.mac.rou (.../cT50.mac.rou) (revision 29059) +++ cT50.mac.rou (.../cT50.mac.rou) (revision 43422) @@ -63,3 +63,4 @@ ; ZZ ; 04.04.05 - 14 u 29 * V8.03 + Index: cT59.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT59.mac.rou (.../cT59.mac.rou) (revision 29059) +++ cT59.mac.rou (.../cT59.mac.rou) (revision 43422) @@ -57,3 +57,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA801.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA801.mac.rou (.../cTA801.mac.rou) (revision 29059) +++ cTA801.mac.rou (.../cTA801.mac.rou) (revision 43422) @@ -22,3 +22,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTA805.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA805.mac.rou (.../cTA805.mac.rou) (revision 29059) +++ cTA805.mac.rou (.../cTA805.mac.rou) (revision 43422) @@ -69,3 +69,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT1591.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT1591.mac.rou (.../cT1591.mac.rou) (revision 29059) +++ cT1591.mac.rou (.../cT1591.mac.rou) (revision 43422) @@ -63,4 +63,3 @@ FZ K R Q ; ZZ ; 24.02.06 - 9 u 54 * V8.06 - Index: cTU6.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU6.mac.rou (.../cTU6.mac.rou) (revision 29059) +++ cTU6.mac.rou (.../cTU6.mac.rou) (revision 43422) @@ -50,3 +50,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT184.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT184.mac.rou (.../cT184.mac.rou) (revision 29059) +++ cT184.mac.rou (.../cT184.mac.rou) (revision 43422) @@ -43,3 +43,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT51.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT51.mac.rou (.../cT51.mac.rou) (revision 29059) +++ cT51.mac.rou (.../cT51.mac.rou) (revision 43422) @@ -59,3 +59,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9109.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9109.mac.rou (.../cT9109.mac.rou) (revision 29059) +++ cT9109.mac.rou (.../cT9109.mac.rou) (revision 43422) @@ -32,4 +32,3 @@ YZ G 5^cT91 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT560.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT560.mac.rou (.../cT560.mac.rou) (revision 29059) +++ cT560.mac.rou (.../cT560.mac.rou) (revision 43422) @@ -101,3 +101,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT685.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT685.mac.rou (.../cT685.mac.rou) (revision 29059) +++ cT685.mac.rou (.../cT685.mac.rou) (revision 43422) @@ -30,4 +30,3 @@ YZ Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT816.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT816.mac.rou (.../cT816.mac.rou) (revision 29059) +++ cT816.mac.rou (.../cT816.mac.rou) (revision 43422) @@ -45,4 +45,3 @@ YZ K ADA1,ADA2,CO,N Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cTN9201.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN9201.mac.rou (.../cTN9201.mac.rou) (revision 29059) +++ cTN9201.mac.rou (.../cTN9201.mac.rou) (revision 43422) @@ -288,4 +288,3 @@ BTWCZ Q UI1 ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT809.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT809.mac.rou (.../cT809.mac.rou) (revision 29059) +++ cT809.mac.rou (.../cT809.mac.rou) (revision 43422) @@ -71,4 +71,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT70.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT70.mac.rou (.../cT70.mac.rou) (revision 29059) +++ cT70.mac.rou (.../cT70.mac.rou) (revision 43422) @@ -48,4 +48,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT3.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT3.mac.rou (.../cT3.mac.rou) (revision 29059) +++ cT3.mac.rou (.../cT3.mac.rou) (revision 43422) @@ -89,3 +89,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT194.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT194.mac.rou (.../cT194.mac.rou) (revision 29059) +++ cT194.mac.rou (.../cT194.mac.rou) (revision 43422) @@ -78,3 +78,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT911.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT911.mac.rou (.../cT911.mac.rou) (revision 29059) +++ cT911.mac.rou (.../cT911.mac.rou) (revision 43422) @@ -89,4 +89,3 @@ ; Z X ^cZ Q ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT700.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT700.mac.rou (.../cT700.mac.rou) (revision 29059) +++ cT700.mac.rou (.../cT700.mac.rou) (revision 43422) @@ -89,4 +89,3 @@ ; Z X ^cZ ZZ ; 24.09.03 - 14 u 21 * V7.96 - Index: cT10.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT10.mac.rou (.../cT10.mac.rou) (revision 29059) +++ cT10.mac.rou (.../cT10.mac.rou) (revision 43422) @@ -43,4 +43,3 @@ YZ Q ; ZZ ; 18.05.04 - 15 u 48 * V8 - Index: cT177.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT177.mac.rou (.../cT177.mac.rou) (revision 29059) +++ cT177.mac.rou (.../cT177.mac.rou) (revision 43422) @@ -30,3 +30,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT91.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT91.mac.rou (.../cT91.mac.rou) (revision 29059) +++ cT91.mac.rou (.../cT91.mac.rou) (revision 43422) @@ -130,4 +130,3 @@ FZ K R Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cT6421.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6421.mac.rou (.../cT6421.mac.rou) (revision 29059) +++ cT6421.mac.rou (.../cT6421.mac.rou) (revision 43422) @@ -40,4 +40,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT380.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT380.mac.rou (.../cT380.mac.rou) (revision 29059) +++ cT380.mac.rou (.../cT380.mac.rou) (revision 43422) @@ -116,4 +116,3 @@ S3Z K S1,S2,S3,S4,S5 Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT382.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT382.mac.rou (.../cT382.mac.rou) (revision 29059) +++ cT382.mac.rou (.../cT382.mac.rou) (revision 43422) @@ -95,4 +95,3 @@ S2Z K S1,S2,S3,S4,S5 Q ; ZZ ; 24.02.06 - 15 u 49 * V8.06 - Index: cTU9.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU9.mac.rou (.../cTU9.mac.rou) (revision 29059) +++ cTU9.mac.rou (.../cTU9.mac.rou) (revision 43422) @@ -25,3 +25,4 @@ ; ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT1.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT1.mac.rou (.../cT1.mac.rou) (revision 29059) +++ cT1.mac.rou (.../cT1.mac.rou) (revision 43422) @@ -79,4 +79,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT80.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT80.mac.rou (.../cT80.mac.rou) (revision 29059) +++ cT80.mac.rou (.../cT80.mac.rou) (revision 43422) @@ -26,4 +26,3 @@ YZ Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT42.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT42.mac.rou (.../cT42.mac.rou) (revision 29059) +++ cT42.mac.rou (.../cT42.mac.rou) (revision 43422) @@ -108,3 +108,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT169.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT169.mac.rou (.../cT169.mac.rou) (revision 29059) +++ cT169.mac.rou (.../cT169.mac.rou) (revision 43422) @@ -51,3 +51,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT860.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT860.mac.rou (.../cT860.mac.rou) (revision 29059) +++ cT860.mac.rou (.../cT860.mac.rou) (revision 43422) @@ -114,4 +114,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 15.12.05 - 12 u 16 * V8.05 - Index: cT705.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT705.mac.rou (.../cT705.mac.rou) (revision 29059) +++ cT705.mac.rou (.../cT705.mac.rou) (revision 43422) @@ -80,3 +80,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT310.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT310.mac.rou (.../cT310.mac.rou) (revision 29059) +++ cT310.mac.rou (.../cT310.mac.rou) (revision 43422) @@ -129,4 +129,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTA800.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA800.mac.rou (.../cTA800.mac.rou) (revision 29059) +++ cTA800.mac.rou (.../cTA800.mac.rou) (revision 43422) @@ -48,3 +48,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT118.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT118.mac.rou (.../cT118.mac.rou) (revision 29059) +++ cT118.mac.rou (.../cT118.mac.rou) (revision 43422) @@ -73,4 +73,3 @@ YZ X F71 Q ; ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT14.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT14.mac.rou (.../cT14.mac.rou) (revision 29059) +++ cT14.mac.rou (.../cT14.mac.rou) (revision 43422) @@ -55,4 +55,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT9106.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9106.mac.rou (.../cT9106.mac.rou) (revision 29059) +++ cT9106.mac.rou (.../cT9106.mac.rou) (revision 43422) @@ -25,4 +25,3 @@ YZ G ^cT9107 ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTN1313.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN1313.mac.rou (.../cTN1313.mac.rou) (revision 29059) +++ cTN1313.mac.rou (.../cTN1313.mac.rou) (revision 43422) @@ -260,4 +260,3 @@ ZDOCZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT291.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT291.mac.rou (.../cT291.mac.rou) (revision 29059) +++ cT291.mac.rou (.../cT291.mac.rou) (revision 43422) @@ -83,3 +83,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU8.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU8.mac.rou (.../cTU8.mac.rou) (revision 29059) +++ cTU8.mac.rou (.../cTU8.mac.rou) (revision 43422) @@ -45,3 +45,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT202.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT202.mac.rou (.../cT202.mac.rou) (revision 29059) +++ cT202.mac.rou (.../cT202.mac.rou) (revision 43422) @@ -96,3 +96,4 @@ ; ZZ ; 06.08.01 - 17 u 28 * V7.87 + Index: cT819.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT819.mac.rou (.../cT819.mac.rou) (revision 29059) +++ cT819.mac.rou (.../cT819.mac.rou) (revision 43422) @@ -104,4 +104,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT48H.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT48H.mac.rou (.../cT48H.mac.rou) (revision 29059) +++ cT48H.mac.rou (.../cT48H.mac.rou) (revision 43422) @@ -266,4 +266,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTN9401.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN9401.mac.rou (.../cTN9401.mac.rou) (revision 29059) +++ cTN9401.mac.rou (.../cTN9401.mac.rou) (revision 43422) @@ -205,4 +205,3 @@ BSZ Q ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cTA7.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA7.mac.rou (.../cTA7.mac.rou) (revision 29059) +++ cTA7.mac.rou (.../cTA7.mac.rou) (revision 43422) @@ -43,3 +43,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT842E.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT842E.mac.rou (.../cT842E.mac.rou) (revision 29059) +++ cT842E.mac.rou (.../cT842E.mac.rou) (revision 43422) @@ -82,4 +82,3 @@ FZ K R Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT406.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT406.mac.rou (.../cT406.mac.rou) (revision 29059) +++ cT406.mac.rou (.../cT406.mac.rou) (revision 43422) @@ -46,3 +46,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cT179.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT179.mac.rou (.../cT179.mac.rou) (revision 29059) +++ cT179.mac.rou (.../cT179.mac.rou) (revision 43422) @@ -106,3 +106,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT407.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT407.mac.rou (.../cT407.mac.rou) (revision 29059) +++ cT407.mac.rou (.../cT407.mac.rou) (revision 43422) @@ -101,4 +101,3 @@ LUSZ Q ; ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT188.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT188.mac.rou (.../cT188.mac.rou) (revision 29059) +++ cT188.mac.rou (.../cT188.mac.rou) (revision 43422) @@ -86,3 +86,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTE8.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE8.mac.rou (.../cTE8.mac.rou) (revision 29059) +++ cTE8.mac.rou (.../cTE8.mac.rou) (revision 43422) @@ -88,3 +88,4 @@ ; ZZ ; 15.12.00 - 12 u 16 * V7.83 + Index: cT706.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT706.mac.rou (.../cT706.mac.rou) (revision 29059) +++ cT706.mac.rou (.../cT706.mac.rou) (revision 43422) @@ -91,3 +91,4 @@ ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU19.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU19.mac.rou (.../cTU19.mac.rou) (revision 29059) +++ cTU19.mac.rou (.../cTU19.mac.rou) (revision 43422) @@ -38,3 +38,4 @@ Z X ^cZ Q ZZ ; 18.10.88 - 9 u 30 + Index: cT704.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT704.mac.rou (.../cT704.mac.rou) (revision 29059) +++ cT704.mac.rou (.../cT704.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT32.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT32.mac.rou (.../cT32.mac.rou) (revision 29059) +++ cT32.mac.rou (.../cT32.mac.rou) (revision 43422) @@ -61,4 +61,3 @@ S9 S QPT=$T(+0) D ^cA109 Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cTA44.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA44.mac.rou (.../cTA44.mac.rou) (revision 29059) +++ cTA44.mac.rou (.../cTA44.mac.rou) (revision 43422) @@ -92,4 +92,3 @@ R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT7081.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT7081.mac.rou (.../cT7081.mac.rou) (revision 29059) +++ cT7081.mac.rou (.../cT7081.mac.rou) (revision 43422) @@ -112,4 +112,3 @@ ; Z X ^cZ ZZ ; 24.09.03 - 14 u 21 * V7.96 - Index: cT633.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT633.mac.rou (.../cT633.mac.rou) (revision 29059) +++ cT633.mac.rou (.../cT633.mac.rou) (revision 43422) @@ -19,3 +19,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTE9.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTE9.mac.rou (.../cTE9.mac.rou) (revision 29059) +++ cTE9.mac.rou (.../cTE9.mac.rou) (revision 43422) @@ -41,3 +41,4 @@ ; ZZ ; 30.10.98 - 16 u 58 * V7 + Index: cTA8.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA8.mac.rou (.../cTA8.mac.rou) (revision 29059) +++ cTA8.mac.rou (.../cTA8.mac.rou) (revision 43422) @@ -31,4 +31,3 @@ ; Z X ^cZ ZZ ; 19.05.04 - 16 u 09 * V8 - Index: cT28.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT28.mac.rou (.../cT28.mac.rou) (revision 29059) +++ cT28.mac.rou (.../cT28.mac.rou) (revision 43422) @@ -81,4 +81,3 @@ FZ K R Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT293.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT293.mac.rou (.../cT293.mac.rou) (revision 29059) +++ cT293.mac.rou (.../cT293.mac.rou) (revision 43422) @@ -88,3 +88,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU62.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU62.mac.rou (.../cTU62.mac.rou) (revision 29059) +++ cTU62.mac.rou (.../cTU62.mac.rou) (revision 43422) @@ -71,3 +71,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cT350.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT350.mac.rou (.../cT350.mac.rou) (revision 29059) +++ cT350.mac.rou (.../cT350.mac.rou) (revision 43422) @@ -120,4 +120,3 @@ ; Z X ^cZ Q ZZ ; 19.03.07 - 15 u 31 * V8.08 - Index: cT846.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT846.mac.rou (.../cT846.mac.rou) (revision 29059) +++ cT846.mac.rou (.../cT846.mac.rou) (revision 43422) @@ -150,4 +150,3 @@ FZ K R Q ; ZZ ; 04.11.04 - 10 u 11 * V8.02 - Index: cT841.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT841.mac.rou (.../cT841.mac.rou) (revision 29059) +++ cT841.mac.rou (.../cT841.mac.rou) (revision 43422) @@ -70,4 +70,3 @@ FZ K R Q ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT18.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT18.mac.rou (.../cT18.mac.rou) (revision 29059) +++ cT18.mac.rou (.../cT18.mac.rou) (revision 43422) @@ -81,3 +81,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT92.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT92.mac.rou (.../cT92.mac.rou) (revision 29059) +++ cT92.mac.rou (.../cT92.mac.rou) (revision 43422) @@ -116,4 +116,3 @@ UQAZ Q R ; ZZ ; 25.04.06 - 15 u 44 * V8.07 - Index: cTU91.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU91.mac.rou (.../cTU91.mac.rou) (revision 29059) +++ cTU91.mac.rou (.../cTU91.mac.rou) (revision 43422) @@ -65,3 +65,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTU0.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU0.mac.rou (.../cTU0.mac.rou) (revision 29059) +++ cTU0.mac.rou (.../cTU0.mac.rou) (revision 43422) @@ -89,3 +89,4 @@ Z X ^cZ Q ZZ ; 18.01.89 - 15 u 17 + Index: cT7071.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT7071.mac.rou (.../cT7071.mac.rou) (revision 29059) +++ cT7071.mac.rou (.../cT7071.mac.rou) (revision 43422) @@ -49,3 +49,4 @@ Z X ^cZ ZZ ; 24.09.03 - 14 u 21 * V7.96 + Index: cT562.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT562.mac.rou (.../cT562.mac.rou) (revision 29059) +++ cT562.mac.rou (.../cT562.mac.rou) (revision 43422) @@ -80,4 +80,3 @@ ; Z X ^cZ Q ZZ ; 29.10.02 - 11 u 38 * V7.93 - Index: cT189.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT189.mac.rou (.../cT189.mac.rou) (revision 29059) +++ cT189.mac.rou (.../cT189.mac.rou) (revision 43422) @@ -115,3 +115,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT375.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT375.mac.rou (.../cT375.mac.rou) (revision 29059) +++ cT375.mac.rou (.../cT375.mac.rou) (revision 43422) @@ -42,3 +42,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT818.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT818.mac.rou (.../cT818.mac.rou) (revision 29059) +++ cT818.mac.rou (.../cT818.mac.rou) (revision 43422) @@ -89,4 +89,3 @@ ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT39.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT39.mac.rou (.../cT39.mac.rou) (revision 29059) +++ cT39.mac.rou (.../cT39.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT9124B.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9124B.mac.rou (.../cT9124B.mac.rou) (revision 29059) +++ cT9124B.mac.rou (.../cT9124B.mac.rou) (revision 43422) @@ -50,4 +50,3 @@ YZ Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00 - Index: cTA1000.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA1000.mac.rou (.../cTA1000.mac.rou) (revision 29059) +++ cTA1000.mac.rou (.../cTA1000.mac.rou) (revision 43422) @@ -109,3 +109,5 @@ ; ZZ ; 23.06.05 - 17 u 03 * V8.04 + + Index: cT174.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT174.mac.rou (.../cT174.mac.rou) (revision 29059) +++ cT174.mac.rou (.../cT174.mac.rou) (revision 43422) @@ -69,3 +69,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT400.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT400.mac.rou (.../cT400.mac.rou) (revision 29059) +++ cT400.mac.rou (.../cT400.mac.rou) (revision 43422) @@ -41,3 +41,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cT66N.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT66N.mac.rou (.../cT66N.mac.rou) (revision 29059) +++ cT66N.mac.rou (.../cT66N.mac.rou) (revision 43422) @@ -1,158 +1,162 @@ -cT66N ;Leveranciersbetalingen V6 ;%T66 ; [ 03/13/01 4:37 PM ] - G 1 - ; -T0 ; Via ingave nummers ; -T1 ;Voorstel; -T2 ;Journaal;allemaal; -T3 ;Muntcode;allemaal; -T4 ;Subtotaal; -T5 ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; -T6 ;Nummer\"xx[] = volgnr. xx op brede lijst xx.[] = wijz. te betalen bedrag lijn xx E[] = einde ingave xx-[] = annulatie lijn xx"; -T7 ;Nr.;Leverancier;Document; Te betalen;Munt; -T8 ;Betalingscumul.; -T9 ;Te betalen;bedrag in ; - ; -T0F ; Via entr�e num�ros ; -T1F ;Proposition; -T2F ;Journal;tous; -T3F ;Code mon.;tous; -T4F ;Sous-total; -T5F ;N� de facture; existe d�j� pour ce proposition; d�j� pay�; -T6F ;Num�ro\"xx[] = n� xx sur liste large xx.[] = modific. montant � payer ligne xx E[] = exit xx-[] = annulation ligne xx"; -T7F ;No.;Fournisseur;Document; A payer;Mon.; -T8F ;Cumul de paiem.; -T9F ;A payer;montant en ; - ; -T0E ; Via ingave nummers ; -T1E ;Voorstel; -T2E ;Journaal;allemaal; -T3E ;Muntcode;allemaal; -T4E ;Subtotaal; -T5E ;Factuurnummer; komt reeds voor op dit voorstel; reeds betaald; -T6E ;Nummer\"xx[] = volgnr. xx op brede lijst xx.[] = wijz. te betalen bedrag lijn xx E[] = einde ingave xx-[] = annulatie lijn xx"; -T7E ;Nr.;Leverancier;Document; Te betalen;Munt; -T8E ;Betalingscumul.; -T9E ;Te betalen;bedrag in ; - ; - ; window + titel -1 ;D O^cA612(7,1,15,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,1,1,0,0) ;10.03.00 - D P^cA612(7,1,15,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,1,1,0,0) - ; - ; via module N[] vanuit BVB.LE -2 S BVS=$$^cANSYN("BVS") G YZ:K="-" S R=$$SIGN^cAFA1("BVS",BVS,0) -21 W /CUP(2,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(2,16),": ",$P(R,D,2) -23 W /CUP(3,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,/CUP(3,16),": ",$P(R,D,5) I $P(R,D,5)="" W $P($T(@("T2"_QT)),U,3) -25 W /CUP(4,2),@F6,$P($T(@("T3"_QT)),U,2),@F9,/CUP(4,16),": ",$P(R,D,4) I $P(R,D,4)="" W $P($T(@("T3"_QT)),U,3) -27 W /CUP(5,2),@F6,$P($T(@("T4"_QT)),U,2),@F9,/CUP(5,16),": ",$$IP^cAFA1($P(R,D,7),QD,0),BF - ; - ; schermopbouw -3 S R=$T(@("T7"_QT)),H=0 K ^HULP(boot,$J) -31 W /CUP(7,2),@F4 F I=2:1:6 S J=$P(";7;38;11;14;5",U,I) W $E($P(R,U,I)_$J("",J),1,J) -33 W @F7 F I=8,43,47,56,71 W /CUP(7,I),@$P(FG,D,10) -35 W !,@F8,@F5 D S4 - ; - ; ingave nummer -4 S R="N\22\3\"_$P($T(@("T6"_QT)),U,2)_"\5\\K?1.N.1"".""!(K?1.N1""-"")&K!(K=""-"")!(K=""E"")\\\1\\\1" D R0 I RK=28 G 9:K="-"!(K="E") -401 I RK=25 D G 63 ; PgUp - . S N=H F I=1:1:5 Q:N="" S N=$O(^HULP(boot,$J,N),-1) -402 I RK=26 D G 63 ; PgDn - . S N=H F I=1:1:5 Q:H="" S H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H -403 I RK=31 D G 63 ; Pijl omhoog - . S N=H,N=$O(^HULP(boot,$J,N),-1) -404 I RK=32 D G 63 ; Pijl omlaag - . S N=H,H=$O(^HULP(boot,$J,N)) I $L(H),$L($O(^(H))) S N=H -405 I RK'=28 G 4 -41 S BVSNR=+K I '$D(^DATA(Q,"BVS.NR",BVS,BVSNR)) G 4 -43 S I4=^(BVSNR),BVSDET=$G(^DATA(Q,"BVS",BVS,I4)) I BVSDET="" G 4 -45 S KC=$P(BVSDET,D),FNR=$P(BVSDET,D,2) -47 S I1=$$UI1^cAFA1("LE",101,KC) D S2 -49 S MF=$P(OF,D,9),DEC=$$DEC^cAFA1(MF) D VM(MF) I MF="" S MF=BF - ; - ; diverse testen -5 S R=$P(OF,D,5)-$P(OF,D,6)-$P(OF,D,12) I $P(OF,D)="C" S R=-R ;-$P(OF,D,6) -51 S K=$P(BVSDET,D,3) I $P(OF,D)="F",K>R S K=R ; bedrag -53 I OF=""!'R S K=$T(@("T5"_QT)),K=$P(K,U,2)_" "_FNR_$P(K,U,4) D TXT^cAFA1(250) G 4 -55 I $E(N,$L(N))="." G 7 ; gedeeltelijke betaling -57 I $E(N,$L(N))="-" G 8 ; annulatie -59 S R=$$OMREK^cAFA1(K,MF,HBF,"A",1) D S1 S ^HULP(boot,$J,+N)=I4 D S3 - ; - ; tonen op scherm -6 F I=1:1:3 S J=$O(^HULP(boot,$J,+N)) Q:J="" S N=J -61 F I=1:1:6 Q:N="" S N=$O(^(+N),-1) -63 S H=+N D S4 S L=8 F I=1:1:6 S N=$O(^HULP(boot,$J,N)) D S L=L+1 - . I N="" S I=9 Q - . S R=^(N),R=^DATA(Q,"BVB",BVB,R) - . W /CUP(L,3),$J(N,4) - . W /CUP(L,10),$E($P(R,D)_" "_$$SG^cAFA1("LE",$P(R,D),102)_$J("",32),1,32) - . W /CUP(L,45),$P(R,D,7) - . W /CUP(L,48),$J($P(R,D,2),8) - . W /CUP(L,57),$$IP^cAFA1($P(R,D,3),$$DEC^cAFA1($P(R,D,6)),14) - . W /CUP(L,73),$P(R,D,6) -65 G 4 - ; - ; gedeeltelijke betaling -7 D O^cA612(22,1,1,80,0,0,0,0) ; tonen openstaande factuur -70 W /CUP(1,4),$J(N,5),/CUP(1,11),$E($$SIG^cAFA1("LE",I1,102)_$J("",32),1,32) -71 W $J($P(OF,D),4),$J(FNR,10),$$IP^cAFA1(K,DEC,15)," ",MF -72 S B2=$P(OF,D,5)-$P(OF,D,12),B1=B2-$P(OF,D,6) I $P(OF,D)="C" S B1=-B1,B2=-B2 -73 I $D(^HULP(boot,$J,+N)) S B1=$P(^DATA(Q,"BVB",BVB,^(+N)),D,3) -74 S R="K\23\3\"_$P($T(@("T9"_QT)),U,2)_"\C1\10\\$$W^cAFI2(K,DEC,$P(OF,D)=""C"")!(""-""[K)!(K=""."")" D R0 I K="-" D YZ G 4 -75 I K="" S K=B1 G 79 -76 I K="." G 74:B1=B2 S K=B2 G 79 -77 I $E(K,$L(K))="-" S K=-K -78 I B2>0&(K>B2!(K<0))!(B2<0&(K0))) G 74 -780 I K>B2&(B2>0)!(KR S K=R ; bedrag +53 I OF=""!'R S K=$T(@("T5"_QT)),K=$P(K,U,2)_" "_FNR_$P(K,U,4) D TXT^cAFA1(250) G 4 +55 I $E(N,$L(N))="." G 7 ; gedeeltelijke betaling +57 I $E(N,$L(N))="-" G 8 ; annulatie +59 S R=$$OMREK^cAFA1(K,MF,HBF,"A",1) + ; + S OKDET=$$CHKDET^cT66SE(BVB,^DATA(Q,"BVB",BVB,0),KC,OF) + I 'OKDET S K=$P(OKDET,D,2) D TXT^cAFA1(250) G 4 + ; + D S1 S ^HULP(boot,$J,+N)=I4 D S3 + ; + ; tonen op scherm +6 F I=1:1:3 S J=$O(^HULP(boot,$J,+N)) Q:J="" S N=J +61 F I=1:1:6 Q:N="" S N=$O(^(+N),-1) +63 S H=+N D S4 S L=8 F I=1:1:6 S N=$O(^HULP(boot,$J,N)) D S L=L+1 + . I N="" S I=9 Q + . S R=^(N),R=^DATA(Q,"BVB",BVB,R) + . W /CUP(L,3),$J(N,4) + . W /CUP(L,10),$E($P(R,D)_" "_$$SG^cAFA1("LE",$P(R,D),102)_$J("",32),1,32) + . W /CUP(L,45),$P(R,D,7) + . W /CUP(L,48),$J($P(R,D,2),8) + . W /CUP(L,57),$$IP^cAFA1($P(R,D,3),$$DEC^cAFA1($P(R,D,6)),14) + . W /CUP(L,73),$P(R,D,6) +65 G 4 + ; + ; gedeeltelijke betaling +7 D O^cA612(22,1,1,80,0,0,0,0) ; tonen openstaande factuur +70 W /CUP(1,4),$J(N,5),/CUP(1,11),$E($$SIG^cAFA1("LE",I1,102)_$J("",32),1,32) +71 W $J($P(OF,D),4),$J(FNR,10),$$IP^cAFA1(K,DEC,15)," ",MF +72 S B2=$P(OF,D,5)-$P(OF,D,12),B1=B2-$P(OF,D,6) I $P(OF,D)="C" S B1=-B1,B2=-B2 +73 I $D(^HULP(boot,$J,+N)) S B1=$P(^DATA(Q,"BVB",BVB,^(+N)),D,3) +74 S R="K\23\3\"_$P($T(@("T9"_QT)),U,2)_"\C1\10\\$$W^cAFI2(K,DEC,$P(OF,D)=""C"")!(""-""[K)!(K=""."")" D R0 I K="-" D YZ G 4 +75 I K="" S K=B1 G 79 +76 I K="." G 74:B1=B2 S K=B2 G 79 +77 I $E(K,$L(K))="-" S K=-K +78 I B2>0&(K>B2!(K<0))!(B2<0&(K0))) G 74 +780 I K>B2&(B2>0)!(KR5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) -R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 -R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 - ; -R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) -R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 -R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 - ; - ; saldoberekening -S1 S (S1,S2)=D S:$D(^(S3)) S1=^(S3),S2=^(S3+.02) S X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) -S1A I 'SWB S X=$$BEDR^cAFE1(Q,X,$P($$MNTC^cAFE1(Q,S3),D),BF,"F") -S1B I $D(^(S3+1)) S S1=^(S3+1),S2=^(S3+1.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) -S1Z K S1,S2,S3 Q - ; - ; schermopbouw -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 -11 S R=301_D_673 D ^cA319 - ; - ; initialisatie -2 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BA39=^(39),BF=$P(BA39,D) -21 S Q41="^"_Q_"AR(BR,0)",Q5="^"_Q_"R1(R2)",Q1="^"_Q_"L2(NR)",Q2="^"_Q_"L1(LNR)",Q3="^"_Q_"LE(I1,0)",Q4="^"_Q_"L3(PRO,DATUM)" -23 S Q51="^"_Q_"L3(PRO,DATUM,LNR,I1)",Q50="^"_Q_"L3(PRO,DATUM,LNR)",Q52="^"_Q_"L3(PRO,DATUM,LNR,J1)",NR=0 I '$D(@Q1) D TXT^cAFA1(257) G YZ -25 S K=0,FP=440 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=540 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5 - ; - ; keuze bank -3 S R="BR\1000\1\1\1\1\1\1\" D ^cT278 G YZ:K="-" -31 S A=^(K,0),BNK=$P(A,D,2),BNR=$P(A,D,9),AFK=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12) -33 S:HBF="" HBF=BF S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,SWB=1 S HQD=$S(HBF=BF:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0),A=@Q41 D S1 -35 S FP=403 W @F,$E(BNK_$J("",35),1,35) S FP=461 W @F S R=X_D_11_D_D_HQD D R3 - ; - ; opzoeken betaling -4 S DATUM="" -41 S DATUM=$O(@Q4) I DATUM="" S FP=530 W @F,$J("",8) S FP=561 W @F,$J("",11) D TXT^cAFA1(56) G 3 -43 G 41:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=561,R=SOM_D_11_D_D_HQD,VNR=$P(TREC,D,5) W @F D R3 -45 S FP=530 W @F,$$DCO^cAFA1(DATUM\1) - ; - ; uitvoeren betaling -5 I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="NL" G YZ -51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.""[K" D R0:$D(@("^"_Q_"BA(""AR"")")) G 11:K="-" I K="." D ^cT630 G 51:K="-",YZ -53 S (SW,SWBB)=0 I 'SWB K ^HULP(boot,$J) D - . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D - .. S J1="" F S J1=$O(@Q52) Q:J1="" D - ... S K=^(J1) - ... I $P(K,D,8)'?12N S SWBB=1 D ; buitenlands banknummer - .... S IL=$E($P(K,D,8),1,2) I '$D(^HULP(boot,$J,LNR)) S ^(LNR)=IL Q - .... I ^(LNR)'=IL S K=$E($P($T(@("T13"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - ... I $P(J1," ")'=HBF S SWBB=1 D ; andere muntcode - .... S K=$P(K,D,16) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=$P(^(K),D),$P(@Q52,D,16)=K -55 I 'SW,SWBB D - . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D - .. S K=$$SGN^cAFA1("LE",LNR,2) - .. I '$P(K,D,3) S K=$E($P($T(@("T10"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - .. I '$D(^HULP(boot,$J,LNR)) Q ; geen SWIFT voor Belg.nr/VM - .. I '$P(K,D,5) S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q - .. S K=$$SIG^cAFA1("SWIFT",$P(K,D,5),105) ; intern nummer - .. S IL=$$SIG^cAFA1("ISO.LAND",K,101) ; letters landcode - .. S J1="" F Q:SW S J1=$O(@Q52) Q:J1="" D - ... S K=^(J1) - ... I $E($P(K,D,8),1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q -57 I 'SW G ^cT130 - ; -YZ Q - ; - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT63 ;Uitvoeren betalingen ;%T63 ;Go naar %T130 ; [ 04/12/01 9:57 AM ] + G 1 + ; +T0 ;Uitvoeren betalingen ; +T1 ;De financi�le rekening; +T2 ;Actueel saldo :; +T3 ;Betalingscumul.:; +T4 ;Betaling via\"[] = overschrijvingen .[] = cheques"; +T10 ;Kostencode ontbreekt voor leverancier ; +T11 ;Bankcode ontbreekt voor leverancier ; +T12 ;ISO-landcode verschilt voor leverancier ; +T13 ;Meerdere banknummers voor leverancier ; + ; +T0F ;Ex�cution des paiements ; +T1F ;Compte financier; +T2F ;Solde actuel :; +T3F ;Cumul de paiem.:; +T4F ;Paiement par\"[] = virements .[] = ch�ques"; +T10F ;Code frais manque pour fournisseur ; +T11F ;Code bancair manque pour fournisseur ; +T12F ;Code pays ISO diff�rent pour fournisseur ; +T13F ;Plusieurs n� de banque pour fournisseur ; + ; +T0E ;Uitvoeren betalingen ; +T1E ;De financi�le rekening; +T2E ;Actueel saldo :; +T3E ;Betalingscumul.:; +T4E ;Betaling via\"[] = overschrijvingen .[] = cheques"; +T10E ;Kostencode ontbreekt voor leverancier ; +T11E ;Bankcode ontbreekt voor leverancier ; +T12E ;ISO-landcode verschilt voor leverancier ; +T13E ;Meerdere banknummers voor leverancier ; + ; +R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 +R3A 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) +R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 +R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 + ; +R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) +R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 +R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 + ; + ; saldoberekening +S1 S (S1,S2)=D S:$D(^(S3)) S1=^(S3),S2=^(S3+.02) S X=S1 F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) +S1A I 'SWB S X=$$BEDR^cAFE1(Q,X,$P($$MNTC^cAFE1(Q,S3),D),BF,"F") +S1B I $D(^(S3+1)) S S1=^(S3+1),S2=^(S3+1.02) F I=2:1:25 S X=X+$P(S1,D,I)-$P(S2,D,I) +S1Z K S1,S2,S3 Q + ; + ; schermopbouw +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 +11 S R=301_D_673 D ^cA319 + ; + ; initialisatie +2 S BJ=$P(@("^"_Q_"BA(2)"),D,2)\1,BA39=^(39),BF=$P(BA39,D) +21 S Q41="^"_Q_"AR(BR,0)",Q5="^"_Q_"R1(R2)",Q1="^"_Q_"L2(NR)",Q2="^"_Q_"L1(LNR)",Q3="^"_Q_"LE(I1,0)",Q4="^"_Q_"L3(PRO,DATUM)" +23 S Q51="^"_Q_"L3(PRO,DATUM,LNR,I1)",Q50="^"_Q_"L3(PRO,DATUM,LNR)",Q52="^"_Q_"L3(PRO,DATUM,LNR,J1)",NR=0 I '$D(@Q1) D TXT^cAFA1(257) G YZ +25 S K=0,FP=440 W @F,@F4,$P($T(@("T2"_QT)),U,2),@F5 S FP=540 W @F,@F4,$P($T(@("T3"_QT)),U,2),@F5 + ; + ; keuze bank +3 S R="BR\1000\1\1\1\1\1\1\" D ^cT278 G YZ:K="-" +31 S A=^(K,0),BNK=$P(A,D,2),BNR=$P(A,D,9),AFK=$P(A,D,10),HBF=$P(A,D,11),PRO=$P(A,D,12) +33 S:HBF="" HBF=BF S S3=BJ,SWB=0 S:HBF'=BF S3=S3+.01,SWB=1 S HQD=$S(HBF=BF:QD,$D(@("^"_Q_"BA(11,HBF)")):+$P(^(HBF),D,7),1:0),A=@Q41 D S1 +35 S FP=403 W @F,$E(BNK_$J("",35),1,35) S FP=461 W @F S R=X_D_11_D_D_HQD D R3 + ; + ; opzoeken betaling +4 S DATUM="" +41 S DATUM=$O(@Q4) I DATUM="" S FP=530 W @F,$J("",8) S FP=561 W @F,$J("",11) D TXT^cAFA1(56) G 3 +43 G 41:$P(^(DATUM),D,4) S TREC=^(DATUM),SOM=$P(TREC,D),FP=561,R=SOM_D_11_D_D_HQD,VNR=$P(TREC,D,5) W @F D R3 +45 S FP=530 W @F,$$DCO^cAFA1(DATUM\1) + ; + ; uitvoeren betaling +5 I $D(@("^"_Q_"BA(39)")),$P(^(39),D,3)="NL" G YZ +51 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-.""[K" D R0:$D(@("^"_Q_"BA(""AR"")")) G 11:K="-" I K="." D ^cT630 G 51:K="-",YZ +53 S (SW,SWBB)=0 I 'SWB K ^HULP(boot,$J) D + . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D + .. S J1="" F S J1=$O(@Q52) Q:J1="" D + ... S K=^(J1) + ... I $P(K,D,8)'?12N S SWBB=1 D ; buitenlands banknummer + .... S IL=$E($P(K,D,8),1,2) I '$D(^HULP(boot,$J,LNR)) S ^(LNR)=IL Q + .... I ^(LNR)'=IL S K=$E($P($T(@("T13"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + ... I $P(J1," ")'=HBF S SWBB=1 D ; andere muntcode + .... S K=$P(K,D,16) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=$P(^(K),D),$P(@Q52,D,16)=K +55 I 'SW,SWBB D + . S LNR="" F S LNR=$O(@Q50) Q:LNR="" D + .. S K=$$SGN^cAFA1("LE",LNR,2) + .. I '$P(K,D,3) S K=$E($P($T(@("T10"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + .. I '$D(^HULP(boot,$J,LNR)) Q ; geen SWIFT voor Belg.nr/VM + .. I '$L($P(K,D,5)) S K=$E($P($T(@("T11"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q + .. S K=$$SIG^cAFA1("SWIFT",$P(K,D,5),105) ; intern nummer + .. S IL=$$SIG^cAFA1("ISO.LAND",K,101) ; letters landcode + .. S J1="" F Q:SW S J1=$O(@Q52) Q:J1="" D + ... S K=^(J1) + ... I $E($P(K,D,8),1,2)'=IL S K=$E($P($T(@("T12"_QT)),U,2)_$TR($P($$SGN^cAFA1("LE",LNR,0),D,1,2),D," "),1,64) D TXT^cAFA1(250) S SW=1 Q +57 I 'SW G ^cT130 + ; +YZ Q + ; + ; +ZZ ; 05.12.07 - 15 u 46 * V9.00 Index: cTU30.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU30.mac.rou (.../cTU30.mac.rou) (revision 29059) +++ cTU30.mac.rou (.../cTU30.mac.rou) (revision 43422) @@ -58,3 +58,4 @@ Z X ^cZ Q ZZ ; 25.03.91 - 12 u 09 + Index: cT9120.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9120.mac.rou (.../cT9120.mac.rou) (revision 29059) +++ cT9120.mac.rou (.../cT9120.mac.rou) (revision 43422) @@ -13,6 +13,8 @@ T9 ;Naam + functie van ondertekenaar ; T10 ;Hoedanigheid v/d ondertekenaar(s); T11 ;Telefoonnr. v/d ondertekenaar(s); +T12 ;E-mail van ondertekenaar ; +T13 ;Telefoon van ondertekenaar ; T95 ;Aangifte van 2010 kan maar vanaf 05.02.10 worden ingediend.; T96 ;BTW-nummer is geen ondernemingsnummer; T97 ;U moet het BTW-nummers invullen! ; @@ -31,6 +33,8 @@ T9F ;Nom + fonction signataire ; T10F ;Qualit� du (des) signataire(s); T11F ;T�l�phone du (des) signataire(s); +T12F ;E-mail du signataire ; +T13F ;T�l�phone du signataire ; T95F ;Une d�claration de 2010 ne peut �tre d�pos�e qu'� partir du 05.02.10.; T96F ;Num�ro de TVA n'est pas un num�ro d' entreprise; T97F ;Il faut remplir les 2 num�ros de TVA! ; @@ -49,6 +53,8 @@ T9E ;Naam + functie ondertekenaar ; T10E ;Hoedanigheid v/d ondertekenaar(s); T11E ;Telefoonnr. v/d ondertekenaar(s); +T12E ;E-mail van ondertekenaar ; +T13E ;Telefoon van ondertekenaar ; T95E ;It is only possible to submit the declaration of 2010 as from 05.02.10.; T96E ;BTW-nummer is geen ondernemingsnummer; T97E ;U moet het BTW-nummers invullen! ; @@ -68,9 +74,11 @@ 2 S B(1)=$G(@("^"_Q_"BTW(0,0)")),B(2)=$G(@("^"_Q_"BTW(BP2,0)")) F I=1:1:4 W /CUP(4+I,2),$J(I,2),".",@F6,$P($T(@("T1"_QT)),U,2),I,@F9 W /CUP(4+I,26)," : ",@F2,$P(B(1),D,I+1) W /CUP(9,2)," 5.",@F6,$P($T(@("T2"_QT)),U,2),@F9," : " W /CUP(9,29),@F2,$$BTW^cAFO1($P(B(1),D,7)) - W /CUP(11,2)," 6.",@F6,$P($T(@("T9"_QT)),U,2)_"1",@F9 W /CUP(11,41)," : ",@F2,$P(B(1),D,9) - W /CUP(12,2)," 7.",@F6,$P($T(@("T9"_QT)),U,2)_"2",@F9 W /CUP(12,41)," : ",@F2,$P(B(1),D,12) - W /CUP(13,2)," 8.",@F6,$P($T(@("T9"_QT)),U,2)_"3",@F9 W /CUP(13,41)," : ",@F2,$P(B(1),D,13) + W /CUP(11,2)," 6.",@F6,$P($T(@("T9"_QT)),U,2),@F9 W /CUP(11,41)," : ",@F2,$P(B(1),D,9) + ; W /CUP(12,2)," 7.",@F6,$P($T(@("T9"_QT)),U,2)_"2",@F9 W /CUP(12,41)," : ",@F2,$P(B(1),D,12) + W /CUP(12,2)," 7.",@F6,$P($T(@("T12"_QT)),U,2),@F9 W /CUP(12,41)," : ",@F2,$P(B(1),D,14) + ; W /CUP(13,2)," 8.",@F6,$P($T(@("T9"_QT)),U,2)_"3",@F9 W /CUP(13,41)," : ",@F2,$P(B(1),D,13) + W /CUP(13,2)," 8.",@F6,$P($T(@("T13"_QT)),U,2),@F9 W /CUP(13,41)," : ",@F2,$P(B(1),D,15) W /CUP(15,2)," 9.",@F6,$P($T(@("T3"_QT)),U,2),@F9 W /CUP(15,41)," : ",@F2,$$JN^cAFO1($P(B(2),D,7)) W /CUP(16,2),"10.",@F6,$P($T(@("T4"_QT)),U,2),@F9 W /CUP(16,41)," : ",@F2,$$JN^cAFO1($P(B(2),D,8)) W /CUP(17,2),"11.",@F6,$P($T(@("T5"_QT)),U,2),@F9 W /CUP(17,41),@F2," : " I $L($P(B(2),D)) W $$IP^cAFA1($P(B(2),D),QD,12)_BF @@ -146,8 +154,10 @@ C9Z Q ; ; Naam van de ondertekenaar(s) -86 S I=$T(@("T9"_QT)),BI=$S(K=6:109,K=7:112,1:113),KR=$P(B(1),D,$S(K=6:9,K=7:12,1:13)) -87 S R="KR\22\3\"_$P(I,U,2)_(K-5)_"\\36",$P(R,D,13)=1 D R0 +86 I K=6 S I=$T(@("T9"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15)) + I K=7 S I=$T(@("T12"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15)) + I K=8 S I=$T(@("T13"_QT)),BI=$S(K=6:109,K=7:114,1:115),KR=$P(B(1),D,$S(K=6:9,K=7:14,1:15)) +87 S R="KR\22\3\"_$P(I,U,2)_$S(K=6:(K-5),1:"")_"\\36",$P(R,D,13)=1 D R0 88 I K'="-" D S2 G 2 89 G 3 ; @@ -161,5 +171,4 @@ F2 D TXT^cAFA1(R) FZ K R Q ; -ZZ ; 08.02.08 - 15 u 00 * V9.00 - +ZZ ; 11.12.09 - 14 u 25 * V9.06 Index: cT709.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT709.mac.rou (.../cT709.mac.rou) (revision 29059) +++ cT709.mac.rou (.../cT709.mac.rou) (revision 43422) @@ -39,3 +39,4 @@ Z X ^cZ ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT6425.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT6425.mac.rou (.../cT6425.mac.rou) (revision 29059) +++ cT6425.mac.rou (.../cT6425.mac.rou) (revision 43422) @@ -23,3 +23,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT36.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT36.mac.rou (.../cT36.mac.rou) (revision 29059) +++ cT36.mac.rou (.../cT36.mac.rou) (revision 43422) @@ -1,50 +1,49 @@ -cT36 ;Gestructureerde mededelingen ;%T36 ;%T36* ; [ 04/04/00 1:38 PM ] - G 1 - ; -T0 ;Gestructureerde mededelingen ; -T1 ;Keuze\"-[] = einde programma [] = bestand inlezen + gegevens verwerken .[] = controlelijst"; -T3 ;Dit bestand is leeg ; - ; -T0F ;Communications structur�es ; -T1F ;Choix\"-[] = fin du programme [] = importer fichier + traitement des donn�es .[] = liste de contr�le"; -T3F ;Ce fichier est vide ; - ; -T0E ;Gestructureerde mededelingen ; -T1E ;Keuze\"-[] = einde programma [] = bestand inlezen + gegevens verwerken .[] = controlelijst"; -T3E ;Dit bestand is leeg ; - ; -S1 W /CUP(1,1),@F1 D T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1) -S1Z Q - ; -1 D S1 S KEU=0 -11 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-" I K="." S KEU=1 G 3 -13 D ^cA703 K DR,DIR,A,B,ZA,ZB,ZC,OMS,FORM,NMF,TMO,RS,RL G 1:K="-" D S1 -15 S R="RC" D ^cA709 -17 S FP=TNR*100+501 W @F,"->" I $O(^HULP("RC",Q,TNR,0))'="" G 2 -19 S K=$P($T(@("T3"_QT)),U,2) D F1 G 1 - ; - ; controle structuur -2 I '$D(TNR) D ^cA705 G 1:K="-" -21 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 -23 D ^cT360 G 13:ER,3 - ; - ; controlelijst -3 I '$D(TNR) D ^cA705 G 1:K="-" -31 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 -33 D ^cT361 G 1:ER!KEU,4 - ; - ; verwerking -4 I '$D(TNR) D ^cA705 G 1:K="-" -41 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 -43 G ^cT364 - ; -YZ Q - ; -F1 S R=250 -F2 D TXT^cAFA1(R) -FZ K R Q - ; -R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 - ; -ZZ ; 05.02.01 - 16 u 23 * V7.84 - +cT36 ;Gestructureerde mededelingen ;%T36 ;%T36* ; [ 04/04/00 1:38 PM ] + G 1 + ; +T0 ;Gestructureerde mededelingen ; +T1 ;Keuze\"-[] = einde programma [] = bestand inlezen + gegevens verwerken .[] = controlelijst"; +T3 ;Dit bestand is leeg ; + ; +T0F ;Communications structur�es ; +T1F ;Choix\"-[] = fin du programme [] = importer fichier + traitement des donn�es .[] = liste de contr�le"; +T3F ;Ce fichier est vide ; + ; +T0E ;Gestructureerde mededelingen ; +T1E ;Keuze\"-[] = einde programma [] = bestand inlezen + gegevens verwerken .[] = controlelijst"; +T3E ;Dit bestand is leeg ; + ; +S1 W /CUP(1,1),@F1 D T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1) +S1Z Q + ; +1 D S1 S KEU=0 +11 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-" I K="." S KEU=1 G 3 +13 D ^cA703 K DR,DIR,A,B,ZA,ZB,ZC,OMS,FORM,NMF,TMO,RS,RL G 1:K="-" D S1 +15 S R="RC" D ^cA709 +17 S FP=TNR*100+501 W @F,"->" I $O(^HULP("RC",Q,TNR,0))'="" G 2 +19 S K=$P($T(@("T3"_QT)),U,2) D F1 G 1 + ; + ; controle structuur +2 I '$D(TNR) D ^cA705 G 1:K="-" +21 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 +23 D ^cT360 G 13:ER,3 + ; + ; controlelijst +3 I '$D(TNR) D ^cA705 G 1:K="-" +31 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 +33 D ^cT361 G 1:ER!KEU,4 + ; + ; verwerking +4 I '$D(TNR) D ^cA705 G 1:K="-" +41 L ^HULP("RC",Q,TNR):2 E S R=14 D F2 G 1 +43 G ^cT364 + ; +YZ Q + ; +F1 S R=250 +F2 D TXT^cAFA1(R) +FZ K R Q + ; +R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 + ; +ZZ ; 18.04.08 - 16 u 39 * V9.01 Index: cTU23.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU23.mac.rou (.../cTU23.mac.rou) (revision 29059) +++ cTU23.mac.rou (.../cTU23.mac.rou) (revision 43422) @@ -78,3 +78,4 @@ Z X ^cZ Q ZZ ; 21.09.94 - 11 u 43 * V5.5 + Index: cT815.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT815.mac.rou (.../cT815.mac.rou) (revision 29059) +++ cT815.mac.rou (.../cT815.mac.rou) (revision 43422) @@ -116,4 +116,3 @@ S7Z Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cTA809.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTA809.mac.rou (.../cTA809.mac.rou) (revision 29059) +++ cTA809.mac.rou (.../cTA809.mac.rou) (revision 43422) @@ -62,3 +62,4 @@ Z X ^cZ Q ZZ ; 18.05.04 - 15 u 48 * V8 + Index: cT71.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT71.mac.rou (.../cT71.mac.rou) (revision 29059) +++ cT71.mac.rou (.../cT71.mac.rou) (revision 43422) @@ -84,3 +84,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT38.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT38.mac.rou (.../cT38.mac.rou) (revision 29059) +++ cT38.mac.rou (.../cT38.mac.rou) (revision 43422) @@ -98,4 +98,3 @@ S1 S BJ=$$BJ^cAFE1(Q,BP),BF=$P($$MNTC^cAFE1(Q,BJ),D) Q ; ZZ ; 22.06.04 - 16 u 32 * V8 - Index: cT892.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT892.mac.rou (.../cT892.mac.rou) (revision 29059) +++ cT892.mac.rou (.../cT892.mac.rou) (revision 43422) @@ -89,4 +89,3 @@ INCTR ;K?1.N!(K?.N1"-")!(K?.N1"."1.N&QD&($L(K#1)-1'>QD))!(K?.N1"."1.N1"-"&QD&($L(K#1)-1'>QD))!(K=",") ; ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cTU31.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU31.mac.rou (.../cTU31.mac.rou) (revision 29059) +++ cTU31.mac.rou (.../cTU31.mac.rou) (revision 43422) @@ -26,3 +26,4 @@ Z X ^cZ Q ZZ ; 11.07.88 - 8 u 42 + Index: cT332.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT332.mac.rou (.../cT332.mac.rou) (revision 29059) +++ cT332.mac.rou (.../cT332.mac.rou) (revision 43422) @@ -57,4 +57,3 @@ ; Z X ^cZ Q ZZ ; 24.06.04 - 10 u 48 * V8 - Index: cT295.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT295.mac.rou (.../cT295.mac.rou) (revision 29059) +++ cT295.mac.rou (.../cT295.mac.rou) (revision 43422) @@ -89,3 +89,4 @@ Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cT401.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT401.mac.rou (.../cT401.mac.rou) (revision 29059) +++ cT401.mac.rou (.../cT401.mac.rou) (revision 43422) @@ -38,3 +38,4 @@ ; ZZ ; 18.04.02 - 15 u 36 * V7.92 + Index: cTN1213.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN1213.mac.rou (.../cTN1213.mac.rou) (revision 29059) +++ cTN1213.mac.rou (.../cTN1213.mac.rou) (revision 43422) @@ -194,4 +194,3 @@ VKOLZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09 - Index: cT93.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT93.mac.rou (.../cT93.mac.rou) (revision 29059) +++ cT93.mac.rou (.../cT93.mac.rou) (revision 43422) @@ -74,3 +74,4 @@ ; ZZ ; 05.02.01 - 16 u 23 * V7.84 + Index: cTU18.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU18.mac.rou (.../cTU18.mac.rou) (revision 29059) +++ cTU18.mac.rou (.../cTU18.mac.rou) (revision 43422) @@ -51,3 +51,4 @@ Z X ^cZ Q ZZ ; 14.12.87 - 15 u 40 + Index: cTU25.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTU25.mac.rou (.../cTU25.mac.rou) (revision 29059) +++ cTU25.mac.rou (.../cTU25.mac.rou) (revision 43422) @@ -41,3 +41,4 @@ Z X ^cZ Q ZZ ; 14.01.99 - 21 u 28 * V5.7 + Index: cTN80601.mac.rou =================================================================== diff -u -r29059 -r43422 --- cTN80601.mac.rou (.../cTN80601.mac.rou) (revision 29059) +++ cTN80601.mac.rou (.../cTN80601.mac.rou) (revision 43422) @@ -11,33 +11,42 @@ T0 ;BTW-listing ; T1 ;VatList;RecipientId;SenderId;ControlRef;MandataireId;SenderDate;VersionTech;Test; T2 ;AgentRepr;DecNumber; -T3 ;DeclarantList; -T4 ;SequenceNum;DeclarantNum;ClientNbr;TurnOverSum;TaxSum; -T5 ;CompanyInfo; -T6 ;VATNum;Name;Street;CityAndZipCode;Country; +T3 ;ClientListing; +T4 ;SequenceNumber;DeclarantReference;ClientsNbr;TurnOverSum;VATAmountSum; +T5 ;Declarant; +T6 ;VATNumber;Name;Street;PostCode;CountryCode;City;EmailAddress; T7 ;Period; -T8 ;ClientList; +T8 ;Client; T9 ;SequenceNum; -T10 ;CompanyInfo;VATNum;Country; -T11 ;Period;Amount;Code;TurnOver; +T10 ;CompanyInfo;CompanyVATNumber;Country;issuedBy; +T11 ;Period;VATAmount;Code;TurnOver; T12 ;Het pad voor de BTW-listing is niet correct ingevuld.; T13 ;Kan het uniek nummer voor de BTW-listing niet bepalen.; T14 ;De BTW-listing is leeg; T15 ;Postcode niet gevonden, gelieve in te vullen bij parameters boekhouding.; +T16 ;ClientListingConsignment;ClientListingsNbr; +T17 ;http://www.minfin.fgov.be/InputCommon; +T18 ;E-mail ondertekenaar werd niet ingevuld.; +T19 ;Representative;RepresentativeID;issuedBy;identificationType;Phone; +T20 ;Telefoon ondertekenaar werd niet ingevuld.; ; T0F ;List TVA ; -T12F ;Le chemin d�exportation de la listing annuel de TVA est incorrect.; +T12F ;Le chemin d'exportation de la listing annuel de TVA est incorrect.; T13F ;Impossible de d�finir le num�ro unique de la listing annuel de TVA.; T14F ;Listing annuel de TVA est vide; T15F ;Code postal pas trouv�, s.v.p. le remplir dans param. comptables.; +T18F ;E-mail signataire n'est pas rempli.; +T20F ;Telephone signataire n'est pas rempli.; ; -T0E ;VAT-report ; -T12E ;The path for the VAT-report is not correct.; -T13E ;Could not get unique number for the VAT-report.; -T14E ;The VAT-report is empty; +T0E ;VAT report ; +T12E ;The path for the VAT report is not correct.; +T13E ;Could not get unique number for the VAT report.; +T14E ;The VAT report is empty; T15E ;Could not find the postal code. Please fill in at accounting param.; +T18E ;E-mail Signer was not filled in.; +T20E ;Telephone Signer was not filled in.; ; -1 N XMLFILE,BTWNR,MAND,CTRLREF,SEQNR,NBRCLIENT,NODE,TEST,XMLPATH,B,BTW,TOTAMOUNT,TOTTURNOVER,L,A,BTWO,UI1 +1 N XMLFILE,BTWNR,MAND,CTRLREF,SEQNR,NBRCLIENT,NODE,TEST,XMLPATH,B,BTW,TOTAMOUNT,TOTTURNOVER,L,A,BTWO,UI1,POSTCODE ; S $ZT="TRAP^cAN000" 2 ;------------------------------------------------------------------------------ @@ -65,7 +74,7 @@ G 220 ; ; Nakijk of er klanten gevonden zijn -23 I 'NBRCLIENT S K=$P($T(@("T14"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) G YZ +23 I 'NBRCLIENT S K=$P($T(@("T14"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; ;------------------------------------------------------------------------------ ; Test listing @@ -74,13 +83,20 @@ S TEST=$G(SWTEST) ; 24 S SENDREF=$$SENDREF(KJ) - I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) G YZ + I SENDREF="" S K=$P($T(@("T13"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; KU : 08.01.08 ; niet nodig aangezien Woonpl - ; S POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) - ; I POSTCODE'?4N S K=$P($T(@("T15"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) G YZ + I $G(SWVB) S POSTCODE=$$SIG^cAFA1("Q",Q,302) + I '$G(SWVB) S POSTCODE=$P($G(@("^"_Q_"BA(""%T"",13,""E"",1)")),D,2) + I POSTCODE'?4N S K=$P($T(@("T15"_QT)),U,2),TEMPOK=0 D TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ ; 25 I '$G(SWVB) S B(1)=$G(@("^"_Q_"BTW(0,0)")) I $G(SWVB) S B(1)=TABGEG(1) + ; + ; Nakijken of telefoon is ingevuld + I $P(B(1),D,13)="" S K=$P($T(@("T20"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; Nakijken of e-mail adres is ingevuld + I $P(B(1),D,14)="" S K=$P($T(@("T18"_QT)),U,2),TEMPOK=0 D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G YZ + ; ; opzoeken adresgegevens I $G(SWVB) S IDINDEX=5 G 3 S IDINDEX=4 @@ -97,10 +113,10 @@ 31 I '$G(SWVB) S XMLFILE=@("^"_Q_"BA(""%T"",13,""J"")") I $G(SWVB) S XMLFILE=FILEVB ; Parameter niet ingevuld - I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D TXT^cAFA1(250) G Y + I XMLFILE="" S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Nakijken of het pad bestaat - 26.06.07 S XMLPATH=$P(XMLFILE,D,1,$L(XMLFILE,D)-1) - I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D TXT^cAFA1(250) G Y + I $$TST^cA710(XMLPATH)'=0 S K=$P($T(@("T12"_QT)),U,2) D:'$G(SWVB) TXT^cAFA1(250) S:$G(SWVB) OK="0\"_K G Y ; Bestandsnaam samenstellen I '$G(SWTEST) S XMLFILE=XMLFILE_KJ_".xml" I $G(SWTEST) S XMLFILE=XMLFILE_KJ_"TEST.xml" @@ -110,82 +126,76 @@ S SC=XMLWRITER.StartDocument() D ENDLN D . ; Root element - . S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) - . ; RecipientId - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,3),"VAT-ADMIN") + . ; S SC=XMLWRITER.RootElement($P($T(@("T1")),U,2)) + . S SC=XMLWRITER.RootElement($P($T(@("T16")),U,2)) + . S SC=XMLWRITER.WriteAttribute($P($T(@("T16")),U,3),"1") + . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/ClientListingConsignment") . ; SenderId . S BTWNR=$P(B(1),D,7),BTWNR=$$BTW^cAFO1(BTWNR),BTWNR=$$DP^cAFA1(BTWNR) - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,4),$E(BTWNR,3,999)) . ; ControlRef . S CTRLREF=$TR($J(SENDREF,4)," ","0") - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,5),$E(BTWNR,3,999)_CTRLREF) . ; MandataireId . S MAND=$P(B(1),D,9) - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,6),$E(MAND,1,14)) - . ; SenderDate - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,7),$ZDATE($H,3)) - . ; VersionTech - . S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,8),"1.2") - . ; Test - . I TEST S SC=XMLWRITER.WriteAttribute($P($T(@("T1")),U,9),TEST) - . ; Xml definities - . S SC=XMLWRITER.WriteAttribute("xmlns","http://www.minfin.fgov.be/VatList") - . S SC=XMLWRITER.WriteAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") - . ; S SC=XMLWRITER.WriteAttribute("xsi:schemaLocation","http://www.minfin.fgov.be/VatList file:http://minfin.fgov.be/portail1/fr/vatlist/VatList.xsd") . D ENDLN . ; - . ; AGENTREPR - . S SC=XMLWRITER.Element($P($T(@("T2")),U,2)) + . ; Representative + . S SC=XMLWRITER.Element($P($T(@("T19")),U,2)) D ENDLN . D - .. ; DecNumber - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T2")),U,3),"1") - .. ; - .. ; COMPANY INFO - .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)) D ENDLN - .. D - ... ; VATNum - ... I $$DC^cAFD1(DT)<20100205 S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN - ... I $$DC^cAFD1(DT)'<20100205 S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars(BTWNR),SC=XMLWRITER.EndElement() D ENDLN - ... ; Name - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN - ... ; Street - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN - ... ; CityAndZipCode - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteChars($E($P(B(1),D,IDINDEX),1,30)),SC=XMLWRITER.EndElement() D ENDLN - ... ; Country - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN - .. S SC=XMLWRITER.EndElement() D ENDLN + .. ; VATNum + .. S SC=XMLWRITER.Element($P($T(@("T19")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T19")),U,4),"BE"),SC=XMLWRITER.WriteAttribute($P($T(@("T19")),U,5),"NVAT"),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Name + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Street + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN + .. ; CityAndZipCode + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + .. ; City + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,7)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Country + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + .. ; E-mail + .. S SC=XMLWRITER.Element($P($T(@("T6")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + .. ; Phone + .. S SC=XMLWRITER.Element($P($T(@("T19")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN . S SC=XMLWRITER.EndElement() D ENDLN + . . ; . ; DECLARANTLIST . S SC=XMLWRITER.Element($P($T(@("T3")),U,2)) . D .. ; SequenceNum - .. S SEQNR="00001" + .. S SEQNR="1" .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,2),SEQNR) - .. ; DeclarantNum - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF_SEQNR) .. ; ClientNbr .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,4),NBRCLIENT) + .. ; DeclarantNum + .. ; S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF_SEQNR) + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,3),$E(BTWNR,3,999)_CTRLREF) .. ; TurnOverSum - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,5),$$CENT(TOTTURNOVER)) + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,5),TOTTURNOVER) .. ; TaxSum - .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,6),$$CENT(TOTAMOUNT)) + .. S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,6),TOTAMOUNT) .. D ENDLN .. ; .. ; COMPANY INFO .. S SC=XMLWRITER.Element($P($T(@("T5")),U,2)) D ENDLN .. D ... ; VATNum - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,2)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,3,999)),SC=XMLWRITER.EndElement() D ENDLN ... ; Name - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,3)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,2),1,32)),SC=XMLWRITER.EndElement() D ENDLN ... ; Street - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,4)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E($P(B(1),D,3),1,24)),SC=XMLWRITER.EndElement() D ENDLN ... ; CityAndZipCode - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteChars($E($P(B(1),D,IDINDEX),1,30)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,5)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars(POSTCODE),SC=XMLWRITER.EndElement() D ENDLN + ... ; City + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,7)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($P($P(B(1),D,IDINDEX)," ",2,99)),SC=XMLWRITER.EndElement() D ENDLN ... ; Country - ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($E(BTWNR,1,2)),SC=XMLWRITER.EndElement() D ENDLN + ... ; E-mail + ... S SC=XMLWRITER.Element($P($T(@("T6")),U,8)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($P(B(1),D,14)),SC=XMLWRITER.EndElement() D ENDLN + ... ; Phone + ... S SC=XMLWRITER.Element($P($T(@("T19")),U,6)),SC=XMLWRITER.WriteAttribute("xmlns",$P($T(@("T17")),U,2)),SC=XMLWRITER.WriteChars($$DP^cAFA1($P(B(1),D,13))),SC=XMLWRITER.EndElement() D ENDLN .. S SC=XMLWRITER.EndElement() D ENDLN .. ; .. ; PERIOD @@ -221,17 +231,12 @@ ; CLIENTLIST CLIENTB S SC=XMLWRITER.Element($P($T(@("T8")),U,2)) S SC=XMLWRITER.WriteAttribute($P($T(@("T4")),U,2),TEL) D ENDLN - ; COMPANYINFO - S SC=XMLWRITER.Element($P($T(@("T10")),U,2)) D ENDLN ; VATNum - S SC=XMLWRITER.Element($P($T(@("T10")),U,3)),SC=XMLWRITER.WriteChars($E(BTW,3,999)),SC=XMLWRITER.EndElement() D ENDLN - ; Country - S SC=XMLWRITER.Element($P($T(@("T10")),U,4)),SC=XMLWRITER.WriteChars($E(BTW,1,2)),SC=XMLWRITER.EndElement() D ENDLN - S SC=XMLWRITER.EndElement() D ENDLN - ; Amount - S SC=XMLWRITER.Element($P($T(@("T11")),U,3)),SC=XMLWRITER.WriteChars($$CENT(A(2))),SC=XMLWRITER.EndElement() D ENDLN + S SC=XMLWRITER.Element($P($T(@("T10")),U,3)),SC=XMLWRITER.WriteAttribute($P($T(@("T10")),U,5),$E(BTW,1,2)),SC=XMLWRITER.WriteChars($E(BTW,3,999)),SC=XMLWRITER.EndElement() D ENDLN ; Turnover - S SC=XMLWRITER.Element($P($T(@("T11")),U,5)),SC=XMLWRITER.WriteChars($$CENT(A(1))),SC=XMLWRITER.EndElement() D ENDLN + S SC=XMLWRITER.Element($P($T(@("T11")),U,5)),SC=XMLWRITER.WriteChars(A(1)),SC=XMLWRITER.EndElement() D ENDLN + ; Amount + S SC=XMLWRITER.Element($P($T(@("T11")),U,3)),SC=XMLWRITER.WriteChars(A(2)),SC=XMLWRITER.EndElement() D ENDLN S SC=XMLWRITER.EndElement() D ENDLN I '$G(SWVB) G CLIENTA I $G(SWVB) G CLIENTAB @@ -242,12 +247,6 @@ ENDLN S SC=XMLWRITER.WriteChars($C(13,10)) ENDLNZ Q ; -CENT(EURO) ; Omzetten euro's naar eurocenten - N OUT,DEL - S EURO=$TR(EURO,",",".") - S OUT=EURO*100 -CENTZ Q OUT - ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; SENDREF(JAAR) @@ -263,5 +262,4 @@ L -@("^"_Q_"BA(""%T"",13,""J"")") SENDREFZ Q OUT ; -ZZ ; 26.02.09 - 10 u 24 * V9.05 - +ZZ ; 02.02.10 - 14 u 30 * V9.06 Index: cT9102.mac.rou =================================================================== diff -u -r29059 -r43422 --- cT9102.mac.rou (.../cT9102.mac.rou) (revision 29059) +++ cT9102.mac.rou (.../cT9102.mac.rou) (revision 43422) @@ -141,4 +141,3 @@ S3Z Q ; ZZ ; 08.02.08 - 15 u 00 * V9.00 -