Sestava DTA Suggest Vendor Payment (3010546) a sestava LSV Suggest Collection (3010831) naznačují nesprávné řádky ve švýcarské verzi Microsoft Dynamics NAV

Platí pro

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Microsoft Dynamics NAV 5.0 Service Pack 1

Tento článek platí pro Microsoft Dynamics NAV pro následující země a jazyková národní prostředí.

Francouzština (Švýcarsko) (fr-ch)
Němčina (Švýcarsko) (gr-ch)
Italština (Švýcarsko) (it-ch)

Příznaky

Předpokládejme, že zaúčtujete nákupní fakturu nebo prodejní fakturu ve švýcarské verzi aplikace Microsoft Dynamics NAV. Když spustíte sestavu DTA Suggest Vendor Payment (3010546) v deníku plateb nebo sestavu LSV Suggest Collection (3010831) v seznamu deníků LSV pomocí data zaúčtování, které je dřívější než datum zaúčtování faktury, jsou navrženy nesprávné řádky. Proto je datum zaúčtování nesprávné v podrobných položkách účetní knihy nebo v podrobných položkách dodavatele po zaúčtování řádků. Někdy dokonce nemůžete řádky publikovat a zobrazí se konzistentní chybová zpráva.
K tomuto problému dochází u následujících produktů:

Švýcarská verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Švýcarská verze aplikace Microsoft Dynamics NAV 2009
Švýcarská verze Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Švýcarská verze Microsoft Dynamics NAV 5.0

Příčina

K tomuto problému dochází, protože v sestavě DTA Suggest Vendor Payment (3010546) a v sestavě LSV Suggest Collection (3010831) chybí kontrola. Kontrola je zavedena, aby se zabránilo generování platebního řádku, který má datum zaúčtování dříve, než je datum zaúčtování faktury.

Řešení

Informace o opravě hotfix

Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro Microsoft Dynamics NAV nebo další verzi Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.

Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.

