Baze și valorile sunt grupate în mod eronat pentru același % TVA și perioada î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 raportul face 340 declarație (10743) după cum urmează:
   Cod existent 1

   ...   END;
                         END;
   
   // Delete the following line.
   OnAfterGetRecord=BEGIN
   // End of the deleted line.
   
                              OperationCode := GetOperationCode(VATEntry2);
   
                              VATBuffer."VAT %" := "VAT %";
   ...
   

   Înlocuirea cod 1

   ... END;
                         END;
   
   // Add the following lines.
   OnAfterGetRecord=VAR
   VendLedgEntryAppl@1100000 : Record 25;
   NewEntry@1100001 : Boolean;
   BEGIN
   // End of the added lines.
   
                              OperationCode := GetOperationCode(VATEntry2);
   
                              VATBuffer."VAT %" := "VAT %";
   ...
   

   Cod existent 2

   ... VATBuffer.Amount := Amount;
                                END;
                                VATBuffer.INSERT;
   
   // Delete the following lines.
   
   IF Type = VATEntry.Type::Purchase THEN BEGIN
   VATEntryTemporary := VATEntry2;
   VATEntryTemporary.INSERT;
   END;
   END;
   // End of the deleted lines.
   
                            END;
   
           TotalFields=Base,Amount;
   ...
   

   Înlocuirea cod 2

   ...VATBuffer.Amount := Amount;
                                END;
                                VATBuffer.INSERT;
   
   // Add the following lines.
   END;
   
   IF Type = VATEntry.Type::Purchase THEN
   IF HasBeenRealized("Entry No.") OR ("Unrealized VAT Entry No." <> 0) THEN BEGIN
   NewEntry := CheckVLEApplication(VATEntry2);
   
   VATEntryTemporary.SETRANGE("Posting Date","Posting Date");
   VATEntryTemporary.SETRANGE("Document No.","Document No.");
   VATEntryTemporary.SETRANGE("Document Type","Document Type");
   VATEntryTemporary.SETRANGE(Type,Type);
   VATEntryTemporary.SETRANGE("VAT %","VAT %");
   VATEntryTemporary.SETRANGE("Transaction No.","Transaction No.");
   IF VATEntryTemporary.FINDFIRST AND NOT NewEntry THEN BEGIN
   VATEntryTemporary.Base += Base;
   VATEntryTemporary.Amount += Amount;
   VATEntryTemporary.MODIFY;
   END ELSE BEGIN
   VATEntryTemporary := VATEntry2;
   VATEntryTemporary.INSERT;
   END;
   
   END ELSE BEGIN
   VATEntryTemporary := VATEntry2;
   VATEntryTemporary.INSERT;
   END;
   // End of the added lines.
   
                            END;
   
           TotalFields=Base,Amount;
   ...
   

   Cod existent 3

   ...  DataItemVarName=<Integer2>;
           OnPreDataItem=BEGIN
                           VATBuffer.FIND('-');
                          VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");
                           IF VATEntryTemporary.FINDFIRST THEN;
                           CurrReport.CREATETOTALS(VATBuffer2.Base,VATBuffer2.Amount);
                           Fin := FALSE;
   ...
   

   Înlocuirea cod 3

   ...  DataItemVarName=<Integer2>;
           OnPreDataItem=BEGIN
                           VATBuffer.FIND('-');
   
   // Delete the following line.
   VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");
   // End of the deleted line.
   
                           IF VATEntryTemporary.FINDFIRST THEN;
                           CurrReport.CREATETOTALS(VATBuffer2.Base,VATBuffer2.Amount);
                           Fin := FALSE;
   ...
   

   Cod existent 4

   ...IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
                                VATEntryTemporary.Amount :=  VATBuffer.Amount;
                                VATDeductAmt := CheckDeductibleVAT(VATEntryTemporary);
   
   // Delete the following lines.
   VATEntryTemporary.NEXT;
   RecordTypePurchase(VATEntry2);
   // End of the deleted lines.
   
                              END;
                              Fin := VATBuffer.NEXT = 0;
                            END;
   ...
   

   Înlocuirea cod 4

   ... IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
                                VATEntryTemporary.Amount :=  VATBuffer.Amount;
                                VATDeductAmt := CheckDeductibleVAT(VATEntryTemporary);
   
   // Add the following lines.
   
   VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");
   VATEntryTemporary.SETRANGE("VAT %",VATBuffer."VAT %");
   VATEntryTemporary.SETRANGE("EC %",VATBuffer."EC %");
   VATEntryTemporary.FINDSET;
   REPEAT
   RecordTypePurchase(VATEntryTemporary);
   UNTIL VATEntryTemporary.NEXT = 0;
   // End of the added lines.
   
                              END;
                              Fin := VATBuffer.NEXT = 0;
                            END;
   ...
   

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

   ...VATEntryTemporary@1100078 : TEMPORARY Record 254;
         TempDeclarationLines@1100149 : TEMPORARY Record 10744;
         TempVATEntry@1100007 : TEMPORARY Record 254;
         CommonDialogMgt@1100015 : Codeunit 412;
         OutFile@1100016 : File;
         DeclarationNum@1100017 : Text[4];
   ...
   

   Cod de înlocuire

   ...  VATEntryTemporary@1100078 : TEMPORARY Record 254;
         TempDeclarationLines@1100149 : TEMPORARY Record 10744;
         TempVATEntry@1100007 : TEMPORARY Record 254;
   
   // Add the following line.
   TempDtldVendLedgerEntry@1100115 : TEMPORARY Record 380;
   // End of the added line.
   
         CommonDialogMgt@1100015 : Codeunit 412;
         OutFile@1100016 : File;
         DeclarationNum@1100017 : Text[4];
   ...
   

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

   ... END ELSE
           OperationDateText := FormatDate(VATEntryRec."Posting Date");
   
   // Delete the following lines.
   IF VATEntryRec."Document Type" IN [VATEntryRec."Document Type"::Payment,VATEntryRec."Document Type"::Refund] THEN BEGIN
   UnrealizedVATEntryNo := VATEntryRec."Unrealized VAT Entry No.";
   DocumentDate := VATEntryRec."Posting Date";
   IF UnrealizedVATEntryNo <> 0 THEN BEGIN
   UnrealizedVATEntry.GET(UnrealizedVATEntryNo);
   OperationDateText := FormatDate(UnrealizedVATEntry."Posting Date");
   DocumentDate := UnrealizedVATEntry."Document Date";
   // End of the deleted lines.
   
           END;
         END ELSE
           UnrealizedVATEntryNo := 0;
   ...
   

   Cod de înlocuire

   ... END ELSE
           OperationDateText := FormatDate(VATEntryRec."Posting Date");
   
   // Add the following lines.
   VATBuffer2.Base := VATBuffer.Base;
   VATBuffer2.Amount := VATBuffer.Amount;
   
   IF VATEntryRec."Document Type" IN [VATEntryRec."Document Type"::Payment,VATEntryRec."Document Type"::Refund] THEN BEGIN
   UnrealizedVATEntryNo := VATEntryTemporary."Unrealized VAT Entry No.";
   DocumentDate := VATEntryTemporary."Posting Date";
   IF UnrealizedVATEntryNo <> 0 THEN BEGIN
   UnrealizedVATEntry.GET(UnrealizedVATEntryNo);
   OperationDateText := FormatDate(UnrealizedVATEntry."Posting Date");
   DocumentDate := UnrealizedVATEntry."Document Date";
   IF FindPmtOrderBillGrBankAcc(VATEntry.Type,VATEntry."Document No.") = '' THEN BEGIN
   VendorDocumentNo := UnrealizedVATEntry."External Document No.";
   VATBuffer2.Base := VATEntryTemporary.Base;
   VATBuffer2.Amount := VATEntryTemporary.Amount;
   END;
   // End of the added lines.
   
           END;
         END ELSE
           UnrealizedVATEntryNo := 0;
   ...
   

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

   ...  PrevDeclarationNumEnable := ReplaceDeclaration;
       END;
   
       BEGIN
       END.
     }
   ...
   

   Cod de înlocuire

   ...PrevDeclarationNumEnable := ReplaceDeclaration;
       END;
   
   // Add the following lines.
   LOCAL PROCEDURE CheckVLEApplication@1100074(VATEntry@1100000 : Record 254) : Boolean;
   VAR
   VendorLedgerEntry@1100001 : Record 25;
   DtldVendLedgEntry@1100002 : Record 380;
   CheckVendLedgEntry@1100003 : Record 25;
   UnrealizedVendLedgEntry@1100004 : Integer;
   BEGIN
   FilterVendLedgerEntryByVATEntry(VendorLedgerEntry,VATEntry);
   UnrealizedVendLedgEntry := GetUnrealizedInvoiceVLENo(VATEntry."Unrealized VAT Entry No.");
   
   IF VendorLedgerEntry.FINDSET THEN
   REPEAT
   DtldVendLedgEntry.RESET;
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   DtldVendLedgEntry.SETRANGE("Entry Type",DtldVendLedgEntry."Entry Type"::Application);
   DtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.",VendorLedgerEntry."Entry No.");
   IF UnrealizedVendLedgEntry <> 0 THEN
   DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",UnrealizedVendLedgEntry);
   
   IF DtldVendLedgEntry.FINDSET THEN
   REPEAT
   IF (DtldVendLedgEntry."Vendor Ledger Entry No." <> DtldVendLedgEntry."Applied Vend. Ledger Entry No.") AND
   CheckVendLedgEntry.GET(DtldVendLedgEntry."Vendor Ledger Entry No.")
   THEN BEGIN
   IF ExistDtldVLE(DtldVendLedgEntry."Vendor Ledger Entry No.",DtldVendLedgEntry."Applied Vend. Ledger Entry No.") THEN
   EXIT(FALSE);
   InsertTempDtldVLE(DtldVendLedgEntry."Vendor Ledger Entry No.",DtldVendLedgEntry."Applied Vend. Ledger Entry No.");
   EXIT(TRUE);
   END;
   UNTIL DtldVendLedgEntry.NEXT = 0
   ELSE BEGIN
   DtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.");
   DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendorLedgerEntry."Entry No.");
   IF UnrealizedVendLedgEntry <> 0 THEN
   DtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.",UnrealizedVendLedgEntry);
   
   IF DtldVendLedgEntry.FINDSET THEN
   REPEAT
   IF CheckVendLedgEntry.GET(DtldVendLedgEntry."Applied Vend. Ledger Entry No.") THEN BEGIN
   IF ExistDtldVLE(DtldVendLedgEntry."Applied Vend. Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.") THEN
   EXIT(FALSE);
   InsertTempDtldVLE(DtldVendLedgEntry."Applied Vend. Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.");
   EXIT(TRUE);
   END;
   UNTIL DtldVendLedgEntry.NEXT = 0;
   END;
   UNTIL VendorLedgerEntry.NEXT = 0;
   
   EXIT(TRUE);
   END;
   
   LOCAL PROCEDURE GetUnrealizedInvoiceVLENo@1100075(VATEntryNo@1100000 : Integer) : Integer;
   VAR
   VATEntry@1100002 : Record 254;
   VendLedgEntry@1100001 : Record 25;
   BEGIN
   IF NOT VATEntry.GET(VATEntryNo) THEN
   EXIT(0);
   FilterVendLedgerEntryByVATEntry(VendLedgEntry,VATEntry);
   IF VendLedgEntry.FINDFIRST THEN
   EXIT(VendLedgEntry."Entry No.");
   EXIT(0);
   END;
   
   LOCAL PROCEDURE FilterVendLedgerEntryByVATEntry@1100087(VAR VendLedgEntry@1100001 : Record 25;VATEntry@1100000 : Record 254);
   BEGIN
   VendLedgEntry.SETRANGE("Vendor No.",VATEntry."Bill-to/Pay-to No.");
   VendLedgEntry.SETRANGE("Posting Date",VATEntry."Posting Date");
   VendLedgEntry.SETRANGE("Document Type",VATEntry."Document Type");
   VendLedgEntry.SETRANGE("Document No.",VATEntry."Document No.");
   VendLedgEntry.SETRANGE("Transaction No.",VATEntry."Transaction No.");
   END;
   
   LOCAL PROCEDURE HasBeenRealized@1100064(VATEntryNo@1100000 : Integer) : Boolean;
   VAR
   UnrealizedVATEntry@1100001 : Record 254;
   BEGIN
   UnrealizedVATEntry.SETRANGE("Unrealized VAT Entry No.",VATEntryNo);
   EXIT(NOT UnrealizedVATEntry.ISEMPTY);
   END;
   
   LOCAL PROCEDURE ExistDtldVLE@1100195(VLENo@1100001 : Integer;AppliedVLENo@1100000 : Integer) : Boolean;
   BEGIN
   TempDtldVendLedgerEntry.SETRANGE("Vendor Ledger Entry No.",VLENo);
   TempDtldVendLedgerEntry.SETRANGE("Applied Vend. Ledger Entry No.",AppliedVLENo);
   EXIT(NOT TempDtldVendLedgerEntry.ISEMPTY);
   END;
   
   LOCAL PROCEDURE InsertTempDtldVLE@1100191(VLENo@1100000 : Integer;AppliedVLENo@1100001 : Integer);
   BEGIN
   TempDtldVendLedgerEntry.INIT;
   IF TempDtldVendLedgerEntry.FINDLAST THEN;
   TempDtldVendLedgerEntry."Entry No." += 1;
   TempDtldVendLedgerEntry."Vendor Ledger Entry No." := VLENo;
   TempDtldVendLedgerEntry."Applied Vend. Ledger Entry No." := AppliedVLENo;
   TempDtldVendLedgerEntry.INSERT;
   END;
   
   // End of the added lines.
   
   BEGIN
       END.
     }
   ...
   

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