CE PLUS - Nota 012125
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 19/04/2012 00:00:00
Data/Hora Última Alteração: 18/05/2012 14:52:19
Descrição da Nota: AJUSTE PARA LANÇAMENTO DO NUMERO DA DIRE NA NOTA FISCAL.
Sintoma
Não estava levando o número da DIRE para a nota fiscal.
Solução
Ajuste para lançamento do numero da DIRE na nota fiscal.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12125 Data: 19/04/2012 Hora: 15:12:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12125
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11641 - 00001 - 8.0 - 00009 - FEITO DESENVOLVIMENTO PARA PREENCHIMENTO DA NOVA PASTA NF
----------------------------------------------------------------------------------------------------
AJUSTE PARA LANÇAMENTO DO NUMERO DA DIRE NA NOTA FISCAL.
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - NUMERO - DIRE - PASTA - DOCUMENTO - IMPORTAÇÃO
/PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
METH /PWS/CL_ZYCI_TRATA_NF DADOS_DI
REPS /PWS/MZYCI016F01
TABD /PWS/ZYCEE005
----------------------------------------------------------------------------------------------------
Modificações efetuadas em METH /PWS/CL_ZYCI_TRATA_NF DADOS_DI
...
SELECT SINGLE * FROM /pws/zycit085 INTO wa_zycie085
WHERE nrseqdi EQ wa_zycie100-nrseqdi.
t_zycee005-nrseqdi = wa_zycie085-nrseqdi.
* >> Início da inclusão:
IF wa_zycie085-nrdire IS INITIAL.
* << Fim da inclusão
t_zycee005-nrdi = wa_zycie085-nrdi.
* >> Início da inclusão:
ELSE.
t_zycee005-nrdi = wa_zycie085-nrdire.
ENDIF.
* << Fim da inclusão
t_zycee005-dtreg = wa_zycie085-dtreg.
t_zycee005-dtdesemb = wa_zycie085-dtdesemb.
SELECT SINGLE descdesp regio FROM /pws/zycet132
INTO (t_zycee005-locdesemb, t_zycee005-uf_desemb)
WHERE codesp = wa_zycie085-urfdesp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
it_zycee006-nrseq = /pws/zycie041-nfglobal.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = '1'.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF itab_zycit085-tpdi EQ 'S'.
* >> Início da inclusão: FORM MENSAGENS_NF
IF itab_zycit085-nrdire IS INITIAL.
* << Fim da inclusão
CONCATENATE 'DSI/Nº Seq:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
* >> Início da inclusão: FORM MENSAGENS_NF
ELSE.
CONCATENATE 'DIRE/Nº Seq:' itab_zycit085-nrdire '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
* << Fim da inclusão
ELSE.
CONCATENATE 'DI/Nº Seq:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
APPEND it_zycee006.
...
...
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie043-nfremessa.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = v_cont.
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF itab_zycit085-tpdi EQ 'S'.
* >> Início da inclusão: FORM MENSAGENS_NF_R
IF itab_zycit085-nrdire IS INITIAL.
* << Fim da inclusão
CONCATENATE 'DSI/Nº Seq:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
* >> Início da inclusão: FORM MENSAGENS_NF_R
ELSE.
CONCATENATE 'DIRE/Nº Seq:' itab_zycit085-nrdire '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
* << Fim da inclusão
ELSE.
CONCATENATE 'DI/Nº Seq:' itab_zycit085-nrdi '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCEE005
Modificar o elemento de dados do campo NRDI
*De.
/PWS/ZYCIL299
*Para.
/PWS/ZYCIL396