Sintoma

Erros/Warnings no Code Inspector e na Verificação Ampliada nos Programas do /PWS/ZYCRSTCSP3,

/PWS/ZYCRSTCSP4, /PWS/ZYCRSTCSP6, /PWS/ZYCRSP4O9.

Solução

Correção dos Erros e Warnings Apresentados no Code Inspector e na Verificação Ampliada.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 06279 Data: 28/03/2008 Hora: 16:34:44

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 06279

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00040

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

CODE INSPECTOR REPORTS CRYSTAL

----------------------------------------------------------------------------------------------------

Palavras Chave:

CODE INSPECTOR, REPORTS, CRYSTAL

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/ZYCEI000

REPS /PWS/ZYCRSP4O9

REPS /PWS/ZYCRSTCSP3

REPS /PWS/ZYCRSTCSP4

REPS /PWS/ZYCRSTCSP6

REPT /PWS/ZYCRSTCSP3

REPT /PWS/ZYCRSTCSP4

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCEI000

...

    itab_relatorio-contador = 1.

    itab_campos-codigo      = itab_relatorio-codigo.

    itab_campos-sub_codigo  = itab_relatorio-sub_codigo.

    itab_campos-sub_codigo2 = itab_relatorio-sub_codigo2.

    itab_campos-contador    = 1.

  ENDIF.

  APPEND itab_relatorio.

  APPEND itab_campos.

  DELETE ADJACENT DUPLICATES FROM itab_campos COMPARING ALL FIELDS.

ENDFORM.

* >> Início da exclusão: FORM RELATORIO

FORM relatorio USING p_filename.

* << Fim da exclusão

* >> Início da inclusão: FORM RELATORIO

FORM relatorio USING p_filename. "#EC CALLED

* << Fim da inclusão

  DATA: v_arquivo TYPE string.

  MOVE p_filename TO v_arquivo.

  CALL FUNCTION 'GUI_DOWNLOAD'

       EXPORTING

            filename                = v_arquivo

            filetype                = 'ASC'

       TABLES

            data_tab                = itab_relatorio

       EXCEPTIONS

            file_write_error        = 1

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCRSP4O9

...

                comissao

      INTO p_zycet065

      FROM /pws/zycet065

      WHERE inco1 = p_zycet001-inco1.

  SELECT steuc

         /pws/codnaladi

   FROM t604f

   INTO TABLE p_t604f

   FOR ALL ENTRIES IN p_t_zycet002

    WHERE steuc EQ p_t_zycet002-steuc

* >> Início da exclusão: FORM SELECIONA_DADOS

      AND land1 EQ 'BR'.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

      AND land1 EQ 'BR'. "#EC CI_SGLSELECT

* << Fim da inclusão

  LOOP AT p_t_zycet002[] TRANSPORTING NO FIELDS

                         WHERE waers <> v_waersa.

    EXIT.

  ENDLOOP.

  IF sy-subrc = 0.

    SELECT MAX( dtlog )

        INTO p_data_conversao

        FROM /pws/zycet183

* >> Início da exclusão: FORM SELECIONA_DADOS

        WHERE nremb = p_nrseq.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

        WHERE nremb = p_nrseq. "#EC CI_NOFIELD

* << Fim da inclusão

    IF sy-subrc <> 0.

      p_data_conversao = p_zycet001-dtemb.

    ENDIF.

  ENDIF.

* >> Início da exclusão: FORM SELECIONA_DADOS

  SELECT SINGLE ddtext

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

  SELECT ddtext

      UP TO 1 ROWS

* << Fim da inclusão

      INTO p_descricao_viatrans

      FROM dd07t

      WHERE domname    = '/PWS/ZYCID081'

        AND ddlanguage = p_idioma

        AND as4local   = 'A'

        AND domvalue_l = p_zycet001-viatrans.

* >> Início da inclusão: FORM SELECIONA_DADOS

ENDSELECT.

* << Fim da inclusão

ENDFORM.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCRSTCSP3

