Las entradas del servicio intrastat de la UE no se agrupan como se espera en el informe mensual o trimestral y en el archivo scambi.cee exportado en la versión italiana de Microsoft Dynamics NAV

Se aplica a

Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 2009 R2 Microsoft Dynamics NAV 5.0 Service Pack 1

Este artículo se aplica a Microsoft Dynamics NAV para la configuración regional del idioma italiano (it).

Síntomas

Al imprimir y exportar entradas correctivas o no correctivas en la versión italiana de Microsoft Dynamics NAV, los informes y los archivos no se agrupan como se espera en el informe mensual, en el informe trimestral o en el archivo scambi.cee exportado. Se espera que la agrupación se tenga en cuenta si las entradas usan el mismo no de iva. o la misma tarifa de servicio no. u otra condición de agrupación como la agrupación de mercancías.
Este problema se produce en los siguientes productos:

La versión italiana de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
La versión italiana de Microsoft Dynamics NAV 2009 R2
La versión italiana de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Resolución

Información de revisiones

Una revisión compatible ya está disponible en Microsoft. Sin embargo, solo está pensado para corregir el problema que se describe en este artículo. Aplicarlo solo a los sistemas que experimentan este problema específico. Esta revisión puede recibir pruebas adicionales. Por lo tanto, si no se ve afectado gravemente por este problema, le recomendamos que espere al siguiente Service Pack de Microsoft Dynamics NAV 2009 o a la siguiente versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota En casos especiales, los cargos que se incurren normalmente por las llamadas de soporte técnico pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados determina que una actualización específica resolverá el problema. Se aplicarán los costos habituales de soporte técnico a las consultas y cuestiones de soporte técnico adicionales que no guarden relación con la actualización en cuestión.

Información de instalación

Microsoft proporciona ejemplos de programación solo para ilustración, sin garantía expresa o implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad o idoneidad para un propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se usan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos adaptados a sus necesidades específicas.

Nota Antes de instalar esta revisión, verifique que todos los usuarios cliente de Microsoft Navision hayan cerrado sesión en el sistema. Esto incluye a los usuarios cliente de Microsoft Navision Application Services (NAS). Usted debe ser el único usuario del cliente que ha iniciado sesión al implementar esta revisión.

Para implementar esta revisión, debe tener una licencia de desarrollador.

Le recomendamos que la cuenta de usuario en la ventana Inicios de sesión de Windows o en la ventana Inicios de sesión de base de datos tenga asignado el id. de rol "SUPER". Si no se puede asignar a la cuenta de usuario el id. de rol "SUPER", debe comprobar que la cuenta de usuario tiene los permisos siguientes:

El permiso Modificar para el objeto que va a cambiar.
El permiso Execute para el objeto System Object ID 5210 y para el objeto System Object ID 9015.

Nota No es necesario tener derechos sobre los almacenes de datos a menos que tenga que realizar una reparación de datos.

Cambios de código

Nota Pruebe siempre las correcciones de código en un entorno controlado antes de aplicar las correcciones a los equipos de producción.
Para resolver este problema, siga estos pasos:

Busque tabla (12118) y, a continuación, haga clic en Diseño.
En el menú Ver , haga clic en Teclas. A continuación, cambia las teclas siguientes:
- Valor antiguo: No.,Tipo de transacción de IVA,Número de tarifa,Código de grupo,Método de transporte,Especificación de transacción,Código de país de origen,Área,Entrada correctiva,No.
- Nuevo valor: No.,Tipo de transacción de IVA,Número de tarifa,Código de grupo,Método de transporte,Especificación de transacción,Código de país de origen,Área,Entrada correctiva,No.,Tarifa de servicio No.
Agregue la siguiente variable en el informe (501):
- Nombre: IntraJnlLine
- Tipo de datos: registro
- Subtipo: Intrastat Jnl. Línea

Cambie el código en el intrastat Jnl. Line - OnAfterGetRecord desencadenador en el informe (501) como sigue:
Código existente

...
    TESTFIELD("Service Tariff No.");

