Field Grupo Articulo

Hello
I have a situation, and to create a infobjeto z to save the type of material that is defined by a condition which I am doing through a routine in a transformation that goes to the bucket, my problem is that some of these conditions save the type of material has to do with the group article, I understand that the group item is an attribute of the material, but not how to get the item group to get it in routine conditions.
Someone known how the group could get article and be able to use in the transformation routine?
This is to bring the field to the cube 0IC_C03
I need help.
Hernando Urbina.

Hi
Can you not design your information as a nav. attribute? or is this data always the same? If it changes over time your already loaded data wont update and your inventory movements will be on two or more material types. (Just something to be considered)
Otherwise read your material and attribute into an internal table during the startroutine and then read that in your transformation routine
hope it helps
Martin

Similar Messages

Strategy of approval for a purchase request

Hello,
Someone knows programatically how to discover the tables and the line code where the strategy of approval is built?
The fields Grupo de Liberacion and Estrategia liberac. are filled according to the selection ZTPP,etc.
thank you.

Hi Bhg,
I am trying to discover what determines that "tab strategy" makes appears.
When I fill the fields required in the Purchase Request me51n , sometimes there is no strategy, the "tab strategy" doesn't appears, and I have an error that says "Error: no approval strategy was determined"
So, that's because I ask if there's a way programatically to know where is the validation that make appears or disappear the "tab strategy"
Perhaps there's a user exit, that is validating this strategy.
Thanks so much Bhg

Problema al fijar cuentas contables por articulo

En V2005A se fijo cuentas contables a nivel de articulo, grupos y almacenes, al hacer actualización a V2007A, vemos que los articulos a los cuales se les fijo cuentas contables a nivel de articulo, al hacer documento Ej. factura de clientes , al verificar el asiento contable las cuentas que el sitema toma son las del grupo del articulo. No respeta al asignacion de cuentas que tiene definido el articulo, por defecto contabiliza con las cuentas del grupo del articulo.
Se probó a modificar la asignación de cuentas cambiandolas almacen o grupo, contabiliza con las cuentas definidas en el grupo, no asume las definidas en el articulo.
Jairo A. Martinez
Heinssohn Cali- Colombia

Estimado,
En el maestro del item que mueves en las compras y ventas, como tienes el setting referente a como se contabiliza.
Tab: Inventory Data
field: "Set GL Account By"
saludos

When clic in the field "i_ekpo-ebeln" tab exit in report ALV

Good Afternoon! *********************************************************
Coloquei all the code, I believe for better clarification. When clico in the field i_ekpo-ebeln in the report is called transaction ME23 c/o GRID this functioning normally, but with the reports List and Hierarquico it does not happen the same and it prints in the baseboard the message "Invalid Function". when standard use buttons, functions of course.
obs.: I had that to create a SET Pf-status for each type of report pos I wanted that when clicar in the field box and clicar in the button "TO PRINT REPORT" it printed sapscript. How I make to solve such problem?
Att, Carlos Eduardo.
REPORT ztreino NO STANDARD PAGE HEADING LINE-SIZE 220.
************************declarações*********************
DATA: BEGIN OF y_ekko OCCURS 0,
        ebeln TYPE ekko-ebeln, "Nº documento de compra
        bukrs TYPE ekko-bukrs, "Empresa
        bsart TYPE ekko-bsart, "Documento de compra
        loekz TYPE ekko-loekz, "Código de eliminação
        aedat TYPE ekko-aedat, "Data de criação do registro
        ernam TYPE ekko-ernam, "Nome do responsável que criou o objeto
        lifnr TYPE ekko-lifnr, "Nº conta do fornecedor
        ekgrp TYPE ekko-ekgrp, "Grupo de compradores
        waers TYPE ekko-waers, "Chave da moeda
        BOX   TYPE ptrv_approval-box, "campo para chekinbox
      END OF y_ekko,
      BEGIN OF y_ekpo OCCURS 0,
        ebeln TYPE ekpo-ebeln, "Nº documento de compra
        ebelp TYPE ekpo-ebelp, "Nº item do documento de compra
        loekz TYPE ekpo-loekz, "Código de eliminação
        txz01 TYPE ekpo-txz01, "Texto breve
        matnr TYPE ekpo-matnr, "Nº material
        bukrs TYPE ekpo-bukrs, "Empresa
        werks TYPE ekpo-werks, "Centro
        menge TYPE ekpo-menge, "Quantidade do pedido
        netpr TYPE ekpo-netpr, "Preço líquido no documento de compra
        BOX   TYPE ptrv_approval-box, "campo para chekinbox
      END OF y_ekpo.
*início seleção de dados
SELECTION-SCREEN BEGIN OF BLOCK bl2 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
                                *Nº documento de compra
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln NO INTERVALS OBLIGATORY,
                 s_bukrs FOR ekko-bukrs OBLIGATORY, "Empresa
                 s_bsart FOR ekko-bsart. "Documento de compra
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN END OF BLOCK bl2.
**fim da seleção de dados----
**início da variante
SELECTION-SCREEN BEGIN OF BLOCK bl4 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl3 WITH FRAME TITLE text-002.
PARAMETERS : p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK bl3.
SELECTION-SCREEN END OF BLOCK bl4.
***fim variante -
***início modo relatório
SELECTION-SCREEN BEGIN OF BLOCK bl5 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl6 WITH FRAME TITLE text-003.
SELECTION-SCREEN SKIP.
PARAMETERS : rb1 RADIOBUTTON GROUP TIPO DEFAULT 'X',
               rb2 RADIOBUTTON GROUP TIPO,
               rb3 RADIOBUTTON GROUP TIPO.
