Los movimientos de corrección no están agrupados en el informe mensual o en informe trimestral como se esperaba al imprimir y exportar las entradas de la versión italiana de Microsoft Dynamics NAV


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

Síntomas


Al imprimir y exportar los movimientos de corrección que están relacionados con las mercancías (sin servicio) en la versión italiana de Microsoft Dynamics NAV, los informes y los archivos no se agrupan en informe mensual o trimestral informe como se esperaba.
Este problema se produce en los siguientes productos:
  • La versión italiana del Service Pack 1 (SP1) de Microsoft Dynamics NAV 2009
  • La versión italiana de Microsoft Dynamics NAV 2009 R2
  • La versión italiana del Service Pack 1 (SP1) de Microsoft Dynamics NAV 5.0

Solución


Información de la revisión

Ahora hay una revisión compatible de Microsoft. Sin embargo, sólo se diseñó para corregir el problema que se describe en este artículo. Aplíquela sólo a sistemas que experimenten este problema específico. Esta revisión puede ser sometida a comprobaciones adicionales. Por lo tanto, si no se ve muy afectado por este problema, recomendamos que espere al próximo service pack de Microsoft Dynamics NAV 2009 o la próxima versión de Microsoft Dynamics NAV que contenga esta revisión.

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



Información sobre la instalación

Microsoft proporciona ejemplos de programación únicamente con fines ilustrativos, sin ninguna garantía expresa o implícita. Esto incluye, pero no se limita, a las garantías implícitas de comerciabilidad o idoneidad para un propósito particular. Este artículo asume que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan 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 que cumplan sus requisitos específicos.

Nota: Antes de instalar este hotfix, compruebe que todos los usuarios del cliente Microsoft Navision han salido del sistema. Esto incluye a los usuarios del cliente Microsoft Navision Application Services (NAS). Debe ser el único usuario del cliente conectado cuando implemente este hotfix.

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

Recomendamos que la cuenta de usuario en la ventana Conexiones Windows o en la ventana Conexiones base de datos se asigne el identificador de rol "SUPER". Si la cuenta de usuario no se puede asignar el identificador de rol "SUPER", debe comprobar que la cuenta de usuario tiene los permisos siguientes:
  • El permiso de modificación para el objeto que se va a cambiar.
  • El permiso de ejecución para el objeto System Object ID 5210 y System Object ID 9015 del objeto.


Nota: No es necesario tener derechos para los almacenes de datos a menos que deba realizar reparaciones de datos.

Cambios de código