// Delete the following lines.
  NoOfRecords := NoOfRecords + 1; 
  RoundAmount := ROUND(Amount,1);
  GroupIntraJnlLineIntoBuffer; 
// End of the deleted lines.

  GetPaymentMethod;
 END ELSE BEGIN 
...

Código de reemplazo

...
      TESTFIELD("Service Tariff No.");

// Add the following line.
  GroupIntraJnlLineIntoBuffer;  
// End of the added line.

  GetPaymentMethod;

// Add the following lines.
  IF GetEUIntraJnlLineFromBuffer THEN BEGIN 
   NoOfRecords := NoOfRecords + 1;
   RoundAmount := ROUND("Intra - form Buffer".Amount,1)
  END ELSE 
   CurrReport.SKIP;
// End of the added lines.

  END ELSE BEGIN
...

En C/AL Globals, agregue la siguiente función: GetEUIntraJnlLineFromBuffer
A continuación, haga clic en Local, en la pestaña Valor devuelto, agregue el siguiente tipo de valor devuelto: Tipo de valor devuelto = Booleano

Agregue el código siguiente en la función GetEUIntraJnlLineFromBuffer creada:

"Intra - form Buffer".RESET;
IntraJnlLine.RESET;
"Intra - form Buffer".SETRANGE("VAT Registration No.","Intrastat Jnl. Line"."VAT Registration No.");
"Intra - form Buffer".SETRANGE("Service Tariff No.","Intrastat Jnl. Line"."Service Tariff No.");
"Intra - form Buffer".SETRANGE("Corrective entry","Intrastat Jnl. Line"."Corrective entry");
IF "Intra - form Buffer".FINDFIRST THEN
  IntraJnlLine.SETRANGE("VAT Registration No.","Intra - form Buffer"."VAT Registration No.");
  IntraJnlLine.SETRANGE("Service Tariff No.","Intra - form Buffer"."Service Tariff No.");
  IntraJnlLine.SETRANGE("Corrective entry","Intra - form Buffer"."Corrective entry");
  IF IntraJnlLine.FINDLAST THEN
    IF "Intrastat Jnl. Line"."Line No." = IntraJnlLine."Line No." THEN
      EXIT(TRUE);
    EXIT(FALSE);

Cambie el código en el intrastat Jnl. Line - OnAfterGetRecord desencadenador en informe (502) como sigue:
Código 1 existente

...
   TESTFIELD("Service Tariff No.");

// Delete the following lines.
  NoOfRecords := NoOfRecords + 1; 
  RoundAmount := ROUND(Amount,1);
  GroupIntraJnlLineIntoBuffer;
// End of the deleted lines.
  GetPaymentMethod;
END ELSE BEGIN  
...

Código de reemplazo 1

...
  TESTFIELD("Service Tariff No.");

// Add the following lines.
  GroupIntraJnlLineIntoBuffer;
  GetPaymentMethod;
IF GetEUIntraJnlLineFromBuffer THEN BEGIN 
  NoOfRecords := NoOfRecords + 1;  
  RoundAmount := ROUND("Intra - form Buffer".Amount,1)
END ELSE 
  CurrReport.SKIP; 
// End of the added lines.

END ELSE BEGIN    
...

Código 2 existente

...
  IF "Supplementary Units" THEN
    TESTFIELD(Quantity);

  // Delete the following lines.
  {"Intra - form Buffer".RESET;
  IF "Intra - form Buffer".GET(
    "Intrastat Jnl. Line"."VAT Registration No.","Intrastat Jnl. Line"."Transaction Type",
    "Intrastat Jnl. Line"."Tariff No.",'','','','','',"Intrastat Jnl. Line"."Corrective entry")
  THEN BEGIN
    "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + "Intrastat Jnl. Line".Amount;
    "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
      "Intrastat Jnl. Line"."Source Currency Amount";
    "Intra - form Buffer".MODIFY;
  END ELSE BEGIN
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer"."Group Code":= '';
    "Intra - form Buffer"."Transport Method" := '';
    "Intra - form Buffer"."Transaction Specification" := '';
    "Intra - form Buffer"."Country of Origin Code" := '';
    "Intra - form Buffer".Area := '';
    "Intra - form Buffer"."No." := 0;
    "Intra - form Buffer".INSERT;
  END;}
  // End of the deleted lines.