SELECTION-SCREEN END OF BLOCK bl6.
SELECTION-SCREEN END OF BLOCK bl5.
****fim modo relatório
*******início da opção de download
Dados do arquivo texto de saída.
SELECTION-SCREEN BEGIN OF BLOCK bl9 WITH FRAME TITLE text-004.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-005.
PARAMETERS: p_gerar AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-006.
PARAMETERS: p_dir LIKE rlgrap-filename DEFAULT 'c:'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-007.
PARAMETERS: p_arq LIKE rlgrap-filename DEFAULT 'nota-geral.txt'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK bl9.
DATA :
      i_ekko LIKE     y_ekko OCCURS 0 WITH HEADER LINE,
      i_ekpo LIKE     y_ekpo OCCURS 0 WITH HEADER LINE.
     i_tabsaida LIKE y_saida OCCURS 0 WITH HEADER LINE.
*********************Fim Declarações*******************************
*********************Declarações ALV*******************************
TYPE-POOLS : slis.
DATA :
       s_layout    TYPE slis_layout_alv,
       t_sort      TYPE slis_t_sortinfo_alv WITH HEADER LINE,
       t_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       s_grupos    TYPE slis_t_sp_group_alv WITH HEADER LINE,
       s_keyinfo   TYPE slis_keyinfo_alv,
       extab       TYPE slis_t_extab.
DATA :
       variant_exit(1) TYPE c,
       def_variant(1) TYPE c,
       s_print      TYPE slis_print_alv,
       s_top        TYPE slis_t_listheader,
       variante     TYPE disvariant,
       def_variante TYPE disvariant,
       v_repid      LIKE sy-repid,
*------pega a data que esta rodando a transação
       v_datasaida(10) TYPE C,
*------para saber quantos Pedidos na EKKO
       v_exibe      TYPE I,
       s_selfield type slis_selfield,
       v_ucomm like sy-ucomm.
**********************Fim declarações ALV*************************
               Contants para Sapscript e declarações                 *
TABLES: ITCPO.
CONSTANTS: c_on(1) TYPE C VALUE 'X',    "Parâmetro para o Sapscript
            c_off(1) TYPE C VALUE ''.     "Parâmetro para o Sapscript
Data:
      v_element(15) TYPE C, "Elemento de texto do Sap Script
      v_type(15)    TYPE C, "BODY
      v_window(15) TYPE C, "Janela
      flag          TYPE I, "Uma condição para impressão do sapscript
      resp          TYPE C, "resposta para confirmação do download tab
      zlen          TYPE I, "Para verificar o um diretório válido
Para a função WS_DOWNLOAD só em declarar as variaveis deste tipo já *
seria o bastante para passar o caminho para a função
TABLES : ekko, ekpo.
                   initialization                                    *
INITIALIZATION.
PERFORM zf_verifica_variante.
               at selection-screen on value-request                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM zf_busca_variante_existente.
             at seletion-screen                                      *
AT SELECTION-SCREEN.
PERFORM zf_valida_variante.
validar os campo antes de fazer download do arquivo
PERFORM zf_trata_parametros_gerar_arqu.
            start-of-selection                                       *
START-OF-SELECTION.
PERFORM zf_seleciona_dados.
                   Criando ALV                                       *
PERFORM zf_alv.
*&      Form zf_verifica_variante
      text
--> Verifica se a variante selecionada é existente
FORM zf_verifica_variante.
CLEAR variante.
v_repid = sy-repid.
variante-report = v_repid.
Buscar variante default
def_variante = variante.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save        = 'A'
       CHANGING
            cs_variant    = def_variante
       EXCEPTIONS
            wrong_input   = 1
            not_found     = 2
            program_error = 3
            OTHERS        = 4.
IF sy-subrc EQ 0.
    p_vari = def_variante-variant.
ENDIF.
ENDFORM.                    " zf_verifica_variante
*&      Form zf_busca_variante_existente
*-       text
*- --> Vai buscar a variante existente
FORM zf_busca_variante_existente.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = variante      " Report com as
            i_save              = 'A'           " Variantes Salvas
            i_tabname_header    = 'I_EKPO'      " Tabela interna saida
            it_default_fieldcat = t_fieldcat[] " Tabela de formatação
            i_display_via_grid = 'X' " Dispara POPUP em ALV
       IMPORTING
            e_exit           = variant_exit " Se não existir variante X
            es_variant       = def_variante     " Variante default
       EXCEPTIONS
            not_found           = 1
            program_error       = 2
            OTHERS              = 3.
IF sy-subrc = 2.
      MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF variant_exit = space.
      p_vari = def_variante-variant. " Recebe variante escolhida
    ENDIF.
ENDIF.
ENDFORM.                    " zf_busca_variante_existente
*-&      Form zf_valida_variante
*-       text
*- --> Verifica se a variante digitada é válida.
FORM zf_valida_variante.
IF NOT p_vari IS INITIAL.
    variante             =     def_variante.    "nome do report
    def_variante-variant =     p_vari.          "nome que foi digitado
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              i_save     = 'A'
         CHANGING
              cs_variant = def_variante
              variante   = def_variante.
ELSE.
    clear variante.
    variante-report = v_repid.
ENDIF.
ENDFORM.                    " zf_valida_variante
-&      Form zf_seleciona_dados
*-       text
--> Seleciona os dados da ekko e ekpo
FORM zf_seleciona_dados.
SELECT ebeln
       bukrs
       bsart
       loekz
       aedat
       ernam
       lifnr
       ekgrp
       waers
        FROM ekko
        INTO TABLE i_ekko
        WHERE
             ( ebeln IN s_ebeln AND
               bsart EQ 'NB' ).
