Sintoma

Ao executar a exit o programa não está identifcando o valor base para cálculo do CIDE

Solução

Passagem da itab_zycat025_aux2 e variável v_valorme do include /PWS/MZYCA109TOP e /PWS/MZYCA109X01

Informações Complementares

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

Nota Número 00429 Data: 09/12/2005 Hora: 09:53:09

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

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

Nota Número              : 00429

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00093

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

PASSAGEM DE PARÂMETROS DO INCLUDE PARA A EXECUÇÃO DA EXIT

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

Palavras Chave:

VARIÁVEL /PWS/MZYCA109TOP /PWS/MZYCA109X01

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

Objetos da nota:

REPS /PWS/MZYCA109TOP

REPS /PWS/MZYCA109X01

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

Modificações efetuadas em REPS /PWS/MZYCA109TOP

DATA: BEGIN OF itab_custo OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_custo.

DATA: BEGIN OF itab_lucro OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_lucro.

DATA: BEGIN OF itab_zycat025_aux OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat025.

DATA: mark(1) TYPE c.

DATA: END OF itab_zycat025_aux.

* >> Início da exclusão

*DATA: BEGIN OF itab_zycat025_aux2 OCCURS 0.

*        INCLUDE STRUCTURE /pws/zycat025.

*DATA: mark(1) TYPE c.

*DATA: END OF itab_zycat025_aux2.

* >> Fim da Inclusão

DATA: BEGIN OF itab_zycat025_aux3 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat025.

DATA: mark(1) TYPE c.

DATA: END OF itab_zycat025_aux3.

DATA: BEGIN OF it_modo OCCURS 0.       "Verifica o modo de execução

        INCLUDE STRUCTURE spopli.

DATA: END OF it_modo.

DATA : tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,

       v_mconame LIKE dd23l-mconame.

...

* Ch. 274018 - 05/12/2005 - Início

  okcode              LIKE sy-ucomm,

* Ch. 274018 - 05/12/2005 - Fim

  v_totdep            LIKE /pws/zyglt342-valorinc,

  v_aliqpis           LIKE /pws/zycbt124-aliqpis,

  v_aliqcofins        LIKE /pws/zycbt124-aliqcofins,

  v_aliqiss           LIKE /pws/zycbt124-aliqiss,

  v_kursf             LIKE /pws/zycbe124-kursf,

  v_branco            TYPE c,

* >> Início da exclusão

* v_valorme           LIKE /pws/zycbt124-vlme,

* >> Fim da exclusão

  v_advalorem         LIKE /pws/zycat025-advalorem,

  v_advalorem2        LIKE /pws/zycat025-advalorem,

  v_competencia       TYPE c,

  v_dif               LIKE /pws/zycbt124-vlme,

  v_msg(50)           TYPE c,

  v_estorna           TYPE c,

  v_reducao           LIKE /pws/zycbt124-vlme,

  v_dtvencto_ant      LIKE /pws/zycbt124-dtvencto,

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

Modificações efetuadas em REPS /PWS/MZYCA109X01

...

DATA:

  w_ok                LIKE sy-ucomm.

DATA: BEGIN OF itab_zycbe033 OCCURS 100.

        INCLUDE STRUCTURE /pws/zycbe033.

DATA: END OF itab_zycbe033.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycat025_aux2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat025.

DATA: mark(1) TYPE c.

DATA: END OF itab_zycat025_aux2.

DATA v_valorme LIKE /pws/zycbt124-vlme.

* << Fim da inclusão

DATA: END OF COMMON PART.