Conectați-vă cu Microsoft
Conectați-vă sau creați un cont
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

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

Simptome

Când publicați un jurnalul de încasări cu o factură și o listă de respingere în același timp în versiunea portugheză a Microsoft Dynamics NAV 2009, toate intrările înregistrate contabilitate publicate utilizând contul respinge facturile. Cu toate acestea, contul de creanţe trebuie utilizat pentru factura, și respinsă facturile contul trebuie utilizată de documentul respinse. Această problemă se produce în următoarele produse:

  • Portugheză-versiunea de Microsoft Dynamics NAV 2009 R2

  • Portugheză-versiunea de Microsoft Dynamics NAV 2009 Service Pack 1

Rezolvare

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 că toate Microsoft Navision client utilizatorii au făcut Log off sistemul. Aceasta include utilizatorii de client Microsoft Navision Application Services (NAS). Ar trebui să fie doar client utilizatorului care este conectat când implementați această remediere rapidă.

Pentru a implementa această remediere rapidă, trebuie să aibă o licență pentru dezvoltatori.

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 de sistem obiect ID 5210 și pentru obiectul de sistem obiect ID 9015 .



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ă, modificați codul din gen jurnal.-Post linie codeunit (12). Pentru a face acest lucru, urmați acești pași:

  1. Adăugați următoarele global variabila:

    TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;
  2. Modificați codul din funcția PostCust după cum urmează:
    Cod existent 1

    ...          DiscRiskFactAmountLCY := 0;
    DiscUnriskFactAmountLCY := 0;
    CollFactAmountLCY := 0;
    //--------

    IF Cust."No." <> "Account No." THEN
    Cust.GET("Account No.");
    Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

    IF "Posting Group" = '' THEN BEGIN
    ...

    Cod de înlocuire 1

    ...          DiscRiskFactAmountLCY := 0;
    DiscUnriskFactAmountLCY := 0;
    CollFactAmountLCY := 0;
    //--------

    // Add the following lines.
    TempRejCustLedgEntry.RESET;
    TempRejCustLedgEntry.DELETEALL;
    // End of the lines.

    IF Cust."No." <> "Account No." THEN
    Cust.GET("Account No.");
    Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);

    IF "Posting Group" = '' THEN BEGIN
    ...

    Cod existent 2

    ...            END;

    // Post the application
    ApplyCustLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

    // Delete the following lines.
    IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
    GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
    CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
    ...

    Înlocuirea cod 2

    ...            END;

    // Post the application
    ApplyCustLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");

    // Add the following lines.
    IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
    "Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
    CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
    ...

  3. Modificați codul din funcția PostVend după cum urmează:
    Cod existent

    ...          // Post the application
    ApplyVendLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
    GLSetup."Appln. Rounding Precision");

    // Delete the following lines.
    IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
    GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
    VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
    ...

    Cod de înlocuire

    ...          // Post the application
    ApplyVendLedgEntry(
    CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
    GLSetup."Appln. Rounding Precision");

    // Add the following lines.
    IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
    "Applies-to Doc. Type" := AppliesToDocType;
    // End of the lines.

    IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
    IF "Document Type" = "Document Type"::Bill THEN BEGIN
    DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
    VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
    ...

  4. Modificați codul din funcția ApplyCustLedgEntry după cum urmează:
    Cod existent

    ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
    OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
    FromClosedDoc := TRUE
    ELSE
    FromClosedDoc := FALSE;
    DocPost.UpdateReceivableDoc(
    OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
    DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
    DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
    END;
    ...

    Cod de înlocuire

    ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
    OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
    FromClosedDoc := TRUE
    ELSE
    FromClosedDoc := FALSE;

    // Add the following lines.
    IF OldCustLedgEntry."Document Status" = OldCustLedgEntry."Document Status"::Rejected THEN BEGIN
    TempRejCustLedgEntry := OldCustLedgEntry;
    TempRejCustLedgEntry."Remaining Amount (LCY) stats." := AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY;
    TempRejCustLedgEntry.INSERT;
    END;
    // End of the lines.

    DocPost.UpdateReceivableDoc(
    OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
    DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
    DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
    END;
    ...

  5. Modificați codul din funcția PostDtldCustLedgEntries după cum urmează:
    Cod existent

    ...              AccNo := CustPostingGr."Bills Account";
    END ELSE BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;

    // Delete the following lines.
    IF DiscDocAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Discted. Bills Acc.");
    AccNo := CustPostingGr."Discted. Bills Acc.";
    END;
    IF CollDocAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Bills on Collection Acc.");
    AccNo := CustPostingGr."Bills on Collection Acc.";
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN
    CASE GenJnlLine."Applies-to Doc. Type" OF
    GenJnlLine."Applies-to Doc. Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    AccNo := CustPostingGr."Rejected Bills Acc.";
    END;
    GenJnlLine."Applies-to Doc. Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    AccNo := CustPostingGr."Rejected Factoring Acc.";
    END;
    ELSE
    IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
    (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
    CASE OldCVLedgEntryBuf4."Document Type" OF
    OldCVLedgEntryBuf4."Document Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;
    OldCVLedgEntryBuf4."Document Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;
    END;
    END;
    END;
    END;
    IF (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    AccNo := CustPostingGr."Factoring for Discount Acc.";
    END;
    IF CollFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Collection Acc.");
    AccNo := CustPostingGr."Factoring for Collection Acc.";
    END;
    // End of the lines.

    ReceivableAccAmtLCY :=
    TotalAmountLCY -
    (DocAmountLCY + DiscDocAmountLCY +
    CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
    ...

    Cod de înlocuire

    ...              AccNo := CustPostingGr."Bills Account";
    END ELSE BEGIN
    CustPostingGr.TESTFIELD("Receivables Account");
    AccNo := CustPostingGr."Receivables Account";
    END;

    ReceivableAccAmtLCY :=
    TotalAmountLCY -
    (DocAmountLCY + DiscDocAmountLCY +
    CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
    ...

  6. Modificați codul din funcția PostReceivableDocs după cum urmează:
    Cod existent

    ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN

    // Delete the following lines.
    CASE GenJnlLine."Applies-to Doc. Type" OF
    GenJnlLine."Applies-to Doc. Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    GenJnlLine."Applies-to Doc. Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    ELSE
    IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
    (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
    CASE OldCVLedgEntryBuf4."Document Type" OF
    OldCVLedgEntryBuf4."Document Type"::Bill:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    OldCVLedgEntryBuf4."Document Type"::Invoice:
    BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE
    );

    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    END;
    END;
    // End of the lines.

    END;
    END;
    IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
    ...

    Cod de înlocuire

    ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    IF RejDocAmountLCY <> 0 THEN BEGIN

    // Add the following lines.
    WITH TempRejCustLedgEntry DO BEGIN
    RESET;
    SETCURRENTKEY("Customer No.","Document Type","Document Situation","Document Status");
    SETRANGE("Document Type","Document Type"::Bill);
    CALCSUMS("Remaining Amount (LCY) stats.");
    IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Rejected Bills Acc.");
    InitGLEntry(
    CustPostingGr."Rejected Bills Acc.","Remaining Amount (LCY) stats.",
    DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    SETRANGE("Document Type","Document Type"::Invoice);
    CALCSUMS("Remaining Amount (LCY) stats.");
    IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
    InitGLEntry(
    CustPostingGr."Rejected Factoring Acc.","Remaining Amount (LCY) stats.",
    DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
    GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
    GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
    InsertGLEntry(TRUE);
    END;
    // End of the lines.

    END;
    END;
    IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
    CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
    InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
    ...

Cerințe preliminare

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

  • Portugheză-versiunea de Microsoft Dynamics NAV 2009 R2

  • Portugheză-versiunea de Microsoft Dynamics NAV 2009 Service Pack 1

Eliminare informaţii

Nu se poate elimina această remediere rapidă.

Stare

Microsoft a confirmat că aceasta este o problemă cu produsele Microsoft enumerate în secţiunea „Se aplică la".

Notă Acesta este un articol "rapid publicat" creat direct în cadrul organizației de asistență Microsoft. Informațiile conținute în acest document sunt furnizate ca răspuns la problemele care apar. Ca rezultat al vitezei în a-l face disponibil, materialele pot include erori tipografice și pot fi revizuite în orice moment, fără notificare. Consultați Termenii de utilizare pentru alte considerații.

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?
Apăsând pe Trimitere, feedbackul dvs. va fi utilizat pentru a îmbunătăți produsele și serviciile Microsoft. Administratorul dvs. IT va avea posibilitatea să colecteze aceste date. Angajamentul de respectare a confidențialității.

Vă mulțumim pentru feedback!

×