CE PLUS - Nota 014155
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 22/08/2014 00:00:00
Data/Hora Última Alteração: 25/08/2014 13:50:38
Descrição da Nota: ERRO AO ESTORNAR A F02 NA NF
Sintoma
Erro ao estornar a F02 na NF
Solução
Ajustar data ao estornar F02
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14155 Data: 22/08/2014 Hora: 11:21:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14155
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00174
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02170 - 00001 - 6.0 - 00025 - TRATAMENTO DE MOTIVO NO ESTORNO DA FB08 NA NF
06996 - 00002 - 7.0 - 00006 - ESTORNO DE NOTA FISCAL NO CE QUANDO DOCUMENTO JÁ ESTORNADO NO SAP
07598 - 00003 - 7.0 - 00007 - SALDO NOTA FISCAL DE REMESSA PROCESSO CARVÃO.
07843 - 00004 - 7.0 - 00008 - NOTA FISCAL NÃO ESTA LIMPANDO OS DADOS DO FUNDAP NO ESTORNO DA NO
12841 - 00005 - 9.0 - 00003 - DESENVOLVIMENTO ADICIONAL - CONTABILIZAR IMPOSTOS NA NOTA FISCAL
----------------------------------------------------------------------------------------------------
ERRO AO ESTORNAR A F02 NA NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
ERRO - F02 - NOTA FISCAL - NF - F-02 - ESTORNO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016X01
REPT /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ELSE.
GET CURSOR FIELD v_campo VALUE v_belnr2.
IF v_campo = '/PWS/ZYCIE041-BELNR_F_02' AND
NOT v_belnr2 IS INITIAL.
* >> Início da inclusão: FORM EFETUA_CANCELAMENTO_G
LOOP AT itab_zycit042 WHERE docnum NE space.
ENDLOOP.
IF sy-subrc NE 0 .
* << Fim da inclusão
PERFORM reverse_documento_impos_fb08.
* >> Início da inclusão: FORM EFETUA_CANCELAMENTO_G
ELSE.
MESSAGE i015 WITH text-135 text-136.
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i026.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_data_j1b3.
* >> Início da inclusão: FORM FILL_DATA_J1B3
DATA: v_del041.
* << Fim da inclusão
...
...
IF sy-subrc = 0 OR e_subrc EQ '4'.
LOOP AT itab_zycit042.
READ TABLE it_zycet005 WITH KEY tcode = text-030
tabela = text-014
cpochv = /pws/zycie041-nfglobal
tpmsg = 'S'.
IF sy-subrc EQ 0 OR
NOT j_1bnfdoc-cancel IS INITIAL.
* >> Início da inclusão: FORM FILL_DATA_J1B3
v_estf02 = 'X' .
* << Fim da inclusão
IF ( v_modalidade NE '99' ) OR
( v_modalidade = '99' AND v_apaga NE 'X' )
AND ( t001-land1 NE 'AR' AND t001-land1 NE 'CL' ).
PERFORM deleta_fundap.
* >> Início da exclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
v_del041 = 'X'.
* << Fim da inclusão
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor. "#EC CI_NOFIRST
...
...
ENDLOOP.
MODIFY itab_zycit042.
IF v_modalidade = '99'.
/pws/zycie041-docnum = '9999999999'.
CLEAR /pws/zycie041-cancel.
MODIFY /pws/zycit041 FROM /pws/zycie041.
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'U'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
ENDIF.
* >> Início da exclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
v_del041 = 'X'.
* << Fim da inclusão
CLEAR /pws/zycie041-cancel.
CLEAR: lt_zycit043, lt_zycit043[].
SELECT * FROM /pws/zycit043 INTO TABLE lt_zycit043
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
UPDATE /pws/zycit043 SET docnumnfg = /pws/zycie041-docnum
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = /pws/zycie041-docnum.
...
...
MOVE-CORRESPONDING lt_zycit043 TO /pws/zycit043.
PERFORM carrega_log USING '/PWS/ZYCIT043' 'U'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit043-nrseq.
ENDLOOP.
SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND origem = 'NF'
AND nrseqori = v_valor.
* >> Início da exclusão: FORM FILL_DATA_J1B3
IF
( v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) ) AND NOT
/pws/zycie041-belnr_f_02 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
ENDIF.
* << Fim da exclusão
ELSEIF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
itab_zycit042-docnum = '8888888888'.
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
...
...
ENDLOOP.
LOOP AT it_erro.
MESSAGE i015 WITH it_erro-msg+0(50)
it_erro-msg+50(50).
ENDLOOP.
CLEAR: it_erro[].
REFRESH: it_erro[].
ENDIF.
ELSEIF ( v_apaga NE 'X' AND v_modalidade NE '99' ) OR
v_apaga = 'X'.
* >> Início da inclusão: FORM FILL_DATA_J1B3
IF /pws/zycit062-cont_imp_nf EQ 'X' AND
v_modalidade NE '99' AND
NOT lv_belnr_f_02 IS INITIAL AND
v_estf02 = 'X' .
/pws/zycie041-belnr_f_02 = lv_belnr_f_02.
PERFORM reverse_documento_impos_fb08.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit042.
PERFORM deleta_fundap.
* >> Início da exclusão: FORM FILL_DATA_J1B3
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
v_del041 = 'X'.
* << Fim da inclusão
CLEAR: lt_zycit042, lt_zycit042[].
SELECT * FROM /pws/zycit042 INTO TABLE lt_zycit042
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp
AND tpnf = itab_zycit042-tpnf
AND j_1bbranch = itab_zycit042-j_1bbranch
AND lifnr = itab_zycit042-lifnr
AND docnum = v_valor. "#EC CI_NOFIRST
...
...
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit045-nrseqnf.
ENDLOOP.
DELETE FROM /pws/zycit045
WHERE nrseq = itab_zycit042-nrseq
AND nfglobal = itab_zycit042-nfglobal
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp. "#EC CI_NOFIRST
ENDIF.
COMMIT WORK.
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATA_J1B3
IF sy-subrc = 0 AND
( v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ) ) AND NOT
/pws/zycie041-belnr_f_02 IS INITIAL.
PERFORM reverse_documento_impos_fb08.
ENDIF.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM FILL_DATA_J1B3
IF /pws/zycit062-cont_imp_nf EQ 'X' AND v_modalidade NE '99'
AND NOT lv_belnr_f_02 IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B3
IF /pws/zycit062-cont_imp_nf EQ 'X' AND
v_modalidade NE '99' AND
NOT lv_belnr_f_02 IS INITIAL AND
v_estf02 = 'X' .
* << Fim da inclusão
/pws/zycie041-belnr_f_02 = lv_belnr_f_02.
PERFORM reverse_documento_impos_fb08.
* >> Início da inclusão: FORM FILL_DATA_J1B3
ENDIF.
IF v_del041 = 'X'.
MOVE-CORRESPONDING /pws/zycie041 TO /pws/zycit041.
PERFORM carrega_log USING '/PWS/ZYCIT041' 'D'
sy-tcode '/PWS/SAPMZYCI016' /pws/zycit041-nrseq.
DELETE FROM /pws/zycit041
WHERE nrseq = /pws/zycie041-nrseq
AND nfglobal = /pws/zycie041-nfglobal
AND docnum = v_valor.
* << Fim da inclusão
ENDIF.
CLEAR v_modo_bi.
ENDFORM.
...
...
itab_zycbe033-budat = sy-datlo.
itab_zycbe033-gjahs = itab_zycbe033-bldat+0(4).
v_belnr_ant = /pws/zycie041-belnr_f_02.
IF /pws/zycbt007 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie041-bukrs.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_MOTIVO_ESTORNO'
EXPORTING
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
v_data = /pws/zycie041-dtincl
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
v_data = /pws/zycie041-dt_f_02
* << Fim da inclusão
v_bukrs = /pws/zycie041-bukrs
v_koart = 'K'
IMPORTING
v_subrc = v_subrc
v_gjahr = itab_zycbe033-gjahr.
IF v_subrc = 0.
* >> Início da exclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = /pws/zycie041-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENTO_IMPOS_FB08
itab_zycbe033-budat = /pws/zycie041-dt_f_02.
* << Fim da inclusão
itab_zycbe033-stgrd = /pws/zycbt007-percorr.
ELSE.
itab_zycbe033-budat = sy-datlo.
itab_zycbe033-stgrd = /pws/zycbt007-perencer .
ENDIF.
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_FB08_A'
EXPORTING
v_modo = v_modo_bi
TABLES
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da inclusão:
DATA: v_estf02.
* << Fim da inclusão
DATA: END OF COMMON PART a.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI016
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 132
Texto: (29 caracteres)
"Has informed different batch."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 132
Texto: (32 caracteres)
"Ha informado a diferentes lotes."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 135
Texto: (17 caracteres)
"Item also has NF."
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 135
Texto: (21 caracteres)
"Item ainda possui NF."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 135
Texto: (26 caracteres)
"Artículo también tiene NF."
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 136
Texto: (31 caracteres)
"Impossible to reverse document."
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 136
Texto: (30 caracteres)
"Impossível estornar documento."
Comprimento máximo: 45
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 136
Texto: (29 caracteres)
"Imposible documento revertir."
Comprimento máximo: 45
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: L03
Texto: (38 caracteres)
"Selecionar ao menos uma linha na tela."
Comprimento máximo: 48
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: ES
Símbolo: L03
Texto: (36 caracteres)
"Selec sólo una línea en la pantalla."
Comprimento máximo: 48