REPORT /pws/zycrstcsp3 LINE-SIZE 160

                 NO STANDARD PAGE HEADING.

TABLES: t247.

DATA: v_ordem          TYPE i,

      v_data(40)       TYPE c,

      v_codnrseq       TYPE i,

      v_codnrser(3)    TYPE c,

      v_codnrser2(3)   TYPE c,

      v_local(100)     TYPE c,

* >> Início da exclusão:

      v_dtemb(030)     TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

      v_dtemb(030)     TYPE c,   "#EC NEEDED

* << Fim da inclusão

      v_ntgew          LIKE /pws/zycet062-ntgew,

      v_vlme_fob(20)   TYPE c,

      v_cntgew(015)    TYPE c,

* >> Início da exclusão:

      v_cabecalho      TYPE i VALUE 0,

      v_fkimg          LIKE /pws/zycet002-fkimg,

* << Fim da exclusão

      v_ponto          TYPE c VALUE '.',

      v_import(5)      TYPE c.

DATA: v_d1       TYPE i VALUE 1,

...

...

        netpr        LIKE /pws/zycet062-netpr,

        netpr_t      LIKE /pws/zycet062-netpr_t,

        waers        LIKE /pws/zycet062-waers,

        tpaco        LIKE /pws/zycet062-tpaco,

        vlme_a       LIKE /pws/zycet062-vlme_a,

        norma        LIKE t604f-/pws/norma_nala,

        acordo       LIKE /pws/zycet028-acordo,

        vlfob        LIKE /pws/zycet002-vlme,

        desc_naladicb LIKE t604f-/pws/descr_nala,

      END OF itab_relat.

* >> Início da exclusão:

DATA: BEGIN OF itab_campos2 OCCURS 0,

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_campos2 OCCURS 0,                       "#EC *

* << Fim da inclusão

        vbeln    LIKE vbfa-vbeln,

        vbtyp_n  LIKE vbfa-vbtyp_n,

        vbelv    LIKE vbfa-vbelv,

        posnv    LIKE vbfa-posnv,

        posnn    LIKE vbfa-posnn,

        fksto    LIKE vbrk-fksto,

      END OF itab_campos2.

DATA wa_zycet002 LIKE itab_zycet002.

DATA : BEGIN OF itab_conditionsnf OCCURS 10,

         vbeln LIKE vbak-vbeln,

         knumv LIKE vbak-knumv,

         posnr LIKE vbap-posnr,

       END OF itab_conditionsnf.

DATA : BEGIN OF itab_conditionsf OCCURS 10,

         vbeln LIKE vbrk-vbeln,

         knumv LIKE vbrk-knumv,

         posnr LIKE vbrp-posnr,

         vgbel LIKE vbrp-vgbel,

         vgpos LIKE vbrp-vgpos,

       END OF itab_conditionsf.

* >> Início da exclusão:

DATA : BEGIN OF itab_zycee189 OCCURS 1.

* << Fim da exclusão

* >> Início da inclusão:

DATA : BEGIN OF itab_zycee189 OCCURS 1.                     "#EC NEEDED

* << Fim da inclusão

        INCLUDE STRUCTURE /pws/zycee189.

DATA : END OF itab_zycee189.

DATA: wa_t005t    LIKE t005t,

      wa_zycet046 LIKE /pws/zycet046,

      wa_zycet014 LIKE /pws/zycet014,

* >> Início da exclusão:

      wa_zycet062 LIKE /pws/zycet062,

* << Fim da exclusão

* >> Início da inclusão:

      wa_zycet062 LIKE /pws/zycet062,                       "#EC NEEDED

* << Fim da inclusão

      wa_zycit054 LIKE /pws/zycit054,

      wa_zycet001 LIKE /pws/zycet001,

      BEGIN OF wa_zycet065,

        frete       TYPE /pws/zycet065-frete,

        seguro      TYPE /pws/zycet065-seguro,

        outras_desp TYPE /pws/zycet065-outras_desp,

        desconto    TYPE /pws/zycet065-desconto,

        acrescimo   TYPE /pws/zycet065-acrescimo,

      END OF wa_zycet065.

