Dados inconsistentes entre as entradas contábeis de serviço e a contabilidade geral quando você altera uma fatura de contrato de serviço antes do lançamento no Microsoft Dynamics NAV 2009

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:

1. Altere o código na tabela de dimensão do documento (357) da seguinte forma:
   1 de código existente

   ...      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]);
   ...
   
   

   1 código de substituição

   ...      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]);
   ...
   
   

   2 de código existente

   ...    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 de linha de serviço (5902) da seguinte forma:
   1 de código existente

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

   1 código de substituição

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

   2 de código existente

   ...    { 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;
   ...
   
   

   3 de código existente

   ...    { 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);
   ...
   
   

   4 de código existente

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

   5 de código existente

   ...      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.';
   ...