Cursul de schimb incorect se utilizează când postați un jurnal de registru general care are mai multe linii care utilizează moneda de raportare suplimentară din versiunea maghiară de Microsoft Dynamics NAV 2009 R2

Se aplică la
Dynamics NAV 2009

Acest articol se aplică la Microsoft Dynamics NAV pentru setările regionale de limbă maghiară (hu).

Simptome

Să presupunem că este specificată o monedă de raportare suplimentară în versiunea maghiară de Microsoft Dynamics NAV 2009 R2. Când postați un registru general care are mai multe linii care utilizează moneda de raportare suplimentară, se generează intrări incorecte în registrul general. Un curs de schimb modificat nu este luat în considerare.
Această problemă apare atunci când valoarea ratei Exch. relaționale diferă de valoarea ratei externe pentru valoarea calculului TVA

Rezolvare

Informații despre remedierea rapidă

O remediere rapidă acceptată este acum disponibilă de la Microsoft. Însă, scopul său este doar să corecteze problema descrisă în acest articol. Aplicați-o doar sistemelor care se confruntă cu această problemă specifică. Această remediere rapidă poate fi testată suplimentar. De aceea, dacă această problemă nu vă afectează grav, vă recomandăm să așteptați următorul pachet Service Pack Microsoft Dynamics NAV 2009 sau versiunea următoare Microsoft Dynamics NAV care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru apelurile de asistență pot fi revocate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produsele asociate stabilește că o anumită actualizare va rezolva problema. Costurile uzuale de suport se vor aplica pentru întrebări suplimentare de suport și pentru probleme ce nu fac obiectul actualizării în chestiune.

            
          

Informații despre instalare

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

Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii clientului Microsoft Navision sunt deconectați de la sistem. Printre aceștia se numără utilizatorii clienților Microsoft Navision Application Services (NAS). Ar trebui să fiți singurul utilizator client conectat atunci când implementați această remediere rapidă.

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

Recomandăm ca contului de utilizator din fereastra Conectări Windows sau din fereastra Conectări bază de date să primească ID-ul de rol "SUPER". În cazul în care contului de utilizator nu i se poate atribui ID-ul de rol "SUPER", trebuie să verificați dacă acel cont de utilizator are următoarele permisiuni:

  • Permisiunea Modificare pentru obiectul pe care îl veți modifica.
  • Permisiunea de executare pentru obiectul cu ID obiect de sistem 5210 și pentru obiectul ID obiect de sistem 9015.

                
Notă: nu trebuie să aveți drepturi asupra depozitelor de date decât dacă trebuie să efectuați repararea datelor.

Modificări de cod

