Sintoma

Necessário compartilhar declaração de tabelas e variáveis.

Solução

Criar variáveis e tabelas interna no include X01 do programa.

Informações Complementares

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

Nota Número 09519 Data: 07/12/2009 Hora: 14:23:42

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

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

Nota Número              : 09519

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

05068  - 00001 - 7.0    - 00003  - AJUSTADO O ENVIO DA TAXA DE CONVERSÃO DE MOEDA PARA FATURA CONT.

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

NECESSÁRIO COMPARTILHAR DECLARAÇÃO DE TABELAS E VARIÁVEIS.

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

Palavras Chave:

EXIT - PROGRAMA ESPECÍFICO - ZYGLT100

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

Objetos da nota:

REPS /PWS/MZYCI003F01

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003X01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

FORM fill_date_f-43_f-02.

* >> Início da inclusão: FORM FILL_DATE_F-43_F-02

 clear:  v_ukurs, v_de , v_para .

* << Fim da inclusão

* >> Início da exclusão: FORM FILL_DATE_F-43_F-02

  DATA:   v_ukurs   LIKE /pws/zycit085-ukursfob.

  DATA: v_de   LIKE tcurf-ffact,

        v_para LIKE tcurf-tfact.

* << Fim da exclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

FORM fill_date_mr1m.

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

  DATA: v_chave(10),

        v_indice TYPE i,

        v_iva(2),

        v_cont2 LIKE sy-tabix,

        v_cont LIKE sy-tabix,

        v_year LIKE t009b-bdatj.

  DATA: wa_headerdata LIKE bapi_incinv_create_header,

        v_belnr_mr1m LIKE /pws/zycie006-belnr_mr1m,

        v_invoice LIKE rbkp-xrech,

        v_gjahr LIKE rbkp-gjahr,

        v_creditmemo LIKE rbkp-xrech.

  DATA: itab_itemdata LIKE bapi_incinv_create_item

        OCCURS 0 WITH HEADER LINE,

        itab_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,

        itab_account LIKE bapi_incinv_create_account

                          OCCURS 0 WITH HEADER LINE,

         v_quantity LIKE itab_itemdata-quantity,

         v_amount LIKE /pws/zycit003-netpr,

         v_item_amount LIKE /pws/zycit003-netpr,

         v_item_amount2 LIKE /pws/zycit036-netpr.

* << Fim da exclusão

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

  CLEAR :

         v_indice,

         v_iva(2),

         v_cont2 ,

         v_cont  ,

         v_year  ,

         v_belnr_mr1m,

         v_invoice ,

         v_gjahr   ,

         v_creditmemo,

         v_quantity,

         v_amount  ,

         v_item_amount,

         v_item_amount2,

         wa_headerdata .

  CLEAR: itab_itemdata, itab_return, itab_account.

  REFRESH: itab_itemdata, itab_return, itab_account.

* << Fim da inclusão

...

...

FORM fill_date_mb01.

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

  CLEAR itab_zycit031_aux.

* << Fim da inclusão

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

  DATA: v_chave(10),

        itab_zycit031_aux LIKE itab_zycit031 OCCURS 0 WITH HEADER LINE.

* << Fim da exclusão

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

  REFRESH itab_zycit031_aux.

* << Fim da inclusão

...

...

FORM fill_date_f_51_docs_miro.

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

  CLEAR v_belnr_miro.

* << Fim da inclusão

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

  DATA: v_belnr_miro LIKE rbkp-belnr.

* << Fim da exclusão

  e_subrc = '0' .

...

...

FORM fill_date_f_51_pag_antecipado TABLES p_itab_bseg STRUCTURE bseg.

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

  DATA v_conta TYPE bseg-hkont.

* << Fim da exclusão

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

  CLEAR v_conta.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

* >> Início da inclusão:

  data: itab_zycit031_aux LIKE itab_zycit031 OCCURS 0 WITH HEADER LINE.

  DATA: v_chave2(10),

        v_indice TYPE i,

        v_iva(2),

        v_cont2 LIKE sy-tabix,

        v_year LIKE t009b-bdatj ,

        v_invoice LIKE rbkp-xrech,

        v_creditmemo LIKE rbkp-xrech,

        v_quantity LIKE itab_itemdata-quantity,

        v_amount LIKE /pws/zycit003-netpr,

        v_item_amount LIKE /pws/zycit003-netpr,

        v_item_amount2 LIKE /pws/zycit036-netpr,

        v_ukurs   LIKE /pws/zycit085-ukursfob,

        v_de   LIKE tcurf-ffact,

        v_para LIKE tcurf-tfact,

        v_belnr_miro LIKE rbkp-belnr,

        v_conta TYPE bseg-hkont.

* << Fim da inclusão

DATA: END OF COMMON PART.