Este artigo descreve de forma explicativa e exemplificada o manipulação de graficos 2D e 3D.

Baixar: graficos

Este artigo contém alguns macetes para achar e manipular exits, ele não trata todos os processos de exit, por ser um assunto bastante grande. Apenas abrange alguns macetes.

Baixar: exit

No R/3 SAP Todas as trasações tem as seguintes regras:

XXXX01 – 01 Criar

XXXX02 – 02 Modificar

XXXX03 – 03 Visualizar

Sempre no final da transação será realizado este tipo de regra, onde XXX pode ser qualque transação,

Exemplo.:

Criar          Pedido ME21N

Alterar       Pedido ME22N

Visualizar  Pedido ME23N

Muita das vezes está se exibindo algum, dado e um destes dados é a chave de alguma regra de negócio, por exemplo, um pedido de compra (ME23N) que tem a chave como o numero do pedido, ou o numero de uma Nota Fiscal (J1B23N), onde queremos muitas das vezes acessar estas os dados desta regra de negocio para visualizar melhor os dados, para isto usa-se o comando SET PARAMETERCALL TRANSACTION.

Tipo:     PDF

Baixar: SET PARAMETER ID CALL TRANSACTION

Este artigo descreve a manipulação de dados LITERAIS, contendo os principais comandos de pesquisa, concatenação, trocas de textos. O abap é uma linguagem de fácil manipulação de dados, este artigos descreve os principais comandos usados no dia-dia de desenvolvimento ABAP/4.

TIPO: PDF

BAIXAR: TRABALHANDO COM STRING ABAP

O comando MODIFY é usado para realizar modificações e valores já existentes, podendo ser utilizado para altera valores de uma DYNPRO, tabelas standard, tabelas Z e ate mesmo uma tabela interna. Para modificar uma tabela interna usando o comando MODIFY, basta seguinte a seguinte lógica. 

Lógica 1: Uma tabela interna contém 1 ou N campo, em algum momento esta tabela foi carregada por  um SELECT ou qualquer outro tipo de comando que pode carregar uma tabela interna, porém pode acontecer que um dos campos não podem vir dados de uma forma, por exemplo, quando um campo tiver valores negativo este devem se calculados para positivos, ou uma data esta menor do que a desejada, para realizar estas alterações basta usar os comando MODIFY que modifica uma campo ou mais de uma linha por.  Exemplo 1. será carregado em uma tabela interna os dados referentes a contabilidades de FI, este dados será selecionados e carregados na tabelas interna, após a tabela carregada, será verificados o índice atual da tabela onde será modificado o valor do campo BUZEI para 002 para linhas de índice par e 001 para linha de índice impar,  quando o índice for par o campo WEBTR será modificado para SPACE. 

SINTAXE DE MODIFY. 

MODIFY {TABELA_INTERNA} INDEX  {INDICE} TRANSPORTING CAMPO1 … CAMPO N. 

Os campos devem estar separados por espaços, este campos serão os campos que serão modificados na tabelas interna. Lembrando que para controlar o INDEX de uma tabela INTERNA se estiver usando o comando LOOP AT tabela_INTERNA, a variável SY-TABIX contém o índice atual da tabela e os campos a serem alterados deve ser carregados antes do comando. Exemplo:  

DATA: BEGIN OF T_BSIK OCCURS 0,

               BUKRS LIKE BSIK-BUKRS,

               LIFNR LIKE BSIK-LIFNR,

               BELNR LIKE BSIK-BELNR,

               UMSKZ LIKE BSIK-UMSKZ,

               BLART LIKE BSIK-BLART,

               XBLNR LIKE BSIK-XBLNR,

               ZFBDT LIKE BSIK-ZFBDT,

               DMBTR LIKE BSIK-DMBTR,

               DMBE2 LIKE BSIK-DMBE2,

               WRBTR LIKE BSIK-WRBTR,

               BUZEI LIKE BSIK-BUZEI,

               GJAHR LIKE BSIK-GJAHR,

               BLDAT LIKE BSIK-BLDAT,

               SHKZG LIKE BSIK-SHKZG,

               ZBD1T LIKE BSIK-ZBD1T,

         END OF T_BSIK.

  CLEAR: T_BSIK, T_BSIK[].

  SELECT BUKRS LIFNR BELNR UMSKZ BLART XBLNR ZFBDT DMBTR

         DMBE2 WRBTR BUZEI GJAHR BLDAT SHKZG ZBD1T

          FROM BSIK    INTO TABLE T_BSIK

    WHERE LIFNR = ‘0000000111′.

   DATA CHAVE TYPE I VALUE 0.

   LOOP AT T_BSIK.

    IF CHAVE = 0.

       MOVE SPACE TO T_BSIK-WRBTR.

       MOVE ‘002′ TO T_BSIK-BUZEI.

       MODIFY T_BSIK INDEX SY-TABIX TRANSPORTING BUZEI WRBTR.

       CHAVE = 1.

     ELSE.

        MOVE ‘001′ TO T_BSIK-BUZEI.

       MODIFY T_BSIK INDEX SY-TABIX TRANSPORTING BUZEI.

       CHAVE = 0.     ENDIF.     WRITE: / T_BSIK-BUZEI, T_BSIK-WRBTR. 

  ENDLOOP.

