Интеграция SAP и 1С8

REPORT  zfirst_program03.


TABLES sflight.

"внутренняя таблица
DATA: gt_sflight TYPE TABLE OF sflight.

"объявление параметров отбора
SELECT-OPTIONS: so_car FOR sflight-carrid,
                so_con FOR sflight-connid,
                so_fld FOR sflight-fldate.

START-OF-SELECTION.

  SELECT
    *
  INTO TABLE gt_sflight
  FROM
    sflight
  WHERE
    carrid  IN so_car
    AND  connid  IN so_con
    AND  fldate  IN so_fld.

  IF sy-subrc <> 0.
    "сообщение в строке состояния
    MESSAGE 'Нету' TYPE 'S'.
    RETURN. "выход из программного модуля
  ENDIF.

  IF LINES( gt_sflight ) = 8. "количество строк в таблице
    DATA n TYPE i.
    n = LINES( gt_sflight ).
    WRITE: / n.
  ENDIF.

  DATA: lt_fcat TYPE lvc_t_fcat.
  CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
   EXPORTING
*     I_BUFFER_ACTIVE              =
     i_structure_name             = 'SFLIGHT' "считываем метаданные именно этой таблицы
*     I_CLIENT_NEVER_DISPLAY       = 'X'
*     I_BYPASSING_BUFFER           =
*     I_INTERNAL_TABNAME           =
   CHANGING
      ct_fieldcat                  = lt_fcat  "и сохраняем МЕТАДАННЫЕ в эту внутреннюю таблицу
   EXCEPTIONS
     inconsistent_interface       = 1
     program_error                = 2
     OTHERS                       = 3.

  IF sy-subrc <> 0.
    CASE sy-subrc.
      WHEN 1.
      WHEN 2.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      WHEN OTHERS.
    ENDCASE.
  ENDIF.

  DATA: ls_fcat LIKE LINE OF lt_fcat.
  ls_fcat-do_sum = 'X'.

  MODIFY lt_fcat FROM ls_fcat
  TRANSPORTING do_sum  "меняем только одно поле во внутренней таблице на основе структуры
  WHERE fieldname = 'PAYMENTSUM' OR fieldname = 'PRICE'.

  DATA: ls_layout TYPE lvc_s_layo.
  "делаем зебру в списке
  ls_layout-zebra = 'X'.
  "минимальная ширина колонок
  ls_layout-cwidth_opt = 'X'.

  "ls_layout-edit = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
   EXPORTING
*     I_INTERFACE_CHECK                 = ' '
*     I_BYPASSING_BUFFER                =
*     I_BUFFER_ACTIVE                   =
     i_callback_program                = sy-repid
*     I_CALLBACK_PF_STATUS_SET          = ' '
     i_callback_user_command           = 'ZNYP'
*     I_CALLBACK_TOP_OF_PAGE            = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*     I_CALLBACK_HTML_END_OF_LIST       = ' '
*     I_STRUCTURE_NAME                  =
*     I_BACKGROUND_ID                   = ' '
*     I_GRID_TITLE                      =
*     I_GRID_SETTINGS                   =
     is_layout_lvc                     = ls_layout
     it_fieldcat_lvc                   = lt_fcat "передаем метаданные
*     IT_EXCLUDING                      =
*     IT_SPECIAL_GROUPS_LVC             =
*     IT_SORT_LVC                       =
*     IT_FILTER_LVC                     =
*     IT_HYPERLINK                      =
*     IS_SEL_HIDE                       =
*     I_DEFAULT                         = 'X'
*     I_SAVE                            = ' '
*     IS_VARIANT                        =
*     IT_EVENTS                         =
*     IT_EVENT_EXIT                     =
*     IS_PRINT_LVC                      =
*     IS_REPREP_ID_LVC                  =
*     I_SCREEN_START_COLUMN             = 0
*     I_SCREEN_START_LINE               = 0
*     I_SCREEN_END_COLUMN               = 0
*     I_SCREEN_END_LINE                 = 0
*     I_HTML_HEIGHT_TOP                 =
*     I_HTML_HEIGHT_END                 =
*     IT_ALV_GRAPHICS                   =
*     IT_EXCEPT_QINFO_LVC               =
*     IR_SALV_FULLSCREEN_ADAPTER        =
*   IMPORTING
*     E_EXIT_CAUSED_BY_CALLER           =
*     ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = gt_sflight "передаем сами данные
*   EXCEPTIONS
*     PROGRAM_ERROR                     = 1
*     OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  my_CALLBACK_PROGRAM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
  TYPE-POOLS slis.
*&---------------------------------------------------------------------*
*&      Form  zmy_callback
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->R_UCOMM      text
*      -->LS_SELFIELD  text
*----------------------------------------------------------------------*
FORM ZNYP USING r_ucomm LIKE sy-ucomm
                        ls_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'. "double clik
      MESSAGE 'Пупс' TYPE 'S'.
  ENDCASE.

ENDFORM.                    "my_callback_program

REPORT  zthrid_program_v3.

*----------------------------------------------------------------------*
*       CLASS lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS my_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_double_click FOR EVENT double_click OF cl_salv_events_table
        IMPORTING row column.
ENDCLASS.                    "lcl_handle_events DEFINITION

TABLES sflight.
DATA: lt_sflight TYPE TABLE OF sflight.

SELECT-OPTIONS: so_car FOR sflight-carrid,
                so_con FOR sflight-connid,
                so_fld FOR sflight-fldate.


START-OF-SELECTION.
  "заполняем внутреннюю таблицу
  SELECT
    *
  INTO TABLE lt_sflight
  FROM  sflight
         WHERE  carrid  IN so_car
         AND    connid  IN so_con
         AND    fldate  IN so_fld.

  DATA cls TYPE REF TO cl_salv_table.

*  TRY.
  cl_salv_table=>factory(
*    EXPORTING
*      list_display   = IF_SALV_C_BOOL_SAP=>FALSE
*      r_container    =
*      container_name =
  IMPORTING
    r_salv_table   = cls
  CHANGING
    t_table        = lt_sflight
    ).
*   CATCH cx_salv_msg .
*  ENDTRY.

  "настройка внешнего вида
  DATA cls_set TYPE REF TO cl_salv_display_settings.
  cls_set = cls->get_display_settings( ).
  "зебра
  cls_set->set_striped_pattern( 'X' ).
  "заголовок
  cls_set->set_list_header( 'Ну-у, пипец.' ).

  "узкие колонки
  DATA cols TYPE REF TO cl_salv_columns_table.
  cols = cls->get_columns( ).
  cols->set_optimize( 'X' ).

  "сортировка
  DATA lr_sorts TYPE REF TO cl_salv_sorts.
  lr_sorts = cls->get_sorts( ).
  lr_sorts->add_sort( EXPORTING columnname = 'CARRID'
                                       position   = '1'
                                       sequence   = '1' "направление сортировки 1(возраст) и 2(убыв)
                                       subtotal   = ' ' ).

  "агрегатные функции
  DATA aggrs TYPE REF TO cl_salv_aggregations.
  aggrs = cls->get_aggregations( ).
  aggrs->add_aggregation(
          EXPORTING
            columnname  = 'PRICE'
            aggregation = if_salv_c_aggregation=>total "выбираем сумму по колонке
         ).
  aggrs->add_aggregation(
          EXPORTING
            columnname  = 'PAYMENTSUM'
            aggregation = if_salv_c_aggregation=>average "выбираем среднее по колонке
         ).
  "если итоги надо сверху
  "aggrs->set_aggregation_before_items( ).

  "настраиваем обработчики событий класса
  DATA events TYPE REF TO cl_salv_events_table.
  events = cls->get_event( ).
  DATA even TYPE REF TO my_handle_events.
  CREATE OBJECT even.
  SET HANDLER even->on_double_click FOR events.

  "отображение данных таблицы
  cls->display( ).

*----------------------------------------------------------------------*
*       CLASS lcl_handle_events IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS my_handle_events IMPLEMENTATION.
  METHOD on_double_click.
    MESSAGE 'во блин хрень то' TYPE 'I'. " row column .
  ENDMETHOD.                    "on_double_click
ENDCLASS.                    "lcl_handle_events IMPLEMENTATION

REPORT z_file_client_eturin.

PARAMETERS: p_file  TYPE text80  OBLIGATORY,  " filename-fileintern
            l_write AS CHECKBOX.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  DATA: filename TYPE string,
        path     TYPE string,
        fullpath TYPE string.
  IF l_write = abap_true.
    CALL METHOD cl_gui_frontend_services=>file_save_dialog
      EXPORTING
*       window_title      =
        default_extension = 'txt'
*       default_file_name =
*       with_encoding     =
*       file_filter       =
*       initial_directory =
*       prompt_on_overwrite       = 'X'
      CHANGING
        filename          = filename
        path              = path
        fullpath          = fullpath
*       user_action       =
*       file_encoding     =
*   EXCEPTIONS
*       cntl_error        = 1
*       error_no_gui      = 2
*       not_supported_by_gui      = 3
*       invalid_default_file_name = 4
*       others            = 5
      .
    IF sy-subrc <> 0.
*  Implement suitable error handling here
    ENDIF.
    p_file = fullpath.
  ELSE.
    DATA: file_table TYPE filetable,
          rc         TYPE i.

       CALL METHOD cl_gui_frontend_services=>file_open_dialog
         EXPORTING
           window_title            = 'Enter file'
*    default_extension       =
*    default_filename        =
*    file_filter             =
*    with_encoding           =
*    initial_directory       =
*    multiselection          =
         CHANGING
           file_table              = file_table
           rc                      = rc
*    user_action             =
*    file_encoding           =
*  EXCEPTIONS
*    file_open_dialog_failed = 1
*    cntl_error              = 2
*    error_no_gui            = 3
*    not_supported_by_gui    = 4
*    others                  = 5
          .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

    p_file = FILE_TABLE[ 1 ]-FILENAME.


  ENDIF.


START-OF-SELECTION.
  DATA: lt_data    TYPE TABLE OF text100,
        l_filename TYPE string.

  l_filename = p_file.
  IF l_write = abap_true.
    DO 3 TIMES.
      APPEND INITIAL LINE TO lt_data ASSIGNING FIELD-SYMBOL(<line>).
      <line> = |херня{ sy-index }. | && p_file.
    ENDDO.

    CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
*       bin_filesize              =
        filename = l_filename
*       filetype = 'ASC'
*       append   = SPACE
*       write_field_separator     = SPACE
*       header   = '00'
*       trunc_trailing_blanks     = SPACE
*       write_lf = 'X'
*       col_select                = SPACE
*       col_select_mask           = SPACE
*       dat_mode = SPACE
*       confirm_overwrite         = SPACE
*       no_auth_check             = SPACE
*       codepage = SPACE
*       ignore_cerr               = ABAP_TRUE
*       replacement               = '#'
*       write_bom                 = SPACE
*       trunc_trailing_blanks_eol = 'X'
*       wk1_n_format              = SPACE
*       wk1_n_size                = SPACE
*       wk1_t_format              = SPACE
*       wk1_t_size                = SPACE
*       show_transfer_status      = 'X'
*       fieldnames                =
*       write_lf_after_last_line  = 'X'
*       virus_scan_profile        = '/SCET/GUI_DOWNLOAD'
*  IMPORTING
*       filelength                =
      CHANGING
        data_tab = lt_data
*  EXCEPTIONS
*       file_write_error          = 1
*       no_batch = 2
*       gui_refuse_filetransfer   = 3
*       invalid_type              = 4
*       no_authority              = 5
*       unknown_error             = 6
*       header_not_allowed        = 7
*       separator_not_allowed     = 8
*       filesize_not_allowed      = 9
*       header_too_long           = 10
*       dp_error_create           = 11
*       dp_error_send             = 12
*       dp_error_write            = 13
*       unknown_dp_error          = 14
*       access_denied             = 15
*       dp_out_of_memory          = 16
*       disk_full                 = 17
*       dp_timeout                = 18
*       file_not_found            = 19
*       dataprovider_exception    = 20
*       control_flush_error       = 21
*       not_supported_by_gui      = 22
*       error_no_gui              = 23
*       others   = 24
      .
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.

  ELSE.


    CALL METHOD cl_gui_frontend_services=>gui_upload
        EXPORTING
          filename                =  l_filename