Informace o instalaci

Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost určitého postupu, ale nebudou tyto příklady upravovat za účelem poskytování dalších funkcí nebo konstrukce procedur, které by splňovaly vaše konkrétní požadavky.

Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klienta Microsoft Navision odhlášeni ze systému. To zahrnuje i uživatele klienta Microsoft Navision Application Services (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.

K implementaci této opravy hotfix musíte mít vývojářskou licenci.

Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:

Oprávnění k úpravám objektu, který budete měnit.
Oprávnění ke spuštění pro objekt s ID systémového objektu 5210 a pro objekt s ID systémového objektu 9015.

Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.

Změny kódu

Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.
Chcete-li tento problém vyřešit, postupujte takto:

Přidejte novou globální proměnnou do sestavy DTA Suggest Vendor Payment (3010546) a poté zadejte proměnnou následujícím způsobem:
- Název: VendorLedgEntryTemp@1150058
- Datový typ: Záznam
- Podtyp: Položka hlavní knihy dodavatele
- Dočasné: Ano
Přidejte novou textovou konstantu do sestavy DTA Suggest Vendor Payment (3010546) a poté zadejte konstantu následujícím způsobem:
- Název: Text50000@1150064
- Konstantní hodnota: ENU=Existuje jedna nebo více položek, pro které nebyly provedeny žádné návrhy plateb, protože data zaúčtování položek jsou pozdější než datum zaúčtování v okně žádosti o dávkovou úlohu DTA Suggest Platby dodavatelům. Chcete zobrazit položky?
Přidejte následující kód do triggeru OnPreReport v sestavě DTA Suggest Vendor Payment (3010546):
```
VendorLedgEntryTemp.DELETEALL;
```

Přidejte následující kód do aktivační události OnPostReport v sestavě DTA Suggest Vendor Payment (3010546):

COMMIT;
IF NOT VendorLedgEntryTemp.ISEMPTY THEN
  IF CONFIRM(Text50000) THEN
    FORM.RUNMODAL(0,VendorLedgEntryTemp);

Následujícím způsobem změňte kód v aktivační události Dodavatel – OnPostDataItem v sestavě DTA Suggest Vendor Payment (3010546):
Existující kód

d.CLOSE;
IF NoOfLinesInserted > 0 THEN BEGIN
  WriteBalAccountLine(ToGlLine);
  MESSAGE(Text011,NoOfLinesInserted,GlSetup."LCY Code",TotalAmtLCY);
  IF NoOfVendorsWithCM > 0 THEN
    MESSAGE(Text013 + Text014 + Text017,NoOfVendorsWithCM,VendWithCmTxt)
END ELSE
  MESSAGE(Text018,FromDueDate,ToDueDate);

Náhradní kód

d.CLOSE;
IF VendorLedgEntryTemp.ISEMPTY THEN BEGIN
  IF NoOfLinesInserted > 0 THEN BEGIN
    WriteBalAccountLine(ToGlLine);
    MESSAGE(Text011,NoOfLinesInserted,GlSetup."LCY Code",TotalAmtLCY);
    IF NoOfVendorsWithCM > 0 THEN
      MESSAGE(Text013 + Text014 + Text017,NoOfVendorsWithCM,VendWithCmTxt)
  END ELSE
    MESSAGE(Text018,FromDueDate,ToDueDate);
END;

Změňte kód ve funkci WritePmtSuggestLines v sestavě DTA Suggest Vendor Payment report (3010546) následujícím způsobem:
Existující kód 1

// CH2316.begin
 VendorLedgerEntryNo := VendEntry."Entry No.";
// CH2316.end
WITH ToGlLine DO BEGIN
  INIT;
...

Náhradní kód 1

IF VendEntry."Posting Date" <= PostDate THEN BEGIN // CH0001
  // CH2316.begin
  VendorLedgerEntryNo := VendEntry."Entry No.";
  // CH2316.end
  WITH ToGlLine DO BEGIN
    INIT;
...

Existující kód 2

...
VendorLedgerEntry2.GET(VendorLedgerEntryNo);
VendorLedgerEntry2."On Hold" := 'DTA';
VendorLedgerEntry2."Accepted Payment Tolerance" := 0;
VendorLedgerEntry2.MODIFY;
// CH2316.END

Náhradní kód 2

...
  VendorLedgerEntry2.GET(VendorLedgerEntryNo);
  VendorLedgerEntry2."On Hold" := 'DTA';
  VendorLedgerEntry2."Accepted Payment Tolerance" := 0;
  VendorLedgerEntry2.MODIFY;
// CH2316.END
END ELSE BEGIN
  VendorLedgEntryTemp := VendEntry;
  VendorLedgEntryTemp.INSERT;
END;

Přidejte novou globální proměnnou do sestavy LSV Suggest Collection (3010831) a pak určete proměnnou takto:
- Název: TempCustLedgEntry@1150042
- Datový typ: Záznam
- Podtyp: Záznam v hlavní knize zákazníků
- Dočasné: Ano
Přidejte novou textovou konstantu do sestavy LSV Suggest Collection (3010831) a pak zadejte konstantu takto:
- Název: Text50000@1150064
- Konstantní hodnota: ENU=Existuje jedna nebo více položek, pro které nebyly podány žádné návrhy na vyzvednutí, protože data zaúčtování položek jsou pozdější než datum vyzvednutí v okně žádosti o dávkovou úlohu sběru návrhů LSV. Chcete zobrazit položky?

Následujícím způsobem změňte kód v triggeru OnPreReport v sestavě LSV Suggest Collection (3010831):
Existující kód

IF LsvJournal."LSV Bank Code" = '' THEN
  ERROR(Text020);

Náhradní kód

IF LsvJournal."LSV Bank Code" = '' THEN
  ERROR(Text020);
TempCustLedgEntry.DELETEALL;

Přidejte následující kód do triggeru OnPostReport v sestavě LSV Suggest Collection (3010831):

COMMIT;
IF NOT TempCustLedgEntry.ISEMPTY THEN
  IF CONFIRM(Text50000) THEN
    FORM.RUNMODAL(0,TempCustLedgEntry);

Změňte kód v triggeru Customer - OnPostDataItem v sestavě shromažďování návrhů LSV (3010831) následujícím způsobem:
Existující kód

d.CLOSE;
IF NoOfLinesInserted > 0 THEN BEGIN
  MESSAGE(Text007,NoOfLinesInserted,LsvSetup."LSV Currency Code",TotalAmt);
  IF LsvJournal."LSV Journal Description" = '' THEN BEGIN
    LsvJournal."LSV Journal Description" :=
      FORMAT(STRSUBSTNO(Text021,LsvSetup."LSV Currency Code",FromDueDate,ToDueDate,Customer.GETFILTERS)
        ,-MAXSTRLEN(LsvJournal."LSV Journal Description"));
  END;
  LsvJournal."Credit Date" := CollectionDate;
  LsvJournal.MODIFY;
  // CH2813.BEGIN
  IF NoOfCustWithCreditMemo > 0 THEN
    IF NOT CONFIRM(Text009 + Text010 + Text012 + Text013,TRUE,NoOfCustWithCreditMemo,CustCreditMemoTxt) THEN
      ERROR(Text014);
  // CH2813.END
END ELSE
  MESSAGE(Text015,FromDueDate,ToDueDate);

Náhradní kód

d.CLOSE;
IF TempCustLedgEntry.ISEMPTY THEN BEGIN // CH0001
  IF NoOfLinesInserted > 0 THEN BEGIN
    MESSAGE(Text007,NoOfLinesInserted,LsvSetup."LSV Currency Code",TotalAmt);
    IF LsvJournal."LSV Journal Description" = '' THEN BEGIN
      LsvJournal."LSV Journal Description" :=
        FORMAT(STRSUBSTNO(Text021,LsvSetup."LSV Currency Code",FromDueDate,ToDueDate,Customer.GETFILTERS)
          ,-MAXSTRLEN(LsvJournal."LSV Journal Description"));
    END;
    LsvJournal."Credit Date" := CollectionDate;
    LsvJournal.MODIFY;
    // CH2813.BEGIN
    IF NoOfCustWithCreditMemo > 0 THEN
      IF NOT CONFIRM(Text009 + Text010 + Text012 + Text013,TRUE,NoOfCustWithCreditMemo,CustCreditMemoTxt) THEN
        ERROR(Text014);
    // CH2813.END
  END ELSE
    MESSAGE(Text015,FromDueDate,ToDueDate);
END;

Změňte kód ve funkci WritePmtSuggestLines v sestavě kolekce návrhů LSV (3010831) následujícím způsobem:
Existující kód 1

// Collection amt: Cust. Entry amount - Cash disc. possible
WITH ToLSVJourLine DO BEGIN
  // Ensure, that the Entry is only once in the LSV Journal Line
  LSVJourLineCheck.SETCURRENTKEY("Applies-to Doc. No.");
  LSVJourLineCheck.SETRANGE("Applies-to Doc. No.",ActCustLedgEntry."Document No.");
...

Náhradní kód 1

// Collection amt: Cust. Entry amount - Cash disc. possible
WITH ToLSVJourLine DO BEGIN
  IF CustLedgEntry."Posting Date" <= CollectionDate THEN BEGIN
    // Ensure, that the Entry is only once in the LSV Journal Line
    LSVJourLineCheck.SETCURRENTKEY("Applies-to Doc. No.");
    LSVJourLineCheck.SETRANGE("Applies-to Doc. No.",ActCustLedgEntry."Document No.");
...

Existující kód 2

...
  TotalAmt := TotalAmt + "Collection Amount";
  d.UPDATE(3,TotalAmt);
  // CH2813.BEGIN
  EntriesPerCust := EntriesPerCust + 1;
  // CH2813.END
END;

Náhradní kód 2

...
    TotalAmt := TotalAmt + "Collection Amount";
    d.UPDATE(3,TotalAmt);
    // CH2813.BEGIN
    EntriesPerCust := EntriesPerCust + 1;
    // CH2813.END

//Add the follong lines.
  END ELSE BEGIN
    TempCustLedgEntry := CustLedgEntry;
    TempCustLedgEntry.INSERT;
  END;
//End of the lines.

END;

Požadavky

Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:

Švýcarská verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Švýcarská verze aplikace Microsoft Dynamics NAV 2009
Švýcarská verze Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Švýcarská verze Microsoft Dynamics NAV 5.0

Informace o odebrání

Tuto opravu hotfix nelze odebrat.

Stav

Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.

Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .

Sestava DTA Suggest Vendor Payment (3010546) a sestava LSV Suggest Collection (3010831) naznačují nesprávné řádky ve švýcarské verzi Microsoft Dynamics NAV

Příznaky

Příčina

Řešení

Informace o opravě hotfix

Informace o instalaci

Změny kódu

Požadavky

Informace o odebrání

Stav

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.