CE PLUS - Nota 004733
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 14/09/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:14:52
Descrição da Nota: NECESSÁRIO UM PONTO DE EXIT APÓS A GERAÇÃO DA NF REMESSA
Sintoma
Necessário um ponto de exit após a geração da nf remessa.
Solução
criada a chamada de exit DNF008 após a contabilização da nf remessa
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04733 Data: 14/09/2007 Hora: 16:34:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04733
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01867 - 00001 - 6.0 - 00024 - NOTA FISCAL GLOBAL-GAP CUSTO EFETIVO - PRECISAMOS QUE TENHA UMA E
----------------------------------------------------------------------------------------------------
NECESSÁRIO UM PONTO DE EXIT APÓS A GERAÇÃO DA NF REMESSA
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF v_modalidade = '99' OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
LOOP AT itab_zycit042 WHERE docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888'.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM contabiliza_impostos.
ENDIF.
ENDIF.
CLEAR v_modo_bi.
* >> Início da inclusão: FORM FILL_DATA_J1B1
v_tiponf = 'NF'.
* << Fim da inclusão
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF009'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF009' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
...
...
ENDLOOP.
ELSE.
LOOP AT itab_zycit044.
PERFORM atualiza_dados_nota_r.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycit044.
PERFORM atualiza_dados_nota_r.
ENDLOOP.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
v_tiponf = 'NFR'.
REFRESH itab_zyglt100.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI016'
'DNF008'.
CLEAR: itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DNF008' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATA_J1B1_R
ENDIF.
* << Fim da inclusão
CLEAR v_modo_bi.
ENDFORM.
FORM fill_data_j1b1_c.
DATA:
v_vldp_dif LIKE /pws/zycit042-vldp_dif,
v_vldp_dif_icms LIKE /pws/zycit042-vldp_dif,
...