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