SEPA NL: aanleveren van DD bestanden voor elke sequence type

lvanvugt

Ben momenteel bezig SEPA NL oplossing om te bouwen, zodat bij het exporteren voor elke sequence type een apart bestand wordt gemaakt. Dit aangezien de banken geen bestanden accepteren met verschillende sequence types in één bestand.
Enfin, vroeg me af of ik het wiel opnieuw zit uit te vinden.
Wie is hier al mee bezig geweest en heeft tips of meer te delen?

mdPartnerNL

ik heb over sepa en de sequence al iets gelezen hier. Even zoeken..

lvanvugt

mdPartnerNL wrote:

ik heb over sepa en de sequence al iets gelezen hier. Even zoeken..

Gevonden?

Ondertussen ben ik al gaan bouwen en heb het als volgt opgelost:

* In het betaal voorstelvenster (telebankieren) laat ik gewoon de voorstelregels aanmaken
* bij het verwerken van deze regels (COD11000000 - Process Proposal Lines) zorg ik dat eerst alle regels verwerkt worden in een temporary table (Payment History Line), zodat het Sequence Type bepaald wordt
* daarna worden al deze tijdelijke Payment History Line records weer doorlopen en een voor een weggeschreven naar de database, tevens wordt voor records met zelfde Sequence Type een kop aan gemaakt (Payment History)

Resultaat

* alle voorstel regels worden bij het verwerken gescheiden in betaalruns met hetzelfde Sequence Type
* export gaat op basis van betaalruns, zoals we dat al gewend waren en levert dus per betaalrun (en dus met één Sequence Type) een bestand op

mdPartnerNL

Dus dit moeten we als partner zelf gaan maken? Dus het enige wat de sepa update inhoud is een extra veldje en een export programma wat jij dus nu aan het aanpassen bent.

Ps.
viewtopic.php?f=22&t=58478 hier nog iemand die het loopt aan te passen zodat de klant wel tevreden is...

tinoruijs

mdPartnerNL wrote:

Dus dit moeten we als partner zelf gaan maken? Dus het enige wat de sepa update inhoud is een extra veldje en een export programma wat jij dus nu aan het aanpassen bent.

Wat een drama-project dit SEPA.. ](*,)

lvanvugt

Code getest en goed bevonden. Dus hieronder de aanpassing die ik gedaan heb in COD11000000 (Process Proposal Lines) en TAB110000001 (Payment History)

TAB110000001 (Payment History)
* Veld 50000 (Sequence Type) toegevoegd à la hetzelfde veld 50 (Sequence Type) in TAB11000001 (Payment History Line)
* Tevens 1e SK uitgebreid et dit veld: Our Bank,Export Protocol,Status,User ID,Sequence Type

COD11000000 (Process Proposal Lines)
Alle aanpassingen zijn gemarkeerd met FLXXS