SORT I_EKKO ASCENDING.
IF sy-subrc EQ 0.
    SELECT ebeln
           ebelp
           loekz
           txz01
           matnr
           bukrs
           werks
           menge
           netpr
            FROM ekpo
            INTO TABLE i_ekpo
            FOR ALL ENTRIES IN i_ekko
            WHERE
                 ( ebeln EQ i_ekko-ebeln ).
ENDIF.
SORT I_EKPO ASCENDING.
Para exibir no topo do relatório no grid
DESCRIBE TABLE I_EKKO LINES v_exibe.
ENDFORM.                    " zf_seleciona_dados
*-&      Form zf_ALV
*-       text
--> Opções de alv
FORM zf_alv.
IF rb1 = 'X'.
          PERFORM zf_gri.
ENDIF.
IF rb2 = 'X'.
          PERFORM ZF_HIERARQUICO.
ENDIF.
IF rb3 = 'X'.
          PERFORM ZF_LIST.
ENDIF.
ENDFORM.                    " zf_ALV
*&      Form zf_gri
*-       text
*- --> Seqüência para gerar o alv grid
FORM zf_gri.
PERFORM zf_layout.
PERFORM zf_ordena_campos.
PERFORM zf_monta_campos_alv.
PERFORM zf_print.
PERFORM zf_grupo.
PERFORM zf_top USING s_top.
IF NOT I_EKPO[] IS INITIAL.
    PERFORM zf_imprime_alv.
ELSE.
    MESSAGE s000(zcl001) WITH 'Nenhum registro encontrado.'.
    STOP.
ENDIF.
ENDFORM.                    " zf_gri
*-&      Form zf_layout
*-       text
--> cria o layout do alv
FORM zf_layout.
s_layout-box_tabname          = 'I_EKPO'.
s_layout-box_fieldname        = 'BOX'.
s_layout-get_selinfos         = 'X'.
s_layout-detail_popup         = 'X'.
s_layout-detail_initial_lines = 'X'.
s_layout-zebra                = 'X'.
s_layout-colwidth_optimize    = 'X'.
ENDFORM.                    " zf_layout
*-&      Form zf_ordena_campos
*-       text
--> Ordenação dos campos
FORM zf_ordena_campos.
CLEAR t_sort.
t_sort-spos      = '1'.          "prioridade de ordenação
t_sort-fieldname = 'EBELN'.      "campo da tab int. de saida
t_sort-tabname   = 'I_EKPO'.     "tab inter de saida
t_sort-up        = 'X'.          "ordenação do maior para o menor
APPEND t_sort.
ENDFORM.                    " zf_ordena_campos
*-&      Form zf_monta_campos_alv
      text
--> è passado os campos de acordo com a ordem de exibição inicial
FORM zf_monta_campos_alv.
IF rb2 = 'X'.
CLEAR t_FIELDCAT.
t_FIELDCAT-FIELDNAME      = 'BOX'.
t_FIELDCAT-TABNAME        = 'I_EKKO'.
t_FIELDCAT-CHECKBOX       = 'X'.
t_FIELDCAT-INPUT          = 'X'.
APPEND t_FIELDCAT.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'EBELN'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'EBELN'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'BUKRS'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'BUKRS'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'BSART'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'BSART'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'AEDAT'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'AEDAT'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'ERNAM'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'ERNAM'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'LIFNR'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'LIFNR'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'EKGRP'.
t_fieldcat-tabname        = 'I_EKKO'.
t_fieldcat-ref_fieldname = 'EKGRP'.
t_fieldcat-ref_tabname    = 'EKKO'.
APPEND t_fieldcat.
ENDIF.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'EBELN'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'EBELN'.
t_fieldcat-ref_tabname    = 'EKPO'.
t_fieldcat-key            = 'X'.
t_fieldcat-Hotspot        = 'X'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
T_fieldcat-fieldname     = 'EBELP'.
T_fieldcat-tabname       = 'I_EKPO'.
T_fieldcat-ref_fieldname = 'EBELP'.
T_fieldcat-ref_tabname   = 'EKPO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'MATNR'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'MATNR'.
t_fieldcat-ref_tabname    = 'EKPO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'WERKS'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'WERKS'.
t_fieldcat-ref_tabname    = 'EKPO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'MENGE'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'MENGE'.
t_fieldcat-ref_tabname    = 'EKPO'.
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'NETPR'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'NETPR'.
t_fieldcat-ref_tabname    = 'EKPO'.
t_fieldcat-do_sum         = 'X'. "totalizar campo
APPEND t_fieldcat.
CLEAR t_fieldcat.
t_fieldcat-fieldname      = 'TXZ01'.
t_fieldcat-tabname        = 'I_EKPO'.
t_fieldcat-ref_fieldname = 'TXZ01'.
t_fieldcat-ref_tabname    = 'EKPO'.
APPEND t_fieldcat.
ENDFORM.                    " zf_monta_campos_alv
*-&      Form zf_top
*-       text
*- --> Cria o texto de cabeçalho do ALV, passando por parametro o
--> p_S_TOP para s_top
FORM zf_top USING p_s_top TYPE slis_t_listheader.
DATA: ls_line TYPE slis_listheader.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'Relatório de Compras por Classificação Contábil'.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-KEY = 'Parametros Seleção '.
ls_line-info = '- Documento de compra'.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = '- Empresa'.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = '- Tip.doc.compra'.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-KEY = 'Total Pedido'.
ls_line-info = v_exibe.
APPEND ls_line TO p_s_top.
início Formatar a data
CALL FUNCTION 'DATUMSAUFBEREITUNG'
   EXPORTING
     IDATE                 = SY-DATUM
   IMPORTING
     TDAT8                 = v_datasaida.
