Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > SDK Componente Verifactu para Delphi 7+ - Subforo Avisos/consultas
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-11-2025
Avatar de ramherfer
ramherfer ramherfer is offline
Miembro
 
Registrado: may 2013
Ubicación: Valencia
Posts: 162
Poder: 14
ramherfer Va por buen camino
Cita:
Empezado por seccion_31 Ver Mensaje
le doy un vistazo

pero pasame el codigo de tu programa que carga el array con los valores para probarlo bien.

Saludos !
Claro sin problemas:

Código Delphi [-]
        while not QFrasIva.Eof do
        begin

            dTotalIva := QFrasIva.FieldByName('IMPORTE_IVA').AsFloat +
                         QFrasIva.FieldByName('IMPORTE_RECARGO').AsFloat;

            // Añadir IVA si hay base imponible o si la cuota total es 0
            if QFrasIva.FieldByName('BASE_IMPONIBLE').AsFloat <> 0 then begin

                  // Caso: motivo exencion
                  // (N2: no sujeta por reglas de localización, salvo que exista motivo de exención)
                  if dTotalIva = 0 then begin

                        if QFrasIva.FieldByName('MOTIVO_EXENCION').AsString <> '' then begin

                            sMotivoExencion    := QFrasIva.FieldByName('MOTIVO_EXENCION').AsString;
                            sCalificaOperacion := '';

                        end else begin

                            sMotivoExencion    := '';
                            sCalificaOperacion := 'N2'; // NO SUJETA POR REGLAS DE LOCALIZACIÓN

                        end;

                        actual.exenta[index].tipoExenta            := sMotivoExencion;
                        actual.exenta[index].claveRegimen          := QRegSif.FieldByName('AEAT_CLAVE_REGIMEN').AsString;
                        actual.exenta[index].calificacionOperacion := sCalificaOperacion;
                        actual.exenta[index].baseImp               := value(QFrasIva.FieldByName('BASE_IMPONIBLE').AsString);

                        Inc(actual.nexentas);
                  end
                  // Caso: con IVA (total distinto de 0) y no exento
                  else if dTotalIva <> 0 then begin

                        // Asignar valores al array de IVA
                        actual.iva[index].baseImp := value(QFrasIva.FieldByName('BASE_IMPONIBLE').AsString);
                        actual.iva[index].iva     := value(QFrasIva.FieldByName('PORCENTAJE_IVA').AsString);
                        actual.iva[index].impiva  := value(QFrasIva.FieldByName('IMPORTE_IVA').AsString);

                        if QFrasIva.FieldByName('IMPORTE_RECARGO').AsFloat <> 0 then
                        begin
                          actual.iva[index].req    := value(QFrasIva.FieldByName('PORCENTAJE_RECARGO').AsString);
                          actual.iva[index].impreq := value(QFrasIva.FieldByName('IMPORTE_RECARGO').AsString);
                        end
                        else
                        begin
                          actual.iva[index].req    := value('0');
                          actual.iva[index].impreq := value('0');
                        end;

                        cuota := cuota + dTotalIva;

                        Inc(actual.nivas);

                  end;

            end;

            Inc(index);
            QFrasIva.Next;

        end; // while registros de IVA

Gracias.
Un saludo,
Ramiro
__________________
Se humilde para admitir tus errores, inteligente para aprender de ellos y maduro para corregirlos.
Responder Con Cita
  #2  
Antiguo 21-11-2025
Avatar de bmfranky
bmfranky bmfranky is offline
Miembro
 
Registrado: may 2024
Ubicación: Gandia, Valencia
Posts: 870
Poder: 3
bmfranky Va por buen camino
Hola, buenas tardes, esto de servicios(asumidos), es el trabajo sobre los materiales usados?.
Cita:
Canarias Ceuta y Melilla Venta de Productos y prestación de servicios (asumidos) Clave Regimen 02 Exportación, Motivo Exención E2 (Exenta por Art.21)
Por ejemplo , el cliente canario, me envía un cilindro para rectificar.
Por un lado estaría el pistón a acoplar y por otro la mano de obra de acoplarlo.
Entonces el pistón y la mano de obra de rectificar, se pondrían de esta forma?? y los portes, también?
Perdonad como siempre las preguntas tontas, es que estoy enganchado en ello desde hace un par de días.
__________________
Uno se alegra de ser útil. (Isaac Asimov)
Responder Con Cita
  #3  
Antiguo 21-11-2025
Avatar de ramherfer
ramherfer ramherfer is offline
Miembro
 
Registrado: may 2013
Ubicación: Valencia
Posts: 162
Poder: 14
ramherfer Va por buen camino
Cita:
Empezado por bmfranky Ver Mensaje
Hola, buenas tardes, esto de servicios(asumidos), es el trabajo sobre los materiales usados?.

Por ejemplo , el cliente canario, me envía un cilindro para rectificar.
Por un lado estaría el pistón a acoplar y por otro la mano de obra de acoplarlo.
Entonces el pistón y la mano de obra de rectificar, se pondrían de esta forma?? y los portes, también?
Perdonad como siempre las preguntas tontas, es que estoy enganchado en ello desde hace un par de días.
Exactamente 02/E2

Ahora si solo le facturas servicio (según he leido por ahí, que me ha inflao) 08/N2

El tema de portes no lo tengo tan claro. Imagino que estarán exentos de iva bien por el Art.21 (E2) o por motivos de localización (N2) en cualquiera de los dos casos el iva no lo puedes cobrar (creo), por favor corregirme si me equivoco.

Un saludo,
Ramiro
__________________
Se humilde para admitir tus errores, inteligente para aprender de ellos y maduro para corregirlos.
Responder Con Cita
  #4  
Antiguo 21-11-2025
Avatar de bmfranky
bmfranky bmfranky is offline
Miembro
 
Registrado: may 2024
Ubicación: Gandia, Valencia
Posts: 870
Poder: 3
bmfranky Va por buen camino
Cita:
Empezado por ramherfer Ver Mensaje
Exactamente 02/E2

Ahora si solo le facturas servicio (según he leido por ahí, que me ha inflao) 08/N2

El tema de portes no lo tengo tan claro. Imagino que estarán exentos de iva bien por el Art.21 (E2) o por motivos de localización (N2) en cualquiera de los dos casos el iva no lo puedes cobrar (creo), por favor corregirme si me equivoco.

Un saludo,
Ramiro
Gracias Ramiro, esa es la cuestión que yo tampoco lo se, un saludo.
__________________
Uno se alegra de ser útil. (Isaac Asimov)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Paso de factura simplificada a factura convencional Decanato General/Noticias 15 26-08-2025 20:25:19
Respuesta Factura/Factura simplificada newtron Envío de registros y sus respuestas 2 29-01-2025 13:36:47
Factura abono de factura con descuentos josejava Registros de Facturacion y Eventos (XML) 10 21-12-2024 15:15:08
Duda a verifactu sobre factura compatibilidad de factura sustittuiva en facturae ermendalenda Registros de Facturacion y Eventos (XML) 3 05-11-2024 17:37:24
Nueva Zelanda prohibe las patentes de software identsoft Noticias 10 05-09-2013 18:47:21


La franja horaria es GMT +2. Ahora son las 01:03:52.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi