Nekonzistentné údaje položiek medzi financie pri zmene servisnej zmluvy faktúry pred odoslaním v Microsoft Dynamics NAV 2009

Informácie o rýchlej oprave

Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.

Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.

Zmeny kódu

Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:

1. Zmena kódu v tabuľke Dimenzia dokladu (357):
   Nahradenie kód 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]);
   ...
   
   

   Nahradenie kód 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]);
   ...
   
   

   Existujúci kód 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;
   ...
   
   

   Nahradenie kód 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. Zmena kódu v tabuľke Riadok (5902):
   Nahradenie kód 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
   ...
   
   

   Nahradenie kód 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
   ...
   
   

   Existujúci kód 2

   ...    { 5   ;   ;Type                ;Option        ;OnValidate=BEGIN
   
   
   
                                                                   GetServHeader;
   
                                                                   TESTFIELD("Qty. Shipped Not Invoiced",0);
   ...
   
   

   Nahradenie kód 2

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

   Existujúci kód 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);
   ...
   
   

   Nahradenie kód 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);
   ...
   
   

   Existujúci kód 4

   ...    { 22  ;   ;Unit Price          ;Decimal       ;OnValidate=BEGIN
                                                                   GetServHeader;
   
   
                                                                   IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
   ...
   
   

   Nahradenie kód 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
   ...
   
   

   Existujúci kód 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.';
   ...
   
   

   Nahradenie kód 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.';
   ...