Factura servicios a Nueva Zelanda

[ramherfer]

En cuanto le pongo calificación N2 me salta el siguiente aviso



lo transcribo por si no se ve la imagen

Error añadiendo factura FA250176 a la cola de Veri*Factu
Error Tipo exenta, calificación o Transcendencia no validas

Tipo exenta está en blanco ya que son excluyentes si se especifica Calificación no se debe especificar Tipo Exenta.
Corregirme si me equivoco por favor.

Ya no se por donde coger este tema!!

[ramherfer]

He visto este fragmento de codigo en uVerifactuFuncs:

Código Delphi [-]
           if afactura.exenta[j].baseImp<>0 then
           begin
                if not ExisteTipoExenta( afactura.exenta[j].tipoExenta ) then exit;

                if afactura.exenta[j].calificacionOperacion<>'' then
                    if not ExisteCalificacion( afactura.exenta[j].calificacionOperacion) then exit;

                if not ExisteTranscendencia( afactura.exenta[j].claveRegimen ) then exit;
           end;

y creo que modificandolo de la siguiente manera quizás resolvería el problema, dado que repito tipo exenta y calificacion de la operación son excluyentes una y la otra:

Código Delphi [-]
           if afactura.exenta[j].baseImp<>0 then
           begin
                if afactura.exenta[j].tipoExenta<>'' then 
                    if not ExisteTipoExenta( afactura.exenta[j].tipoExenta ) then exit;

                if afactura.exenta[j].calificacionOperacion<>'' then
                    if not ExisteCalificacion( afactura.exenta[j].calificacionOperacion) then exit;

                if not ExisteTranscendencia( afactura.exenta[j].claveRegimen ) then exit;
           end;

No se si debería recompilar la dll, lo he intentado con 10.2 y me da errores por todos los lados.
Un saludo,
Ramiro

[seccion_31]

le doy un vistazo

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

Saludos !

[ramherfer]

Empezado por seccion_31

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

[bmfranky]

Hola, buenas tardes, esto de servicios(asumidos), es el trabajo sobre los materiales usados?.

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.

[ramherfer]

Empezado por bmfranky

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

[bmfranky]

Empezado por ramherfer

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.