Dados inconsistentes entre movimentos de serviço e de contabilidade geral quando altera uma factura de contrato de serviço antes de registar no Microsoft Dynamics NAV 2009

Modelo: CPR - modelo de correcção de código do Navision

BUGS #: 201568 (Manutenção do conteúdo)

Este artigo aplica-se para o Microsoft Dynamics NAV para todos os países e todos os idiomas.

Sintomas

Quando criar um contrato de serviço (não pré-pago) e alterar a factura antes de registar no Microsoft Dynamics NAV 2009, não existe dados inconsistentes entre movimentos de serviço e de contabilidade geral. Este problema ocorre nos seguintes produtos:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

Resolução

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Se esta correcção não está registada para transferência pública (ou seja, que um URL público para esta correcção não é fornecido neste artigo), a distribuição requer responsável técnico, o membro da equipa de escalamento ou aprovação do gestor e aplicam as seguintes informações:

  • Para receber a correcção, os clientes tem de estar a ocorrer o erro mencionada na secção "Sintomas".

  • Terá de controlar os clientes, esta opção para enviar e fornecer-lhes o próximo service pack quando se tornar disponível (se é lançado um service pack).

Esta correcção está agendada para ser incluída no Microsoft Dynamics NAV 2013.


Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objecto que estará a alterar.

  • A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .



Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:

  1. Altere o código na tabela documento dimensão (357) do seguinte modo:
    Código existente 1

    ...      Text005@1009 : TextConst 'ENU=Canceled.';
    Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
    ...

    Código de substituição 1

    ...      Text005@1009 : TextConst 'ENU=Canceled.';
    Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';
    Text007@1011 : TextConst 'ENU=You cannot change the dimension because the document is based on a service contract.';

    PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
    ...

    Código existente 2

    ...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
    SalesLine@1001 : Record 37;
    PurchaseLine@1002 : Record 39;
    BEGIN
    CASE "Table ID" OF
    DATABASE::"Sales Line":
    BEGIN
    IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
    IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Purchase Line":
    BEGIN
    IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

    IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    END;
    END;
    ...

    Código de substituição 2

    ...    PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
    VAR
    SalesLine@1001 : Record 37;
    PurchaseLine@1002 : Record 39;
    ServiceHeader@1003 : Record 5900;
    ServiceLine@1004 : Record 5902;
    BEGIN
    CASE "Table ID" OF
    DATABASE::"Sales Line":
    BEGIN
    IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
    IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Purchase Line":
    BEGIN
    IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN

    IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
    ERROR(Text005)
    END;
    DATABASE::"Service Header":
    IF ServiceHeader.GET(DocDim."Document Type",DocDim."Document No.") AND (ServiceHeader."Contract No." <> '') THEN
    ERROR(Text007);
    DATABASE::"Service Line":
    IF ServiceLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
    IF (ServiceLine."Contract No." <> '') THEN
    ERROR(Text007);
    END;
    END;
    ...

  2. Altere o código na tabela Linha Serviço (5902) do seguinte modo:
    Código existente 1

    ...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
    (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
    ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
    ("Spare Part Action" = "Spare Part Action"::" "))
    THEN
    ReserveServLine.VerifyChange(Rec,xRec);
    END;

    OnDelete=VAR
    ...

    Código de substituição 1

    ...               IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
    (("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
    ("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
    ("Spare Part Action" = "Spare Part Action"::" "))
    THEN
    ReserveServLine.VerifyChange(Rec,xRec);
    IF "Document Type" = ServiceLine."Document Type"::Invoice THEN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);
    END;

    OnDelete=VAR
    ...

    Código existente 2

    ...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN



    GetServHeader;

    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Código de substituição 2

    ...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);

    GetServHeader;
    ...

    Código existente 3

    ...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
    ELSE IF (Type=CONST(G/L Account)) "G/L Account"
    ELSE IF (Type=CONST(Item)) Item
    ELSE IF (Type=CONST(Resource)) Resource
    ELSE IF (Type=CONST(Cost)) "Service Cost";
    OnValidate=VAR
    ShowLocMessage@1000 : Boolean;
    BEGIN
    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Código de substituição 3

    ...    { 6   ;   ;No.                 ;Code20        ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
    ELSE IF (Type=CONST(G/L Account)) "G/L Account"
    ELSE IF (Type=CONST(Item)) Item
    ELSE IF (Type=CONST(Resource)) Resource
    ELSE IF (Type=CONST(Cost)) "Service Cost";
    OnValidate=VAR
    ShowLocMessage@1000 : Boolean;
    BEGIN
    IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
    ERROR(Text046);

    TESTFIELD("Qty. Shipped Not Invoiced",0);
    ...

    Código existente 4

    ...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
    GetServHeader;


    IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
    ...

    Código de substituição 4

    ...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
    GetServHeader;
    IF ("Appl.-to Service Entry" > 0) AND (CurrFieldNo <> 0) THEN
    ERROR(Text046,FIELDCAPTION("Unit Price"));
    IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
    ...

    Código existente 5

    ...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
    Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
    Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
    ...

    Código de substituição 5

    ...      Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
    Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
    Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
    Text046@1100 : TextConst 'ENU=You cannot modify the document because it is based on a service contract.';
    ...

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1

Informações de remoção

Não é possível remover esta correcção.

Estado

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".

Referências

VSFT DynamicsNAVSE: 296800, 305849

Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .

Autor: andregu
Writer: v-brialu
Revisor técnico: andregu
Editor:

Precisa de mais ajuda?

Aumente os seus conhecimentos
Explore as formações
Seja o primeiro a obter novas funcionalidades
Aderir ao Microsoft insiders

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×