DamePorcentajeIVA

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:28 PM por David Miralpeix


Libreria

Clase

Metodo

AhoraRutinas

Rutinas

DamePorcentajeIVA


Implementación:


 Public Function DamePorcentajeIVA (aIdIva As Integer) As Double 


Descripción:


Devuelve el valor porcentaje de Iva para el tipo de Iva especificado como parámetro aIdIva, Se almacenan en la tabla "Ivas" de la base de datos, cuyo contenido es similar al mostrado:


IdIVA

Descrip

Porcentaje

0

IVA 21% - GENERAL

21

1

IVA 10% - REDUCIDO

10

2

IVA 4% - SUPER REDUCIDO

4

3

EXENTO DE IVA

0

5

IVA ADUANA

21

6

IVA RECUPERACIÓN

0

7

IVA 12% - AGRARIO

12


Ejemplo de uso:


 Dim lTotal    As Double
 Dim lLinea    As Double
 Dim lRs       As IRecordset
 Dim lRet      As Variant
  
 Set lRs = gCn.OpenResultset("SELECT * FROM Seguimiento WHERE IdParte=1")
 Do While Not lRs.EOF
   lLinea = lRs!CosteCantEuros.Value * !Cantidad.Value
   lLinea = lLinea - ((lLinea * lRs!Descuento.Value) / 100)
   lLinea = lLinea + (lLinea * gCn.AhoraProceso("DamePorcentajeIVA",
                                            lRet, lRs!Iva.Value) / 100)
   lTotal = lTotal + lLinea
   lRs.MoveNext
 Loop 


¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo