API tools faq
paste
Advertisement
ezecasti18

Untitled

ezecasti18
Aug 19th, 2022
1,445
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ABAP 7.76 KB | None | 0 0
raw download clone embed print report
  1. *&---------------------------------------------------------------------*
  2. *&  Include           ZJ_1AF017H_DATA
  3. *&---------------------------------------------------------------------*
  4. CLASS lcl_aplic DEFINITION DEFERRED.
  5. ************************************************************************
  6. *   POOLS                                                              *
  7. ************************************************************************
  8. TYPE-POOLS: slis, abap.
  9. ************************************************************************
  10. *   TABLES                                                             *
  11. ************************************************************************
  12. TABLES: bkpf,
  13.         sscrfields.
  14. ************************************************************************
  15. *   TYPES                                                              *
  16. ************************************************************************
  17. FIELD-SYMBOLS: <input>  TYPE ANY,
  18.                <output> TYPE ANY.
  19. ************************************************************************
  20. *   CONSTANS                                                           *
  21. ************************************************************************
  22. CONSTANTS: c_koart_k(1) TYPE c VALUE 'K',    "Cliente
  23.            c_koart_d(1) TYPE c VALUE 'D',    "Proveedor
  24.            c_bschl_39 TYPE bschl VALUE '39'. "cme_acreedor_haber
  25. ************************************************************************
  26. *   DATA                                                               *
  27. ************************************************************************
  28. FIELD-SYMBOLS: <fs_alv>      TYPE STANDARD TABLE," Puntero a tabla mostrada en ALV
  29.                <fs_archivo1> TYPE STANDARD TABLE," Puntero a tabla de arch bajada
  30.                <fs_archivo2> TYPE STANDARD TABLE," Puntero a tabla de arch bajada
  31.                <fs_dffilen1>,                    " Puntero al nombre default de arch bajada
  32.                <fs_dffilen2>,                    " Puntero al nombre default de arch bajada
  33.                <fs_archivo3> TYPE STANDARD TABLE," Puntero a tabla de arch bajada
  34.                <fs_dffilen3>.                    " Puntero al nombre default de arch bajada
  35.  
  36. DATA: go_aplic  TYPE REF TO lcl_aplic,
  37.       vg_retper TYPE char3.
  38. ************************************************************************
  39. *   MACROS                                                             *
  40. ************************************************************************
  41. ************************************************************************
  42. * Macro para llenar el catalogo de campos para el ALV.                 *
  43. * Como los parametros se transpasan por posicion, si no se quiere pasar*
  44. * alguno marcado como opcional, se debe poner space ó 0.               *
  45. *                                                                      *
  46. * load_fieldcat <fieldname>                                            *
  47. *               <seltext_s>                                            *
  48. *               <seltext_m>                                            *
  49. *               <seltext_l>                                            *
  50. *               <outputlen>  (opcional)                                *
  51. *               <edit_mask>  (opcional)                                *
  52. *               <currency>   (opcional)                                *
  53. ************************************************************************
  54. DEFINE load_fieldcat.
  55.   clear ls_fieldcat.
  56.   ls_fieldcat-fieldname = &1.
  57.   ls_fieldcat-seltext_s = &2.
  58.   if &3 is initial.
  59.     ls_fieldcat-seltext_m = &2.
  60.   else.
  61.     ls_fieldcat-seltext_m = &3.
  62.   endif.
  63.   if &4 is initial.
  64.     ls_fieldcat-seltext_l = &2.
  65.   else.
  66.     ls_fieldcat-seltext_l = &4.
  67.   endif.
  68.   if &5 is not initial.
  69.     ls_fieldcat-outputlen = &5.
  70.   endif.
  71.   if &6 is not initial.
  72.     ls_fieldcat-edit_mask = &6.
  73.   endif.
  74.   if &7 is not initial.
  75.     ls_fieldcat-currency = &7.
  76.   endif.
  77.   append ls_fieldcat to c_lt_fieldcat.
  78. END-OF-DEFINITION.
  79. *********************************************************************
  80. * SELECTION-SCREEN
  81. *********************************************************************
  82. SELECTION-SCREEN BEGIN OF BLOCK bck_gral WITH FRAME TITLE text-gr1.
  83. PARAMETERS:     p_bukrs  TYPE bkpf-bukrs MEMORY ID buk.
  84. SELECT-OPTIONS: so_belnr FOR  bkpf-belnr,
  85.                 so_gjahr FOR  bkpf-gjahr,
  86.                 so_budat FOR  bkpf-budat.
  87. SELECTION-SCREEN END OF BLOCK bck_gral.
  88.  
  89. *SELECTION-SCREEN BEGIN OF BLOCK bck_au WITH FRAME TITLE text-aa1.
  90. *SKIP.
  91. **SELECTION-SCREEN PUSHBUTTON /5(28) btn_au1 USER-COMMAND btn_1.
  92. **SELECTION-SCREEN PUSHBUTTON /5(28) btn_au2 USER-COMMAND btn_2.
  93. **SELECTION-SCREEN PUSHBUTTON /5(28) btn_au3 USER-COMMAND btn_3.
  94. *SELECTION-SCREEN END OF BLOCK bck_au.
  95.  
  96. SELECTION-SCREEN BEGIN OF BLOCK bck_chk WITH FRAME TITLE text-aa1.
  97. PARAMETERS: rb_ar1 RADIOBUTTON GROUP g1,
  98.             rb_ar2 RADIOBUTTON GROUP g1,
  99.             rb_ar3 RADIOBUTTON GROUP g1.
  100. SELECTION-SCREEN END OF BLOCK bck_chk.
  101.  
  102. * Add button to application toolbar
  103. SELECTION-SCREEN FUNCTION KEY 1.  "Will have a function code of 'FC01'
  104. SELECTION-SCREEN FUNCTION KEY 2.  "Will have a function code of 'FC02'
  105. SELECTION-SCREEN FUNCTION KEY 3.
  106. SELECTION-SCREEN FUNCTION KEY 4.
  107.  
  108. AT SELECTION-SCREEN.
  109. * Check if buttons have been
  110.   CASE sscrfields-ucomm.
  111. *    WHEN 'BTN_1'.
  112. *      PERFORM mantener_tabla USING 'ZFI_AF_CNV_SIV_T'.
  113. *    WHEN 'BTN_2'.
  114. *      PERFORM mantener_tabla USING 'ZFI_AF_CNV_CD2VA'.
  115. *    WHEN 'BTN_3'.
  116. *      PERFORM mantener_tabla USING 'ZFI_AF_CNV_SIB_T'.
  117.     WHEN 'FC01'.
  118.       PERFORM mantener_tabla USING 'ZFI_AF_CLA_DOC_T'.
  119.     WHEN 'FC02'.
  120.       PERFORM mantener_tabla USING 'ZFI_AF_CLA_OPE_T'.
  121.     WHEN 'FC03'.
  122.       PERFORM mantener_tabla USING 'ZFI_AF_TIP_RET_T'.
  123.     WHEN 'FC04'.
  124.       PERFORM mantener_tabla USING 'ZFI_AF_CNV_CD2VA'.
  125.   ENDCASE.
  126.  
  127.   IF rb_ar1 IS INITIAL AND
  128.      rb_ar2 IS INITIAL AND
  129.      rb_ar3 IS INITIAL.
  130.     MESSAGE 'Debe seleccionar al menos un archivo' TYPE 'E'.
  131.   ENDIF.
  132.  
  133. INITIALIZATION.
  134. * Add displayed text string to buttons
  135.   MOVE 'Clase de documento p/aplic' TO sscrfields-functxt_01.
  136.   MOVE 'Clave de operación p/aplic' TO sscrfields-functxt_02.
  137.   MOVE 'Tipo de Retención p/aplic'  TO sscrfields-functxt_03.
  138.   MOVE 'Tipos de Cbtes'             TO sscrfields-functxt_04.
  139. *  btn_au1 = 'Tipos de Sit. frente a IVA'.
  140. *  btn_au2 = 'Tipos de Cbtes'.
  141. *  btn_au3 = 'Tipos de Sit. frente a IIBB'.
  142. *&---------------------------------------------------------------------*
  143. *&      Form  mantener_tabla
  144. *&---------------------------------------------------------------------*
  145. *       text
  146. *----------------------------------------------------------------------*
  147. *      -->I_LV_TABLA text
  148. *----------------------------------------------------------------------*
  149. FORM mantener_tabla USING i_lv_tabla TYPE dd02v-tabname.
  150.  
  151.   CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
  152.     EXPORTING
  153.       action                       = 'U'
  154.       view_name                    = i_lv_tabla
  155.     EXCEPTIONS
  156.       client_reference             = 1
  157.       foreign_lock                 = 2
  158.       invalid_action               = 3
  159.       no_clientindependent_auth    = 4
  160.       no_database_function         = 5
  161.       no_editor_function           = 6
  162.       no_show_auth                 = 7
  163.       no_tvdir_entry               = 8
  164.       no_upd_auth                  = 9
  165.       only_show_allowed            = 10
  166.       system_failure               = 11
  167.       unknown_field_in_dba_sellist = 12
  168.       view_not_found               = 13
  169.       maintenance_prohibited       = 14
  170.       OTHERS                       = 15.
  171.  
  172.   IF sy-subrc <> 0.
  173.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  174.        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  175.   ENDIF.
  176.  
  177. ENDFORM.                    "mantener_tabla
  178.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!