Inconsistență dacă nu aveți permisiunea de cory pentru a aplica facturi în versiunea spaniolă de Microsoft Dynamics NAV 2009

Șablon: CPR - Navision cod Fiacx șablon

Număr eroare: 213507 (întreținere conținut)

Chiar și atunci când nu aveți permisiunea de a lucra cu cory în versiunea spaniolă de Microsoft Dynamics NAV 2009, se poate aplica o plată și o listă de intrări în registru client sau furnizor. Problema este că atunci când "fără permisiuni cory" aplicați aceste documente (plată şi bill) factura rămâne "deschidere" în cory creanţe sau datorii documente. Acest lucru provoacă inconsistențe în baza de date. Această problemă se produce în următorul produs:

  • Versiunea spaniolă de Microsoft Dynamics NAV 2009 R2

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

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

Dacă această remediere rapidă nu este publicată pentru descărcare publică (ceea ce înseamnă că un URL public pentru această remediere rapidă nu este furnizat în acest articol), distribuția necesită aprobarea manager, membru din echipa de implementare sau conducerii tehnice și se aplică următoarele informații:

  • Pentru a primi această remediere rapidă, clienții trebuie să se confrunte cu eroarea menționată în secțiunea "simptome".

  • Trebuie să urmăriți clienții să trimiteți și să le furnizați următorul pachet service pack când acesta va fi disponibil (dacă se lansează un pachet service pack).

Această remediere rapidă este programată să fie inclusă într-o versiune spaniolă de Microsoft Dynamics NAV 2013 Service Pack.

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 remedieri într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție. Înainte de a aplica modificarea, vă rugăm să importați toate actualizările SEPA.

