ZSD_PAYER_NEW(创建付款方)

*&---------------------------------------------------------------------*
*& Report  ZSD_PAYER_NEW
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZSD_PAYER_NEW.

DATA : BEGIN OF t_bdcdata OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA : END OF t_bdcdata.
DATA opt TYPE ctu_params.
data: ck_test.
data: begin of t_custm occurs 0,
       kunnr(10),
       bukrs(4),
       ktokd(4),
       anred(10), "15c
       name1(35),
       name2(35),
       name4(35),
       sorts(20),
       stras(60),
       pstlz(10),
       ort01(35),
       land1(3),
       regio(3),
       spras(1),
       telf1(16),
       telfx(16),
       email(80),
       banks(2),
       banka(60),
       bankl(15),
       bankn(18),
       akont(10),
       sortk(4),
       zterm(4),
       zahls(1),
       con_persn(10),
       con_telef(16),
      end of t_custm.
data:i_kna1 like kna1,
     i_knb1 like knb1,
     i_add1 like BAPIADDR1,
     i_add2 like bapiaddr2,
     i_knvv like knvv,
     t_knbk like fknbk occurs 0 with header line,
     t_knvi like fknvi occurs 0 with header line,
     t_knvk like fknvk occurs 0 with header line,
     t_xknvp like fknvp occurs 0 with header line,
     t_yknvp like fknvp occurs 0 with header line.

DATA: subrc LIKE sy-subrc,
credit_control_flag LIKE bapikna108-x_flag value 'X',
postflag LIKE wdl_flag-xflag.

data:     E_KUNNR LIKE  KNA1-KUNNR,
          O_KNA1  LIKE  KNA1,
          RETURN  LIKE  BAPIRETURN1.

data: begin of i_upld occurs 0,
*      anred    like   kna1-anred,   "Title
      ktokd    like   kna1-ktokd,   "Accout Group
      kunnr    like   kna1-kunnr,   "Customer No.
      bukrs    like   knb1-bukrs,   "Company Code
      vkorg    like   knvv-vkorg,   "Sales Org
      vtweg    like   knvv-vtweg,   "Distribution
      spart    like   knvv-spart,   "Division

      name1    like   kna1-name1,   "Name1
      name4    like   kna1-name4,   "Name1
      sortl    like   kna1-mcod1,   "Search term1
      land1    like   kna1-land1,   "Country

      akont    like   knb1-akont,   "Reconciliation

      ktgrd    like   knvv-ktgrd,   "Assign Group

      zterm    like   knb1-zterm,   "Payment term
      aland    like   knvi-aland,   "Taxes
      tatyp    like   knvi-tatyp,   "Tax Category
      taxkd    like   knvi-taxkd,   "Classification

end of i_upld.


parameters: p_file LIKE rlgrap-filename OBLIGATORY   default 'D:\payer_new.txt'.

at selection-screen on value-request for p_file.

  perform select_file.

form select_file .

  call function 'WS_FILENAME_GET'

    exporting

      mask             = ',Text Files,*.txt,All Files,*.*.'(101)

      title            = '选择文件'(100)

    importing

      filename         = p_file

    exceptions

      inv_winsys       = 1

      no_batch         = 2

      selection_cancel = 3

      selection_error  = 4

      others           = 5.

  if sy-subrc <> 0 and sy-subrc <> 3.

    "message e100(zdev) with '选择文件出错！'(007).

  endif.

endform.

*selection-screen skip.
*parameters: p_term as checkbox default 'X'.

*parameters: file like FILENAME-FILEINTERN
*            default 'E:\usr\sap\MED\DVEBMGS00\work\customer.dat'.


 start-of-selection.

*   open dataset file for input in text mode.
**           encoding default.
*   if sy-subrc eq 0.
*   do.
*   clear t_custm.
*   read dataset file into t_custm.
*   if sy-subrc ne 0.
*    exit.
*   endif.
*   append t_custm.
*   enddo.
*   else.
   perform fill_temp_data.
*   endif.
   perform neu_custom.