Lógica 2: Uma tabela interna contém 1 ou N campo, em algum momento esta tabela foi carregada por  um SELECT ou qualquer outro tipo de comando que pode carregar uma tabela interna, porém pode acontecer que um dos campos não podem vir dados de uma forma, por exemplo, altera todos os valores de dados de uma coluna onde o valor seja positivo ou negativo. Exemplo 2. será carregado em uma tabela interna os dados referentes a contabilidades de FI, este dados será selecionados e carregados na tabelas interna, após a tabela carregada, os campos da coluna referentes ao campo BUZEI quando for 001 alterar todos para 002. 

SINTAXE DE MODIFY. 

MODIFY {TABELA_INTERNA} TRANSPORTING CAMPO ….. CAMPON WHERE  CAMPO  {<, >, <=, >=, =, <>} [  valor ]. 

Os campos devem estar separados por espaços, estes campos serão os campos que serão modificados na tabelas interna. Antes os campos devem ser carregados. 

 DATA: BEGIN OF T_BSIK OCCURS 0,

               BUKRS LIKE BSIK-BUKRS,

               LIFNR LIKE BSIK-LIFNR,

               BELNR LIKE BSIK-BELNR,

               UMSKZ LIKE BSIK-UMSKZ,

               BLART LIKE BSIK-BLART,

               XBLNR LIKE BSIK-XBLNR,

               ZFBDT LIKE BSIK-ZFBDT,

               DMBTR LIKE BSIK-DMBTR,

               DMBE2 LIKE BSIK-DMBE2,

               WRBTR LIKE BSIK-WRBTR,

               BUZEI LIKE BSIK-BUZEI,

               GJAHR LIKE BSIK-GJAHR,

               BLDAT LIKE BSIK-BLDAT,

               SHKZG LIKE BSIK-SHKZG,

               ZBD1T LIKE BSIK-ZBD1T,

         END OF T_BSIK.

  CLEAR: T_BSIK, T_BSIK[].

  SELECT BUKRS LIFNR BELNR UMSKZ BLART XBLNR ZFBDT DMBTR

         DMBE2 WRBTR BUZEI GJAHR BLDAT SHKZG ZBD1T

          FROM BSIK    INTO TABLE T_BSIK

    WHERE LIFNR = ‘0000000111′.

  *//**** Modifica todos os campos ****\\* DE UMA SO VEZ

MOVE ‘002′ TO T_BSIK-BUZEI.

MODIFY T_BSIK TRANSPORTING BUZEI WHERE BUZEI = ‘001′.

  LOOP AT T_BSIK.   

 WRITE / T_BSIK-BUZEI. 

 ENDLOOP.

Bloco de iteração ( LOOP ) com sentenças logicas OU numerica, onde a iteração acontece enquanto a sentenção logica não for verdadeira ou a expressão numerica não for atingida. Em abap não existe FOR com em outras linguagem, pois o DO …  ENDDO faz a mesmo coisa de um for ou de um proprio (REPIT), lembrando que a grande diferença desta iteração com o WHILE … ENDWHILE é que mesmo que a expressão logica ou Numerica não seja verdadeira haverá sempre um iteração, ja no WHILE … ENDWHILE somente haverá uma iteração se a expressção for verdadeira.

Sintaxe:

DO.

 {BLOCO com a sentenças ABAP da iteração}

 para sair desta iteração é necessario utilizar o comando EXIT, quando for atingido a expressão logica o comando exit terminará a sentenxa Iterativa do DO … ENDDO e irá para o proximo comando se tiver.

ENDDO.

Exemplo:

DO.  WRITE: / ‘SY-INDEX – inicio da SY-INDEX:’, (3) SY-INDEX.

DO numero de iteração TIMES.

   {BLOCO com a sentenças ABAP da iteração}

ENDDO.

Exemplo:

DO 50 TIMES.    WRITE: / ‘SY-INDEX :’, (3) SY-INDEX.

Bloco de iteração ( LOOP ) com sentenças logicas, onde a iteração acontece enquanto a sentenção logica não for verdadeira.

WHILE    SENTENÇA_LOGICA.

 <Blocos das sentenças da iteração WHILE>

ENDWHILE.

A sintaxe WHILE do ABAP é:

DATA CONTADOR TYPE I VALUE 0.WHILE CONTADOR <> 10.         WRITE: / ‘Numero de iterações:’, CONTADOR.