END;
...

Código de reemplazo 2

...
   IF "Supplementary Units" THEN
    TESTFIELD(Quantity);

// Add the following line.
  GroupIntraJnlLineIntoBuffer;
END;
...

Agregue la siguiente variable global en el informe (502):
- Nombre: IntraJnlLine
- Tipo de datos: registro
- Subtipo: Intrastat Jnl. Línea

Agregue la función GroupIntraJnlLineIntoBuffer y, a continuación, agregue el código siguiente para esta función en el informe (502):


     "Intra - form Buffer".RESET;
        IF "Intra - form Buffer".GET(
          "Intrastat Jnl. Line"."VAT Registration No.","Intrastat Jnl. Line"."Transaction Type",
          "Intrastat Jnl. Line"."Tariff No.",'','','','','',"Intrastat Jnl. Line"."Corrective entry",0,
          "Intrastat Jnl. Line"."Service Tariff No.")
        THEN BEGIN
          "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + "Intrastat Jnl. Line".Amount;
          "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
            "Intrastat Jnl. Line"."Source Currency Amount";
          "Intra - form Buffer".MODIFY;
        END ELSE BEGIN
          "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
          "Intra - form Buffer"."User ID" := USERID;
          "Intra - form Buffer"."Group Code":= '';
          "Intra - form Buffer"."Transport Method" := '';
          "Intra - form Buffer"."Transaction Specification" := '';
          "Intra - form Buffer"."Country of Origin Code" := '';
          "Intra - form Buffer".Area := '';
          "Intra - form Buffer"."No." := 0;
          "Intra - form Buffer".INSERT;
        END;

En el informe Globales de C/AL (502), agregue la siguiente función: GetEUIntraJnlLineFromBuffer
A continuación, haga clic en Local, en la pestaña Valor devuelto, agregue el siguiente tipo de valor devuelto: Tipo de valor devuelto = Booleano

Agregue el código siguiente en la función GetEUIntraJnlLineFromBuffer creada en el informe (502):

        "Intra - form Buffer".RESET;
        IntraJnlLine.RESET;
        "Intra - form Buffer".SETRANGE("VAT Registration No.","Intrastat Jnl. Line"."VAT Registration No.");
        "Intra - form Buffer".SETRANGE("Service Tariff No.","Intrastat Jnl. Line"."Service Tariff No.");
        "Intra - form Buffer".SETRANGE("Corrective entry","Intrastat Jnl. Line"."Corrective entry");
        IF "Intra - form Buffer".FINDFIRST THEN
          IntraJnlLine.SETRANGE("VAT Registration No.","Intra - form Buffer"."VAT Registration No.");
          IntraJnlLine.SETRANGE("Service Tariff No.","Intra - form Buffer"."Service Tariff No.");
          IntraJnlLine.SETRANGE("Corrective entry","Intra - form Buffer"."Corrective entry");
          IF IntraJnlLine.FINDLAST THEN
            IF "Intrastat Jnl. Line"."Line No." = IntraJnlLine."Line No." THEN
              EXIT(TRUE);
        EXIT(FALSE);

Requisitos previos

Debe tener uno de los siguientes productos instalados para aplicar esta revisión:

La versión italiana de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
La versión italiana de Microsoft Dynamics NAV 2009 R2
La versión italiana de Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Información sobre la eliminación

No puede quitar esta revisión.

Estado

Microsoft ha confirmado que se trata de un problema de los productos de Microsoft que se enumeran en la sección "Aplicable a".

Referencias

VSTF DynamicsNAV SE: 237990; 237991

Nota Esto es un artículo "PUBLICACIÓN RÁPIDA" creado directamente desde la organización de soporte técnico de Microsoft. La información contenida se proporciona tal cual en respuesta a nuevos problemas. Como resultado de la rapidez en la publicación, es posible que los materiales incluyan errores tipográficos. Además, se pueden revisar en cualquier momento sin previo aviso. Consulte los Términos de uso para otras consideraciones.