SELECTION-SCREEN BEGIN OF BLOCK -1 WITH FRAME TITLE text-001.

...

...

START-OF-SELECTION.

  PERFORM seleciona_dados.

  PERFORM move_dados.

  PERFORM imprime_dados.

END-OF-SELECTION.

  IMPORT v_import FROM MEMORY ID '020'.

  PERFORM atualiza_exporta_relatorio USING v_import p_nrseq.

FORM seleciona_dados.

  SELECT * FROM /pws/zycet031

         INTO TABLE itab_zycet031

* >> Início da exclusão: FORM SELECIONA_DADOS

         WHERE codint = 'STCSP3'.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

         WHERE codint = 'STCSP3'. "#EC CI_NOFIRST

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycet014

         INTO wa_zycet014

         WHERE nrseq EQ p_nrseq.

  SELECT SINGLE * FROM /pws/zycet001

         INTO wa_zycet001

         WHERE nrseq EQ p_nrseq.

  IF NOT wa_zycet001 IS INITIAL.

    SELECT SINGLE frete

                  seguro

                  outras_desp

                  desconto

                  acrescimo

        FROM /pws/zycet065

        INTO wa_zycet065

        WHERE inco1 EQ wa_zycet001-inco1.

* >> Início da exclusão: FORM SELECIONA_DADOS

    SELECT SINGLE * FROM /pws/zycit054

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

    SELECT *

           UP TO 1 ROWS

           FROM /pws/zycit054

* << Fim da inclusão

           INTO wa_zycit054

           WHERE vktra_ci = wa_zycet001-viatrans.

* >> Início da inclusão: FORM SELECIONA_DADOS

    ENDSELECT.

* << Fim da inclusão

    SELECT SINGLE * FROM t005t

           INTO wa_t005t

           WHERE land1 = wa_zycet001-paisdest

           AND   spras = p_spras.

    SELECT * FROM /pws/zycet002

...

...

        WHERE nrseq = itab_zycet002_aux2-nrseq

          AND shkzg <> 'X'.

      DELETE itab_zycet002 WHERE vlemb IS initial

                              OR vlme  IS initial.

    ENDIF.

    IF NOT itab_zycet002[] IS INITIAL.

      READ TABLE itab_zycet002 INDEX 1.

      SELECT SINGLE * FROM /pws/zycet046

               INTO  wa_zycet046

               WHERE nrseq = p_nrseq.

* >> Início da exclusão: FORM SELECIONA_DADOS

      SELECT SINGLE * FROM /pws/zycet062

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

      SELECT *

      UP TO 1 ROWS

      FROM /pws/zycet062

* << Fim da inclusão

             INTO wa_zycet062

            WHERE nrseq    = itab_zycet002-nrseq

              AND vbeln_va = itab_zycet002-vbeln_va

              AND posnr    = itab_zycet002-posnr.

* >> Início da inclusão: FORM SELECIONA_DADOS

      ENDSELECT.

* << Fim da inclusão

      SELECT * FROM t604f INTO TABLE itab_t604f

            FOR ALL ENTRIES IN itab_zycet002

            WHERE steuc = itab_zycet002-steuc

* >> Início da exclusão: FORM SELECIONA_DADOS

              AND land1 = 'BR'.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

              AND land1 = 'BR'.                       "#EC CI_SGLSELECT

* << Fim da inclusão

      SELECT matnr mtorg FROM mbew INTO TABLE itab_mbew

            FOR ALL ENTRIES IN itab_zycet002

            WHERE matnr EQ itab_zycet002-matnr

              AND bwkey EQ itab_zycet002-werks.

    ENDIF.

    SELECT a~vbeln a~knumv b~posnr

         FROM vbak AS a INNER JOIN vbap AS b

                        ON a~vbeln = b~vbeln

           INTO TABLE itab_conditionsnf

           FOR ALL ENTRIES IN itab_zycet002

