"Zvoliť. Pmts exportovali musí byť Áno"chyby, ak riadky denníka 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.

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:

1. 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.
   { 1100012;TextBox   ;71517;1100 ;1700 ;440  ;ParentControl=1;
   InColumn=Yes;
   SourceExpr="Recipient Bank Account" }
   { 1100013;Label     ;0    ;0    ;0    ;0    ;ParentControl=1100012;
   InColumnHeading=Yes }
   // End of the added lines.
   
       { 24  ;Frame        ;220  ;6160 ;16060;1430 ;HorzGlue=Both;
                                                    VertGlue=Bottom;
                                                    ShowCaption=No }
   ...
   

   Existujúci kód 3

   ...                                                                CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   
   // Delete the following lines.
   BEGIN
   // es0006.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(Text1100000);
   GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
   REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
   // End of the deleted lines.
   
   // es0006.end
                                                               END;
                                                                }
   ...
   

   Nahradenie kód 3

   ...    CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   
   // Add the following lines.
   Selection@1100004 : Integer;
   BEGIN
   // es0006.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.
   
                                                                 // es0006.end
                                                               END;
                                                                }
   ...
   

   Existujúci kód 4

   ...      // es0006.end
                                                               END;
                                                                }
                                                      { ID=65;
                                                        CaptionML=ENU=Void Check;
                                                        OnPush=BEGIN
   ...
   

   Nahradenie kód 4

   ...    // es0006.end
                                                               END;
                                                                }
   
   // Add the following lines.
   { ID=1100014;
   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
   ...
   

2. Zmeniť kód globálne premenné v podobe denníka platieb (256):
   Existujúci kód

   ... ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
   
       LOCAL PROCEDURE UpdateBalance@1();
       BEGIN
   ...
   

   Nahradenie kódu

   ...     ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
   
   // Add the following lines.
   ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
   ExportAgainQst@1100000 : 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
   ...
   

3. 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@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
   VAR
   GenJnlLine3@1100001 : Record 81;
   BEGIN
   GenJnlLine3.COPYFILTERS(GenJnlLine);
   GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
   EXIT(NOT GenJnlLine3.ISEMPTY);
   END;
   
   LOCAL PROCEDURE CheckRecipientBankAccount@1100000();
   VAR
   VendorBankAccount@1100000 : Record 288;
   CustomerBankAccount@1100001 : Record 287;
   BEGIN
   IF ("Account No." <> xRec."Account No.") THEN
   VALIDATE("Recipient Bank Account",'');
   END;
   // End of the added lines.
   
       BEGIN
       {
         <changelog>
   ...
   

4. 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.
   { 1100050 ;2   ;ActionGroup;
   CaptionML=ENU=Electronic Payments }
   { 1100051 ;3   ;Action    ;
   CaptionML=ENU=Export;
   OnAction=VAR
   Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   Selection@1100004 : Integer;
   BEGIN
   // es0006.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(Text1100000);
   
   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;
   // es0006.end
   END;
   }
   { 1100052 ;3   ;Action    ;
   CaptionML=ENU=Void;
   OnAction=VAR
   VoidElecPayments@1101100000 : Report 10722;
   BEGIN
   // es0006.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;
   // es0006.end
   END;
   }
   { 1100014 ;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;
   ...
   

5. 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 following lines.
   { 1100012;2;Field     ;
   SourceExpr="Recipient Bank Account" }
   // End of the added lines.
   
       { 24  ;1   ;Group      }
   
       { 1903561801;2;Group  ;
   ...
   

6. 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.
   ExportFormatTypeTxt@1100001 : TextConst 'ENU=SEPA,N34.1';
   ExportAgainQst@1100000 : 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;
   ...
   

7. 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@1100002(GenJournalLine@1100000 : Record 81) : Boolean;
   VAR
   GenJnlLine3@1100001 : Record 81;
   BEGIN
   GenJnlLine3.COPYFILTERS(GenJnlLine);
   GenJnlLine3.SETRANGE("Exported to Payment File",TRUE);
   EXIT(NOT GenJnlLine3.ISEMPTY);
   END;
   
   LOCAL PROCEDURE CheckRecipientBankAccount@1100000();VARVendorBankAccount@1100000 : Record 288;
   CustomerBankAccount@1100001 : Record 287;
   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;
   ...
   

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

   ...  ELEMENTS
     {
       { [{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:

• Španielskej verzii systému Microsoft Dynamics NAV 2009 R2

• Španielskej verzii systému Microsoft Dynamics NAV 2009 SP1

Okrem toho musíte KB3036839 nainštalované.

Informácie o odstránení

Nemôžete odstrániť túto rýchlu opravu.