Nota: Siempre pruebe correcciones de código en un entorno controlado antes de aplicar las revisiones a los equipos de producción.
Para resolver este problema, siga estos pasos:
  1. Cambie el código del disparador OnAfterGetRecord en la Línea del diario Intrastat en el informe (501) como sigue:
    Código existente 1
    ...        SupplUnits := "Intrastat Jnl. Line".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"."Group Code","Intrastat Jnl. Line"."Transport Method",
    "Intrastat Jnl. Line"."Transaction Specification",CountryOriginCode,"Intrastat Jnl. Line".Area,
    "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"."Total Weight" := "Intra - form Buffer"."Total Weight" + "Intrastat Jnl. Line"."Total Weight";
    "Intra - form Buffer"."Statistical Value" := "Intra - form Buffer"."Statistical Value" +
    "Intrastat Jnl. Line"."Statistical Value";
    "Intra - form Buffer".Quantity := "Intra - form Buffer".Quantity + SupplUnits;
    "Intra - form Buffer".MODIFY;
    END ELSE BEGIN
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer"."Country of Origin Code" := CountryOriginCode;
    "Intra - form Buffer".Quantity := SupplUnits;
    "Intra - form Buffer"."No." := 0;
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer".INSERT;
    END; }
    // End of the deleted lines.

    END ELSE BEGIN // Corrective Entry
    ...
    Código nuevo 1
    ...  SupplUnits := "Intrastat Jnl. Line".Quantity;

    END ELSE BEGIN // Corrective Entry
    ...
    Código existente 2
    ...       LineNo := LineNo +1;

    // Delete the following lines.
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer"."Country of Origin Code" := CountryOriginCode;
    "Intra - form Buffer".Quantity := SupplUnits;
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer"."No." := LineNo;
    "Intra - form Buffer".INSERT;
    END
    // End of the deleted lines.

    END;
    ...
    Código nuevo 2
    ...     LineNo := LineNo +1;

    // Add the following lines.
    END;
    GroupIntraJnlLineIntoBuffer;
    // End of the added lines.

    END;
    ...
  2. En el informe (501), haga clic en Ver en el menú, en C/AL Globals, agregue la función siguiente en la ficha función: GroupIntraJnlLineIntoBuffer. A continuación, agregue el código en la función GroupIntraJnlLineIntoBuffer creada como sigue:
    "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"."Group Code","Intrastat Jnl. Line"."Transport Method",
    "Intrastat Jnl. Line"."Transaction Specification",CountryOriginCode,"Intrastat Jnl. Line".Area,
    "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"."Total Weight" := "Intra - form Buffer"."Total Weight" + "Intrastat Jnl. Line"."Total Weight";
    "Intra - form Buffer"."Statistical Value" := "Intra - form Buffer"."Statistical Value" +
    "Intrastat Jnl. Line"."Statistical Value";
    "Intra - form Buffer".Quantity := "Intra - form Buffer".Quantity + SupplUnits;
    "Intra - form Buffer".MODIFY;
    END ELSE BEGIN
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer"."Country of Origin Code" := CountryOriginCode;
    "Intra - form Buffer".Quantity := SupplUnits;
    "Intra - form Buffer"."No." := 0;
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer".INSERT;
    END;

  3. Cambie el código del disparador OnAfterGetRecord en la Línea del diario Intrastat en el informe (593) como sigue:
    Código existente 1
    ...     SupplUnits := "Intrastat Jnl. Line".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"."Group Code", "Intrastat Jnl. Line"."Transport Method",
    "Intrastat Jnl. Line"."Transaction Specification", CountryOriginCode,
    "Intrastat Jnl. Line".Area,"Intrastat Jnl. Line"."Corrective entry")
    THEN BEGIN
    //"Intra - form Buffer".Amount := "Intra - form Buffer".Amount + "Intrastat Jnl. Line".Amount;//old line
    "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + ROUND("Intrastat Jnl. Line".Amount,1);//new line
    "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
    "Intrastat Jnl. Line"."Source Currency Amount";
    "Intra - form Buffer"."Total Weight" := "Intra - form Buffer"."Total Weight" + "Intrastat Jnl. Line"."Total Weight";
    "Intra - form Buffer"."Statistical Value" := "Intra - form Buffer"."Statistical Value" +
    //"Intrastat Jnl. Line"."Statistical Value"; //old line
    ROUND("Intrastat Jnl. Line"."Statistical Value",1); //new line
    "Intra - form Buffer".Quantity := "Intra - form Buffer".Quantity + SupplUnits;
    "Intra - form Buffer".MODIFY;
    //TotalAmount += ABS(ROUND(Amount,1));//old line
    TotalAmount += ROUND(Amount,1); //new line
    END ELSE BEGIN
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer".Amount := ROUND("Intra - form Buffer".Amount,1);//new line
    "Intra - form Buffer"."Statistical Value" := ROUND("Intra - form Buffer"."Statistical Value",1); //new line
    "Intra - form Buffer"."Country of Origin Code" := CountryOriginCode;
    "Intra - form Buffer".Quantity := SupplUnits;
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer"."No." := 0;
    "Intra - form Buffer".INSERT;
    //TotalAmount += ABS(ROUND(Amount,1));//old line
    TotalAmount += ROUND(Amount,1); //new line
    TotalRecords += 1;
    END;}
    // End of the deleted lines.

    END ELSE BEGIN //Corrective E ntry
    IF STRLEN("Reference Period") <> 4 THEN
    ...
    Código nuevo 1
    ...      SupplUnits := "Intrastat Jnl. Line".Quantity;
    END ELSE BEGIN //Corrective Entry
    IF STRLEN("Reference Period") <> 4 THEN
    ...
    Código existente 2
    ...     CheckCorrectiveStatPeriod;

    // Delete the following lines.
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer".Amount := ROUND("Intra - form Buffer".Amount,1);//new line
    "Intra - form Buffer"."Statistical Value" := ROUND("Intra - form Buffer"."Statistical Value",1);
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer".INSERT;
    TotalAmount += ROUND(Amount,1);
    TotalRecords += 1;
    OldReferencePeriod := "Reference Period";
    //END
    // End of the deleted lines.

    END;
    ...
    Código nuevo 2
    ...    CheckCorrectiveStatPeriod;

    // Add the following lines.
    END;
    GroupIntraJnlLineIntoBuffer;
    // End of the added lines.

    END;
    ...
  4. En el informe, (593), haga clic en Ver en el menú, en C/AL Globals, agregue la función siguiente en la ficha función: GroupIntraJnlLineIntoBuffer. A continuación, agregue el código en la función GroupIntraJnlLineIntoBuffer creada como sigue:
    "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"."Group Code", "Intrastat Jnl. Line"."Transport Method",
    "Intrastat Jnl. Line"."Transaction Specification", CountryOriginCode,
    "Intrastat Jnl. Line".Area,"Intrastat Jnl. Line"."Corrective entry",0,"Intrastat Jnl. Line"."Service Tariff No.")
    THEN BEGIN
    "Intra - form Buffer".Amount := "Intra - form Buffer".Amount + ROUND("Intrastat Jnl. Line".Amount,1);
    "Intra - form Buffer"."Source Currency Amount" := "Intra - form Buffer"."Source Currency Amount" +
    "Intrastat Jnl. Line"."Source Currency Amount";
    "Intra - form Buffer"."Total Weight" := "Intra - form Buffer"."Total Weight" + "Intrastat Jnl. Line"."Total Weight";
    "Intra - form Buffer"."Statistical Value" := "Intra - form Buffer"."Statistical Value" +
    ROUND("Intrastat Jnl. Line"."Statistical Value",1);
    "Intra - form Buffer".Quantity := "Intra - form Buffer".Quantity + SupplUnits;
    "Intra - form Buffer".MODIFY;
    TotalAmount +=ROUND("Intrastat Jnl. Line".Amount,1);
    END ELSE BEGIN
    "Intra - form Buffer".TRANSFERFIELDS("Intrastat Jnl. Line");
    "Intra - form Buffer"."Country of Origin Code" := CountryOriginCode;
    "Intra - form Buffer".Amount := ROUND("Intra - form Buffer".Amount,1);
    "Intra - form Buffer"."Statistical Value" := ROUND("Intra - form Buffer"."Statistical Value",1);
    "Intra - form Buffer".Quantity := SupplUnits;
    "Intra - form Buffer"."User ID" := USERID;
    "Intra - form Buffer"."No." := 0;
    "Intra - form Buffer".INSERT;
    TotalAmount += ROUND("Intrastat Jnl. Line".Amount,1);
    TotalRecords += 1;
    END;


Requisitos previos

Debe tener uno de los siguientes productos instalados para aplicar esta revisión:
  • La versión italiana del Service Pack 1 (SP1) de Microsoft Dynamics NAV 2009
  • La versión italiana de Microsoft Dynamics NAV 2009 R2
  • La versión italiana del Service Pack 1 (SP1) de Microsoft Dynamics NAV 5.0


Información de eliminación

No se puede quitar este hotfix.

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


DynamicsNAV VSTF SE: 237988, 237989
Nota: Es un artículo "Publicación rápida" creado directamente desde dentro de la organización de soporte técnico de Microsoft. La información contenida en este documento se proporciona como está en respuesta a nuevos problemas. Como consecuencia de la velocidad en la puesta a disposición, los materiales pueden incluir errores tipográficos y podrán revisarse en cualquier momento sin previo aviso. Para obtener información adicional, consulte Condiciones de uso.