Greșit "nu registrelor" dacă 0 valoarea facturi se bazează tot în versiunea spaniolă de 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ă.

Informaţii despre instalare

Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau de potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri. Cu toate acestea, nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară construi proceduri pentru a răspunde cerințelor dvs. specifice.

Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii de client Microsoft Dynamics NAV sunt log off sistemul. Aceasta include servicii Microsoft Dynamics NAV Application Server (NAS). Ar trebui să fie singurul client utilizatorului care este conectat când implementați această remediere rapidă.

Pentru a implementa această remediere rapidă, trebuie să aveți o licență de dezvoltare.

Vă recomandăm că contul de utilizator în fereastra Conectări Windows sau în fereastra Conectări bază de date se atribuie "SUPER" rolul ID-ul. În cazul în care contul de utilizator nu poate fi atribuit ID-ul "SUPER" rolul, trebuie să verificați că contul de utilizator are următoarele permisiuni:

• Modify permisiunea pentru obiectul care se va schimba.

• Permisiunea de executare pentru obiectul sistem obiect ID 5210 și sistem obiect ID 9015
  
  obiect.

Notă Nu trebuie să aveți drepturi de la magazine de date decât dacă trebuie să efectuați o reparare de date.

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 CalcTotals function din raportul face 340 declarație (10743) după cum urmează:
   Cod existent 1

   ...VAR
         VATEntry6@1100000 : Record 254;
         VATEntry7@1100002 : Record 254;
       BEGIN
         VATEntryTemporary.DELETEALL;
         VATEntry6.RESET;
   ...
   

   Înlocuirea cod 1

   ...VAR
         VATEntry6@1100000 : Record 254;
         VATEntry7@1100002 : Record 254;
   
   // Add the following line.
   TempUnrealVATBuffer@1100001 : TEMPORARY Record 10704;
   // End of the added line.
   
       BEGIN
         VATEntryTemporary.DELETEALL;
         VATEntry6.RESET;
   ...
   

   Cod existent 2

   ...VATEntry7.SETRANGE(VATEntry7.Type,VATEntryTemporary.Type);
           IF VATEntry7.FINDFIRST THEN
             VATBuffer.DELETEALL;
             REPEAT
               VATBuffer."VAT %" := VATEntry7."VAT %";
               VATBuffer."EC %" := VATEntry7."EC %";
   ...
   

   Înlocuirea cod 2

   ...VATEntry7.SETRANGE(VATEntry7.Type,VATEntryTemporary.Type);
           IF VATEntry7.FINDFIRST THEN
             VATBuffer.DELETEALL;
   
   // Add the following line.
   TempUnrealVATBuffer.DELETEALL;
   // End of the added line.
   
             REPEAT
               VATBuffer."VAT %" := VATEntry7."VAT %";
               VATBuffer."EC %" := VATEntry7."EC %";
   ...
   

   Cod existent 3

   ... IF VATEntry7.Type = VATEntry7.Type::Sale THEN BEGIN
                 VATEntry7.Base := -VATEntry7.Base;
                 VATEntry7.Amount := -VATEntry7.Amount;
   
   // Delete the following lines.
   END;
   IF VATBuffer.FIND THEN BEGIN
   VATBuffer.Base := VATBuffer.Base + VATEntry7.Base;
   VATBuffer.Amount := VATBuffer.Amount + VATEntry7.Amount;
   IF (VATEntry7.Type = VATEntry7.Type::Sale) AND (VATEntry7."EC %" <> 0) THEN
   VATBuffer."EC Amount" := VATBuffer."EC Amount" + ROUND(VATEntry7.Base * VATEntry7."EC %" / 100);
   VATBuffer.MODIFY;
   END ELSE BEGIN
   VATBuffer.Base := VATEntry7.Base;
   VATBuffer.Amount := VATEntry7.Amount;
   VATBuffer."EC Amount" := 0;
   IF (VATEntry7.Type = VATEntry7.Type::Sale) AND (VATEntry7."EC %" <> 0) THEN
   VATBuffer."EC Amount" := ROUND(VATEntry7.Base * VATEntry7."EC %" / 100);
   VATBuffer.INSERT;
   END;
   // End of the deleted lines.
   
             UNTIL VATEntry7.NEXT = 0;
             IF VATBuffer.FINDFIRST THEN
               NoofRecords := NoofRecords + VATBuffer.COUNT;
   ...
   

   Înlocuirea cod 3

   ...IF VATEntry7.Type = VATEntry7.Type::Sale THEN BEGIN
                 VATEntry7.Base := -VATEntry7.Base;
                 VATEntry7.Amount := -VATEntry7.Amount;
   
   // Add the following lines.
   VATEntry7."Unrealized Base" := -VATEntry7."Unrealized Base";
   VATEntry7."Unrealized Amount" := -VATEntry7."Unrealized Amount";
   END;
   IF VATBuffer.FIND THEN BEGIN
   UpdateVATBuffer(VATBuffer,VATEntry7);
   VATBuffer.MODIFY;
   END ELSE BEGIN
   VATBuffer.INIT;
   UpdateVATBuffer(VATBuffer,VATEntry7);
   VATBuffer.INSERT;
   END;
   TempUnrealVATBuffer := VATBuffer;
   IF TempUnrealVATBuffer.FIND THEN BEGIN
   UpdateUnrealVATBuffer(TempUnrealVATBuffer,VATEntry7);
   TempUnrealVATBuffer.MODIFY;
   END ELSE BEGIN
   TempUnrealVATBuffer.INIT;
   UpdateUnrealVATBuffer(TempUnrealVATBuffer,VATEntry7);
   TempUnrealVATBuffer.INSERT;
   END;
   IF IsEmptyVATBuffer(VATBuffer) AND IsEmptyVATBuffer(TempUnrealVATBuffer) THEN BEGIN
   VATBuffer.DELETE;
   TempUnrealVATBuffer.DELETE;
   END;
   // End of the added lines.
   
             UNTIL VATEntry7.NEXT = 0;
             IF VATBuffer.FINDFIRST THEN
               NoofRecords := NoofRecords + VATBuffer.COUNT;
   ...
   

