04 – NOTA FISCAL – J_1B_BRANCH_READ

Está função trás os dados de uma determinada Planta (BRANCH) de uma EMPRESA. Lembrando que uma EMPRESA pode ter mais de uma PLANATA ( BRANCH).

 Template: CALL FUNCTION ‘J_1B_BRANCH_READ’
      EXPORTING
        BRANCH                  = 
        COMPANY                 = 
     IMPORTING
       ADDRESS                 = 
       BRANCH_RECORD           = 
       CGC_NUMBER              = 
       ADDRESS_VALUE           = 
     EXCEPTIONS
       BRANCH_NOT_FOUND        = 1
       ADDRESS_NOT_FOUND       = 2
       COMPANY_NOT_FOUND       = 3
       OTHERS                  = 4. Entrada: BRANCH                                     =          CHAR 04   (  Character 04) BUKRS                                        =          CHAR 04   (  Character 04)  Saída: ADDRESS                                 =          SADR ( Tabela de gerenciamento de Endereços de uma companhia)          BRANCH_RECORD                 =          J_1BBRANCH ( Tabela que contém os dados da planta) CGC_NUMBER                         =          J_1BCGC (Elemento de Dados do tipo NUMC 14)  Exemplo: DATA: LS_BRANCH    TYPE J_1BBRANCH,
      LS_SADR      TYPE SADR,
      LV_CGC       TYPE J_1BCGC,
      LS_ADDR1_VAL TYPE ADDR1_VAL.

DATA: BEGIN OF COMPANY OCCURS 1,
               BUKRS   TYPE J_1BNFDOC-BUKRS,
               BRANCH  TYPE J_1BNFDOC-BRANCH,
        END OF COMPANY.

SELECT BUKRS BRANCH
  FROM J_1BNFDOC
  INTO TABLE COMPANY
  UP TO 1 ROWS.

LOOP AT COMPANY.

    CALL FUNCTION ‘J_1B_BRANCH_READ’
      EXPORTING
        BRANCH                  = COMPANY-BRANCH
        COMPANY                 = COMPANY-BUKRS
     IMPORTING
       ADDRESS                 = LS_SADR
       BRANCH_RECORD           = LS_BRANCH
       CGC_NUMBER              = LV_CGC
       ADDRESS_VALUE           = LS_ADDR1_VAL
     EXCEPTIONS
       BRANCH_NOT_FOUND        = 1
       ADDRESS_NOT_FOUND       = 2
       COMPANY_NOT_FOUND       = 3
       OTHERS                  = 4.

    IF SY-SUBRC = 0.
       WRITE: / LS_SADR-ADRNR, LS_SADR-NATIO,                 LS_SADR-ANRED, LS_SADR-NAME1,                 LS_SADR-NAME2, LV_CGC.
    ENDIF.

ENDLOOP.         

MODIFY TABELA INTERNA

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.