Eventuell mußt Du mal reindebuggen. Breakpoint am besten hier:57A C35 SWIFT-Code Zahlempfbank BNKA-SWIFT FK02
bzw. falls kein SWIFT-Code angegeben
57A C35 BLZ Zahlempfbank BNKA-BNKLZ FK02
59_1 C35 Bankkonto Zahlempfbank LFBK-BANKN FK02
Code: Alles auswählen.
* Field 59, first line
WHEN '59_1'.
dta_mt100-value+up_off = '/'.
ADD 1 TO up_off.
IF regud-ziban IS INITIAL.
* no IBAN; write bank account number to field 59_1
CALL FUNCTION 'GET_EXT_BANKACCOUNT_NO'
EXPORTING
i_bank_country = reguh-zbnks
i_blz = reguh-zbnkl
i_bank_account = reguh-zbnkn
i_control_key = reguh-zbkon
IMPORTING
e_ext_bank_account = up_value.
GerneBlueshape hat geschrieben:Oh Mann, Ihr habt's echt schwer mit mir.
Aber das wird sich noch ändern und dann werde ich mich auch um andere hier im Forum kümmern können
Ihr gebt Euch echt viel Mühe!![]()
Code: Alles auswählen.
* Empfängerkonto
IF NOT T015W-DTKZA BETWEEN 20 AND 33. "leer bei Bankscheck
PERFORM LAENDER_LESEN USING REGUH-ZBNKS.
DTABT-T12 = '/'.
IF T015W-DTKZA EQ 11 "IBAN bei EU oder EUE
OR T015W-DTKZA EQ 13.
DTABT-T12+1 = REGUD-ZIBAN.
ELSEIF REGUD-ZIBAN NE SPACE "IBAN gefüllt und
AND PAR_IBAN EQ 'X'. "gewünscht (Parameter)
DTABT-T12+1 = REGUD-ZIBAN.
ELSEIF HLP_XEURO EQ 'X'
AND NOT T005-LANDK IN TAB_BANKCODE.
CASE T005-LANDK.
WHEN 'E'. "Spanien
CONCATENATE REGUH-ZBNKL
REGUH-ZBKON
REGUH-ZBNKN
INTO DTABT-T12+1.
WHEN 'F' OR 'P'. "Frankreich/Portugal
CONCATENATE REGUH-ZBNKL
REGUH-ZBNKN
REGUH-ZBKON
INTO DTABT-T12+1.
WHEN OTHERS. "sonstige, nicht in
CONCATENATE REGUH-ZBNKL "TAB_BANCODE aufge-
REGUH-ZBNKN "geführte Länder
INTO DTABT-T12+1.
ENDCASE.