...

...

  PERFORM move_itab_relatorio

                        USING 'C' 10 ' ' wa_zycet001-portemb ' ' ' '.

  PERFORM move_itab_relatorio

                        USING 'C' 11 ' ' wa_t005t-landx ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 12 ' ' wa_zycit054-bezei ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 13 ' ' wa_zycet001-nremb ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 14 ' ' wa_zycet001-dtincl ' ' ' '.

* >> Início da exclusão: FORM CABECALHO

  v_cabecalho = 1.

* << Fim da exclusão

ENDFORM.

FORM imprime.

  PERFORM move_itab_relatorio

               USING 'I' v_d1 ' ' itab_zycet031-name ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d2 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d3 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d4 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'D' v_d5 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d6 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d7 v_item v_ponto ' ' ' '.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCRSTCSP4

REPORT /pws/zycrstcsp4 LINE-SIZE 160

                 NO STANDARD PAGE HEADING.

TABLES: t247.

DATA: v_ordem          TYPE i,

      v_data(40)       TYPE c,

      v_codnrseq       TYPE i,

      v_codnrser(3)    TYPE c,

      v_codnrser2(3)   TYPE c,

      v_local(100)     TYPE c,

      v_obs(100)       TYPE c,

* >> Início da exclusão:

      v_dtemb(030)     TYPE c,

* << Fim da exclusão

* >> Início da inclusão:

      v_dtemb(030)     TYPE c,  "#EC NEEDED

* << Fim da inclusão

      v_ntgew          LIKE /pws/zycet062-ntgew,

      v_vlme_fob(20)   TYPE c,

      v_cntgew(015)    TYPE c,

* >> Início da exclusão:

      v_cabecalho      TYPE i VALUE 0,

* << Fim da exclusão

      v_ponto          TYPE c VALUE '.',

      v_import(5)      TYPE c.

DATA: v_d1       TYPE i VALUE 1,

      v_d2       TYPE i VALUE 2,

      v_d3       TYPE i VALUE 3,

      v_d4       TYPE i VALUE 4,

      v_d5       TYPE i VALUE 5,

      v_d6       TYPE i VALUE 6,

      v_d7       TYPE i VALUE 7,

* >> Início da exclusão:

      v_d8       TYPE i VALUE 8,

      v_d9       TYPE i VALUE 9.

* << Fim da exclusão

* >> Início da inclusão:

      v_d8       TYPE i VALUE 8.

* << Fim da inclusão

DATA: wa_zycet001 LIKE /pws/zycet001.

DATA:  BEGIN OF itab_zycet002_aux2 OCCURS 0.

* >> Início da exclusão:

        INCLUDE STRUCTURE /pws/zycet002.

* << Fim da exclusão

* >> Início da inclusão:

        INCLUDE STRUCTURE /pws/zycet002. "#EC *

* << Fim da inclusão

DATA:  END OF itab_zycet002_aux2.

DATA: BEGIN OF itab_zycet002 OCCURS 0.

...

...

        netpr_t      LIKE /pws/zycet062-netpr_t,

        waers        LIKE /pws/zycet062-waers,

        tpaco        LIKE /pws/zycet062-tpaco,

        vlme_a       LIKE /pws/zycet062-vlme_a,

        norma        LIKE t604f-/pws/norma_nala,

        acordo       LIKE /pws/zycet028-acordo,

        vlfob        LIKE /pws/zycet002-vlme,

        desc_ncm(300)  TYPE c,

        desc_naladicb LIKE t604f-/pws/descr_nala,

      END OF itab_relat.

* >> Início da exclusão:

DATA: BEGIN OF itab_campos2 OCCURS 0,

* << Fim da exclusão

* >> Início da inclusão:

DATA: BEGIN OF itab_campos2 OCCURS 0,   "#EC *

