cTN806 ;BTW-listing dotNet; cTN806 ; T1 ;BTW-listing; T2 ;De huidige detaillijnen worden verwijderd.; T3 ;De berekening kan enkel gebeuren indien de status van de BTW-listing 'voorlopig' is.; T4 ;Programma voor berekening niet gevonden.; T5 ;Parameters boekhouding in gebruik.; T6 ;Exporteren niet mogelijk voor voorlopige BTW-listing.; T7 ;Deze BTW-listing werd reeds geëxporteerd.; T8 ;Map of bestandsnaam voor de elektronische aangifte is niet ingevuld.; T9 ;Map voor de elektronische aangifte is niet correct ingevuld.; T10 ;Programma voor export niet gevonden.; T11 ;De BTW-listing werd geëxporteerd naar ;.; T12 ;Berekening niet mogelijk, BTW-nr is niet ingevuld.; ; T1F ;Liste TVA; T2F ;Les détails actuels seront radiés.; T3F ;Le calcul ne peut se faire si le statut de la liste est 'provisoir'.; T4F ;Le programme de calcul n'est pas disponible.; T5F ;Paramètres comptables en usage.; T6F ;L'exportation n'est pas possible pour des listes provisoires.; T7F ;Cette liste est déjà exsportée.; T8F ;Dossier ou nom de fichier pour la déclaration électronique n'est pas rempli.; T9F ;Dossier pour la déclaration électronique n'est pas rempli correctement.; T10F ;Le programme d'exportation n'est pas disponible.; T11F ;La liste de TVA fut exportée vers ;.; T12F ;Calcul impossible, le n° de TVA n'est pas renseigné.; ; T1E ;VAT List; T2E ;The actual detail will be lost.; T3E ;Calculation can only be made if the declaration's status is 'temporary'.; T4E ;Calculation program not found.; T5E ;Settings accounting in use.; T6E ;Export not possible in case of temporary IC Statement.; T7E ;This VAT List was already exported.; T8E ;The path or filename for the electronic VAT List is empty.; T9E ;The path for the electronic VAT List is not correct.; T10E ;Export program not found.; T11E ;The VAT List is exported to ;.; T12E ;Calculation cannot be made, VAT number is missing.; ; YZ Q ; BL(GRIDID,UI1BL,SW,CNTR) ; Berekenen van een BTW-listing ; Input : GRIDID = volgnr van de grid : indien '' : volgnummer ophalen ; UI1BL = UI1 van de BTW-listing ; SW = 0 : detail nog niet gecontroleerd ; 1 : detail reeds gecontroleerd ; CNTR = 0 : BTW-listing berekenen ; 1 : controle ; ; Output: 1 : alles OK ; 0\foutboodschap ; -1\waarschuwing ; S $ZT="^dmERROR" N @$$INITVAR^cAFVBA01("GRIDID,UI1BL,SW,CNTR") ; D QT^cAFVBO01 F i="GRIDID","UI1BL","SW","CNTR" S @i=$G(@i) ; Ophalen GRIDID I '$L(GRIDID) S GRIDID=$$GRIDID^cAFVBF01() S OK=GRIDID ; ; Indien berekenen BTW-listing en dus geen controle I $G(CNTR) G BLC ; Locken van de BTW-listing S UREF=$P($$REF^cAFA10(.Q,"BL"),D) S UREF=$$REPL^cAFA10(UREF,"UI1","UI1BL") S UREFDET=$$REF^cAFA10(.Q,"BL.DET") S IREFDET=$P(UREFDET,D,3) S UREFDET=$P(UREFDET,D) I SW G BLA ; Controleren of er reeds detaillijnen bestaan S UI1=UI1BL_" " I $P($O(@UREFDET)," ")=UI1BL S OK="-1\"_$P($T(@("T2"_QT)),U,2) G BLZ BLA S OK=$$PLUS^cANLOCK($na(@UREF),,$P($T(@("T1"_QT)),U,2),0,2) I 'OK G BLZ ; Testen status I $$SIG^cAFA1("BL",UI1BL,103) S OK="0\"_$P($T(@("T3"_QT)),U,2) G BLY ; Testen of BTW-nr is ingevuld I '$L($$SIG^cAFA1("BL",UI1BL,105)) S OK="0\"_$P($T(@("T12"_QT)),U,2) G BLY ; Ophalen programma's voor uitvoeren berekening BLC S LAND=$$SIG^cAFA1("Q",Q,222) S BP1=$$SIG^cAFA1("BL",UI1BL,101) S BP1=BP1_".01" S PROG=$$PROG(LAND,BP1,$S($G(CNTR):1,1:"")) I PROG="" S OK="0\"_$P($T(@("T4"_QT)),U,2) G BLY ; Uitvoeren programma voor berekenen BTW-listing D @PROG ; Ophalen minimum omzet S MIN=$$SIG^cAFA1("BL",UI1BL,114) S:'MIN MIN=250 I $G(CNTR) G BLF ; Verwijderen bestaande detaillijnen S UI1=UI1BL_" " F S UI1=$O(@UREFDET) Q:$P(UI1," ")'=UI1BL D X^cAN220("BL.DET","",UI1) I K="-" X "STOP" ; Wegschrijven detaillijnen BLD S I1="" BLDA S I1=$O(^mtemp99(GRIDID,"BL",I1)) I I1="" G BLE S BEDR=^(I1) ; Testen of omzet groter is dan 'minimum omzet' I $P(BEDR,D)MIN G BLFB S VNR=$$LNR^cTN803(GRIDID) S UI1=UI1BL_" "_VNR S ^mtemp99(GRIDID,"COMMON",UI1,0)=UI1BL_D_$S(I1="~":"",1:I1)_D_I2_D_$P(UI1," ",2)_D_$P(BEDR,D)_D_$P(BEDR,D)_D_D_$P(BEDR,D,2)_D_$P(BEDR,D,2) G BLFB ; Unlocken van de BTW-listing BLY I '$G(CNTR) L -@UREF K ^mtemp99(GRIDID,"BL") S OK=GRIDID BLZ Q OK ; EXP(UI1BL,SW) ; Exporteren BTW-listing ; Input : UI1BL = UI1 BTW-listing ; SW = 0 : check geëxporteerd ; 1 : geëxporteerd reeds gecontroleerd ; ; Output: 1 : alles OK ; 0\foutboodschap ; -1\waarschuwing ; S $ZT="^dmERROR" N @$$INITVAR^cAFVBA01("UI1BL,SW") S OK=1 ; F i="UI1BL","SW" S @i=$G(@i) ; Locken van de BTW-listing S UREF=$P($$REF^cAFA10(.Q,"BL"),D) S UREF=$$REPL^cAFA10(UREF,"UI1","UI1BL") S OK=$$PLUS^cANLOCK($na(@UREF),,$P($T(@("T1"_QT)),U,2),0,2) I 'OK G EXPZ ; Locken van Parameters boekhouding I '$$LOCK^cANLOCK("^"_Q_"BA(""%T"",13,""J"")","",0,0) S OK="0\"_$P($T(@("T5"_QT)),U,2) G EXPY ; Testen status S STAT=$$SIG^cAFA1("BL",UI1BL,103) I STAT=0 S OK="0\"_$P($T(@("T6"_QT)),U,2) G EXPY ; Controleren of reeds geexporteerd I $G(SW) G EXPA I STAT=2 S OK="-1\"_$P($T(@("T7"_QT)),U,2) G EXPY EXPA ; Ophalen pad + filenaam voor export S I=$$SIG^cAFA1("Q",Q,250)_D_$P(^(1),D,51) ; Testen of pad en filenaam zijn ingevuld I $P(^(1),D,50)=""!($P(^(1),D,51)="") S OK="0\"_$P($T(@("T8"_QT)),U,2) G EXPY ; Testen of pad werd gevonden I $$TST^cA710($P(^(1),D,50)) S OK="0\"_$P($T(@("T9"_QT)),U,2) G EXPY S FILE=$$BEST^cA710(I) ; Ophalen programma's voor uitvoeren export S LAND=$$SIG^cAFA1("Q",Q,222) S BP1=$$SIG^cAFA1("BL",UI1BL,101) S BP1=BP1_".01" S PROG=$$PROG(LAND,BP1,2) I PROG="" S OK="0\"_$P($T(@("T10"_QT)),U,2) G EXPY ; Uitvoeren programma voor export X PROG ; Verzetten satus naar 'geexporteerd' I OK D W^cAN220("BL","",UI1BL,103,2) I K="-" X "STOP" ; Tonen boodschap 'Export goed verlopen' I OK S OK="1\"_$P($T(@("T11"_QT)),U,2)_$TR(FILE,D,"/")_$P($T(@("T11"_QT)),U,3) EXPY L -@UREF L -@("^"_Q_"BA(""%T"",13,""J"")") EXPZ Q OK ; PROG(LAND,BP1,SWSOORT) ; Ophalen programma voor berekenen BTW-listing ; Input: LAND: UI1 uit ISO.LAND ; BP1 : vanaf maand ; SWSOORT: "" = programma berekenen BTW-listing ; 1 = programma controle van de BTW-listing ; 2 = programma exporteren BTW-listing ; Output: naam programma berekenen BTW-listing ; N PROG,UREF,UI1,UI1PROG S $ZT="TRAP^cAN000" S PROG="" S UREF=$P($$REF^cAFA10(.Q,"BL.LAND"),D) S UI1=LAND_" "_($TR(BP1,".","")+1) S UI1=$O(@UREF,-1) I $P(UI1," ")'=LAND G PROGZ I $G(SWSOORT)=1 S PROG=$$SIG^cAFA1("BL.LAND",UI1,104) S:(PROG="") PROG=$$SIG^cAFA1("BL.LAND",UI1,103) G PROGZ I $G(SWSOORT)=2 S PROG=$$SIG^cAFA1("BL.LAND",UI1,106) G PROGZ S PROG=$$SIG^cAFA1("BL.LAND",UI1,103) PROGZ Q PROG ; ZZ ; 16.10.08 - 14 u 11 * V9.04