CE PLUS - Nota 011219
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 08/06/2011 00:00:00
Data/Hora Última Alteração: 09/06/2011 15:05:07
Descrição da Nota: NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
Sintoma
Necessário exit para desenvolvimento específico.
Solução
Abertura de exit DNF021 no programa /PWS/SAPMZYCI016 para aliminar popup da Nota Fiscal Global
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11219 Data: 08/06/2011 Hora: 17:12:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11219
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02971 - 00001 - 6.0 - 00026 - NECESSÁRIO ORDENAR ITENS DA DI DE ACORDO COM NCM X ADIÇÃO.
08071 - 00002 - 7.0 - 00008 - NOTA FISCAL DE REMESSA A INFORMAÇÃO DE NÚMERO VOLUME NÃO ERA PREE
08093 - 00003 - 7.0 - 00008 - NOTAS FISCAIS NÃO SUGEREM O VALOR DO VOLUME DO BL
----------------------------------------------------------------------------------------------------
NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ZYGLT100 - ESPECIFICO - NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016TOP
REPS /PWS/MZYCI016X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
itab_zycit042_aux-lifnr NE v_lifnr.
v_tpnf = itab_zycit042_aux-tpnf.
v_j_1bbranch = itab_zycit042_aux-j_1bbranch.
v_lifnr = itab_zycit042_aux-lifnr.
PERFORM clear_date_batch.
PERFORM cabecalho_nf.
IF ( v_resp EQ 'S' ) OR
( v_libera = 'X' AND v_modalidade = '99' ).
SELECT SINGLE * FROM /pws/zycit093
WHERE nrseqce = /pws/zycit085-nrbl.
* >> Início da inclusão: FORM FILL_DATA_J1B1
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF021'.
e_subrc = '0'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'DNF021' BINARY SEARCH.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
endif.
IF e_subrc EQ 0.
* << Fim da inclusão
SELECT SINGLE tpembal quant descr meins INTO
(local_embal,it_zycee005-quant,
it_zycee005-shpmrk,it_zycee005-shpunt)
FROM /pws/zycit014
WHERE nrseq = /pws/zycit085-nrbl.
IF sy-subrc EQ 0.
...
...
it_zycee005-subser = itab_zycit042_aux-subser.
ELSE.
IF /pws/zycit085-opfundap IS INITIAL.
IF v_urf2 = 1.
it_zycee005-nftype = wa_zyglt369-catnfint.
ELSE.
it_zycee005-nftype = wa_zycit048-catnfint.
ENDIF.
ELSE.
it_zycee005-nftype = wa_zycit048-fdnfint.
* >> Início da inclusão: FORM FILL_DATA_J1B1
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
LOOP AT itab_zycit042 WHERE nrseq EQ itab_zycit042_aux-nrseq
AND nfglobal EQ itab_zycit042_aux-nfglobal
AND tpnf EQ itab_zycit042_aux-tpnf
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016TOP
...
.
* >> Início da exclusão:
DATA:
wa_zycit001 LIKE /pws/zycit001 ,
wa_zycit0852 LIKE /pws/zycit085,
wa_zycit048 LIKE /pws/zycit048 ,
wa_zyglt369 LIKE /pws/zyglt369 ,
wa_zycbt007 LIKE /pws/zycbt007 ,
wa_zycbt011 LIKE /pws/zycbt011 ,
wa_t001w LIKE t001w .
DATA:
itab_zycit039 LIKE /pws/zycit039 OCCURS 0 WITH HEADER LINE,
itab_zycit094 LIKE /pws/zycit094 OCCURS 0 WITH HEADER LINE,
itab_zycit085 LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
it_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
it_zycbt034 LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,
itab_zycit034 LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,
itab_zycie033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycit032 LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,
itab_zycit031 LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,
itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_resp TYPE c,
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
DATA: BEGIN OF COMMON PART a.
* >> Início da inclusão:
DATA:
wa_zycit001 LIKE /pws/zycit001 ,
wa_zycit0852 LIKE /pws/zycit085,
wa_zycit048 LIKE /pws/zycit048 ,
wa_zyglt369 LIKE /pws/zyglt369 ,
wa_zycbt007 LIKE /pws/zycbt007 ,
wa_zycbt011 LIKE /pws/zycbt011 ,
wa_t001w LIKE t001w .
DATA:
itab_zycit039 LIKE /pws/zycit039 OCCURS 0 WITH HEADER LINE,
itab_zycit094 LIKE /pws/zycit094 OCCURS 0 WITH HEADER LINE,
itab_zycit085 LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycbt032 LIKE /pws/zycbt032 OCCURS 0 WITH HEADER LINE,
it_zycbe033 LIKE /pws/zycbe033 OCCURS 0 WITH HEADER LINE,
it_zycbt034 LIKE /pws/zycbt034 OCCURS 0 WITH HEADER LINE,
itab_zycit034 LIKE /pws/zycit034 OCCURS 10 WITH HEADER LINE,
itab_zycie033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycit032 LIKE /pws/zycit032 OCCURS 10 WITH HEADER LINE,
itab_zycit031 LIKE /pws/zycie031 OCCURS 10 WITH HEADER LINE,
itab_zycit263 LIKE /pws/zycit263 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
* >> Início da inclusão:
data v_resp TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART a.