Pentru a rezolva această problemă, urmați acești pași:

  1. Modificați codul din Global Variablesin jurnal gen.-Post linie Codeunit (12) după cum urmează:
    Cod existent

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
    Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr en cuenta el IVA, ¨desea continuar?';
    Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
    AppliedAmountLCY2@1100053 : Decimal;
    AppliesToDocType@1100023 : Integer;

    PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
    BEGIN
    NewGLReg := GLReg;
    END;
    ...

    Cod de înlocuire

    ...Text1100010@1100016 : TextConst 'ENU=Remove it from its payment order and try again.;ESP=B¢rrelo de la orden de pago e int‚ntelo de nuevo.';
    Text1100011@1100021 : TextConst 'ENU=Document Type is " " in Line %1. This posting will not realize the VAT, do you want to proceed?;ESP=El tipo de documento es " " en la l¡nea %1. Esta contabilizaci¢n no tendr en cuenta el IVA, ¨desea continuar?';
    Text1100012@1100022 : TextConst 'ENU=The posting process has been cancelled by the user.;ESP=El proceso de registro ha sido cancelado por el usuario.';
    AppliedAmountLCY2@1100053 : Decimal;
    AppliesToDocType@1100023 : Integer;

    // Add the following line.
    Text1100013@1100026 : TextConst 'ENU=You do not have permissions to apply or unapply documents in the Cartera Module.';
    // End of the added line.


    PROCEDURE GetGLReg@10(VAR NewGLReg@1000 : Record 45);
    BEGIN
    NewGLReg := GLReg;
    END;
    ...
  2. Modificați codul din ApplyCustLedgEntryfuncție în gen jurnal.-Post linie Codeunit (12) după cum urmează:
    Cod existent 1

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
    OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
    OldCustLedgEntry.SETRANGE(Open,TRUE);

    OldCustLedgEntry.FINDFIRST;
    OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF AppManagement.AccessToCartera THEN
    DocPost.CheckAppliedReceivableDoc(
    OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Înlocuirea cod 1

    ...OldCustLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
    OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
    OldCustLedgEntry.SETRANGE(Open,TRUE);

    OldCustLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    // End of the added line.

    OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF AppManagement.AccessToCartera THEN
    DocPost.CheckAppliedReceivableDoc(
    OldCustLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Cod existent 2

    ...// Check Cust Ledger Entry and add to Temp.
    IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
    OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Delete the following lines.
    REPEAT
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the deleted lines.


    TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

    IF TempOldCustLedgEntry.FIND('-') THEN BEGIN
    ...

    Înlocuirea cod 2

    ...// Check Cust Ledger Entry and add to Temp.
    IF SalesSetup."Appln. between Currencies" = SalesSetup."Appln. between Currencies"::None THEN
    OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN

    // Add the following lines.
    REPEAT
    CheckCarteraAccessPermissions(OldCustLedgEntry."Document Situation");
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Customer,
    FALSE)
    THEN BEGIN
    IF (OldCustLedgEntry."Posting Date" > ApplyingDate) AND (OldCustLedgEntry."Applies-to ID" <> '') THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    TempOldCustLedgEntry := OldCustLedgEntry;
    TempOldCustLedgEntry.INSERT;
    END;
    UNTIL OldCustLedgEntry.NEXT=0;
    // End of the added lines.


    TempOldCustLedgEntry.SETRANGE(Positive,NewCVLedgEntryBuf."Remaining Amount" > 0);

    IF TempOldCustLedgEntry.FIND('-') THEN BEGIN...
  3. Modificați codul din funcția UnapplyCustLedgEntry în gen jurnal.-Post linie Codeunit (12) după cum urmează:
    Cod existent

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
    DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
    UnapplyVATEntries := FALSE;
    DtldCustLedgEntry2.FINDSET;
    REPEAT
    DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
    IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
    (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
    (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    THEN
    ...

    Cod de înlocuire

    ...DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
    DtldCustLedgEntry2.SETFILTER("Entry Type",'>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
    UnapplyVATEntries := FALSE;
    DtldCustLedgEntry2.FINDSET;
    REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(DtldCustLedgEntry2."Document Situation");
    // End of the added line.

    DtldCustLedgEntry2.TESTFIELD(Unapplied,FALSE);
    IF (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
    (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
    (DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    THEN
    ...
  4. Modificați codul din funcția ApplyVendLedgEntry în gen jurnal.-Post linie Codeunit (12) după cum urmează:
    Cod existent 1

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
    OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
    OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
    OldVendLedgEntry.SETRANGE(Open,TRUE);
    OldVendLedgEntry.FINDFIRST;
    OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF AppManagement.AccessToCartera THEN
    DocPost.CheckAppliedPayableDoc(
    OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Înlocuirea cod 1

    ...OldVendLedgEntry.SETRANGE("Document Type",GenJnlLine."Applies-to Doc. Type");
    OldVendLedgEntry.SETRANGE("Bill No.",NewCVLedgEntryBuf."Applies-to Bill No.");
    OldVendLedgEntry.SETRANGE("Vendor No.",NewCVLedgEntryBuf."CV No.");
    OldVendLedgEntry.SETRANGE(Open,TRUE);
    OldVendLedgEntry.FINDFIRST;

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

    OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF AppManagement.AccessToCartera THEN
    DocPost.CheckAppliedPayableDoc(
    OldVendLedgEntry,GenJnlLine."System-Created Entry");
    ...

    Cod existent 2

    ...//Check and Move Ledger Entries to Temp
    IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
    OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT
    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldVendLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Vendor,
    FALSE)
    ...

    Înlocuirea cod 2

    ...//Check and Move Ledger Entries to Temp
    IF PurchSetup."Appln. between Currencies" = PurchSetup."Appln. between Currencies"::None THEN
    OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT

    // Add the following line.
    CheckCarteraAccessPermissions(OldVendLedgEntry."Document Situation");
    // End of the added line.

    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldVendLedgEntry."Currency Code",
    GenJnlLine."Account Type"::Vendor,
    FALSE)
    ...
  5. Modificați codul din funcția UnapplyVendLedgEntry în gen jurnal.-Post linie Codeunit (12) după cum urmează:
    Cod existent

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
    DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
    DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
    DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
    DtldVendLedgEntry2.FINDSET;
    UnapplyVATEntries := FALSE;
    REPEAT
    IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
    (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
    (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...

    Cod de înlocuire

    ...DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
    DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
    DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
    DtldVendLedgEntry2.SETFILTER("Entry Type",'>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
    DtldVendLedgEntry2.FINDSET;

    // Add the following line.
    CheckCarteraAccessPermissions(DtldVendLedgEntry2."Document Situation");
    // End of the added line.

    UnapplyVATEntries := FALSE;
    REPEAT
    IF (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount (VAT Adjustment)") OR
    (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Tolerance (VAT Adjustment)") OR
    (DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)")
    ...
  6. Modificați codul din funcția CheckCarteraAccessPermissions în gen jurnal.-Post linie Codeunit (12) după cum urmează:
    Cod existent

    ...CLEAR(GenJnlLine2);

    EXIT(IsOK);
    END;

    BEGIN
    END.
    }
    }
    ...

    Cod de înlocuire

    ...CLEAR(GenJnlLine2);

    EXIT(IsOK);
    END;

    // Add the following lines.
    LOCAL PROCEDURE CheckCarteraAccessPermissions@1100024(DocumentSituation@1170001 : ' ,Posted BG/PO,Closed BG/PO,BG/PO,Cartera,Closed Documents');
    BEGIN
    IF (DocumentSituation <> DocumentSituation::" ") AND (NOT AppManagement.AccessToCartera) THEN
    ERROR(Text1100013);
    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ă.

Stare

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

Referințe

VSFT DynamicsNAVSE: 354515

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 utilizarepentru alte considerații.

Author: Vanessa.Garcia
Writer: v-luzo
Examinare tehnică: Vanessa.Garcia
Editor:

Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă la Microsoft Insider

V-a fost de ajutor această informație?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×