*          filetype                = 'ASC'
*          has_field_separator     = SPACE
*          header_length           = 0
*          read_by_line            = 'X'
*          dat_mode                = SPACE
*          codepage                = SPACE
*          ignore_cerr             = ABAP_TRUE
*          replacement             = '#'
*          virus_scan_profile      =
*        IMPORTING
*          filelength              =
*          header                  =
      CHANGING
        data_tab = lt_data
*       isscanperformed         = SPACE
*        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
*       not_supported_by_gui    = 17
*       error_no_gui            = 18
*       others   = 19
      .
    IF sy-subrc <> 0.
*       Implement suitable error handling here
    ENDIF.

  ENDIF.

*&---------------------------------------------------------------------*
*& Report  Z_LOGIC_FILE_SERVER_ETURIN
*&
*&---------------------------------------------------------------------*
*&      
*&
*&---------------------------------------------------------------------*
REPORT z_logic_file_server_eturin.
 
PARAMETERS p_lfile TYPE fileintern OBLIGATORY.
PARAMETERS p_write AS CHECKBOX.
 
START-OF-SELECTION.
  DATA: l_file_name TYPE text100.
  CALL FUNCTION 'FILE_GET_NAME'
    EXPORTING
*     CLIENT           = SY-MANDT
      logical_filename = p_lfile
*     OPERATING_SYSTEM = SY-OPSYS
      parameter_1      = 'PARAM1'
      parameter_2      = 'PARAM2'
      parameter_3      = 'PARAM3'
*     USE_PRESENTATION_SERVER       = ' '
*     WITH_FILE_EXTENSION           = ' '
*     USE_BUFFER       = ' '
*     ELEMINATE_BLANKS = 'X'
*     INCLUDING_DIR    = ' '
    IMPORTING
*     EMERGENCY_FLAG   =
*     FILE_FORMAT      =
      file_name        = l_file_name
* EXCEPTIONS
*     FILE_NOT_FOUND   = 1
*     OTHERS           = 2
    .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.
 
  TRY.
      DATA: l_line    TYPE text100,
            l_endfile TYPE abap_bool.
      IF p_write = abap_on.
        OPEN DATASET l_file_name FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
 
        DO 3 TIMES.
          TRANSFER l_file_name TO l_file_name.
        ENDDO.
      ELSE.
        OPEN DATASET l_file_name FOR INPUT IN TEXT MODE ENCODING UTF-8.
        GET DATASET l_file_name ATTRIBUTES DATA(l_attr).
        WHILE l_endfile = abap_off.
          READ DATASET l_file_name INTO l_line.
          WRITE : / l_line.
          IF sy-subrc NE 0.
            l_endfile = abap_on.
 
          ENDIF.
        ENDWHILE.
      ENDIF.
 
      CLOSE DATASET l_file_name.
    CATCH cx_sy_file_access_error INTO DATA(lo_ex).
      WRITE: / lo_ex->get_text( ).
 
  ENDTRY.

res=ПодключитьВнешнююКомпоненту(ПутьДоНашейDLL, "VK", ТипВнешнейКомпоненты.Native);
    ДемоКомп = Новый("AddIn.VK.SapRfc");

	R3 = Новый COMОбъект("SAP.Functions");
	R3.Connection.User = "ZZZ";
	R3.Connection.Password = "MMM";
	R3.Connection.SAProuter =  " /H/xxx/S/sss "; //если есть
	R3.Connection.client = "001";
	R3.Connection.ApplicationServer = "192.168.1.1";
	R3.Connection.MessageServer = "192.168.1.2"; //если есть
	R3.Connection.GroupName = "INT"; //если есть
	R3.Connection.Systemnumber = "01";
	R3.Connection.Language = "EN";
	R3.Connection.RfcWithDialog = 0;
	Рез = R3.Connection.Logon(0,False);
	
  	RFC = R3.Add("your_rfc_function");  
        Запуск = RFC.Call();
        Результат = RFC.Tables("EX_TABLE");