Jūs galite rašyti sąskaitą grupė, kuri turi mokėjimo data nurodyta Cartera "Pirkėjo knygos įrašo" dialogo lange netikėtai į ispanų kalba ir Microsoft Dynamics NAV 2009

Karštųjų pataisų informacija

Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.

Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.

Pastaba.

Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

1. Pakeisti po mokėjimo užsakymo ataskaita (7000080) 2 duomenų elemento numerį taip:
   Esamas kodas

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",PmtOrd."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Payable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   Pastaba.

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",PmtOrd."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   
   // Add the following lines.
   IF "Due Date" < PmtOrd."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100007,
   PmtOrd.FIELDCAPTION("Posting Date"),
   PmtOrd.TABLECAPTION));
   // End of the lines.
   
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Payable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

2. Pakeisti pasaulio kintamuosius po mokėjimo užsakymo ataskaita (7000080) kodą taip:
   Esamas kodas

   ...TempCode@1100032 : Code[10];
   TempText@1100033 : Text[50];
   TempCurrencyCode@1100034 : Code[10];
   Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';
   HidePrintDialog@1100100 : Boolean;
   LOCAL PROCEDURE FinishCode@2();
   BEGIN
   UpdateTables;
   Window.CLOSE;
   ...
   

   Pastaba.

   ...TempCode@1100032 : Code[10];
   TempText@1100033 : Text[50];
   TempCurrencyCode@1100034 : Code[10];
   Text1100006@1100036 : TextConst 'ENU="You cannot post a payment order containing documents marked for application to ID. Please, remove %1 %2/%3. ";ESP="No puede registrar una remesa que contenga documentos marcados para liquidar. Elimine %1 %2/%3. "';
   HidePrintDialog@1100100 : Boolean;
   
   // Add the following line.
   Text1100007@1100037 : TextConst 'ENU=cannot be previous to the %1 of the %2';
   
   LOCAL PROCEDURE FinishCode@2();
   BEGIN
   UpdateTables;
   Window.CLOSE;
   ...
   

3. Pakeisti po komplektavimo grupės ataskaita (7000099) 2 duomenų elemento numerį taip:
   Esamas kodas 1

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",BillGr."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Receivable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   Atsarginis kodas 1

   ...Window.UPDATE(2,DocCount);
   TESTFIELD("Currency Code",BillGr."Currency Code");
   TESTFIELD("Collection Agent","Collection Agent"::Bank);
   
   // Add the following lines.
   IF "Due Date" < BillGr."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100004,
   BillGr.FIELDCAPTION("Posting Date"),
   BillGr.TABLECAPTION));
   // End of the lines.
   
   IF "Remaining Amount" = 0 THEN
   FIELDERROR("Remaining Amount");
   TESTFIELD(Type,Type::Receivable);
   IF Accepted = Accepted::No THEN
   FIELDERROR(Accepted);
   ...
   

   Esamas kodas 2

   ...IF CustLedgEntry."Applies-to ID" <> '' THEN
   ERROR(Text1100010,Doc."Document No.",Doc."No.");
   IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
   CustPostingGr.TESTFIELD("Discted. Bills Acc.");
   AccountNo := CustPostingGr."Discted. Bills Acc.";
   
   // Delete the following lines.
   IF "Due Date" < BillGr."Posting Date" THEN
   FIELDERROR("Due Date",
   STRSUBSTNO(
   Text1100004,
   BillGr.FIELDCAPTION("Posting Date"),
   BillGr.TABLECAPTION));
   // End of the lines.
   
   FeeRange.CalcDiscExpensesAmt(
   BankAcc."Operation Fees Code",
   BankAcc."Currency Code",
   "Remaining Amount",
   CustLedgEntry."Entry No.");
   ...
   

   Atsarginis kodas 2

   ...IF CustLedgEntry."Applies-to ID" <> '' THEN
   ERROR(Text1100010,Doc."Document No.",Doc."No.");
   IF BillGr."Dealing Type" = BillGr."Dealing Type"::Discount THEN BEGIN
   CustPostingGr.TESTFIELD("Discted. Bills Acc.");
   AccountNo := CustPostingGr."Discted. Bills Acc.";
   FeeRange.CalcDiscExpensesAmt(
   BankAcc."Operation Fees Code",
   BankAcc."Currency Code",
   "Remaining Amount",
   CustLedgEntry."Entry No.");
   ...