Mesaj de eroare "Zecimal nu trebuie să fie [number]" atunci când importați sau exportați consolidare utilizând un număr de cont consolidare care conține 17 sau mai multe caractere în Microsoft Dynamics NAV 2009

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV 2009 sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Modificări de cod

Notă Întotdeauna test cod remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.
Pentru a rezolva această problemă, urmați acești pași:

1. Modificați codul din funcția CalcCheckSum în codeunit consolidare (432) după cum urmează:
   Cod existent

   ...DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
             TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
           SubsidGLAcc.RESET;
           IF SubsidGLAcc.FIND('-') THEN
             REPEAT
   
   // Delete the following lines.
             CheckSum := CheckSum +
                TextToDecimal(SubsidGLAcc."No.") + TextToDecimal(SubsidGLAcc."Consol. Debit Acc.") +
                TextToDecimal(SubsidGLAcc."Consol. Credit Acc.");
   // End of the deleted lines.
   
             UNTIL SubsidGLAcc.NEXT = 0;
           SubsidGLEntry.RESET;
           IF SubsidGLEntry.FIND('-') THEN
             REPEAT
               CheckSum := CheckSum +
   ...
   

   Cod de înlocuire

   ...DateToDecimal(StartingDate) + DateToDecimal(EndingDate) +
             TextToDecimal(FormatVersion) + TextToDecimal(ProductVersion);
           SubsidGLAcc.RESET;
           IF SubsidGLAcc.FIND('-') THEN
             REPEAT
   
   // Add the following lines.
              CheckSum :=
                CheckSum +
                TextToDecimal(COPYSTR(SubsidGLAcc."No.",1,10)) + TextToDecimal(COPYSTR(SubsidGLAcc."No.",11,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",1,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Debit Acc.",11,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",1,10)) +
                TextToDecimal(COPYSTR(SubsidGLAcc."Consol. Credit Acc.",11,10)) ;
   // End of the added lines.
   
             UNTIL SubsidGLAcc.NEXT = 0;
           SubsidGLEntry.RESET;
           IF SubsidGLEntry.FIND('-') THEN
             REPEAT
               CheckSum := CheckSum +
   ...
   

2. Modificați codul din funcția TextToDecimal în codeunit consolidare (432) după cum urmează:
   Cod existent

   ...IF Txt[Idx] IN ['0','1','2','3','4','5','6','7','8','9'] THEN
               DecOnlyTxt := DecOnlyTxt + COPYSTR(Txt,Idx,1);
           IF DecOnlyTxt = '' THEN
             Result := 0
           ELSE
   
   // Delete the following line.
            EVALUATE(Result,DecOnlyTxt);   
   // End of the deleted line.
   
         END;
   
         LOCAL PROCEDURE DateToDecimal@25(Dt@1000 : Date) Result : Decimal;
         VAR
           Mon@1001 : Decimal;
   ...
   

   Cod de înlocuire

   ...IF Txt[Idx] IN ['0','1','2','3','4','5','6','7','8','9'] THEN
               DecOnlyTxt := DecOnlyTxt + COPYSTR(Txt,Idx,1);
           IF DecOnlyTxt = '' THEN
             Result := 0
           ELSE
   
   // Add the following line.
            EVALUATE(Result,DecOnlyTxt);
   // End of the added line.
   
         END;
   
         LOCAL PROCEDURE DateToDecimal@25(Dt@1000 : Date) Result : Decimal;
         VAR
           Mon@1001 : Decimal;
   ...