*&---------------------------------------------------------------------*
*&      Form  neu_custom
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM neu_custom.
     loop at i_upld.
      clear:i_kna1,i_knb1,i_knvv,i_add1,i_add2,
            t_knbk,t_knvk,t_xknvp, t_yknvp.
      refresh:t_knbk,t_knvk,t_xknvp,t_yknvp,t_knvi.

      i_kna1-ktokd = i_upld-ktokd.
      i_kna1-kunnr = i_upld-kunnr.
      i_knb1-bukrs = i_upld-bukrs.
      i_knvv-vkorg = i_upld-vkorg.
      i_knvv-vtweg = i_upld-vtweg.
      i_knvv-spart = i_upld-spart.

      i_kna1-name1 = i_upld-name1.
      i_kna1-name4 = i_upld-name4.
      i_kna1-sortl = i_upld-sortl.
      i_kna1-land1 = i_upld-land1.

      i_knb1-kunnr = i_upld-kunnr.
      i_knb1-akont = i_upld-akont.

      i_knvv-kunnr       = i_upld-kunnr.
      i_knvv-ktgrd       = i_upld-ktgrd.   "Assign Group

      i_add1-name        = i_upld-name1.
      i_add1-name_4       = i_upld-name4.
      i_add1-sort1       = i_upld-sortl.
      i_add1-country     = i_upld-land1.


      i_kna1-spras = '1'.       "i_upld-spras.
      i_add1-LANGU       =  '1'.     "i_upld-spras.


      i_knb1-zterm       = i_upld-zterm.
      i_knvv-zterm       = i_upld-zterm.   "Payment Term
      t_knvi-kunnr       = i_upld-kunnr.
      t_knvi-aland       = i_upld-aland.
      t_knvi-tatyp       = i_upld-tatyp.
      t_knvi-taxkd       = i_upld-taxkd.
      t_knvi-KZ          = 'U'.
      if t_knvi is not initial.
        append t_knvi.
      endif.

      postflag = 'X'.
      CALL FUNCTION 'SD_CUSTOMER_MAINTAIN_ALL'
       EXPORTING
        i_kna1      = i_kna1
        i_knb1      = i_knb1
        i_knvv      = i_knvv
        I_BAPIADDR1 = i_add1
*        I_BAPIADDR2 = i_add2
*        I_MAINTAIN_ADDRESS_BY_KNA1 = 'X'
        PI_CAM_CHANGED = 'X'
        pi_postflag = postflag
       IMPORTING
        e_kunnr = e_kunnr
        o_kna1  = o_kna1
       TABLES
*        T_XKNAS =
*        T_XKNBK = t_knbk
*        T_XKNB5 =
*        T_XKNEX =
*        T_XKNVA =
*        T_XKNVD =
        T_XKNVI = t_knvi
*        T_XKNVK = t_knvk
*        T_XKNVL =
*        T_XKNVP = t_xknvp
*        T_YKNVP = t_yknvp
*        T_XKNZA =
       EXCEPTIONS
        client_error = 1
        kna1_incomplete = 2
        knb1_incomplete = 3
        knb5_incomplete = 4
        knvv_incomplete = 5
        kunnr_not_unique = 6
        sales_area_not_unique = 7
        sales_area_not_valid = 8
        insert_update_conflict = 9
        number_assignment_error = 10
        number_not_in_range = 11
        number_range_not_extern = 12
        number_range_not_intern = 13
        account_group_not_valid = 14
        parnr_invalid = 15
        bank_address_invalid = 16
        tax_data_not_valid = 17
        no_authority = 18
        company_code_not_unique = 19
        dunning_data_not_valid = 20
        knb1_reference_invalid = 21
        cam_error = 22
        OTHERS = 23
        .

        subrc = sy-subrc.
        CLEAR sy-subrc.

        PERFORM returnsubrc_1
        in program saplv02d
        USING    subrc
                 e_kunnr
        CHANGING e_kunnr
                 return.

        IF subrc = 0.
        if postflag eq 'X'.
         CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