Fim Formatar a data
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-KEY = 'Data da execução'.
ls_line-info = v_datasaida.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-KEY = 'Usuário'.
APPEND ls_line TO p_s_top.
CLEAR ls_line.
ls_line-typ = 'A'.
ls_line-info = sy-uname.
APPEND ls_line TO p_s_top.
ENDFORM.                    " zf_top
*-&      Form zf_print
*-       text
*- --> Parametros de Impressão para o ALV
FORM zf_print.
s_print-no_print_selinfos     = 'N'.
s_print-no_print_listinfos    = 'N'.
ENDFORM.                    " zf_print
*-&      Form zf_imprime_alv
*-       text
*- --> Imprime o ALV c/ seu parametros
FORM zf_imprime_alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PF_STATUS_SET          = 'ZSET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'ZF_USER_COMMAND'
     i_callback_program                = v_repid
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     is_layout                         = s_layout
     it_fieldcat                       = t_fieldcat[]
    IT_EXCLUDING                      =
     IT_SPECIAL_GROUPS                 = S_GRUPOS[]
     it_sort                           = t_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
     i_default                         = 'X'
     i_save                            = 'A'
     is_variant                        = variante
    IT_EVENTS                         =
    IT_EVENT_EXIT                     =
     IS_PRINT                          = S_PRINT
    IS_REPREP_ID                      =
     I_SCREEN_START_COLUMN             = 0
     I_SCREEN_START_LINE               = 0
     I_SCREEN_END_COLUMN               = 0
     I_SCREEN_END_LINE                 = 0
    IT_ALV_GRAPHICS                   =
    IT_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = I_EKPO
   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.
ENDFORM.                    " zf_imprime_alv
*-&      Form zf_top-of-page
*-       text
--> Cabeçalho ALV
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary       = s_top
            i_logo                   = 'CARLOS_LOGO3'.
I_END_OF_LIST_GRID       = .
ENDFORM.                    " zf_top-of-page
*-&      Form ZF_HIERARQUICO
*-       text
*- --> RELATÓRIO HIERÁQUICO
form ZF_HIERARQUICO.
PERFORM zf_layout.
PERFORM zf_ordena_campos.
PERFORM zf_monta_campos_alv.
PERFORM zf_print.
PERFORM zf_grupo.
IF NOT I_EKPO[] IS INITIAL.
    PERFORM zf_imprime_hierarquico_alv.
ELSE.
    MESSAGE s000(zcl001) WITH 'Nenhum registro encontrado.'.
    STOP.
ENDIF.
endform.                    " ZF_HIERARQUICO
*-&      Form zf_grupo
     text
--> Não é fundamental a criação de grupos de campos, mas facilita
ao usuário na hora de escolher os campos de exibição após o clique do
botão MODIFICAR LAYOUT . Vários campos da fieldcat podem ser
definidos para um mesmo grupo de campo.
form zf_grupo.
MOVE:'Moeda' TO S_GRUPOS-SP_GROUP,
     'Campos moeda' TO S_GRUPOS-TEXT.
     APPEND S_GRUPOS.
endform.                    " zf_grupo
*&      Form zf_imprime_hierarquico_alv
      text
--> p1        text
<-- p2        text
form zf_imprime_hierarquico_alv.
Vamos definir as ligações entre as tabelas para as quebras no momento
da impressão.
s_keyinfo-header01 = 'EBELN'.
s_keyinfo-item01    = 'EBELN'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_USER_COMMAND           = 'ZF_USER_COMMAND'
     I_CALLBACK_PF_STATUS_SET          = 'ZF_SET_PF_STATUS_HIERARQ'
      I_CALLBACK_PROGRAM                = v_repid
      IS_LAYOUT                         = S_LAYOUT
      IT_FIELDCAT                       = T_FIELDCAT[]
      IT_SPECIAL_GROUPS                 = S_GRUPOS[]
     IT_SORT                        =
     IT_FILTER                      =
-    Parâmetro p/executar sempre com a variante default
      I_DEFAULT                         = 'X'
-                     Se é possível salvar as variantes
      I_SAVE                            = 'A'
-                          Nome da variante selecionada
      IS_VARIANT                        = VARIANTE
     IT_EVENTS                      =
     IT_EVENT_EXIT                  =
      i_tabname_header                  = 'I_EKKO'
      i_tabname_item                    = 'I_EKPO'
     I_STRUCTURE_NAME_HEADER        =
     I_STRUCTURE_NAME_ITEM          =
      is_keyinfo                        = S_KEYINFO
      IS_PRINT                          = S_PRINT
     IS_REPREP_ID                   =
     I_BUFFER_ACTIVE                =
     I_BYPASSING_BUFFER             =
IMPORTING
     E_EXIT_CAUSED_BY_CALLER        =
     ES_EXIT_CAUSED_BY_USER         =
    tables
      t_outtab_header                   = I_EKKO
      t_outtab_item                     = I_EKPO.
endform.                    " zf_imprime_hierarquico_alv
*&      Form ZF_LIST
      text
--> p1        text
<-- p2        text
form ZF_LIST.
PERFORM zf_layout.
PERFORM zf_ordena_campos.
PERFORM zf_monta_campos_alv.
PERFORM zf_print.
PERFORM zf_grupo.
IF NOT I_EKPO[] IS INITIAL.
      PERFORM zf_imprime_list_alv.
ELSE.
    MESSAGE s000(zcl001) WITH 'Nenhum registro encontrado.'.
    STOP.
ENDIF.
endform.                    " ZF_LIST
*&      Form zf_imprime_list_alv
      text
--> p1        text
<-- p2        text
form zf_imprime_list_alv.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
      I_CALLBACK_PF_STATUS_SET       = 'ZF_SET_PF_STATUS_LIST'
      I_CALLBACK_USER_COMMAND        = 'ZF_USER_COMMAND'
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = v_repid
     I_STRUCTURE_NAME               = 'I_EKPO'
     IS_LAYOUT                      = S_LAYOUT
     IT_FIELDCAT                    = T_FIELDCAT[]
    IT_EXCLUDING                   =
     IT_SPECIAL_GROUPS              = S_GRUPOS[]
     IT_SORT                        = T_SORT[]
    IT_FILTER                      =
    IS_SEL_HIDE                    =
     I_DEFAULT                      = 'X'
     I_SAVE                         = 'A'
     IS_VARIANT                     = VARIANTE
    IT_EVENTS                      =
    IT_EVENT_EXIT                  =
     IS_PRINT                       = S_PRINT
    IS_REPREP_ID                   =
     I_SCREEN_START_COLUMN          = 0
     I_SCREEN_START_LINE            = 0
     I_SCREEN_END_COLUMN            = 0
     I_SCREEN_END_LINE              = 0
IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      t_outtab                       = I_EKPO.
endform.                    " zf_imprime_list_alv
*&      Form zf_user_command
      text
--> p1        text
<-- p2        text
form zf_user_command using p_v_ucomm like SY-UCOMM
                           p_s_selfield type slis_selfield.
*---tratamento de impressão do Sapscript----
CASE p_v_ucomm.
FLAG = 0.
     WHEN 'IMPRIMIR' OR 'PRINT'.
         LOOP AT i_ekpo.
              IF NOT i_ekpo-BOX IS INITIAL.
                FLAG = FLAG + 1.
              ENDIF.
        ENDLOOP.
se tiver selecionado apenas uma box
        IF flag EQ 1.
            IF p_gerar EQ 'X'.
*-----perform para confirmação de download
              PERFORM zf_popup_to_confirm.
            ENDIF.
*------chama o form para imprimir o sapscript
              PERFORM zf_sapscript.
        ENDIF.
box estiver vazia
        IF flag EQ 0.
           MESSAGE E017(ZCL_GRUPO04). "Selecione apenas uma BOX
                                      "referente ao pedido de compras.
           STOP.
        ENDIF.
"estiver selecionado + de uma box
        IF flag GT 1.
           MESSAGE E017(ZCL_GRUPO04). "Selecione apenas uma
                                     "BOX referente ao pedido de compra.
           STOP.
        ENDIF.
ENDCASE.
CASE p_s_selfield-sel_tab_field.
*observe na exibição do relatório(hierarquico) que temos o EKKO-EBELN
ficaria melhor visualmente, a utilização de clicar no mesmo
     WHEN 'I_EKPO-EBELN'. "tab de saida
           SET PARAMETER ID 'BES' FIELD p_s_selfield-VALUE.
           CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
ENDCASE.
endform.                    " zf_user_command
*&      Form ZSET_PF_STATUS
      text
     -->P_EXTAB text
form ZSET_PF_STATUS using    p_extab.
set pf-status 'BOTOES' EXCLUDING extab.
endform.                    " ZSET_PF_STATUS
*&      Form zf_sapscript
      text
--> p1        text
<-- p2        text
form zf_sapscript.
--carregar a ITCPO----
PERFORM zf_itcpo.
----chamar a função Open_form
PERFORM zf_open_form.
*----buscar o fornecedor e seus dados
LOOP AT I_ekko.
        v_element = 'CABPRIN'.
        v_type     = 'BODY'.
        v_window   = 'JANCABEC'.
        PERFORM zf_imprime_form USING v_element
                                        v_type
                                        v_window.
ENDLOOP.
*----buscar o documento de compra selecionado
LOOP AT i_ekpo.
    IF i_ekpo-BOX = 'X'.
        v_element = 'MAIN'.
        v_type     = 'BODY'.
        v_window   = 'MAIN'.
        PERFORM zf_imprime_form USING v_element
                                        v_type
                                        v_window.
*---o comando EXIT é para que somente quando 1 registro for selecionado
no relatório e a verificação da igualdade acontecer faz que saia do
Loop
    EXIT.
    ENDIF.
ENDLOOP.
PERFORM zf_close_form.
endform.                    " zf_sapscript
*&      Form zf_itcpo
      text
--> p1        text
<-- p2        text
form zf_itcpo.
*Parâmetros para impressão da tabela ITCPO
ITCPO-TDCOPIES   = 1.           "Quantidade de cópias
ITCPO-TDPAGESLCT = ''.          "Seleção de páginas
ITCPO-TDPROGRAM = SY-REPID.    "Captura o nome do programa
ITCPO-TDIMMED    = c_on.        "Saída imediata do relatório
ITCPO-TDPREVIEW = c_on.        "Exibição prévia do relatório
ITCPO-TDDEST     = 'LOCL'.      "SPOOL: dispositivo de saída
ITCPO-TDFAXUSER = SY-UNAME.    "Usuário logado naquele momento
ITCPO-TDSENDDATE = SY-DATUM.    "Data de envio desejada
ITCPO-TDSENDTIME = SY-UZEIT.    "Hora envio desejada
ITCPO-TDNEWID    = c_on.        "Nova ordem SPOOL
ITCPO-TDARMOD    = c_on.       "IMPRIMIR: modo de arquivamento
ITCPO-TDTITLE    = 'Relatório de Compras por Classificação Contábil'.
endform.                    " zf_itcpo
*&      Form zf_open_form

