CE PLUS - Nota 012781
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 23/01/2013 00:00:00
Data/Hora Última Alteração: 04/04/2013 13:49:16
Descrição da Nota: RECEBIMENTO - DATA DO DOCUMENTO INCORRETA NO DOC.REC.FÍSICO E DOC.CONTÁB
Sintoma
O Recebimento gerou datas de documento divergentes entre Revisão fatura, Rec. Físico e Doc.
Contábil.
Na MIRO, a data ficou conforme a nota de remessa correspondente, porém, no rec. Físico (MIGO) e Doc.
Contábil (F-51), a data lançada ficou divergente da MIRO.
Solução
Atualizado programa para considerar a Data da NF em todos os documentos contabeis do recebimento.
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12781 Data: 23/01/2013 Hora: 15:14:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12781
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 9.0
Pacote : 00003
Agrupamento : 00145
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
RECEBIMENTO - DATA DO DOCUMENTO INCORRETA NO DOC.REC.FÍSICO E DOC.CONTÁB
----------------------------------------------------------------------------------------------------
Palavras Chave:
RECEBIMENTO - NOTA FISCAL DE REMESSA - NFR - DATA DO DOCUMENTO INCORRETA
MIGO - F-51
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
PERFORM lancamento_impostos.
ENDIF.
IF v_subrc = 'E'.
FREE: itab_zycbt035, itab_param_classe.
ENDIF.
PERFORM get_parameters_f-02.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = v_ntabela.
itab_zycbe033-cpochv = wa_nf-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F_02
IF /pws/zycie041-docnum IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02
IF v_existe_nfr EQ 'S'.
* << Fim da inclusão
SELECT SINGLE * FROM j_1bnfdoc WHERE docnum EQ /pws/zycie043-docnum.
* >> Início da inclusão: FORM FILL_DATE_F_02
CLEAR: /pws/zycie041.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM j_1bnfdoc WHERE docnum EQ /pws/zycie041-docnum.
ENDIF.
IF /pws/zycie001-modalidade = '99'.
itab_zycbe033-bldat = sy-datlo.
ELSE.
...
...
ENDIF.
ENDIF.
IF e_subrc EQ 0.
PERFORM multiplos_lancamentos_f_02b.
ENDIF.
PERFORM get_parameters_f_02b.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = v_ntabela.
itab_zycbe033-cpochv = wa_nf-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F_02B
IF /pws/zycie041-docnum IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_02B
IF v_existe_nfr EQ 'S'.
* << Fim da inclusão
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie043-docnum.
* >> Início da inclusão: FORM FILL_DATE_F_02B
CLEAR: /pws/zycie041.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041-docnum.
ENDIF.
IF /pws/zycie001-modalidade = '99' OR sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F01
...
PERFORM get_parameters_mb01_receb.
itab_zycie033-mandt = sy-mandt.
itab_zycie033-tcode = 'MIGO'.
itab_zycie033-tabela = 'WA_NF'.
IF v_existe_nfr NE 'S'.
v_chave = wa_nf-nfglobal.
ELSE.
v_chave = wa_nf-nfremessa.
ENDIF.
itab_zycie033-cpochv = v_chave.
* >> Início da exclusão: FORM FILL_DATE_MB01
IF /pws/zycie041-docnum IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_MB01
IF v_existe_nfr EQ 'S'.
* << Fim da inclusão
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie043-docnum.
* >> Início da inclusão: FORM FILL_DATE_MB01
CLEAR: /pws/zycie041.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041-docnum.
ENDIF.
IF /pws/zycie001-modalidade = '99'.
...
...
ENDIF.
IF e_subrc EQ 0.
PERFORM multiplos_lancamentos_f_51.
ENDIF.
PERFORM get_parameters_f-51.
READ TABLE itab_zycit003 INDEX 1.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = v_trans.
itab_zycbe033-tabela = v_ntabela.
itab_zycbe033-cpochv = wa_nf-nrseq.
* >> Início da exclusão: FORM FILL_DATE_F_51
IF /pws/zycie041-docnum IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51
IF v_existe_nfr EQ 'S'.
* << Fim da inclusão
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie043-docnum.
* >> Início da inclusão: FORM FILL_DATE_F_51
CLEAR: /pws/zycie041.
* << Fim da inclusão
ELSE.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum EQ /pws/zycie041-docnum.
ENDIF.
IF /pws/zycie001-modalidade = '99'.
...