2. Modificați codul din IsEmptyVATBuffer function din raportul face 340 declarație (10743) după cum urmează:
   Cod existent

   ...UNTIL VATEntryTemporary.NEXT = 0;
       END;
   
       PROCEDURE GetSalesShipmentDate@1100022(DocumentNo@1100000 : Code[20]) : Date;
       VAR
         SalesShipmentHeader@1100001 : Record 110;
   ...
   

   Cod de înlocuire

   ...UNTIL VATEntryTemporary.NEXT = 0;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE IsEmptyVATBuffer@1100065(TempVATBuffer@1100000 : Record 10704) : Boolean;
   BEGIN
   WITH TempVATBuffer DO
   EXIT((Base = 0) AND (Amount = 0) AND ("EC Amount" = 0));
   END;
   
   LOCAL PROCEDURE UpdateVATBuffer@1100061(VAR TempVATBuffer@1100000 : Record 10704;AddedVATEntry@1100001 : Record 254);
   BEGIN
   WITH TempVATBuffer DO BEGIN
   Base += AddedVATEntry.Base;
   Amount += AddedVATEntry.Amount;
   IF (AddedVATEntry.Type = AddedVATEntry.Type::Sale) AND (AddedVATEntry."EC %" <> 0) THEN
   "EC Amount" += ROUND(AddedVATEntry.Base * AddedVATEntry."EC %" / 100);
   END;
   END;
   
   LOCAL PROCEDURE UpdateUnrealVATBuffer@1100063(VAR TempVATBuffer@1100000 : Record 10704;AddedVATEntry@1100001 : Record 254);
   BEGIN
   WITH TempVATBuffer DO BEGIN
   Base += AddedVATEntry."Unrealized Base";
   Amount += AddedVATEntry."Unrealized Amount";
   IF (AddedVATEntry.Type = AddedVATEntry.Type::Sale) AND (AddedVATEntry."EC %" <> 0) THEN
   "EC Amount" += ROUND(AddedVATEntry."Unrealized Base" * AddedVATEntry."EC %" / 100);
   END;
   END;
   
   // End of the added lines.
   
   PROCEDURE GetSalesShipmentDate@1100022(DocumentNo@1100000 : Code[20]) : Date;
       VAR
         SalesShipmentHeader@1100001 : Record 110;
   ...
   
   

Cerințe preliminare

Trebuie să aveți unul dintre următoarele produse instalate pentru a aplica această remediere rapidă:

• Versiunea spaniolă de Microsoft Dynamics NAV 2009 R2

• Versiunea în limba spaniolă Microsoft Dynamics NAV 2009 SP1

Eliminare informaţii

Nu se poate elimina această remediere rapidă.