Notă: testați întotdeauna remedierile de cod într-un mediu controlat înainte de a aplica remedierile la computerele de producție.
Pentru a rezolva această problemă, urmați acești pași:

  1. Modificați codul din funcția InitVat în "Gen. Jnl. -Linie poștală" (12), după cum urmează:
    Cod existent

    ...
    IF "VAT Currency Factor" <> "Currency Factor" THEN BEGIN
    "VAT Amount (LCY)" := GLEntry."VAT Amount";
    GLEntry."VAT Amount" := "VAT Amount to Report (LCY)";
    END;
    END;
    GLCalcAddCurrency(GLEntry."Additional-Currency Amount",TRUE);
    ...
    

    Codul de înlocuire

    ...
    IF "VAT Currency Factor" <> "Currency Factor" THEN BEGIN
    "VAT Amount (LCY)" := GLEntry."VAT Amount";
    GLEntry."VAT Amount" := "VAT Amount to Report (LCY)";
    
    // Add the following line.
    CurrencyFactor := GenJnlLine."Currency Factor"; 
    
    END;
    END;
    GLCalcAddCurrency(GLEntry."Additional-Currency Amount",TRUE);
    ...
    
  2. Modificați codul din funcția PostVAT în secțiunea "Gener. Jnl. -Linie poștală" (12), după cum urmează:
    Cod existent

    ...
    IF "Gen. Posting Type" = "Gen. Posting Type"::Settlement THEN
    AddCurrGLEntryVATAmt := "Source Curr. VAT Amount";
    
    // Delete the following line.
    IF "VAT Currency Factor" <> "Currency Factor" THEN
    
    InsertVAT(
    GLEntry.Amount,"VAT Amount to Report (LCY)","VAT Base Amt. to Report (LCY)","Source Currency Code",
    GLEntry."Additional-Currency Amount",AddCurrGLEntryVATAmt,"Source Curr. VAT Base Amount")
    
    // Delete the following line.
    ELSE
    
    InsertVAT(
    ...
    

    Codul de înlocuire

    ...
    IF "Gen. Posting Type" = "Gen. Posting Type"::Settlement THEN
    AddCurrGLEntryVATAmt := "Source Curr. VAT Amount";
    
    // Add the following lines.
    IF "VAT Currency Factor" <> "Currency Factor" THEN BEGIN 
    CurrencyFactor := GenJnlLine."VAT Currency Factor"; 
    // End of the lines.
    
    InsertVAT(
    GLEntry.Amount,"VAT Amount to Report (LCY)","VAT Base Amt. to Report (LCY)","Source Currency Code",
    GLEntry."Additional-Currency Amount",AddCurrGLEntryVATAmt,"Source Curr. VAT Base Amount")
    
    // Add the following line.
    END ELSE
    
    InsertVAT(
    ...
    
  3. Modificați codul din funcția InsertVAT în "Gen. Jnl. -Linie poștală" (12), după cum urmează:
    Cod existent

    ...
    InsertGLEntry(TRUE);
    END;
    
    // Delete the following line.
    IF "VAT Currency Factor" <> "Currency Factor" THEN
    
    InsertPurchVATDiff(
    ROUND("VAT Amount (LCY)" - "VAT Amount to Report (LCY)"),SrcCurrGLEntryVATAmt);
    END;
    ...
    

    Codul de înlocuire

    ...
    InsertGLEntry(TRUE);
    END;
    
    // Add the following lines.
    IF "VAT Currency Factor" <> "Currency Factor" THEN BEGIN 
    CurrencyFactor := 0;
    // End of the lines.
    
    InsertPurchVATDiff(
    ROUND("VAT Amount (LCY)" - "VAT Amount to Report (LCY)"),SrcCurrGLEntryVATAmt);
    
    // Add the following line.
    END;
    
    END;
    ...
    
  4. Modificați codul din funcția GetCurrencyExchRate în "Gen. Jnl. -Linie poștală" (12), după cum urmează:
    Cod existent

    ...
    CurrencyDate,GLSetup."Additional Reporting Currency");
    END;
    
    IF (GenJnlLine."FA Add.-Currency Factor" <> 0) AND
    ...
    

    Codul de înlocuire

    ...
    CurrencyDate,GLSetup."Additional Reporting Currency");
    END;
    
    // Add the following lines.
    IF GenJnlLine."VAT Currency Factor" <> GenJnlLine."Currency Factor" THEN 
    CurrencyFactor := GenJnlLine."Currency Factor"; 
    // End of the lines.
    
    IF (GenJnlLine."FA Add.-Currency Factor" <> 0) AND
    ...
    

Cerințe preliminare

Trebuie să aveți versiunea maghiară de Microsoft Dynamics NAV 2009 R2 instalată pentru a aplica această remediere rapidă.

Eliminarea informațiilor

Nu puteți elimina această remediere rapidă.

Stare

Microsoft a confirmat că aceasta este o problemă în produsele Microsoft care sunt listate în secțiunea „Se aplică la”.

Notă: Acesta este un articol "PUBLICARE RAPIDĂ" creat direct din cadrul organizației de asistență Microsoft. Informațiile din acest document sunt furnizate ca atare ca răspuns la problemele apărute. Ca urmare a vitezei de punere la dispoziție, materialele pot include erori tipografice și pot fi revizuite în orice moment fără preaviz. Consultați Condițiile de utilizare pentru alte considerente.