Zaúčtovaním skupine bill s žiadny termín podľa Cartera v dialógovom okne "Položka zákazníka" neočakávane v španielskej verzii systému Microsoft Dynamics NAV 2009

Informácie o rýchlej oprave

Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.

Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.

Zmeny kódu

Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:

1. Zmena kódu v údaje položky číslo 2 v správe aby platby (7000080):
   Existujúci kód

   ...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);
   ...
   

   Nahradenie kódu

   ...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. Zmena kódu v globálne premenné v správe aby platby (7000080):
   Existujúci kód

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

   Nahradenie kódu

   ...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. Zmena kódu v údaje položky číslo 2 v skupine Bill Post správa (7000099):
   Nahradenie kód 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);
   ...
   

   Nahradenie kód 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);
   ...
   

   Existujúci kód 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.");
   ...
   

   Nahradenie kód 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.");
   ...