* << Fim da inclusão

        vbeln    LIKE vbfa-vbeln,

        vbtyp_n  LIKE vbfa-vbtyp_n,

        vbelv    LIKE vbfa-vbelv,

        posnv    LIKE vbfa-posnv,

        posnn    LIKE vbfa-posnn,

        fksto    LIKE vbrk-fksto,

      END OF itab_campos2.

DATA wa_zycet002 LIKE itab_zycet002.

DATA : BEGIN OF itab_conditionsnf OCCURS 10,

         vbeln LIKE vbak-vbeln,

...

...

         posnr LIKE vbap-posnr,

       END OF itab_conditionsnf.

DATA : BEGIN OF itab_conditionsf OCCURS 10,

         vbeln LIKE vbrk-vbeln,

         knumv LIKE vbrk-knumv,

         posnr LIKE vbrp-posnr,

         vgbel LIKE vbrp-vgbel,

         vgpos LIKE vbrp-vgpos,

       END OF itab_conditionsf.

DATA : BEGIN OF itab_zycee189 OCCURS 1.

* >> Início da exclusão:

        INCLUDE STRUCTURE /pws/zycee189.

* << Fim da exclusão

* >> Início da inclusão:

        INCLUDE STRUCTURE /pws/zycee189. "#EC NEEDED

* << Fim da inclusão

DATA : END OF itab_zycee189.

DATA: BEGIN OF wa_zycet065,

        frete       TYPE /pws/zycet065-frete,

        seguro      TYPE /pws/zycet065-seguro,

        outras_desp TYPE /pws/zycet065-outras_desp,

        desconto    TYPE /pws/zycet065-desconto,

        acrescimo   TYPE /pws/zycet065-acrescimo,

      END OF wa_zycet065.

SELECTION-SCREEN BEGIN OF BLOCK -1 WITH FRAME TITLE text-001.

PARAMETERS: p_nrseq LIKE /pws/zycee001-nrseq,

...

...

START-OF-SELECTION.

  PERFORM seleciona_dados.

  PERFORM move_dados.

  PERFORM imprime_dados.

END-OF-SELECTION.

  IMPORT v_import FROM MEMORY ID '020'.

  PERFORM atualiza_exporta_relatorio USING v_import p_nrseq.

FORM seleciona_dados.

  SELECT * FROM /pws/zycet031

         INTO TABLE itab_zycet031

* >> Início da exclusão: FORM SELECIONA_DADOS

         WHERE codint = 'STCSP4'.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

         WHERE codint = 'STCSP4'.  "#EC CI_NOFIRST

* << Fim da inclusão

  SELECT SINGLE * FROM /pws/zycet014

         INTO wa_zycet014

         WHERE nrseq EQ p_nrseq.

  SELECT SINGLE * FROM /pws/zycet001

         INTO wa_zycet001

         WHERE nrseq EQ p_nrseq.

  IF NOT wa_zycet001 IS INITIAL.

    SELECT SINGLE frete

                  seguro

                  outras_desp

                  desconto

                  acrescimo

        FROM /pws/zycet065

        INTO wa_zycet065

        WHERE inco1 EQ wa_zycet001-inco1.

* >> Início da exclusão: FORM SELECIONA_DADOS

    SELECT SINGLE * FROM /pws/zycit054

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

    SELECT *

           UP TO 1 ROWS

           FROM /pws/zycit054

* << Fim da inclusão

           INTO wa_zycit054

           WHERE vktra_ci = wa_zycet001-viatrans.

* >> Início da inclusão: FORM SELECIONA_DADOS

    ENDSELECT.

* << Fim da inclusão

    SELECT SINGLE * FROM t005t

           INTO wa_t005t

           WHERE land1 = wa_zycet001-paisdest

           AND   spras = p_spras.

    SELECT * FROM /pws/zycet002

...

...

             AND shkzg <> 'X'.

    ENDIF.

    IF NOT itab_zycet002[] IS INITIAL.

      SELECT SINGLE * FROM /pws/zycet046

               INTO  wa_zycet046

               WHERE nrseq = p_nrseq.

      SELECT * FROM t604f

             INTO TABLE itab_t604f

             FOR ALL ENTRIES IN itab_zycet002

             WHERE steuc = itab_zycet002-steuc

