CE PLUS - Nota 007399
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/10/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:20
Descrição da Nota: ALTERAR A BUSCA DA NF ELETRÔNICA UTILIZANDO FUNÇÃO
Sintoma
Alterar a busca da NF eletrônica utilizando função
Solução
Alterar a busca da NF eletrônica utilizando função
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07399 Data: 03/10/2008 Hora: 14:12:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07399
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00067
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07366 - 00001 - 7.0 - 00007 - ATUALIZAÇÃO DE NUMERO DE NOTA PARA NF-E
----------------------------------------------------------------------------------------------------
ALTERAR A BUSCA DA NF ELETRÔNICA UTILIZANDO FUNÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF-E - NFE- NOTA FISCAL ELETRÔNICA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
FIELD-SYMBOLS: <nfenum> TYPE ANY,
<nfe> TYPE ANY.
IF itab_zycit042_c-ebeln IS INITIAL.
EXIT.
ENDIF.
MOVE-CORRESPONDING itab_zycit042_c TO /pws/zycie042a.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = itab_zycit042_c-docnum_c.
IF sy-subrc EQ 0.
itab_zycit042_c-nfnum_c = j_1bnfdoc-nfnum.
* >> Início da exclusão: FORM CARREGA_ZYCIE042_C
ASSIGN: (t_fields) TO <nfenum>,
(t_fields2) TO <nfe>.
IF sy-subrc EQ 0.
IF NOT <nfenum> IS INITIAL AND
NOT <nfe> IS INITIAL.
itab_zycit042_c-nfnum_c = <nfenum>.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ZYCIE042_C
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = j_1bnfdoc-docnum
IMPORTING
nfnum = itab_zycit042_c-nfnum_c.
* << Fim da inclusão
itab_zycit042_c-series_c = j_1bnfdoc-series.
ENDIF.
MOVE: itab_zycit042_c-nfnum_c TO /pws/zycie042a-nfnum_c,
itab_zycit042_c-series_c TO /pws/zycie042a-series_c,
itab_zycit042_c-subser_c TO /pws/zycie042a-subser_c.
CLEAR: itab_matuse_aux.
...
...
IF sy-subrc EQ 0 OR it_zycet005-belnr = '9999999999'
OR it_zycet005-belnr = '8888888888'.
/pws/zycie041-docnum = it_zycee005-belnr.
IF it_zycet005-belnr = '9999999999'.
/pws/zycie041-docnum = it_zycet005-belnr.
ENDIF.
IF it_zycet005-belnr = '8888888888'.
/pws/zycie041-docnum = it_zycet005-belnr.
ENDIF.
itab_zycit042-nfnum = /pws/zycie041-nfnum = j_1bnfdoc-nfnum.
* >> Início da exclusão: FORM ATUALIZA_DADOS_NOTA
ASSIGN: (t_fields) TO <nfenum>,
(t_fields2) TO <nfe>.
IF sy-subrc EQ 0.
IF NOT <nfenum> IS INITIAL AND
NOT <nfe> IS INITIAL.
itab_zycit042-nfnum = /pws/zycie041-nfnum = <nfenum>.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = j_1bnfdoc-docnum
IMPORTING
nfnum = itab_zycit042-nfnum.
/pws/zycie041-nfnum = itab_zycit042-nfnum.
* << Fim da inclusão
itab_zycit042-series = /pws/zycie041-series = j_1bnfdoc-series.
itab_zycit042-subser = /pws/zycie041-subser = j_1bnfdoc-subser.
/pws/zycie041-cancel = ' '.
...
...
itab_zycit044-nfnum = j_1bnfdoc-nfnum.
itab_zycit044-series = j_1bnfdoc-series.
itab_zycit044-subser = j_1bnfdoc-subser.
* >> Início da exclusão: FORM ATUALIZA_DADOS_NOTA_R
ASSIGN: (t_fields) TO <nfenum>,
(t_fields2) TO <nfe>.
IF sy-subrc EQ 0.
IF NOT <nfenum> IS INITIAL AND
NOT <nfe> IS INITIAL.
itab_zycit044-nfnum = <nfenum>.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DADOS_NOTA_R
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = j_1bnfdoc-docnum
IMPORTING
nfnum = itab_zycit044-nfnum.
* << Fim da inclusão
/pws/zycie043-nfnum = itab_zycit044-nfnum.
/pws/zycie043-series = itab_zycit044-series.
/pws/zycie043-subser = itab_zycit044-subser.
itab_zycit044-docnum = it_zycee005-belnr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
MODULE atualiza_itab_zycit042_c INPUT.
DATA: t_nfenum(20) TYPE c VALUE 'J_1BNFDOC-NFENUM',
t_nfe(20) TYPE c VALUE 'J_1BNFDOC-NFE'.
FIELD-SYMBOLS: <nfenum1> TYPE ANY,
<nfe1> TYPE ANY.
LOOP AT itab_zycit042_c.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = itab_zycit042_c-docnum_c.
IF sy-subrc EQ 0.
itab_zycit042_c-nfnum_c = j_1bnfdoc-nfnum.
* >> Início da exclusão: MODULE ATUALIZA_ITAB_ZYCIT042_C
ASSIGN: (t_nfenum) TO <nfenum>,
(t_nfe) TO <nfe>.
IF sy-subrc EQ 0.
IF NOT <nfenum1> IS INITIAL AND
NOT <nfe1> IS INITIAL.
itab_zycit042_c-nfnum_c = <nfenum1>.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: MODULE ATUALIZA_ITAB_ZYCIT042_C
CALL FUNCTION '/PWS/ZYCI_BUSCA_NFNUM'
EXPORTING
docnum = j_1bnfdoc-docnum
IMPORTING
nfnum = itab_zycit042_c-nfnum_c.
* << Fim da inclusão
itab_zycit042_c-series_c = j_1bnfdoc-series.
ENDIF.
MODIFY itab_zycit042_c INDEX sy-tabix.
ENDLOOP.
ENDMODULE.
...