Factura servicios a Nueva Zelanda

[seccion_31]

gracias por compartir tu lista, vamos a ver:

Empezado por ramherfer

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)
Canarias Ceuta y Melilla Venta de Productos Clave Regimen 02 Exportación, Motivo Exención E2 (Exenta por Art.21)
Canarias Ceuta y Melilla Venta por prestación de servicios Clave Regimen 08 (Operaciones sujetas), Clave Operacion N2 (Art. 69 Operación no sujeta por reglas de localización)

Pais NO UE Venta de Productos y prestación de servicios (asumidos) Clave Regimen 02 Motivo exención E2 (Exenta por Art.21)
Pais NO UE Venta de productos Clave Regimen 02 Exportación, Motivo exención E2 (Exenta por Art.21)
Pais NO UE Venta por prestación de servicios Clave Regimen 08 (Operaciones sujetas) Clave Operacion N2 (Art. 69 Operacion no sujeta por reglas de localización)

Pais UE Venta de Productos y prestación de servicios (asumidos) Clave Regimen 01 Motivo exención E5 (Exenta por Art.25)
Pais UE Venta de productos Clave Regimen 01 General, Motivo exención E5 (Exenta por Art.25)
Pais UE Venta por prestación de servicios Clave Regimen 08 (Operaciones sujetas) Clave Operacion N2 (Art. 69 Operacion no sujeta por reglas de localización)

Motivo de exención y Clave operación son excluyentes no se pueden indicar las dos o se indica motivo de exención o Clave Operación

En rojo, no soportado por automatizacion, pero creo que por el array de exentas se puede manejar. (tampoco se ahora mismo si es correcto)

En negrita, pones originalmente 02 exportacion para UE, cuando creo que son 01 regimen general. (en esta exposicion lo he cambiado): Revisa esto por favor, porque la automatización lo coloca asi, y creo estar seguro.

Saludos !

[ramherfer]

Pais UE Venta de Productos y prestación de servicios (asumidos) Clave Regimen 01 Motivo exención E5 (Exenta por Art.25)
Pais UE Venta de productos Clave Regimen 01 General, Motivo exención E5 (Exenta por Art.25)

Si perdón así es correcto, me confundí al transcribir y como llevo con esto una botifarra mental de narices lo dí por bueno como lo había escrito.
Disculpar por la confusión.

Un saludo,
Ramiro

[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.