* >> Início da exclusão: FORM SELECIONA_DADOS

               AND land1 = 'BR'.

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

               AND land1 = 'BR'.  "#EC CI_SGLSELECT

* << Fim da inclusão

      SELECT matnr mtorg FROM mbew INTO TABLE itab_mbew

             FOR ALL ENTRIES IN itab_zycet002

             WHERE matnr EQ itab_zycet002-matnr

               AND bwkey EQ itab_zycet002-werks.

    ENDIF.

    SELECT a~vbeln a~knumv b~posnr

         FROM vbak AS a INNER JOIN vbap AS b

                        ON a~vbeln = b~vbeln

           INTO TABLE itab_conditionsnf

           FOR ALL ENTRIES IN itab_zycet002

...

...

  PERFORM move_itab_relatorio

               USING 'C' 10 ' ' wa_zycet001-portemb ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 11 ' ' wa_t005t-landx ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 12 ' ' wa_zycit054-bezei ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 13 ' ' wa_zycet001-nremb ' ' ' '.

  PERFORM move_itab_relatorio

               USING 'C' 14 ' ' wa_zycet001-dtincl ' ' ' '.

* >> Início da exclusão: FORM CABECALHO

  v_cabecalho = 1.

* << Fim da exclusão

ENDFORM.

FORM imprime.

  READ TABLE itab_zycet031 WITH KEY id = '0001'.

  PERFORM move_itab_relatorio

               USING 'I' v_d1 ' ' itab_zycet031-name ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d2 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d3 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d4 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d5 v_item v_ponto ' ' ' '.

  PERFORM move_itab_relatorio USING 'I' v_d6 v_item v_ponto ' ' ' '.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCRSTCSP6

...

      DELETE itab_zycet002 WHERE vlemb IS initial

                              OR vlme  IS initial.

    ENDIF.

    IF NOT itab_zycet002[] IS INITIAL.

      SELECT SINGLE * FROM /pws/zycet046

               INTO  wa_zycet046

               WHERE nrseq = p_nrseq.

      SELECT * FROM /pws/zycet056

               INTO TABLE itab_zycet056

               FOR ALL ENTRIES IN itab_zycet002

* >> Início da exclusão: FORM SELECIONA_DADOS

               WHERE vbeln_va = itab_zycet002-vbeln_va."#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM SELECIONA_DADOS

               WHERE vbeln_va = itab_zycet002-vbeln_va. "#EC CI_NOFIRST

* << Fim da inclusão

      SELECT * FROM t604f INTO TABLE itab_t604f

            FOR ALL ENTRIES IN itab_zycet002

            WHERE steuc = itab_zycet002-steuc

            AND land1 = wa_zycet001-paisdest."#EC CI_SGLSELECT

      SELECT * FROM t604n INTO TABLE itab_t604n

            FOR ALL ENTRIES IN itab_zycet002

            WHERE steuc = itab_zycet002-steuc

              AND land1 = 'BR'."#EC CI_SGLSELECT

      SELECT matnr mtorg FROM mbew INTO TABLE itab_mbew

            FOR ALL ENTRIES IN itab_zycet002

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/ZYCRSTCSP3

------------------------------------------------------------------------

Excluído símbolo de texto:

Idioma: PT

Símbolo: 002

Texto: (2 caracteres)

"de"

Comprimento máximo: 2

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/ZYCRSTCSP4

------------------------------------------------------------------------

Excluído símbolo de texto:

Idioma: PT

Símbolo: 004

Texto: (15 caracteres)

"Belo Horizonte,"

Comprimento máximo: 15

------------------------------------------------------------------------

Excluído símbolo de texto:

Idioma: PT

Símbolo: 006

Texto: (9 caracteres)

"São Paulo"

Comprimento máximo: 9