OBJECT Codeunit 11000000 Process Proposal Lines
{
  OBJECT-PROPERTIES
  {
    Date=19-12-13;
    Time=12:00:00;
    Version List=NAVNL6.00.01,TFS348943;
  }
  PROPERTIES
  {
    TableNo=11000000;
    OnRun=BEGIN
            CLEARALL;
            Prop:=Rec;
            Prop.COPYFILTERS(Rec);
            Prop.SETCURRENTKEY("Our Bank No.",Process);
            Prop.SETRANGE(Process,TRUE)
          END;

  }
  CODE
  {
    VAR
      [email protected] : TextConst 'ENU=There is nothing to check.;NLD=Er is niets te controleren.';
      [email protected] : TextConst 'ENU=%1 %4 have been checked\;NLD=Er zijn %1 %4 gecontroleerd\';
      [email protected] : TextConst 'ENU=This contains:\\;NLD=Daarin zijn:\\';
      [email protected] : TextConst 'ENU="  %2 error(s) \";NLD="  %2 fout(en) \"';
      [email protected] : TextConst 'ENU="  %3 warning(s)";NLD="  %3 waarschuwing(en) gevonden"';
      [email protected] : TextConst 'ENU=Process proposal lines?;NLD=Voorstelregels verwerken?';
      [email protected] : TextConst 'ENU=Output cancelled.;NLD=Output geannuleerd.';
      [email protected] : TextConst 'ENU=There is nothing to process.;NLD=Er is niets te verwerken.';
      [email protected] : TextConst 'ENU=The proposal lines were processed.;NLD=De voorstelregels zijn verwerkt.';
      [email protected] : TextConst 'ENU=There are %3 lines processed and %2 lines not processed of %1 lines.;NLD=Er zijn %3 regel verwerkt en %2 regels van de %1 regels niet verwerkt.';
      [email protected] : TextConst 'ENU=%1 is not filled out correctly.;NLD=%1 is niet correct ingevuld.';
      Text100[email protected] : TextConst 'ENU=No %1 entered in %2.;NLD=Er is geen %1 ingevuld in %2.';
      [email protected] : TextConst 'ENU=%1 is not stated correctly %2.;NLD=%1 is niet correct opgegeven %2.';
      [email protected] : TextConst 'ENU=%1 in number series must be switched on in number serie %2.;NLD=%1 in nummerreeksen moet aan staan in nummerreeks %2.';
      [email protected] : TextConst 'ENU=%1 %2 must not be in the past.;NLD=%1 %2 mag niet in het verleden liggen.';
      [email protected] : TextConst 'ENU=%1 must not be zero.;NLD=%1 mag niet nul zijn.';
      [email protected] : TextConst 'ENU="%1 must be negative when %2=%3.";NLD="%1 moet negatief zijn wanneer %2=%3."';
      [email protected] : TextConst 'ENU="%1 must be positive when %2=%3.";NLD="%1 moet positief zijn wanneer %2=%3."';
      [email protected] : TextConst 'ENU=%1 is not filled out.;NLD=%1 is niet ingevuld.';
      [email protected] : TextConst 'ENU=%1 is already in use, modify %1.;NLD=%1 wordt reeds gebruikt, wijzig %1.';
      [email protected] : TextConst 'ENU=%1 is already used more than once in the proposal.;NLD=%1 is reeds meer dan 1 keer in het voorstel gebruikt';
      [email protected] : TextConst 'ENU=Credit limit for bank %1 will be exceeded.;NLD=Kredietlimiet voor bank %1 zal overschreden worden.';
      [email protected] : TextConst 'ENU=The %2 from bank %1 has not been entered.;NLD=Het %2 van bank %1 is niet ingevuld.';
      [email protected] : TextConst 'ENU=%1 of %2 has not been entered correctly.;NLD=%1 van %2 is niet correct ingevuld.';
      [email protected] : TextConst 'ENU=%1 is not found in table %2.;NLD=%1 komt niet voor in tabel %2.';
      [email protected] : TextConst 'ENU=%1 %2 has open credit memo''s.;NLD=%1 %2 heeft openstaande creditnota''s.';
      [email protected] : TextConst 'ENU=%1 %2 has not been entered correctly.;NLD=%1 %2 is niet correct ingevuld.';
      [email protected] : TextConst 'ENU=%1 is not entered.;NLD=%1 is niet ingevoerd.';
      [email protected] : TextConst 'ENU=%1 is filled in, but %2 is 0.;NLD=%1 is ingevuld, maar %2 is 0.';
      [email protected] : TextConst 'ENU=%1 must not be zero in detail line for %2 %3.;NLD=%1 mag niet nul zijn in detailregel voor %2 %3.';
      [email protected] : TextConst 'ENU=No Check ID entered in %1 %2.;NLD=Er is geen controle-id ingevuld in %1 %2.';
      [email protected] : TextConst 'ENU=PG0123456789;NLD=PG0123456789';
      [email protected] : TextConst 'ENU=P;NLD=P';
      [email protected] : TextConst 'ENU=G;NLD=G';
      [email protected] : TextConst 'ENU=PG;NLD=PG';
      [email protected] : Record 11000000;
      [email protected] : Record 11000001;
      [email protected] : TEMPORARY Record 11000002;
      [email protected] : TEMPORARY Record 356;
      [email protected] : Integer;
      [email protected] : Integer;
      [email protected] : Text[125];
      [email protected] : Text[125];
      [email protected] : Integer;
      [email protected] : Codeunit 11000001;
      [email protected] : TEMPORARY Record 81;
      [email protected] : Codeunit 11400;
      [email protected] : Text[30];
      [email protected] : TEMPORARY Record 356;
      [email protected] : TextConst 'ENU=%1 must not be zero in %2.;NLD=%1 moet geen nul zijn in %2.';

    PROCEDURE [email protected]();
    BEGIN
      ErrorNumber:=0;
      NumberPosted:=0;
      WarningNumber:=0;

      IF Prop.FIND('-') THEN
        REPEAT
          NumberPosted:=NumberPosted+1;
          IF NOT CheckAProposalLine(Prop) THEN
            ErrorNumber:=ErrorNumber+1;
          IF Warningstext<>'' THEN
            WarningNumber:=WarningNumber+1;
          IF (Errortext<>Prop."Error Message") OR
             (Warningstext<>Prop.Warning)
          THEN BEGIN
            Prop."Error Message":=Errortext;
            Prop.Warning:=Warningstext;
            Prop.MODIFY;
          END;
        UNTIL Prop.NEXT=0;

      IF NumberPosted=0 THEN
        MESSAGE(Text1000000)
      ELSE
        MESSAGE(Text1000001+Text1000002+Text1000003+Text1000004, NumberPosted,ErrorNumber,WarningNumber,Prop.TABLECAPTION);
    END;

    PROCEDURE [email protected]();
    BEGIN
      IF NOT CONFIRM(Text1000005,FALSE) THEN
        ERROR(Text1000006);

      ErrorNumber:=0;
      NumberPosted:=0;
      GenJnlLine.DELETEALL;

      IF Prop.FIND('-') THEN BEGIN
        REPEAT
          NumberPosted:=NumberPosted+1;
          IF CheckAProposalLine(Prop) THEN BEGIN
            //FLXXS-BEGIN
            //IF NOT PaymentHistoryPresent(Prop,PaymHist) THEN
            //  CreatePaymentHistory(Prop,PaymHist);
            //CreatePaymentHistoryLine(Prop,PaymHist);
            //DeleteProposallines(Prop);
            CreatePaymentHistoryLine2(Prop,TempPaymHistLine);
            //FLXXS-END
          END ELSE BEGIN
            IF (Errortext<>Prop."Error Message") OR
               (Warningstext<>Prop.Warning)
            THEN BEGIN
              Prop."Error Message":=Errortext;
              Prop.Warning:=Warningstext;
              Prop.MODIFY;
            END;
            ErrorNumber:=ErrorNumber+1;
          END
        UNTIL Prop.NEXT=0;
        //FLXXS-BEGIN
        IF TempPaymHistLine.FINDSET THEN
          REPEAT
            IF NOT PaymentHistoryPresent2(TempPaymHistLine,PaymHist) THEN
              CreatePaymentHistory2(TempPaymHistLine,PaymHist);
            InsertPaymentHistoryLine2(TempPaymHistLine,PaymHist);
          UNTIL TempPaymHistLine.NEXT = 0;
        TempPaymHistLine.DELETEALL;
        DeleteProposalLines(Prop);
        //FLXXS-END

        TelebankFinancialConnection.PostFDBR(GenJnlLine,TempJournalLineDimension);
        GenJnlLine.DELETEALL;
      END;

      IF NumberPosted=0 THEN
        MESSAGE(Text1000007)
      ELSE
        CASE ErrorNumber OF
          0: MESSAGE(Text1000008);
          1: MESSAGE(Text1000009,NumberPosted,ErrorNumber,NumberPosted-ErrorNumber);
          ELSE
             MESSAGE(Text1000009,NumberPosted,ErrorNumber,NumberPosted-ErrorNumber);
        END;
    END;

    PROCEDURE [email protected]([email protected] : Record 11000000) [email protected] : Boolean;
    VAR
      [email protected] : Record 11000004;
      [email protected] : Record 11000005;
      [email protected] : Record 18;
      [email protected] : Record 23;
      [email protected] : Record 287;
      [email protected] : Record 288;
      [email protected] : Record 270;
      [email protected] : Record 308;
      [email protected] : Record 21;
      [email protected] : Record 25;
      "Detail line"@1000012 : Record 11000003;
      [email protected] : Record 11000002;
      [email protected] : Record 11000000;
    BEGIN
      Errortext:='';
      Warningstext:='';

      ////////////////////////////////////////////////////////////////////////
      // General information

      IF NOT TranMode.GET(CheckRecord."Account Type",CheckRecord."Transaction Mode") THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000010,CheckRecord.FIELDCAPTION("Transaction Mode"));
        EXIT(FALSE);
      END;

      IF NOT ExportProtocol.GET(TranMode."Export Protocol") THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000011, TranMode.FIELDCAPTION("Export Protocol"), TranMode.TABLECAPTION);
        EXIT(FALSE);
      END;

      IF NOT NoSeries.GET(TranMode."Run No. Series") THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000012,
                   TranMode.FIELDCAPTION("Run No. Series"),TranMode.TABLECAPTION);
        EXIT(FALSE);
      END;

      IF NOT NoSeries."Default Nos." THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000013,
          NoSeries.FIELDCAPTION("Default Nos."),NoSeries.Code);
        EXIT(FALSE);
      END;

      IF CheckRecord."Transaction Date"<TODAY THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000014,
                         CheckRecord.FIELDCAPTION(CheckRecord."Transaction Date"),
                         CheckRecord."Transaction Date");
        EXIT(FALSE);
      END;
      IF CheckRecord.Amount=0 THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000015,CheckRecord.FIELDCAPTION(Amount));
        EXIT(FALSE);
      END;


      CASE CheckRecord.Order OF
        CheckRecord.Order::Credit:
          IF CheckRecord.Amount>0 THEN BEGIN
            Errortext:=
              STRSUBSTNO(Text1000016,CheckRecord.FIELDCAPTION(Amount),
                CheckRecord.FIELDCAPTION("Transaction Mode"),CheckRecord."Transaction Mode");
            EXIT(FALSE);
          END;
        CheckRecord.Order::Debit:
          IF CheckRecord.Amount<0 THEN BEGIN
            Errortext:=
              STRSUBSTNO(Text1000017,CheckRecord.FIELDCAPTION(Amount),
                CheckRecord.FIELDCAPTION("Transaction Mode"),CheckRecord."Transaction Mode");
            EXIT(FALSE);
          END;
      END;

      ////////////////////////////////////////////////////////////////////////
      // identification

      IF CheckRecord.Identification='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000018,
                         CheckRecord.FIELDCAPTION(Identification));
        EXIT(FALSE);
      END;

      PaymentHistLine.SETCURRENTKEY("Our Bank",Identification,Status);
      PaymentHistLine.SETRANGE("Our Bank",CheckRecord."Our Bank No.");
      PaymentHistLine.SETRANGE(Identification,CheckRecord.Identification);
      PaymentHistLine.SETFILTER(Status,'<>%1&<>%2&<>%3',
          PaymentHistLine.Status::Posted,
          PaymentHistLine.Status::Cancelled,
          PaymentHistLine.Status::Rejected);
      IF PaymentHistLine.FIND('-') THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000019,
                            CheckRecord.FIELDCAPTION(Identification));
        EXIT(FALSE);
      END;
      Propline.SETCURRENTKEY("Our Bank No.",Identification);
      Propline.SETRANGE("Our Bank No.",CheckRecord."Our Bank No.");
      Propline.SETRANGE(Identification,CheckRecord.Identification);
      Propline.SETFILTER(Propline."Line No.",'<>%1',CheckRecord."Line No.");
      IF Propline.FIND('-') THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000020,
                            CheckRecord.FIELDCAPTION(Identification));
        EXIT(FALSE);
      END;



      ////////////////////////////////////////////////////////////////////////
      // Own account

      IF NOT OurBnk.GET(CheckRecord."Our Bank No.") THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000010,CheckRecord.FIELDCAPTION(CheckRecord."Our Bank No."));
        EXIT(FALSE);
      END;

      IF OurBnk."Credit limit" < 0 THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000021, CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;

      IF OurBnk."Bank Account No."='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000022,
                         CheckRecord."Our Bank No.",OurBnk.FIELDCAPTION("Bank Account No."));
        EXIT(FALSE);
      END;

      IF NOT LocalFuncMgt.CheckBankAccNo(OurBnk."Bank Account No.",OurBnk."Country/Region Code",AccountNo) THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000023,
        OurBnk.FIELDCAPTION("Bank Account No."),CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;

      IF OurBnk."Account Holder Name"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000023,
                   OurBnk.FIELDCAPTION("Account Holder Name"),CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;

      IF OurBnk."Account Holder Address"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000023,
                   OurBnk.FIELDCAPTION("Account Holder Address"),CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;

      IF OurBnk."Account Holder Post Code"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000023,
                   OurBnk.FIELDCAPTION("Account Holder Post Code"),CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;

      IF OurBnk."Account Holder City"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000023,
                   OurBnk.FIELDCAPTION("Account Holder City"),CheckRecord."Our Bank No.");
        EXIT(FALSE);
      END;


      ////////////////////////////////////////////////////////////////////////
      // Customer and Vendor

      CASE CheckRecord."Account Type" OF
        CheckRecord."Account Type"::Customer:
          BEGIN
            IF NOT CustomerAcc.GET(CheckRecord."Account No.") THEN BEGIN
              Errortext:=STRSUBSTNO(Text1000024,CheckRecord.FIELDCAPTION(CheckRecord."Account No."),CustomerAcc.TABLECAPTION);
              EXIT(FALSE);
            END;
            CustEntries.SETCURRENTKEY("Document Type","Customer No.");
            CustEntries.SETRANGE("Customer No.",CheckRecord."Account No.");
            CustEntries.SETRANGE("Document Type",CustEntries."Document Type"::"Credit Memo");
            CustEntries.SETRANGE(Open,TRUE);
            IF CustEntries.FIND('-') THEN
              Warningstext:=STRSUBSTNO(Text1000025,
                                  CustomerAcc.TABLECAPTION,CheckRecord."Account No.");
          END;
        CheckRecord."Account Type"::Vendor:
          BEGIN
            IF NOT VenAcc.GET(CheckRecord."Account No.") THEN BEGIN
              Errortext:=STRSUBSTNO(Text1000024, CheckRecord.FIELDCAPTION(CheckRecord."Account No."),VenAcc.TABLECAPTION);
              EXIT(FALSE);
            END;
            VendEntries.SETCURRENTKEY("Document Type","Vendor No.");
            VendEntries.SETRANGE("Vendor No.",CheckRecord."Account No.");
            VendEntries.SETRANGE("Document Type",VendEntries."Document Type"::"Credit Memo");
            VendEntries.SETRANGE(Open,TRUE);
            IF VendEntries.FIND('-') THEN
              Warningstext:=STRSUBSTNO(Text1000025,
                                  VenAcc.TABLECAPTION,CheckRecord."Account No.");
          END;
      END;

      IF NOT LocalFuncMgt.CheckBankAccNo(CheckRecord."Bank Account No.",CheckRecord."Bank Country/Region Code",AccountNo) THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000026,CheckRecord.FIELDCAPTION(CheckRecord."Bank Account No."),CheckRecord."Bank Account No.");
        EXIT(FALSE);
      END;

      IF CheckRecord."Account Holder Name"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000027,
                   CheckRecord.FIELDCAPTION(CheckRecord."Account Holder Name"));
        EXIT(FALSE);
      END;

      IF CheckRecord."Account Holder City"='' THEN BEGIN
        Errortext:=STRSUBSTNO(Text1000027,
                   CheckRecord.FIELDCAPTION(CheckRecord."Account Holder City"));
        EXIT(FALSE);
      END;

      IF (CheckRecord."Foreign Currency" <> '') AND
         (CheckRecord."Foreign Amount" = 0)
      THEN BEGIN
        Errortext :=
          STRSUBSTNO(
            Text1000028,CheckRecord.FIELDCAPTION(CheckRecord."Foreign Currency"), CheckRecord.FIELDCAPTION(CheckRecord."Foreign Amount")
      );
        EXIT(FALSE);
      END;

      ///////////////////////////////////////////////////////////////////////
      // Per detail line

      "Detail line".SETCURRENTKEY("Our Bank",Status,"Connect Batches","Connect Lines");
      "Detail line".SETRANGE("Our Bank",CheckRecord."Our Bank No.");
      "Detail line".SETRANGE(Status,"Detail line".Status::Proposal);
      "Detail line".SETRANGE("Detail line"."Connect Batches",'');
      "Detail line".SETRANGE("Detail line"."Connect Lines",CheckRecord."Line No.");
      IF "Detail line".FIND('-') THEN
        REPEAT
          IF "Detail line".Amount=0 THEN BEGIN
            Errortext:=
              STRSUBSTNO(
                Text1000029,
                "Detail line".FIELDCAPTION(Amount),
                "Detail line".FIELDCAPTION("Serial No. (Entry)"),
                "Detail line"."Serial No. (Entry)");
            EXIT(FALSE);
          END;
          IF "Detail line"."Serial No. (Entry)"=0 THEN BEGIN
            Errortext:=
              STRSUBSTNO(
                Text1000035,
                "Detail line".FIELDCAPTION("Serial No. (Entry)"),
                "Detail line".TABLECAPTION);
            EXIT(FALSE);
          END;
        UNTIL "Detail line".NEXT=0;

      ////////////////////////////////////////////////////////////////////////
      // Protocol specific

      IF ExportProtocol."Check ID"<>0 THEN BEGIN
        CheckRecord."Error Message":='';
        CheckRecord.Warning:='';
        CODEUNIT.RUN(ExportProtocol."Check ID",CheckRecord);
        IF CheckRecord.Warning<>'' THEN
          Warningstext:=CheckRecord.Warning;
        IF CheckRecord."Error Message"<>'' THEN BEGIN
          Errortext:=CheckRecord."Error Message";
          EXIT(FALSE)
        END;
      END ELSE BEGIN
        Errortext:= STRSUBSTNO(Text1000030,ExportProtocol.TABLECAPTION,ExportProtocol.Code);
        EXIT(FALSE);
      END;

      EXIT(TRUE);
    END;

    PROCEDURE [email protected](VAR [email protected] : Record 11000000;VAR [email protected] : Record 11000001) [email protected] : Boolean;
    VAR
      [email protected] : Record 11000004;
    BEGIN
      TranMode.GET(Prop."Account Type",Prop."Transaction Mode");

      PaymHist.SETCURRENTKEY("Our Bank","Export Protocol",Status,"User ID");
      PaymHist.SETRANGE("Our Bank",Prop."Our Bank No.");
      PaymHist.SETRANGE("Export Protocol",TranMode."Export Protocol");
      PaymHist.SETRANGE(Status,PaymHist.Status::New);
      PaymHist.SETRANGE("User ID",USERID);

      EXIT(PaymHist.FIND('-'));
    END;

    PROCEDURE [email protected]([email protected] : Record 11000002;VAR [email protected] : Record 11000001) [email protected] : Boolean;
    VAR
      [email protected] : Record 11000004;
    BEGIN
      //FLXXS-BEGIN
      TranMode.GET(PaymHistLine."Account Type",PaymHistLine."Transaction Mode");

      PaymHist.SETCURRENTKEY("Our Bank","Export Protocol",Status,"User ID");
      PaymHist.SETRANGE("Our Bank",PaymHistLine."Our Bank");
      PaymHist.SETRANGE("Export Protocol",TranMode."Export Protocol");
      PaymHist.SETRANGE(Status,PaymHist.Status::New);
      PaymHist.SETRANGE("User ID",USERID);
      PaymHist.SETRANGE("Sequence Type",PaymHistLine."Sequence Type");

      EXIT(PaymHist.FIND('-'));
      //FLXXS-END
    END;

    PROCEDURE [email protected](VAR [email protected] : Record 11000000;VAR [email protected] : Record 11000001);
    VAR
      [email protected] : Record 11000004;
      [email protected] : Record 270;
      [email protected] : Record 356;
      [email protected] : Record 356;
      [email protected] : Codeunit 396;
      [email protected] : Codeunit 408;
      [email protected] : Record 98;
    BEGIN
      CLEAR(PaymHist);
      TranMode.GET(Prop."Account Type",Prop."Transaction Mode");
      TranMode.TESTFIELD("Run No. Series");

      PaymHist."Our Bank":=Prop."Our Bank No.";
      NoSeriesManagement.InitSeries(TranMode."Run No. Series",'',TODAY,PaymHist."Run No.",PaymHist."No. Series");
      PaymHist.INIT;

      PaymHist.Status:=PaymHist.Status::New;
      PaymHist."Creation Date":=TODAY;
      PaymHist."User ID":=USERID;

      TranMode.GET(Prop."Account Type",Prop."Transaction Mode");
      PaymHist."Export Protocol":=TranMode."Export Protocol";

      OurBnk.GET(Prop."Our Bank No.");

      PaymHist."Account No.":=OurBnk."Bank Account No.";
      PaymHist."Account Holder Name":=OurBnk."Account Holder Name";
      PaymHist."Account Holder Address":=OurBnk."Account Holder Address";
      PaymHist."Account Holder Post Code":=OurBnk."Account Holder Post Code";
      PaymHist."Account Holder City":=OurBnk."Account Holder City";
      PaymHist."Acc. Hold. Country/Region Code":=OurBnk."Acc. Hold. Country/Region Code";

      FromJnlDim.SETRANGE("Table ID", DATABASE::"Proposal Line");
      FromJnlDim.SETRANGE("Journal Template Name", Prop."Our Bank No.");
      FromJnlDim.SETRANGE("Journal Line No.", 0);

      ToJnlDim."Table ID" := DATABASE::"Payment History";
      ToJnlDim."Journal Template Name" := PaymHist."Our Bank";
      ToJnlDim."Journal Batch Name" := PaymHist."Run No.";
      ToJnlDim."Journal Line No." := 0;

      DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim, ToJnlDim);
      GeneralLedgerSetup.GET;

      IF ToJnlDim.GET(DATABASE::"Payment History",
                      PaymHist."Our Bank",
                      PaymHist."Run No.",
                      0,0,
                      GeneralLedgerSetup."Global Dimension 1 Code",0) THEN
        PaymHist."Global Dimension 1 Code" := ToJnlDim."Dimension Value Code";

      IF ToJnlDim.GET(DATABASE::"Payment History",
                      PaymHist."Our Bank",
                      PaymHist."Run No.",
                      0,0,
                      GeneralLedgerSetup."Global Dimension 2 Code",0) THEN
        PaymHist."Global Dimension 2 Code" := ToJnlDim."Dimension Value Code";
      PaymHist.INSERT(TRUE);
    END;

    PROCEDURE [email protected]([email protected] : Record 11000002;VAR [email protected] : Record 11000001);
    VAR
      [email protected] : Record 11000004;
      [email protected] : Record 270;
      [email protected] : Record 356;
      [email protected] : Record 356;
      [email protected] : Codeunit 396;
      [email protected] : Codeunit 408;
      [email protected] : Record 98;
    BEGIN
      //FLXXS-BEGIN
      CLEAR(PaymHist);
      TranMode.GET(PaymHistLine."Account Type",PaymHistLine."Transaction Mode");
      TranMode.TESTFIELD("Run No. Series");

      PaymHist."Our Bank" := PaymHistLine."Our Bank";
      NoSeriesManagement.InitSeries(TranMode."Run No. Series",'',TODAY,PaymHist."Run No.",PaymHist."No. Series");
      PaymHist.INIT;

      PaymHist.Status := PaymHist.Status::New;
      PaymHist."Creation Date" := TODAY;
      PaymHist."User ID" := USERID;

      TranMode.GET(Prop."Account Type",PaymHistLine."Transaction Mode");
      PaymHist."Export Protocol" := TranMode."Export Protocol";

      OurBank.GET(PaymHistLine."Our Bank");

      PaymHist."Account No." := OurBank."Bank Account No.";
      PaymHist."Account Holder Name" := OurBank."Account Holder Name";
      PaymHist."Account Holder Address" := OurBank."Account Holder Address";
      PaymHist."Account Holder Post Code" := OurBank."Account Holder Post Code";
      PaymHist."Account Holder City" := OurBank."Account Holder City";
      PaymHist."Acc. Hold. Country/Region Code" := OurBank."Acc. Hold. Country/Region Code";

      FromJnlDim.SETRANGE("Table ID", DATABASE::"Proposal Line");
      FromJnlDim.SETRANGE("Journal Template Name", PaymHistLine."Our Bank");
      FromJnlDim.SETRANGE("Journal Line No.", 0);

      ToJnlDim."Table ID" := DATABASE::"Payment History";
      ToJnlDim."Journal Template Name" := PaymHist."Our Bank";
      ToJnlDim."Journal Batch Name" := PaymHist."Run No.";
      ToJnlDim."Journal Line No." := 0;

      DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim, ToJnlDim);
      GeneralLedgerSetup.GET;

      IF ToJnlDim.GET(DATABASE::"Payment History",
                      PaymHist."Our Bank",
                      PaymHist."Run No.",
                      0,0,
                      GeneralLedgerSetup."Global Dimension 1 Code",0) THEN
        PaymHist."Global Dimension 1 Code" := ToJnlDim."Dimension Value Code";

      IF ToJnlDim.GET(DATABASE::"Payment History",
                      PaymHist."Our Bank",
                      PaymHist."Run No.",
                      0,0,
                      GeneralLedgerSetup."Global Dimension 2 Code",0) THEN
        PaymHist."Global Dimension 2 Code" := ToJnlDim."Dimension Value Code";

      PaymHist."Sequence Type" := PaymHistLine."Sequence Type";

      PaymHist.INSERT(TRUE);
      //FLXXS-END
    END;

    PROCEDURE [email protected](VAR [email protected] : Record 11000000;VAR [email protected] : Record 11000001);
    VAR
      [email protected] : Record 11000002;
      "Detail line"@1000003 : Record 11000003;
      [email protected] : Record 356;
      [email protected] : Record 356;
      [email protected] : Codeunit 408;
    BEGIN
      PaymHist."No. of Transactions":=PaymHist."No. of Transactions"+1;
      IF Propline.Docket THEN
        PaymHist."Print Docket":=TRUE;
      PaymHist.MODIFY(TRUE);

      PaymentHistLine."Our Bank":=PaymHist."Our Bank";
      PaymentHistLine."Run No.":=PaymHist."Run No.";
      PaymentHistLine."Line No.":=PaymHist."No. of Transactions";
      PaymentHistLine.Status:=PaymentHistLine.Status::New;

      PaymentHistLine."Account Type":=Propline."Account Type";
      PaymentHistLine."Account No.":=Propline."Account No.";
      PaymentHistLine.Date:=Propline."Transaction Date";
      PaymentHistLine.Amount:=Propline.Amount;
      PaymentHistLine.Bank:=Propline.Bank;
      PaymentHistLine."Bank Account No.":=Propline."Bank Account No.";

      PaymentHistLine."Description 1":=Propline."Description 1";
      PaymentHistLine."Description 2":=Propline."Description 2";
      PaymentHistLine."Description 3":=Propline."Description 3";
      PaymentHistLine."Description 4":=Propline."Description 4";
      PaymentHistLine.Identification:=Propline.Identification;

      PaymentHistLine."Account Holder Name":=Propline."Account Holder Name";
      PaymentHistLine."Account Holder Address":=Propline."Account Holder Address";
      PaymentHistLine."Account Holder Post Code":=Propline."Account Holder Post Code";
      PaymentHistLine."Account Holder City":=Propline."Account Holder City";
      PaymentHistLine."Acc. Hold. Country/Region Code":=Propline."Acc. Hold. Country/Region Code";
      PaymentHistLine."National Bank Code":=Propline."National Bank Code";
      PaymentHistLine."SWIFT Code":=Propline."SWIFT Code";
      PaymentHistLine.IBAN := Propline.IBAN;
      PaymentHistLine."Direct Debit Mandate ID" := Propline."Direct Debit Mandate ID";
      PaymentHistLine."Abbrev. National Bank Code" := Propline."Abbrev. National Bank Code";
      PaymentHistLine."Bank Name":=Propline."Bank Name";
      PaymentHistLine."Bank Address":=Propline."Bank Address";
      PaymentHistLine."Bank City":=Propline."Bank City";
      PaymentHistLine."Bank Country/Region":=Propline."Bank Country/Region Code";
      PaymentHistLine."Transfer Cost Domestic":=Propline."Transfer Cost Domestic";
      PaymentHistLine."Transfer Cost Foreign":=Propline."Transfer Cost Foreign";

      PaymentHistLine."Currency Code":=Propline."Currency Code";
      PaymentHistLine.Order:=Propline.Order;
      PaymentHistLine."Transaction Mode":=Propline."Transaction Mode";
      PaymentHistLine.Docket:=Propline.Docket;

      PaymentHistLine."Nature of the Payment":=Propline."Nature of the Payment";
      PaymentHistLine."Registration No. DNB":=Propline."Registration No. DNB";
      PaymentHistLine."Description Payment":=Propline."Description Payment";
      PaymentHistLine."Item No.":=Propline."Item No.";
      PaymentHistLine."Traders No.":=Propline."Traders No.";
      PaymentHistLine.Urgent:=Propline.Urgent;

      IF ((PaymentHistLine.Order=PaymentHistLine.Order::Credit) AND
          (PaymentHistLine."Account Type"=PaymentHistLine."Account Type"::Vendor)) OR
         ((PaymentHistLine.Order=PaymentHistLine.Order::Credit)  AND
          (PaymentHistLine."Account Type"=PaymentHistLine."Account Type"::Customer))
      THEN
        PaymentHistLine."Payment/Receipt":=PaymentHistLine."Payment/Receipt"::Receipt
      ELSE
        PaymentHistLine."Payment/Receipt":=PaymentHistLine."Payment/Receipt"::Payment;

      PaymentHistLine."Foreign Currency" := Propline."Foreign Currency";
      PaymentHistLine."Foreign Amount" := Propline."Foreign Amount";

      FromJnlDim.SETRANGE("Table ID", DATABASE::"Proposal Line");
      FromJnlDim.SETRANGE("Journal Template Name", Propline."Our Bank No.");
      FromJnlDim.SETRANGE("Journal Line No.", Propline."Line No.");

      ToJnlDim."Table ID" := DATABASE::"Payment History Line";
      ToJnlDim."Journal Template Name" := PaymHist."Our Bank";
      ToJnlDim."Journal Batch Name" := PaymHist."Run No.";
      ToJnlDim."Journal Line No." := PaymentHistLine."Line No.";

      DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim, ToJnlDim);

      PaymentHistLine."Global Dimension 1 Code" := Propline."Shortcut Dimension 1 Code";
      PaymentHistLine."Global Dimension 2 Code" := Propline."Shortcut Dimension 2 Code";

      IF ((PaymentHistLine.Order = PaymentHistLine.Order::Credit) AND
          (PaymentHistLine."Account Type" = PaymentHistLine."Account Type"::Customer))
      THEN
        UpdateDirectDebitMandate(PaymentHistLine);

      PaymentHistLine.INSERT(TRUE);

      "Detail line".SETCURRENTKEY("Our Bank",Status,"Connect Batches","Connect Lines");
      "Detail line".SETRANGE("Our Bank",Propline."Our Bank No.");
      "Detail line".SETRANGE(Status,"Detail line".Status::Proposal);
      "Detail line".SETRANGE("Connect Batches",'');
      "Detail line".SETRANGE("Connect Lines",Propline."Line No.");
      WHILE "Detail line".FIND('-') DO BEGIN
        "Detail line".Status:="Detail line".Status::"In process";
        "Detail line"."Connect Batches":=PaymentHistLine."Run No.";
        "Detail line"."Connect Lines":=PaymentHistLine."Line No.";
        "Detail line".MODIFY(TRUE);
      END;
      TelebankFinancialConnection.PostPaymReceived(GenJnlLine,PaymentHistLine,TempJournalLineDimension,PaymHist);
    END;

    PROCEDURE [email protected]([email protected] : Record 11000000;VAR [email protected] : Record 11000002);
    VAR
      "Detail line"@1000003 : Record 11000003;
      [email protected] : Record 356;
      [email protected] : Codeunit 408;
    BEGIN
      //FLXXS-BEGIN
      PaymentHistLine."Our Bank" := ProposalLine."Our Bank No.";
      PaymentHistLine."Line No." := ProposalLine."Line No.";
      PaymentHistLine.Status := PaymentHistLine.Status::New;

      PaymentHistLine."Account Type" := ProposalLine."Account Type";
      PaymentHistLine."Account No." := ProposalLine."Account No.";
      PaymentHistLine.Date := ProposalLine."Transaction Date";
      PaymentHistLine.Amount := ProposalLine.Amount;
      PaymentHistLine.Bank := ProposalLine.Bank;
      PaymentHistLine."Bank Account No." := ProposalLine."Bank Account No.";

      PaymentHistLine."Description 1" := ProposalLine."Description 1";
      PaymentHistLine."Description 2" := ProposalLine."Description 2";
      PaymentHistLine."Description 3" := ProposalLine."Description 3";
      PaymentHistLine."Description 4" := ProposalLine."Description 4";
      PaymentHistLine.Identification := ProposalLine.Identification;

      PaymentHistLine."Account Holder Name" := ProposalLine."Account Holder Name";
      PaymentHistLine."Account Holder Address" := ProposalLine."Account Holder Address";
      PaymentHistLine."Account Holder Post Code" := ProposalLine."Account Holder Post Code";
      PaymentHistLine."Account Holder City" := ProposalLine."Account Holder City";
      PaymentHistLine."Acc. Hold. Country/Region Code" := ProposalLine."Acc. Hold. Country/Region Code";
      PaymentHistLine."National Bank Code" := ProposalLine."National Bank Code";
      PaymentHistLine."SWIFT Code" := ProposalLine."SWIFT Code";
      PaymentHistLine.IBAN := ProposalLine.IBAN;
      PaymentHistLine."Direct Debit Mandate ID" := ProposalLine."Direct Debit Mandate ID";
      PaymentHistLine."Abbrev. National Bank Code" := ProposalLine."Abbrev. National Bank Code";
      PaymentHistLine."Bank Name" := ProposalLine."Bank Name";
      PaymentHistLine."Bank Address" := ProposalLine."Bank Address";
      PaymentHistLine."Bank City" := ProposalLine."Bank City";
      PaymentHistLine."Bank Country/Region" := ProposalLine."Bank Country/Region Code";
      PaymentHistLine."Transfer Cost Domestic" := ProposalLine."Transfer Cost Domestic";
      PaymentHistLine."Transfer Cost Foreign" := ProposalLine."Transfer Cost Foreign";

      PaymentHistLine."Currency Code" := ProposalLine."Currency Code";
      PaymentHistLine.Order := ProposalLine.Order;
      PaymentHistLine."Transaction Mode" := ProposalLine."Transaction Mode";
      PaymentHistLine.Docket := ProposalLine.Docket;

      PaymentHistLine."Nature of the Payment" := ProposalLine."Nature of the Payment";
      PaymentHistLine."Registration No. DNB" := ProposalLine."Registration No. DNB";
      PaymentHistLine."Description Payment" := ProposalLine."Description Payment";
      PaymentHistLine."Item No." := ProposalLine."Item No.";
      PaymentHistLine."Traders No." := ProposalLine."Traders No.";
      PaymentHistLine.Urgent := ProposalLine.Urgent;

      IF ((PaymentHistLine.Order=PaymentHistLine.Order::Credit) AND
          (PaymentHistLine."Account Type"=PaymentHistLine."Account Type"::Vendor)) OR
         ((PaymentHistLine.Order=PaymentHistLine.Order::Credit)  AND
          (PaymentHistLine."Account Type"=PaymentHistLine."Account Type"::Customer))
      THEN
        PaymentHistLine."Payment/Receipt" := PaymentHistLine."Payment/Receipt"::Receipt
      ELSE
        PaymentHistLine."Payment/Receipt" := PaymentHistLine."Payment/Receipt"::Payment;

      PaymentHistLine."Foreign Currency" := ProposalLine."Foreign Currency";
      PaymentHistLine."Foreign Amount" := ProposalLine."Foreign Amount";

      FromJnlDim.SETRANGE("Table ID", DATABASE::"Proposal Line");
      FromJnlDim.SETRANGE("Journal Template Name", ProposalLine."Our Bank No.");
      FromJnlDim.SETRANGE("Journal Line No.", ProposalLine."Line No.");

      TempJnlDim."Table ID" := DATABASE::"Payment History Line";
      TempJnlDim."Journal Template Name" := PaymHist."Our Bank";
      TempJnlDim."Journal Batch Name" := PaymHist."Run No.";
      TempJnlDim."Journal Line No." := PaymentHistLine."Line No.";

      DimManagement.CopyJnlLineDimToOtherJnlLnDim(FromJnlDim,TempJnlDim);

      PaymentHistLine."Global Dimension 1 Code" := ProposalLine."Shortcut Dimension 1 Code";
      PaymentHistLine."Global Dimension 2 Code" := ProposalLine."Shortcut Dimension 2 Code";

      IF ((PaymentHistLine.Order = PaymentHistLine.Order::Credit) AND
          (PaymentHistLine."Account Type" = PaymentHistLine."Account Type"::Customer))
      THEN
        UpdateDirectDebitMandate(PaymentHistLine);

      PaymentHistLine.INSERT(TRUE);
      //FLXXS-END
    END;

    PROCEDURE [email protected]([email protected] : Record 11000002;VAR [email protected] : Record 11000001);
    VAR
      [email protected] : Record 11000002;
      [email protected] : Record 11000003;
      [email protected] : Record 356;
      [email protected] : Codeunit 408;
    BEGIN
      //FLXXS-BEGIN
      CLEAR(PaymentHistLine);
      PaymentHistLine := PaymHistLine2;

      PaymHist."No. of Transactions" := PaymHist."No. of Transactions" + 1;
      IF PaymentHistLine.Docket THEN
        PaymHist."Print Docket":=TRUE;
      PaymHist.MODIFY(TRUE);

      PaymentHistLine."Run No." := PaymHist."Run No.";

      TempJnlDim.SETRANGE("Table ID", DATABASE::"Payment History Line");
      TempJnlDim.SETRANGE("Journal Template Name", PaymHistLine2."Our Bank");
      TempJnlDim.SETRANGE("Journal Line No.", PaymHistLine2."Line No.");

      ToJnlDim."Table ID" := DATABASE::"Payment History Line";
      ToJnlDim."Journal Template Name" := PaymHist."Our Bank";
      ToJnlDim."Journal Batch Name" := PaymHist."Run No.";
      ToJnlDim."Journal Line No." := PaymentHistLine."Line No.";

      DimManagement.CopyJnlLineDimToOtherJnlLnDim(TempJnlDim,ToJnlDim);

      PaymentHistLine.INSERT(TRUE);

      DetailLine.SETCURRENTKEY("Our Bank",Status,"Connect Batches","Connect Lines");
      DetailLine.SETRANGE("Our Bank",PaymHistLine2."Our Bank");
      DetailLine.SETRANGE(Status,DetailLine.Status::Proposal);
      DetailLine.SETRANGE("Connect Batches",'');
      DetailLine.SETRANGE("Connect Lines",PaymHistLine2."Line No.");
      WHILE DetailLine.FIND('-') DO BEGIN
        DetailLine.Status:=DetailLine.Status::"In process";
        DetailLine."Connect Batches":=PaymentHistLine."Run No.";
        DetailLine."Connect Lines":=PaymentHistLine."Line No.";
        DetailLine.MODIFY(TRUE);
      END;
      TelebankFinancialConnection.PostPaymReceived(GenJnlLine,PaymentHistLine,TempJournalLineDimension,PaymHist);
      //FLXXS-END
    END;

    PROCEDURE [email protected](VAR [email protected] : Record 11000000);
    BEGIN
      //FLXXS-BEGIN
      //Prop.DELETE(TRUE);
      ProposalLine.DELETEALL(TRUE);
      //FLXXS-END
    END;

    PROCEDURE [email protected]() [email protected] : Text[125];
    BEGIN
      EXIT(Errortext);
    END;

    PROCEDURE [email protected]() [email protected] : Text[125];
    BEGIN
      EXIT(Warningstext);
    END;

    PROCEDURE [email protected]() [email protected] : Text[30];
    BEGIN
      EXIT(AccountNo);
    END;

    LOCAL PROCEDURE [email protected](VAR [email protected] : Record 11000002);
    VAR
      [email protected] : Record 1230;
    BEGIN
      IF DirectDebitMandate.GET(PaymentHistoryLine."Direct Debit Mandate ID") THEN BEGIN
        DirectDebitMandate.VALIDATE("Debit Counter",DirectDebitMandate."Debit Counter" + 1);
        DirectDebitMandate.MODIFY(TRUE);

        PaymentHistoryLine.VALIDATE("Direct Debit Mandate Counter",DirectDebitMandate."Debit Counter");
      END;
    END;

    BEGIN
    {
      FLXXS 20131119 LVV - Separate Payment History per Sequence Type
    }
    END.
  }
}

