O Conhecimento

O conhecimento é inútil a menos que você o compartilhe.

quinta-feira, 19 de janeiro de 2012

Codigo de barra

Função para retornar o codigo de barra.....

form cod_barra .
  
data: barcode type  brcde.*---->>>
*cod barra
  
if wa_bseg-esrre is not initial and wa_bseg-esrnr is not initial and wa_bseg-dmbtr is not initial.
    
clear:barcode.
    
call function 'J_1B_BARCODE_REVERT'
      
exporting
        iv_esrre            
wa_bseg-esrre
        iv_esrnr            
wa_bseg-esrnr
        iv_esrpz            
wa_bseg-esrpz
        iv_dmbtr            
wa_bseg-dmbtr
      
importing
        ev_reverted_barcode 
barcode.

    
if barcode is not initial.
      wa_saida
-cod_barra barcode.
    
endif.
  
endif.
*---->>>
endform

segunda-feira, 16 de janeiro de 2012

Form - Sapscript - Concatenar textos de itens agrupados


LEMBRAR QUE ESTE PROGRAMA DEVE SER DO TIPO POOL DE MÓDULOS OU EXECUTÁVEL


REPORT ZTESTE

*&---------------------------------------------------------------------*
*&      Form agrupar_texto_item
*&---------------------------------------------------------------------*
*       Concatenar textos de itens agrupados
*----------------------------------------------------------------------*
*      -->IN_TAB     text
*      -->OUT_TAB    text
*----------------------------------------------------------------------*
FORM agrupar_texto_item TABLES in_tab STRUCTURE itcsy
                      out_tab STRUCTURE itcsy.

  TYPES: BEGIN OF type_itens,
           ebeln  TYPE ekpo-ebeln,
           ebelp  TYPE ekpo-ebelp,
          END OF type_itens.

  DATA: v_ebeln         TYPE ekpo-ebeln,
        v_ebelp         TYPE ekpo-ebelp,
        v_name          TYPE thead-tdname,
        it_lines        TYPE STANDARD TABLE OF tline,
        wa_lines        TYPE tline,
        line(1024)      TYPE c,
        v_retirar(1024) TYPE c,                                 " Parte do texto para excluir do texto do item
        v_texto(1024)   TYPE c,                                 " Parte do texto para armazenar do texto do item
        text_tab(124)   TYPE c,
        vl_len          TYPE i,
        vl_pos          TYPE i,
        wa_itens        TYPE type_itens,
        it_itens        TYPE STANDARD TABLE OF type_itens INITIAL SIZE 0.

  CLEAR out_tab.
  REFRESH out_tab.

  READ TABLE in_tab WITH KEY name = 'EKPO-EBELN'.
  v_ebeln = in_tab-value.
  READ TABLE in_tab WITH KEY name = 'EKPO-EBELP'.
  v_ebelp = in_tab-value.

  CONCATENATE v_ebeln v_ebelp INTO v_name.

  " Buscar todos os itens
  SELECT ebeln ebelp
    INTO TABLE it_itens
    FROM ekpo
    WHERE ebeln = v_ebeln.

  " Verificar documentos agrupados
  LOOP AT it_itens INTO wa_itens.


      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          client                  = sy-mandt
*         id                      = 'F01'                          " Texto item
          id                      = 'F04'                          " Texto remessa
          language                = sy-langu
          name                    = v_name
          object                  = 'EKPO'
          archive_handle          = 0
          local_cat               = ' '
        TABLES
          lines                   = it_lines
        EXCEPTIONS
          id                      = 1
          language                = 2
          name                    = 3
          not_found               = 4
          object                  = 5
          reference_check         = 6
          wrong_access_to_archive = 7
          OTHERS                  = 8.

      IF sy-subrc EQ 0.

        " Buscar linhas de descrição do item
        LOOP AT it_lines INTO wa_lines.    

          IF sy-tabix = 1.
            text_tab = wa_lines-tdline.
          ELSE.
            CONCATENATE text_tab line INTO text_tab SEPARATED BY space.
          ENDIF.

        ENDLOOP.

        out_tab-name  = 'DESC_ITEM'.
        out_tab-value = text_tab.
        APPEND out_tab.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDFORM.    "agrupar_texto_item


sexta-feira, 13 de janeiro de 2012

Impressão de text no SapScript

Para a impressão de obj de texto que seriam lidos por read_text em um sapscript:

INCLUDE &NAME& OBJECT &OBJ& ID &ID&  LANGUAGE &LG&


quinta-feira, 5 de janeiro de 2012

Eventos Tela Manutenção

Para o evento 01 – antes de gravar os dados no banco de dados, da tela de manutenção gerada automaticamente, para consistir alterações/inclusões, segue codigo abaixo.


FORM check_alt_mat_comodato.*STATUS = EULG = ALTERAÇÃO
*STATUS = EALX = INCLUSÃO
*
*<ACTION> = N = NEW
*<ACTION> = D = DELETE
*<ACTION> = U = UPDATE

  
IF status 'EULG' AND <ACTION> 'U'.
    
MESSAGE s001(z_msg01WITH  'Itens não podem ser Alterados!' DISPLAY LIKE 'E'.
    
LEAVE SCREEN.
  
ENDIF.
ENDFORM.                    "CHECK_ALT_MAT_COMODATO




segunda-feira, 2 de janeiro de 2012

Sem Preview SapScript

* Seta variáveis default de impressão
  itcpo-tdpreview = 'X'.
  itcpo-tdimmed   = 'X'.
  itcpo-tddelete  = 'X'.
  itcpo-tddest    = 'IBZK'.

* Abre o formulário
  CALL FUNCTION 'OPEN_FORM'
       EXPORTING
            form    = 'ZMM_ETIQ_LFA1'
            dialog  = ' '
            options = itcpo
       EXCEPTIONS
            OTHERS  = 1.

 
Blogger Templates