Boa Tarde Carlos,
Welcome to the SDN Forums. SDN gets it's power from the large community throughout the world. To harvest that power of knowledge we have settled on one language for posts here which is English.
Clearly English is not your first language, but don't be afraid, I would vouch that for most of the participant here on SDN English is the second language.
As it is for me. I am just lucky, that I am living in the States long enough that German colleagues start to look at me strangely when I talk to them in German, because it doesn't totally sound right anymore
So we are very forgiving her in SDNland regarding grammar and spelling (although not as much anymore in the Weblogs), we even provide a spell checker.
Please post your question again in English.
If people don't understand you they will ask you about the things that they don't understand and you can then clarify.
Try it out. Your chance of an excellent responds is way higher.
Boa sorte, Mark.

Native SQL Update statement error when more than one field used

Hi, I would make it simple. I update directly to a SQL server.
1-
When I update only one field works.
LOOP AT IT_MAT.
EXEC SQL.
UPDATE Articulos SET PrecioSinImp = :IT_MAT-PRECIOSINIMP        WHERE Modelo = :IT_MAT-MODELO
ENDEXEC.
ENDLOOP.
This give me sy-subrc = 0
When I Try to update several fields doesnt works, any would can help me ?.
LOOP AT IT_MAT.
EXEC SQL.
UPDATE Articulos SET PrecioSinImp = :IT_MAT-PRECIOSINIMP
                       Descripcion = :IT_MAT-DESCRIPCION
WHERE Modelo = :IT_MAT-MODELO
ENDEXEC.
ENDLOOP.
This give me dump SQL error 170.
2- BTW, I have to leave this report program in a job so the data would be updated once a day in a job, so I have to update the existing data and add new one.
I Was thinking doing something like this.
LOOP AT it_table.
UPDATE DQL TABLE
IF sy-subrc <> 0.
INSERT DQL TABLE
ENDIF.
ENDLOOP.
This may works ??? because if this not work, I have to select single each one of the data in the SQL table, if it was founded UPDATE otherwise INSERT. And I dont like this aproach.
Thx

Hi Rodrigo,
I feel that your requirement is as below:
Depending on the criteria in the where clause, check whether the record exists or not.. If it does, then update the record with new values, else, create a new record..
You can do the same as below:
LOOP AT it_mat INTO e_mat. (e_mat of same structure as it_mat)
MOVE : xxx TO e_mat-yyy... and so on (Only change the non-key values)
MODIFY dbtable FROM e_mat.
ENDLOOP.
This code will create a new record if a record with the given key values in e_mat is not found, else, it will update the existing record with the new non-key values in the structure e_mat.
Thanks and Best Regards,
Vikas Bittera.
<b><REMOVED BY MODERATOR></b>
Message was edited by:
        Alvaro Tejada Galindo

Call imge in field report(help please)

