CE PLUS - Nota 007564
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Transmissão Siscomex
Data/Hora da Publicação: 13/11/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:40:23
Descrição da Nota: NECESSÁRIO EXIT NO PROGRAMA DE TRANSMISSÃO DA LI
Sintoma
Necessário exit no programa de transmissão da LI.
Solução
Criada chamada de exit TLI001 no módulo de função /PWS/ZYCI_TRANSFER_LI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07564 Data: 13/11/2008 Hora: 11:46:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07564
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02657 - 00001 - 6.0 - 00026 - TRANSMISSÃO DA LI OU DI PARA SISCOMEX
03640 - 00002 - 7.0 - 00001 - CHAMADA DE EXIT NA FUNÇÃO DE TRANSMISSÃO DA DI PARA ESPECÍFICO
03830 - 00003 - 7.0 - 00001 - AJUSTES PARA TRANSMISSÃO DE DESPESAS DI
----------------------------------------------------------------------------------------------------
NECESSÁRIO EXIT NO PROGRAMA DE TRANSMISSÃO DA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRANSMISSÃO - EXIT - ZYGLT100 - LI - SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_RETURN_FILA
FUNC /PWS/ZYCI_TRANSFER_DI
FUNC /PWS/ZYCI_TRANSFER_LI
REPS /PWS/LZYCIGF5X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RETURN_FILA
FUNCTION /pws/zyci_return_fila.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RETURN_FILA
TABLES: /pws/zycit079, /pws/zycit078, /pws/zycit003.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
FUNCTION /pws/zyci_transfer_di.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
TABLES: /pws/zycit001 ,
/pws/zycit014 ,
/pws/zycit049 ,
/pws/zycie085 ,
/pws/zycit085 ,
/pws/zycit086 ,
/pws/zycit087 ,
/pws/zycit093 ,
/pws/zycit094 ,
/pws/zycit095 ,
/pws/zycit096 ,
/pws/zycit100 ,
/pws/zycit115 ,
/pws/zycit116 ,
/pws/zycit118 ,
/pws/zycit121 ,
/pws/zycie100t,
/pws/zycie122a,
/pws/zycie123a,
/pws/zycit122 ,
/pws/zycit124 ,
/pws/zycft007 ,
/pws/zycie006 ,
/pws/zycit263 ,
/pws/zycit080 ,
lfa1 ,
t005u ,
lfbk ,
t001 ,
/pws/zycit000,
/pws/zycbt007.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_LI
FUNCTION /pws/zyci_transfer_li.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
DATA: itab_tline LIKE tline OCCURS 10 WITH HEADER LINE.
DATA: wa_078 LIKE /pws/zycie078,
wa_079 LIKE /pws/zycie079,
wa_080 LIKE /pws/zycie080.
DATA: v_txtpais(20),
v_txtw(60),
v_add TYPE i,
v_obs0(2100),
v_obs1(2100),
v_txtkey LIKE thead-tdname,
v_idx LIKE sy-tabix,
v_CNPJESTAB LIKE /pws/zycie085-CNPJESTAB.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
PERFORM carrega_exits
CHANGING
itab_zyglt100[].
* << Fim da inclusão
...
...
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc = 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
CLEAR: v_add, v_obs1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
CLEAR: v_add, v_obs2.
* << Fim da inclusão
LOOP AT itab_tline.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
v_obs1+v_add = itab_tline-tdline(65).
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
v_obs2+v_add = itab_tline-tdline(65).
* << Fim da inclusão
v_add = v_add + 66.
IF sy-tabix = 30.
EXIT.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
li_txt-txt_longo = v_obs1(2000).
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
li_txt-txt_longo = v_obs2(2000).
* << Fim da inclusão
ENDIF.
APPEND li_txt.
SELECT * FROM /pws/zycit079 INTO TABLE li_itens WHERE
nrseqli = i_nrseqli AND
tpli = i_tpli.
LOOP AT li_itens.
v_idx = sy-tabix.
MOVE: li_itens TO wa_079.
PERFORM load_waers(/pws/sapmzyci023):
USING wa_079-waers
...
...
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_LI
e_subrc = 0.
READ TABLE itab_zyglt100 WITH KEY zexit = 'TLI001' BINARY SEARCH.
IF sy-subrc = 0 AND
NOT itab_zyglt100-programa IS INITIAL AND
itab_zyglt100-zexit_ativa EQ 'X'.
li_cabec2[] = li_cabec[].
li_itens2[] = li_itens[].
li_itens_add2[] = li_itens_add[].
li_anuente2[] = li_anuente[].
li_destncm2[] = li_destncm[].
li_forn_a2[] = li_forn_a[] .
li_forn_b2[] = li_forn_b[] .
li_txt2[] = li_txt[] .
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
IF e_subrc EQ 0 .
li_cabec[] = li_cabec2[].
li_itens[] = li_itens2[].
li_itens_add[] = li_itens_add2[].
li_anuente[] = li_anuente2[].
li_destncm[] = li_destncm2[].
li_forn_a[] = li_forn_a2[] .
li_forn_b[] = li_forn_b2[] .
li_txt[] = li_txt2[] .
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF5X01
* >> Início da inclusão:
TABLES: /pws/zycit001 ,
/pws/zycit014 ,
/pws/zycit049 ,
/pws/zycie085 ,
/pws/zycit085 ,
/pws/zycit086 ,
/pws/zycit087 ,
/pws/zycit093 ,
/pws/zycit094 ,
/pws/zycit095 ,
/pws/zycit096 ,
/pws/zycit100 ,
/pws/zycit115 ,
/pws/zycit116 ,
/pws/zycit118 ,
/pws/zycit121 ,
/pws/zycie100t,
/pws/zycie122a,
/pws/zycie123a,
/pws/zycit122 ,
/pws/zycit124 ,
/pws/zycft007 ,
/pws/zycie006 ,
/pws/zycit263 ,
/pws/zycit080 ,
lfa1 ,
t005u ,
lfbk ,
t001 ,
/pws/zycit000,
/pws/zycbt007,
/pws/zycit079,
/pws/zycit078,
/pws/zycit003.
* << Fim da inclusão
DATA BEGIN OF COMMON PART k.
...
....
* >> Início da inclusão:
DATA: wa_078 LIKE /pws/zycie078,
wa_079 LIKE /pws/zycie079,
wa_080 LIKE /pws/zycie080.
DATA: itab_tline LIKE tline OCCURS 10 WITH HEADER LINE.
DATA:
v_obs0(2100),
v_obs2(2100),
v_txtkey LIKE thead-tdname,
v_CNPJESTAB LIKE /pws/zycie085-CNPJESTAB.
data:
LI_CABEC2 type /PWS/ZYCIT078 occurs 0,
LI_ITENS2 type /PWS/ZYCIT079 occurs 0,
LI_ITENS_ADD2 type /PWS/ZYCIE079B occurs 0,
LI_ANUENTE2 type /PWS/ZYCIE081 occurs 0,
LI_DESTNCM2 type /PWS/ZYCIE109 occurs 0,
LI_FORN_A2 type /PWS/ZYCIE080 occurs 0,
LI_FORN_B2 type /PWS/ZYCIE080 occurs 0,
LI_TXT2 type /PWS/ZYCIE078B occurs 0.
* << Fim da inclusão
DATA END OF COMMON PART k.