CE PLUS - Nota 004669
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 11/09/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:27:35
Descrição da Nota: DATA DE LANÇAMENTO DO ESTORNO DA NF
Sintoma
Ao estornar uma nota fiscal em dia posterior a data da entrada, o sistema esta apresentando como
data de lançamento a data do dia do estorno. Quando estornamos o documento o sistema deve
considerar o estorno na data origianal da entrada.
Solução
Foi retirado esse tratamento da J1B2
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04669 Data: 11/09/2007 Hora: 08:42:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04669
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00013
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DATA DE LANÇAMENTO DO ESTORNO DA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
DATA DE LANÇAMENTO DO ESTORNO DA NF, NOTA FISCAL, ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI029F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
AND ( t001-land1 NE 'AR' AND t001-land1 NE 'CL' ).
MESSAGE i033.
ELSE.
IF ( sy-subrc = 0 AND
v_valor NE '9999999999' ) OR
sy-subrc NE 0.
IF v_modalidade = '99'.
v_apaga = 'X'.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM EFETUA_CANCELAMENTO_G
IF v_valor NE '9999999999'.
PERFORM fill_data_j1b2n.
ENDIF.
* << Fim da exclusão
PERFORM fill_data_j1b3.
/pws/zycie041-bukrs = space.
ENDIF.
ENDIF.
ENDIF.
ELSE.
GET CURSOR FIELD v_campo VALUE v_belnr2.
IF v_campo = '/PWS/ZYCIE041-BELNR_F_02' AND
NOT v_belnr2 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
...
...
ENDIF.
CLEAR v_modo_bi.
ENDFORM.
FORM efetua_cancelamento_r.
CLEAR: v_cancel.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE044-DOCNUM'.
IF /pws/zycie043-statusp_mr1m = 'C'.
MESSAGE i032.
ELSE.
* >> Início da exclusão: FORM EFETUA_CANCELAMENTO_R
PERFORM fill_data_j1b2n.
* << Fim da exclusão
PERFORM fill_data_j1b3_r.
IF v_cancel EQ 'OK'.
tc_lista_nfr-lines = tc_lista_nfr-lines - 1.
CALL SCREEN '0002'.
ENDIF.
ENDIF.
ELSE.
MESSAGE i026.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
FORM estorna_nfc.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE265-DOCNUM' AND v_valor > 0.
PERFORM hist_contabil.
* >> Início da exclusão: FORM ESTORNA_NFC
PERFORM fill_data_j1b2n.
* << Fim da exclusão
PERFORM fill_data_j1b3_c.
PERFORM bi_fb08.
PERFORM atualiza_historico.
IF /pws/zycie264-belnr_f_02_c IS INITIAL.
LOOP AT itab_zycit265_c WHERE NOT docnum IS initial.
ENDLOOP.
IF sy-subrc NE 0.
PERFORM retorna_saldo.
ENDIF.
ENDIF.
...