Hi all
as I would like to know how to draw a picture to a field in a report
in forms would be something like this,''READ_IMAGE_FILE ('j: \ imagenes2001 \' | |: ARTICULOS.REFERENCIA | | '. JPG', 'JPEG', 'ARTICULOS.IMAGEN'); "
at apex as serious?
Thanks
Greetings
Edited by: user10085976 on Feb 1, 2011 8:02 AM

Hi,
in ApEx, you could use IMG tag - <img src="/i/my_image.jpg"> and set Strip HTML to No. In this way you can insert image which is on server filesystem and you know relative path to it.
Jirka

AUTORIZAR ARTICULOS NUEVOS

Hola a todos, es un gusto poder saludarlos y enviarles un cordial saludo, el motivo de mi POST es para saber si alguien a logrado conseguir realizar alguna autorización para la creacion de articulos nuevos en el catalogo de inventarios, agradecere todo el apoyo que se me brinde y quedo a sus ordenes para cualquier apoyo tambien.
GRACIAS
Julian Cab Canul
Administrador de Tecnologías|Departamento de Sistemas
Grupo RV|División Autopartes
Chetumal, Quintana Roo, México

Hola..
Entiendo que lo que se requiere es que haya una autorización cada vez que se desee ingresar un NUEVO CÓDIGO para el catálogo, pues los artículos que llamas son artículos que necesariamente ya han sido previamente creados en el Maestro de Artículos.
Si estoy en lo correcto en cuanto a tu requerimiento, significa que no habrían opciones para crear una autorización.
Básicamente el tema es que siempre que quieras trabajar con autorizaciones, estas necesitan de un usuario solicitante y un usuario autorizador y solo se aplican a los documentos de marketing e inventario. Básicamente para efectos de aprobar un ciclo de autorización, el documento debe quedar en algún lugar a la espera de la autorización.
Esto por ejemplo, podría aplicarse a los pagos (no existen autorizaciones para los pagos), considerando que el documento puede ser "grabado como preliminar", lo que significa que a través de una validación por SQL, podrías enviar un mensaje al usuario que lo obligue a grabar el documento bajo esta modalidad. Y luego el autorizador podría identificar el documento y simplemente crearlo (esto es modelable segun sea el caso)
En el caso de los catálogos esto no es posible, por lo que unicamente podrías autorizar el que accedan a la lista de artículos (esto a través de las autorizaciones adicionales), con ello el usuario debería solicitar por algun medio la autorizacion a un usuario superior, y en dicho evento le comunicará el código a crear, para obtener una confirmación o negativa al evento.
Espero, esto sea de tu ayuda.
Saludos,

Fields in DSO & Cube

Hi experts,
I have the field 0fiscyear in my dso and also in the cube. But
when creating transformation the field 0fiscyear is present in
the dso but not in the cube. So that i am unable to create
transformation for 0fiscyear.Anyone please explain me what
should i do to make the field visible in the cube.
And one more question. How can we select or hide the fields
of 0fi_ar_3.This data source is not visible in LBWE.
Full points will be assigned.
Thanks & Regards,
V N.

Hi VN,
Goto SBIW->Application Specific>Logistics>manage extract struvctures>initialization->appl specific setup of statistical dat -->select inventory mangement perform setup>
in the select materil movement/Setup: Invoice Verification, Revaluation as per your choice to load.
direct transaction OLI1BW for material movement
OLIZBW for invoice verification
once you gets into statistical setup give name of the run and termination time and date to setup then gofor excution
once setup tables start loading gotoRSA3 which is extrac chekor to chk u r datasource data
before all this make sure your data source as active.
i hope this is clear na
mahesh
Edited by: Mahesh Kumar on May 19, 2008 7:00 AM
Edited by: Mahesh Kumar on May 19, 2008 7:01 AM

Fields in Creation of free goods VBN1

hi everybody,
Can somebody expalin in detail the fields in creation of free goods(T-vbn1) like free goods quantity,additional quantity,documnet quantity and calculation rule....
<b>Please dont copy paste anything form SAP help....I read that one......</b>
I would appreciate if u explain with your sentence..
Will reward point if it helps.
Ghassan

Hi Gafoor,
Material
Material, for which free goods is to be
granted
Minimum quantity
Minimum quantity for which free
goods can be granted
From
Quantity of sales material
FGQ--- Quantity unit of free goods material
Free goods -- Quantity of free goods with reference to the quantity and quantity unit of the sales material.
AQU - Quantity unit of the free goods additional quantity
Rule - Calculation rule
Prorata
whole units
unit related
D -- Delivery controlling - it tells how you can manage the delivery of free goods with respect to the main item ordered.
Additional material - Additional material (only available for entry in exclusive free goods)
Hope it helps. Please reward if helpful.
Thanks & Regards
Sadhu Kishore

Open Field in ALV Report

Hi all,
i have to develop a ALV report.
In that report i have to put a open quantity column , so that the user can enter values in that, and that value should get updated in the database.
So please suggest me how to develop such report with open field.
Thanks in advance,
Regards,
Pawan

Hi,
Try executing the below code
REPORT YMS_EDITBLOCKALV.
TABLES : rmmg1,MCHB, mkpf.
DATA: BEGIN OF t_mseg OCCURS 0,
zeile LIKE mseg-zeile,
menge LIKE mseg-menge,
meins LIKE mseg-meins,
matnr LIKE mseg-matnr,
werks LIKE mseg-werks,
charg LIKE mseg-charg,
bwart LIKE mseg-bwart,
END OF t_mseg.
DATA:BEGIN OF t_mchb OCCURS 0.
INCLUDE STRUCTURE mchb.
data flag type c.
matnr LIKE mchb-matnr,
charg LIKE mchb-charg,
werks LIKE mchb-werks,
clabs LIKE mchb-clabs,
DATA END OF t_mchb.
TYPE-POOLS slis.
data: progname like sy-repid,
fieldcattab TYPE slis_t_fieldcat_alv WITH HEADER LINE.
data tabindex type i.
data wa_matnr LIKE mchb-matnr.
progname = sy-repid.
SELECTION-SCREEN BEGIN OF BLOCK b_b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_docno FOR mkpf-mblnr. " OBLIGATORY.
PARAMETERS p_docyr LIKE mkpf-mjahr. " OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b_b1.
START-OF-SELECTION.
SELECT zeile
menge
meins
matnr
werks
charg
bwart
FROM mseg
INTO TABLE t_mseg
WHERE mblnr IN s_docno AND mjahr = p_docyr.
CLEAR fieldcattab.
fieldcattab-col_pos = 1.
fieldcattab-fieldname = 'ZEILE'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Item'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 2.
fieldcattab-fieldname = 'MENGE'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Quantity'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 3.
fieldcattab-fieldname = 'MEINS'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Unit'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 4.
fieldcattab-fieldname = 'MATNR'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Material'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 5.
fieldcattab-fieldname = 'WERKS'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Plant'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 6.
fieldcattab-fieldname = 'CHARG'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Batch No'.
APPEND fieldcattab.
CLEAR fieldcattab.
fieldcattab-col_pos = 7.
fieldcattab-fieldname = 'BWART'.
fieldcattab-tabname = 'T_MSEG'.
fieldcattab-seltext_l = 'Inventory'.
fieldcattab-hotspot = 'X'.
APPEND fieldcattab.
end-of-selection.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USERCOMMAND1'
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 =
IT_FIELDCAT = fieldcattab[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT = fieldcattab
IT_HYPERLINK =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = t_mseg
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 usercommand1 USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
tabindex = rs_selfield-tabindex.
read table t_mseg INDEX tabindex.
select * from mchb into table t_mchb where matnr = t_mseg-matnr.
clear fieldcattab.
CLEAR fieldcattab[].
fieldcattab-col_pos = 1.
fieldcattab-fieldname = 'FLAG'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Check Box'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
fieldcattab-checkbox = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 2.
fieldcattab-fieldname = 'MATNR'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-fix_column = 'X'.
fieldcattab-seltext_l = 'Material'.
fieldcattab-emphasize = 'C1'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
fieldcattab-checkbox = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 3.
fieldcattab-fieldname = 'CHARG'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Batch No'.
fieldcattab-emphasize = 'C2'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 4.
fieldcattab-fieldname = 'WERKS'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Plant'.
fieldcattab-emphasize = 'C30'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
clear fieldcattab.
fieldcattab-col_pos = 5.
fieldcattab-fieldname = 'CLABS'.
fieldcattab-tabname = 'T_MCHB'.
fieldcattab-seltext_l = 'Stock'.
fieldcattab-emphasize = 'C601'.
fieldcattab-input = 'X'.
fieldcattab-edit = 'X'.
APPEND fieldcattab.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = PROGNAME
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USERCOMMAND2'
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 =
IT_FIELDCAT = FIELDCATTAB[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = t_mchb
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.
endcase.
endform.
FORM usercommand2 USING r_ucomm LIKE sy-ucomm rs_selfield TYPE
slis_selfield.
CASE r_ucomm.
WHEN '&IC1'.
IF rs_selfield-sel_tab_field = 'T_MCHB-MATNR'.
CALL FUNCTION 'ZALV2'
EXPORTING
CTU = 'X'
MODE = 'E'
UPDATE = 'A'
GROUP =
USER =
KEEP =
HOLDDATE =
NODATA = '/'
MATNR_001 = '200-200'
KZSEL_01_002 = 'X'
IMPORTING
SUBRC =
TABLES
MESSTAB =
SET PARAMETER ID 'RID' FIELD RMMG1-MATNR.
CALL TRANSACTION 'MM03' and skip first screen.
ENDIF.
ENDCASE.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = progname
i_callback_user_command = 'USERCOMMAND3'
it_fieldcat = fieldcattab[]
TABLES
t_outtab = t_mchb
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.
endcase.
ENDFORM.
Regards,
chandru

Necessary Fields For Creation of Service PO of Order Type Relaese Order.

Dear Guru,
I have encountered an issue which i am trying to resolve...
My this requirment will seem little okward the way i am asking but i have no way...
The issue is I have to create a Service PO of Order type Release order (RO) using BAPI Function Module .BAPI_PO_CREATE1.
The service PO should be of multiple Item and services for particular line item should be multiple.
When I am creating this using ME21 or ME21N i am facing no issue.
But when i am using BAPI Function Module .BAPI_PO_CREATE1
i am getting following errors ;; The error which i am getting as below
T ID                   NUM MESSAGE
E BAPI                001 No instance of object type PurchaseOrder has been created. External reference:
E MEPO              000 Purchase order still contains faulty items
E SE                   029 Please maintain services or limits
E SE                   140 Service HIRING OF LCD: please specify unit of measure
But I am failing to findout in which field services or limits and unit of measurement have to maintain.
What are the necessary fields have to pass in Bapi import parameter and the table i am unable to findout.
Please show some way how to resolve this or give me some guideline to resolve this
Dear Moderator request your kind intervane to move this qurry into correct forum if i have asked this in wrong forum
Thanks and regards
saifur rahaman

Hi Saifur
Can you please elaborate how did you resolve the issue we are also facing same problem when we are trying to create the PO for service items through SRM it is throwing same error while creating the PO in SAP.
Email Id : [email protected]
Thank you in advance!!
Regards
Deepika

Issue in Creation of new Value Field in CO-PA

Hi,
I have a query in CO-PA Value Field Linking.
In my Development Client,
1. Created a New Value Field (No Transport Request Generated)
2. Linked to the above to new Conditon type created in SD. (Tranport request was generated) i.e. in Flow of Actual Values->Transfer of Billing Documents->Assign Value Fields
However then i try creating a new Value Field in my Production Client it throws a message 'You have no authorization to change Fields".
Is this an issue with authorization or i need to transport the Value field too from Development to Production client.
Please Advise.
Thanks in Advance,
Safi

Thanks Phaneendra for the response.
The creation of Value field did not create any tranportation request. Will this too be transported if i transport the Operating Concern.
Please Advise.
Thanks,
Safi

What are the mandatory fields while creation of material master in differen

what are the mandatory fields while creation of material master in different views?

Hi Gopi,
This is purely depends on the function configuration, which would be done MM consultants. Kindly check with them.
thanks & regards
Kishore Kumar Maram

BADI for changing fields during Creation of BP in CRM

Hello to everyone,
I need to find a BADI (or other way) to default several fields during BP creation in CRM (4.0 SR1 SP9). The fields I will like to set are TAX TYPE, TAX NUMBER, TAX CATEGORY, etc.. I have found the BADI BUPA_TAX_UPDATE but i dont see any suitable parameters (structures) to changes these fields. Please advice and thanks in advance.

Hi
If you use function BUPA_NUMBERS_GET then your BP number will already be buffered and you can avoid a DB read. It may also be that the BP is not in the DB yet anyway.
You can only pass one GUID in at a time - loop through IT_CHANGED_INSTANCES into a variable of type BU_PARTNER_GUID and pass that into the function as input parameter IV_PARTNER_GUID.
Cheers
Dom

Fields for creation of BP in cProjects front-end are read-only

Hi everyone,
I'm a beginner in SAP-Development/Customizing so I hope this question isn't too easy
I can't create a Business Partner using the cProjects front-end (Ressources > Staffing) because the necessary fields and buttons are read-only... (> web-Dynpro Component: DPR_ROL_STAFF; View-Info: VI_SEARCH_CREATE)
I'm using CPRXRPM 450_700 patch 0006
The field-control is standard-SAP (0SAP).
My user-account has all cProject-roles + SAP-ALL
I assume i can change the behaviour of these fields in the Field Control but I can't identify which is the corresponding Object Category to apply the changes.
- Is there a documentation which field belongs to which Object Category in Field Control?
- Or can somebody tell me a procedure to find it out on my own?
Thanks in advance

Hi,
generally it is recommended to use transaction BP or ALE distribution to get the business partner be created.
If you would like to create the BP in web UI directly, the user must have the Structural Authorization, see customizing path:
Collaboration Projects -> Resource Management -> Organizational Management.
It is very HR related topic, you may contact a HR consultant to know more details about it.
Kind regard,
Zhenbo

Field Grupo Articulo

Similar Messages

Maybe you are looking for