marcgerner

Goedemorgen,

Ik heb een klant waarvan de bank inderdaad aangeeft dat het Sequence Type ontbreekt... Jullie hebben het hier over een Sequence Type dat al mee gestuurd wordt, maar dat de bestanden apart moeten worden aangeleverd aan de bank. Nou heb ik gekeken in de hotfix die voor Direct Debit uitgekomen is vanuit MS, maar daar staat het Sequence Type helemaal niet in! Klopt het dat we dat zelf nog in elkaar moeten fietsen? Zo ja, hebben jullie de code toevallig al voor me? Dat scheelt weer wat uitzoekwerk ;-).

Thanks!

tinoruijs

Je vind Sequence Type in de betaalrunregel-tabel en ook in het rapport "SEPA ISO20022".
In dat rapport vind je ook PmtMtd DD. Dat is de code die aangeeft dat je met incasso te maken hebt.
Nog even goed zoeken in de hotfix dus.

marcgerner

Hoi Tino,

Thanks voor het antwoord! Ben ik nou zo suf dat ik eroverheen kijk? Voor zover bij mij bekend is alleen deze hotfix voor 2009R2 uitgebracht: https://mbs.microsoft.com/partnersource ... EPANLdebit

In die hotfix zit geen Sequence Type veld in tabel Payment History Line. Kijk ik eroverheen of gebruik ik de verkeerde hotfix? :oops:

Marc

tinoruijs

Er staan twee te downloaden bestanden; je hebt "​Netherlands - SEPA Credit Transfer and Direct Debit -
Payment Grouping Update​" ook nodig.

marcgerner

Hoi Tino,

Ik ben dus inderdaad zo suf dat ik eroverheen kijk... Thanks voor je hulp!

Marc

tinoruijs

Graag gedaan. Ik mag deze maand nog een klant overhelpen naar SEPA incasso, dus ik blijf graag op de hoogte. ;-)

souoik

@tinoruijs hi it is SEPA DD Core Good With you am workingto put this payment method on nav 2017 can you please help me , the SEPA was export from the slipe payment , if you have any adea share with me thank you