Hilfeeeee... bei Debitoren!!!!!

Code: Alles auswählen.

LOOP AT lt_alldata INTO ls_alldata2.
 ls_kna1-mandt    = sy-mandt.
    ls_kna1-kunnr    = ls_alldata2-debitor.
    ls_kna1-anred    = ls_alldata2-anrede.            "Anrede
    ls_kna1-land1    = ls_alldata2-land.              "Land
    ls_kna1-name1    = ls_alldata2-name1.             "Name1
    ls_kna1-ort01    = ls_alldata2-ort.               "Ort
    "ls_kna1-pstlz
    ls_kna1-stras   = ls_alldata2-strasse.            "Strasse
    ls_kna1-telf1   = ls_alldata2-telefon_1.          "Telefon_1
    ls_kna1-mcod1   = ls_alldata2-suchbegriff.        "Suchbegriff
    ls_kna1-ktokd   = ls_alldata2-kontengruppe.       "Kontengruppe
    ls_kna1-lzone   = ls_alldata2-transportzone.      "Transportzone
    ls_kna1-civve   = ls_alldata2-zivile_verwendung.  "Zivile_Verwendung

    ls_knb1-mandt   = ls_kna1-mandt.
    ls_knb1-kunnr   = ls_alldata2-debitor.            "Debitor
    ls_knb1-bukrs   = ls_alldata2-buchungskreis.      "Buchungskreis
    ls_knb1-akont   = ls_alldata2-abstimm_konto.      "Abstimm_konto
    ls_knb1-zterm   = ls_alldata2-zahlungs_bedingung. "Zahlungsbedingungsschlüssel

    ls_fknbk-mandt = ls_kna1-mandt.
    ls_fknbk-kunnr = ls_alldata2-debitor.             "Debitorennummer
    ls_fknbk-bankl = ls_alldata2-bankleitzahl.        "Bankschlüssel
    ls_fknbk-bankn = ls_alldata2-bankkonto.           "Bankkontonummer
    APPEND ls_fknbk TO lt_fknbk.


    CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL'
      EXPORTING
        i_kna1                     = ls_kna1
        i_knb1                     = ls_knb1
*       i_knvv                     =
*       I_BAPIADDR1                =
*       I_BAPIADDR2                =
        i_maintain_address_by_kna1 = 'X'
*       I_KNB1_REFERENCE           = ' '
*       I_FORCE_EXTERNAL_NUMBER_RANGE = 'X'
*        i_no_bank_master_update    = 'X'
*       I_CUSTOMER_IS_CONSUMER     = ' '
*       I_RAISE_NO_BTE             = ' '
        pi_postflag                = 'X'
*        pi_cam_changed             = 'X'
*       PI_ADD_ON_DATA             =
*        i_from_customermaster      = 'X'
*      IMPORTING
*        e_kunnr                    = e_kunnr
*        o_kna1                     = o_kna1
*        e_sd_cust_1321_done        = lv_done
      TABLES
*       t_xknas                    =
        t_xknbk                    = lt_fknbk
*       t_xknb5                    =

      EXCEPTIONS
        client_error               = 1
        kna1_incomplete            = 2
        knb1_incomplete            = 3
        kunnr_not_unique           = 4
        knb1_reference_invalid     = 5
        OTHERS                     = 6.
    IF sy-subrc <> 0.
      CASE sy-subrc.
        WHEN '1'.
          lv_message = 'Cleint error'.
        WHEN '2'.
          lv_message = 'KNA1 incomplete'.
        WHEN '3'.
          lv_message = 'KNB1 incomplete'.
        WHEN '4'.
          lv_message = 'Customer not unique'.
        WHEN '5'.
          lv_message = 'KNB1 reference invalid'.
        WHEN OTHERS.
          lv_message = 'Error posting customer'.
      ENDCASE.
    ELSE.
      "COMMIT WORK and wait.
    ENDIF.

  ENDLOOP.