*         CALL FUNCTION 'BAPI_CUSTOMER_CHANGEFROMDATA'
*           EXPORTING
*             PI_ADDRESS          = i_add1
*             PI_SALESORG         = i_upld-vkorg
*             PI_DISTR_CHAN       = i_upld-vtweg
*             PI_DIVISION         = i_upld-spart
*             CUSTOMERNO          = o_kna1-kunnr
**          IMPORTING
**            PE_ADDRESS          =
**            RETURN              =
*                   .
*         CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
        endif.

           write:/ o_kna1-kunnr, 'was created!'.
        else.
*        elseif postflag eq 'X'.
         CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
*           write:/ i_kna1-kunnr,
*                   'hasn''t created successfully!'.
           write:/ return-type,
                   return-id,
                   return-message,
                   return-message_v1,
                   return-message_v2,
                   return-message_v3,
                   return-message_v4.
        ENDIF.

CLEAR: i_kna1,
       i_knb1,
       i_knvv,
       i_add1,
       i_add2.

       clear i_upld.
     endloop.
ENDFORM.                    " neu_custom
*&---------------------------------------------------------------------*
*&      Form  fill_temp_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM fill_temp_data.
  data: temp type string.

     temp = p_file.
     CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
         FILENAME                      = temp
*        FILETYPE                      = 'ASC'
         HAS_FIELD_SEPARATOR           = 'X'
*        HEADER_LENGTH                 = 0
*        READ_BY_LINE                  = 'X'
*        DAT_MODE                      = ' '
*        CODEPAGE                      = '8400'
*        IGNORE_CERR                   = ABAP_TRUE
         REPLACEMENT                   = '&'
*        CHECK_BOM                     = ' '
*      IMPORTING
*        FILELENGTH                    =
*        HEADER                        =
       TABLES
         DATA_TAB                      = i_upld
      EXCEPTIONS
        FILE_OPEN_ERROR               = 1
        FILE_READ_ERROR               = 2
        NO_BATCH                      = 3
        GUI_REFUSE_FILETRANSFER       = 4
        INVALID_TYPE                  = 5
        NO_AUTHORITY                  = 6
        UNKNOWN_ERROR                 = 7
        BAD_DATA_FORMAT               = 8
        HEADER_NOT_ALLOWED            = 9
        SEPARATOR_NOT_ALLOWED         = 10
        HEADER_TOO_LONG               = 11
        UNKNOWN_DP_ERROR              = 12
        ACCESS_DENIED                 = 13
        DP_OUT_OF_MEMORY              = 14
        DISK_FULL                     = 15
        DP_TIMEOUT                    = 16
        OTHERS                        = 17
               .
    if sy-subrc ne 0.
       write: 'File Upload Error!'.
       write:/ 'Return Code:',sy-subrc.
       stop.
    endif.
 ENDFORM.                    " fill_temp_data

 FORM fill_bdcdata USING p_par1 p_par2 p_par3.
  CLEAR t_bdcdata.
  IF p_par3 IS INITIAL.
    t_bdcdata-fnam = p_par1.
    t_bdcdata-fval = p_par2.
  ELSE.
    t_bdcdata-program  = p_par1.
    t_bdcdata-dynpro   = p_par2.
    t_bdcdata-dynbegin = p_par3.
  ENDIF.
  APPEND t_bdcdata .
ENDFORM.                    "fill_bdcdata
*&---------------------------------------------------------------------*
*&      Form  translate_zterm
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_UPLD_ZTERM2  text
*      <--P_I_KNVV_ZTERM  text
*----------------------------------------------------------------------*
FORM translate_zterm  USING    P_I_ZTERM
                      CHANGING P_O_ZTERM.
  case p_i_zterm.
    when 'A001'.
      P_o_ZTERM = '0001'.
    when 'A004'.
      P_o_ZTERM = '0301'.
    when 'A016'.
      P_o_ZTERM = '0501'.
    when 'A018'.
      P_o_ZTERM = '0601'.
    when 'A045'.
      P_o_ZTERM = '0451'.
    when 'AF45'.
      P_o_ZTERM = '0750'.
    when 'ZZI1'.
      P_o_ZTERM = '0301'.
    when others.
    write:/ 'DC mapping for payment exclude item:', p_i_zterm.
  endcase.


ENDFORM.                    " translate_zterm