SEPA kredito perdavimo neleidžiama iš žurnalo 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ą.

Diegimo informacija

Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.

Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.

Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.

Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:

• Keisti teisės objektas, kuris bus pakeisti.

• Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015
  
  objekto.

Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.

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 kodą valdiklių mokėjimo žurnalo formoje (256) taip:
   Esamas kodas 1

   ...     OnValidate=BEGIN
                                                                 GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                                                 ShowShortcutDimCode(ShortcutDimCode);
                                                               END;
                                                                }
       { 11  ;Label        ;0    ;0    ;0    ;0    ;ParentControl=10;
   ...
   

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

   Esamas kodas 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 }
   ...
   

   Atsarginis kodas 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 }
   ...
   

   Esamas kodas 3

   ...CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
                                                               BEGIN
                                                                 // es0006.begin
                                                                 GenJnlLine.RESET;
   ...
   

   Pakeitimo kodas 3

   ...CaptionML=ENU=Export;
                                                        OnPush=VAR
                                                                 Text1100000@1100000 : TextConst 'ENU=Nothing to export.';
   
   // Add the following line.
   Selection@1100004 : Integer;
   // End of the added line.
   
                                                               BEGIN
                                                                 // es0006.begin
                                                                 GenJnlLine.RESET;
   ...
   

   Esamas kodas 4

   ... 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);
                                                                 // es0006.end
                                                               END;
                                                                }
   ...
   

   Pakeitimo kodekso 4

   ... GenJnlLine.SETRANGE("Journal Batch Name","Journal Batch Name");
                                                                 IF NOT GenJnlLine.FIND('-') THEN
                                                                   ERROR(Text1100000);
   
   // Add the following lines.                                                          
   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
   // End of the added lines.
   
   GenJnlLine.TESTFIELD("Elect. Pmts Exported",FALSE);
                                                                       REPORT.RUNMODAL(REPORT::"Export Electronic Payments",TRUE,FALSE,GenJnlLine);
   
   // Add the following lines.                                                             
   END;
   END;
   // End of the added lines.
                                                                 // es0006.end
                                                               END;
                                                                }
   ...
   

   Esamas kodas 5

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

   Pakeitimo kodas 5

   ...  // 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. Pakeisti mokėjimo žurnalo formoje (256) visuotinis kintamieji kodą taip:
   Esamas kodas

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

   Pastaba.

   ...     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. Pakeisti ExportedPmtExist funkcija mokėjimo žurnalo formoje (256):
   Esamas kodas

   ...    CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
       END;
   
       BEGIN
       {
         <changelog>
   ...
   

   Pastaba.

   ...      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. Pakeisti mokėjimo žurnalas puslapį (256) ypatybės kodą taip:
   Esamas kodas

   ...END;
                                  END;
                                   }
         { 1900000004;0 ;ActionContainer;
                         ActionContainerType=ActionItems }
         { 40      ;1   ;ActionGroup;
   ...
   

   Pastaba.

   ...  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 := 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. Pakeisti kodą valdiklių mokėjimo žurnalo puslapyje (256) taip:
   Esamas kodas 1

   ...OnValidate=BEGIN
                                GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                ShowShortcutDimCode(ShortcutDimCode);
                              END;
                               }
   ...
   

   Atsarginis kodas 1

   ...OnValidate=BEGIN
                                GenJnlManagement.GetAccounts(Rec,AccName,BalAccName);
                                ShowShortcutDimCode(ShortcutDimCode);
   
   // Add the following line.
   CheckRecipientBankAccount;
   // End of the added line.
   
                              END;
                               }
   ...
   

   Esamas kodas 2

   ...SourceExpr="Reason Code";
                   Visible=FALSE }
   
       { 24  ;1   ;Group      }
   
       { 1903561801;2;Group  ;
   ...
   

   Atsarginis kodas 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. Pakeisti mokėjimo žurnalas puslapį (256) visuotinis kintamieji kodą taip:
   Esamas kodas

   ...ShowTotalBalance@1017 : Boolean;
         ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
         OpenedFromBatch@1019 : Boolean;
         BalanceVisible@19073040 : Boolean INDATASET;
         TotalBalanceVisible@19063333 : Boolean INDATASET;
   ...
   

   Pastaba.

   ...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. Pakeisti ExportedPmtExist funkcija mokėjimo žurnalo puslapyje (256):
   Esamas kodas

   ...TotalBalanceVisible := ShowTotalBalance;
       END;
   
       LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
       BEGIN
         CurrPage.SAVERECORD;
   ...
   

   Pastaba.

   ...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();
   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.
   
   LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
       BEGIN
         CurrPage.SAVERECORD;
   ...
   

8. Pakeisti į SEPA CT pain.001.001.03 XML prievadas (1000) kodą taip:
   Esamas kodas

   ...ELEMENTS
     {
       { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}];  ;Document            ;Element ;Table   ;
                                                     SourceTable=Table81 }
   
       { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns               ;Attribute;Text   ;
                                                     VariableName=XMLNamespace }
   ...
   

   Pastaba.

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

9. Pakeisti InitData funkcija SEPA CT pain.001.001.03 XML prievadas (1000) kodą taip:
   Esamas kodas

   ...  PaymentGroupNo@1000 : Integer;
       BEGIN
         SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
         PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
   
         NoOfTransfers := FORMAT(PaymentExportData.COUNT);
   ...
   

   Pastaba.

   ...PaymentGroupNo@1000 : Integer;
       BEGIN
         SEPACTFillExportBuffer.FillExportBuffer("Gen. Journal Line",PaymentExportData);
   
   // Add the following lines.
   "Gen. Journal Line".SETRANGE("Journal Template Name",'');
   "Gen. Journal Line".SETRANGE("Journal Batch Name",'');
   // End of the added lines.
   
         PaymentExportData.GetRemittanceTexts(TempPaymentExportRemittanceTxt);
   
         NoOfTransfers := FORMAT(PaymentExportData.COUNT);
   ...
   
   
   

Būtinosios sąlygos

Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:

• Ispanų kalba ir Microsoft Dynamics NAV 2009 R2

• Ispanų kalba ir Microsoft Dynamics NAV 2009 SP1

Pašalinimo informacija

Jūs negalite pašalinti šias karštąsias pataisas.