SUBMDT: Mandates

CHG_BICCOD: Remove the control to allow mandate modification on BICCOD change

Use the CHG_BICCOD entry point to remove the control that prevents modifying a validated or suspended mandate when the change of BIC does not correspond to a change of bank in the Direct debit mandates function (GESMDT).

Context and operating mode

Call context

The entry point is called before the BIC code changed control. Choosing the IBAN-only rule is not consistent.

Transaction

There is no transaction.

Log file

There is no open log file.

Available variables and masks

The GPE global variable is equal to 0. The entry point process can define if the control needs to be done or not. If not, GPE needs to be set to a value other than 0.

Integer OPTBICSTR: Indicates if the BICCOD is optional (=1) or not.

Mask MDT1 " Mandates ": [M: MDT1]

Open tables

Table MANDATE "Mandates ": [F: MDT] with significant content

Call entry point in Trt SUBMDT

$AVANT_MODFIC

. . .

line 261

##The user answers it is not a bank change but the BICCOD was changed.

GPE=0

GPOINT = "CHG_BICCOD" : Gosub ENTREE From EXEFNC

If !GPE

If OPTBICSTR=1 & [F:MDT]BICCOD<>[M:MDT1]BICCOD & [F:MDT]BICCOD<>"" & [M:MDT1]BICCOD<>""

& & [M:MDT1]BANUPD=1 & ([M:MDT1]STA=2 | [M:MDT1]STA=3)

GMESSAGE = mess(337,117,1)

GOK = 0 : Return

Endif

Endif