Accedi a Microsoft
Accedi o crea un account.
Salve,
Select a different account.
Hai più account
Scegli l'account con cui vuoi accedere.

Sintomi

La funzionalità di pagamenti elettronici offre la possibilità di esportare i pagamenti elettronici dal giornale di registrazione e da sulla Cartera (ordini di pagamento) nella versione spagnola di Microsoft Dynamics NAV 2009. Solo l'esportazione da riepiloghi tramite un ordine di pagamento è possibile utilizzare SEPA (XML). È la possibilità di esportare SEPA dal giornale di registrazione per credito trasferire (TAC) anche. Seguire i passaggi nella sezione modifiche al codice per risolvere questo problema. Questo problema si verifica nei seguenti prodotti:

  • La versione spagnola di Microsoft Dynamics NAV 2009 R2

  • La versione spagnola di Microsoft Dynamics NAV 2009 SP1

Risoluzione

Informazioni sull'hotfix

Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.

Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.

Informazioni sull'installazione

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.

Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client di Microsoft Dynamics NAV sono disconnessi dal sistema. Sono inclusi i servizi di Microsoft Dynamics NAV Application Server (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.

Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.

È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:

  • Autorizzazione alla modifica dell'oggetto che si desidera modificare.

  • L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e per il sistema oggetto ID 9015

    oggetto.

Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.

Modifiche al codice

Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.

Per risolvere questo problema, attenersi alla seguente procedura:

  1. Modificare il codice nei controlli del modulo giornale di registrazione pagamenti (256) come segue:
    Codice esistente 1

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

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

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

    Codice di sostituzione 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 }
    ...

    3 il codice esistente

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

    Codice di sostituzione 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;
    ...

    4 il codice esistente

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

    Codice di sostituzione 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;
    }
    ...

    5 il codice esistente

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

    Codice di sostituzione 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. Modificare il codice nelle variabili globali nel modulo giornale di registrazione pagamenti (256) come segue:
    Codice esistente

    ...ShowTotalBalance@1017 : Boolean;
    ShortcutDimCode@1018 : ARRAY [8] OF Code[20];
    OpenedFromBatch@1019 : Boolean;

    LOCAL PROCEDURE UpdateBalance@1();
    BEGIN
    ...

    Codice di sostituzione

    ...     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. Modificare il codice nella funzione ExportedPmtExist nel modulo giornale di registrazione pagamenti (256) come segue:
    Codice esistente

    ...    CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
    END;

    BEGIN
    {
    <changelog>
    ...

    Codice di sostituzione

    ...      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. Modificare il codice nelle proprietà della pagina del giornale di registrazione pagamenti (256) come segue:
    Codice esistente

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

    Codice di sostituzione

    ...  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. Modificare il codice nei controlli della pagina del giornale di registrazione pagamenti (256) come segue:
    Codice esistente 1

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

    Codice sostitutivo 1

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

    // Add the following line.
    CheckRecipientBankAccount;
    // End of the added line.

    END;
    }
    ...

    Codice esistente 2

    ...SourceExpr="Reason Code";
    Visible=FALSE }

    { 24 ;1 ;Group }

    { 1903561801;2;Group ;
    ...

    Codice di sostituzione 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. Modificare il codice nelle variabili globali della pagina del giornale di registrazione pagamenti (256) come segue:
    Codice esistente

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

    Codice di sostituzione

    ...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. Modificare il codice nella funzione ExportedPmtExist nella pagina di giornale di registrazione pagamenti (256) come segue:
    Codice esistente

    ...TotalBalanceVisible := ShowTotalBalance;
    END;

    LOCAL PROCEDURE CurrentJnlBatchNameOnAfterVali@19002411();
    BEGIN
    CurrPage.SAVERECORD;
    ...

    Codice di sostituzione

    ...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. Modificare il codice nella finestra delle proprietà in xmlport pain.001.001.03 CT SEPA (1000) come segue:
    Codice esistente

    ...ELEMENTS
    {
    { [{0EA1BA75-FB56-4C05-946C-A299E4809E84}]; ;Document ;Element ;Table ;
    SourceTable=Table81 }

    { [{596E5521-E230-4D9C-B0F7-DF29388F515B}];1 ;xmlns ;Attribute;Text ;
    VariableName=XMLNamespace }
    ...

    Codice di sostituzione

    ... 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. Modificare il codice nella funzione InitData xmlport pain.001.001.03 CT SEPA (1000) come segue:
    Codice esistente

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

    NoOfTransfers := FORMAT(PaymentExportData.COUNT);
    ...

    Codice di sostituzione

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


Prerequisiti

Deve avere uno dei seguenti prodotti per applicare questo hotfix:

  • La versione spagnola di Microsoft Dynamics NAV 2009 R2

  • La versione spagnola di Microsoft Dynamics NAV 2009 SP1

Informazioni sulla rimozione

Non è possibile rimuovere questo hotfix.

Stato

Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".

Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo.

Serve aiuto?

Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa a Microsoft Insider

Queste informazioni sono risultate utili?

Come valuti la qualità della lingua?
Cosa ha influito sulla tua esperienza?

Grazie per il feedback!

×