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