Príznaky
Po nainštalovaní KB3036841, Predpokladajme, že zrušiť SEPA platby, ktoré sa exportovali z denníkov v portugalčine verzii systému Microsoft Dynamics NAV 2009, a potom pri účtovaní riadkov denníka, keď exportujete súbor SEPA platby, zobrazí nasledujúce chybové hlásenie:
"Zvoliť. Pmts exportovali musia Áno názov šablóny finančného denníka riadku denníka = názov dávky denníkov = číslo riadka =. "
Postupujte podľa pokynov zmeny kódu sekcia na riešenie tohto problému. Tento problém sa vyskytuje v nasledovných produktov:
-
Portugalská verzia Microsoft Dynamics NAV 2009 R2
-
Portugalská verzia Microsoft Dynamics NAV 2009 SP1
Riešenie
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.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez vyjadrených či predpokladaných záruk. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu. Ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.
Poznámka: Pred inštaláciou tejto rýchlej opravy, kontrola všetkých používateľov klienta Microsoft Dynamics NAV systém. To zahŕňa služby Microsoft Dynamics NAV aplikácie servera (NAS). Mali by ste byť iba klient prihláseného používateľa je pri implementácii túto rýchlu opravu.
Vykonávať túto rýchlu opravu, musíte mať licencie pre vývojárov.
Odporúčame, aby používateľského konta v okne prihlásenia systému Windows alebo v okne prihlásenia do databázy pridelí "SUPER" úlohu ID. Ak používateľské konto nemožno priradiť úlohu ID "SUPER", musíte overiť, že používateľské konto má nasledujúce povolenia:
-
Zmeniť povolenia pre objekt, ktorý sa zmení.
-
Povolenia na vykonanie systému objekt ID 5210 a systém objekt ID 9015
objekt.
Poznámka: Nemusíte mať práva ukladá údaje, pokiaľ budete musieť vykonať opravy údajov.
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:
-
Zmeniť kód v ovládacie prvky formulára denníka platieb (256):
Nahradenie kód 1... OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
END;
}
{ 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
...Nahradenie kód 1
... OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
// Add the following line.
CheckRecipientBankAccount;
// End of the added line.
END;
}
{ 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
...Existujúci kód 2
...SourceExpr="Reason Code" }
{ 70 ;Label ;0 ;0 ;0 ;0 ;ParentControl=69;
InColumnHeading=Yes }
{ 24 ;Frame ;220 ;6160 ;16060;1430 ;HorzGlue=Both;
VertGlue=Bottom;
ShowCaption=No }
...Nahradenie kód 2
... SourceExpr="Reason Code" }
{ 70 ;Label ;0 ;0 ;0 ;0 ;ParentControl=69;
InColumnHeading=Yes }
// Add the following lines.
{ 1170000000;TextBox;76068;1980 ;1700 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Recipient Bank Account" }
{ 1170000001;Label ;0 ;0 ;0 ;0 ;ParentControl=1170000000;
InColumnHeading=Yes }
// End of the added lines.
{ 24 ;Frame ;220 ;6160 ;16060;1430 ;HorzGlue=Both;
VertGlue=Bottom;
ShowCaption=No }
...Existujúci kód 3
... { ID=1110051;
MenuLevel=1;
CaptionML=ENU=Export;
// Delete the following lines.
OnPush=BEGIN
// PT0007.begin
GenJnlLine.RESET;
GenJnlLine := Rec;
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine.FIND('-') THEN
ERROR(Text1110000);
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
// End of the deleted lines.
// PT0007.end
END;
}
...Nahradenie kód 3
... { ID=1110051;
MenuLevel=1;
CaptionML=ENU=Export;
// Add the following lines.
OnPush=VAR
Selection@1170000001 : Integer;
BEGIN
// PT0007.begin
GenJnlLine.COPYFILTERS(Rec);
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
GenJnlLine.SETRANGE("Bank Payment Type","Bank Payment Type"::"Electronic Payment");
GenJnlLine.SETRANGE("Elect. Pmts Exported",FALSE);
IF GenJnlLine.ISEMPTY THEN
ERROR(Text1100000);
Selection := STRMENU(ExportFormatTypeTxt,2);
CASE Selection OF
1:
BEGIN
IF ExportedPmtExist(GenJnlLine) THEN
IF NOT CONFIRM(ExportAgainQst) THEN
EXIT;
CheckDocNos(GenJnlLine);
CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
GenJnlLine.MODIFYALL("Export File Name",'');
GenJnlLine.MODIFYALL("Elect. Pmts Exported",TRUE);
END;
2:
BEGIN
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
END;
END;
// End of the added lines.
// PT0007.end
END;
}
...Existujúci kód 4
... // PT0007.end
END;
}
{ ID=65;
CaptionML=ENU=Void Check;
OnPush=BEGIN
...Nahradenie kód 4
... // PT0007.end
END;
}
// Add the following lines.
{ ID=1170000002;
PushAction=RunObject;
MenuLevel=1;
CaptionML=ENU=Show Export File Errors;
RunObject=Form 1228;
RunFormLink=Journal Template Name=FIELD(Journal Template Name),
Journal Batch Name=FIELD(Journal Batch Name) }
// End of the added lines.
{ ID=65;
CaptionML=ENU=Void Check;
OnPush=BEGIN
... -
Zmeniť kód globálne premenné v podobe denníka platieb (256):
Existujúci kód... ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
Text1110000@1110000 : TextConst 'ENU=Nothing to export.';
LOCAL PROCEDURE UpdateBalance@1();
BEGIN
...Nahradenie kódu
... ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
Text1110000@1110000 : TextConst 'ENU=Nothing to export.';
// Add the following lines.
ExportFormatTypeTxt@1170000001 : TextConst 'ENU=SEPA,PS2';
ExportAgainQst@1170000000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
// End of the added lines.
LOCAL PROCEDURE UpdateBalance@1();
BEGIN
... -
Zmena kódu v ExportedPmtExist funkcia vo forme denníka platieb (256):
Existujúci kód... CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
END;
BEGIN
{
<changelog>
...Nahradenie kódu
... CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
END;
// Add the following lines.
LOCAL PROCEDURE ExportedPmtExist@1170000001(GenJournalLine@1170000000 : Record 81) : Boolean;
VAR
GenJnlLine3@1170000001 : Record 81;
BEGIN
GenJnlLine3.COPYFILTERS(GenJnlLine);
GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
EXIT(NOT GenJnlLine3.ISEMPTY);
END;
LOCAL PROCEDURE CheckRecipientBankAccount@1170000006();
BEGIN
IF ("Account No." <> xRec."Account No.") THEN
VALIDATE("Recipient Bank Account",'');
END;
// End of the added lines.
BEGIN
{
<changelog>
... -
Zmeniť kód na stránke denníka platieb (256):
Existujúci kód... END;
END;
}
{ 1900000004;0 ;ActionContainer;
ActionContainerType=ActionItems }
{ 40 ;1 ;ActionGroup;
...Nahradenie kódu
... END;
END;
}
// Add the following lines.
{ 1110050 ;2 ;ActionGroup;
CaptionML=ENU=Electronic Payments }
{ 1110051 ;3 ;Action ;
CaptionML=ENU=Export;
OnAction=VAR
Selection@1170000001 : Integer;
BEGIN
// PT0007.begin
GenJnlLine.RESET;
GenJnlLine.COPYFILTERS(Rec);
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
IF NOT GenJnlLine.FIND('-') THEN
ERROR(Text1110000);
Selection := STRMENU(ExportFormatTypeTxt,2);
CASE Selection OF
1:
BEGIN
IF ExportedPmtExist(GenJnlLine) THEN
IF NOT CONFIRM(ExportAgainQst) THEN
EXIT;
CODEUNIT.RUN(CODEUNIT::"SEPA CT-Export File",GenJnlLine);
END;
2:
BEGIN
GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
END;
END;
// PT0007.end
END;
}
{ 1110052 ;3 ;Action ;
CaptionML=ENU=Void;
OnAction=VAR
VoidElecPayments@1110010 : Report 13396;
BEGIN
// PT0007.begin
GenJnlLine.RESET;
GenJnlLine := Rec;
GenJnlLine.SETRANGE("Journal Template Name","Journal Template Name");
GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
CLEAR(VoidElecPayments);
VoidElecPayments.SETTABLEVIEW(GenJnlLine);
VoidElecPayments.RUNMODAL;
// PT0007.end
END;
}
{ 1170000002;3 ;Action ;
CaptionML=ENU=Show Export File Errors;
RunObject=Page 1228;
RunFormLink=Journal Template Name=FIELD(Journal Template Name),Journal Batch Name=FIELD(Journal Batch Name) }
// End of the added lines.
{ 1900000004;0 ;ActionContainer;
ActionContainerType=ActionItems }
{ 40 ;1 ;ActionGroup;
... -
Zmeniť kód ovládacie prvky na stránke denníka platieb (256):
Nahradenie kód 1... OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
END;
}
...Nahradenie kód 1
...OnValidate=BEGIN
GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
ShowShortcutDimCode(ShortcutDimCode);
// Add the following line.
CheckRecipientBankAccount;
// End of the added line.
END;
}
...Existujúci kód 2
... SourceExpr="Reason Code";
Visible=FALSE }
{ 24 ;1 ;Group }
{ 1903561801;2;Group ;
...Nahradenie kód 2
... SourceExpr="Reason Code";
Visible=FALSE }
// Add the follwing lines.
{ 1170000000;2;Field ;
SourceExpr="Recipient Bank Account" }
// End of the added lines.
{ 24 ;1 ;Group }
{ 1903561801;2;Group ;
... -
Zmeniť kód globálne premenné na stránke denníka platieb (256):
Existujúci kód...ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
BalanceVisible@19073040 : Boolean INDATASET;
TotalBalanceVisible@19063333 : Boolean INDATASET;
...Nahradenie kódu
... ShowTotalBalance@1017 : Boolean;
ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
OpenedFromBatch@1019 : Boolean;
// Add the following lines.
Text1110000@1110000 : TextConst 'ENU=Nothing to export.';
ExportFormatTypeTxt@1170000001 : TextConst 'ENU=SEPA,PS2';
ExportAgainQst@1170000000 : TextConst 'ENU=One or more of the selected lines have already been exported. Do you want to export again?';
// End of the added lines.
BalanceVisible@19073040 : Boolean INDATASET;
TotalBalanceVisible@19063333 : Boolean INDATASET;
... -
Zmena kódu v ExportedPmtExist funkcia na stránke denníka platieb (256):
Existujúci kód... TotalBalanceVisible := ShowTotalBalance;
END;
LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
BEGIN
CurrPage.SAVERECORD;
...Nahradenie kódu
... TotalBalanceVisible := ShowTotalBalance;
END;
// Add the following lines.
LOCAL PROCEDURE ExportedPmtExist@1170000001(GenJournalLine@1170000000 : Record 81) : Boolean;
VAR
GenJnlLine3@1170000001 : Record 81;
BEGIN
GenJnlLine3.COPYFILTERS(GenJnlLine);
GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
EXIT(NOT GenJnlLine3.ISEMPTY);
END;
LOCAL PROCEDURE CheckRecipientBankAccount@1170000006();
BEGIN
IF ("Account No." <> xRec."Account No.") THEN
VALIDATE("Recipient Bank Account",'');
END;
// End of the added lines.
LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
BEGIN
CurrPage.SAVERECORD;
... -
Zmeniť kód v SEPA CT pain.001.001.03 xmlport (1000):
Existujúci kód... ELEMENTS
{
{ [{0EA1BA75-FB56-4C05-946C-A299E4809E84}]; ;Document ;Element ;Table ;
SourceTable=Table81 }
{ [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns ;Attribute;Text ;
VariableName=XMLNamespace }
...Nahradenie kódu
... {
{ [{0EA1BA75-FB56-4C05-946C-A299E4809E84}]; ;Document ;Element ;Table ;
SourceTable=Table81;
// Add the following line.
MaxOccurs=Once }
// End of the added line.
{ [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns ;Attribute;Text ;
VariableName=XMLNamespace }
...
Požiadavky
Musíte mať jednu z nasledovných produktov nainštalovaný chcete použiť túto rýchlu opravu:
-
Portugalská verzia Microsoft Dynamics NAV 2009 R2
-
Portugalská verzia Microsoft Dynamics NAV 2009 SP1
Okrem toho musíte KB3036841 nainštalované.
Informácie o odstránení
Nemôžete odstrániť túto rýchlu opravu.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
Poznámka: To je "Rýchlo publikovať" článok vytvorené priamo v rámci organizácie technickej podpory spoločnosti Microsoft. Uvedené informácie sa poskytuje ako-v reakcii na naliehavé problémy. Rýchlosťou robiť materiály môžu obsahovať typografické chyby a môžu byť revidované kedykoľvek bez predchádzajúceho upozornenia. Prečítajte si Podmienky používaniaz iných dôvodov.
