CE PLUS - Nota 007383
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 30/09/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:15:58
Descrição da Nota: AJUSTE PARA ESTORNO DE FATURA COM VINCULAÇÃO NO CAMBIO
Sintoma
Ao tentar estornar uma fatura de mercadoria a mesma apresenta a mensagem "Não é possível estornar
pois já foi liquidada".
Solução
Realizado ajuste que ao tentar estornar uma faturas de importação que foi associda no cambio a
outra fatura ou financiamento e a associação foi estornadas o programa realiza o estorno da tafura e
realize os lançamentos necessarios através da F43 e F51.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07383 Data: 30/09/2008 Hora: 15:04:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07383
Categoria : Erro de Programa
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
03569 - 00001 - 7.0 - 00001 - AJUSTE NO PROGRAMA PARA TROCAR O 'STOP' PARA 'EXIT' DENTRO DO PER
07280 - 00002 - 7.0 - 00007 - FATURA PERMITE ESTORNO MESMO QUE EXISTA BOLETO OU FATURA DE CÂMBI
----------------------------------------------------------------------------------------------------
AJUSTE PARA ESTORNO DE FATURA COM VINCULAÇÃO NO CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO DE FATURA - VINCULAÇÃO NO CAMBIO - BOLETO DE CÂMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
itab_zycit132-status = '2'.
MODIFY itab_zycit132.
ELSEIF NOT /pws/zycbt108-belnr_lq IS INITIAL
AND NOT /pws/zycbt108-belnr_as IS INITIAL.
MESSAGE i039 WITH text-110.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_PAG_ANTECIPADO
ELSE.
IF itab_zycit132[] IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt108
WHERE nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc EQ 0 AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ /pws/zycie006-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ /pws/zycie006-nrseq_pgfat AND
mdcorresp EQ 'IP'.
ENDIF.
IF sy-subrc EQ 0.
v_stop = 'X' .
EXIT.
ENDIF.
v_pag_antecipado = 'X'.
CLEAR v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = /pws/zycie006-dt_belnrp
IMPORTING
v_year = v_ano
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
IF sy-subrc NE 0.
v_ano = sy-datum(04).
ENDIF.
SELECT *
FROM bseg
INTO TABLE itab_bseg
WHERE belnr EQ /pws/zycie006-belnr_p
AND gjahr EQ v_ano
AND bukrs EQ /pws/zycie006-bukrs.
PERFORM fill_date_f-43_pag_antecipado TABLES itab_bseg.
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
ENDIF.
ELSEIF NOT itab_zycit132[] IS INITIAL.
LOOP AT itab_zycit132.
SELECT SINGLE *
FROM /pws/zycbt108
WHERE nrseq_pgfat EQ
itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc EQ 0 AND
( NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt108-belnr_as IS INITIAL ).
SELECT SINGLE * FROM /pws/zycbt131 WHERE
nrseq_pgfat EQ itab_zycit132-nrseq_pgfat. "#EC CI_NOFIRST
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt064 WHERE
nrchave EQ itab_zycit132-nrseq_pgfat AND
mdcorresp EQ 'IP'.
ENDIF.
IF sy-subrc EQ 0.
v_stop = 'X' .
CONTINUE.
ENDIF.
v_pag_antecipado = 'X'.
CLEAR v_ano.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = /pws/zycie006-bukrs
v_date = itab_zycit132-dt_belnrp
IMPORTING
v_year = v_ano
EXCEPTIONS
variante_de_exercicio = 1
data_nao_encontrada = 2
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
IF sy-subrc NE 0.
v_ano = sy-datum(04).
ENDIF.
SELECT *
FROM bseg
INTO TABLE itab_bseg
WHERE belnr EQ itab_zycit132-belnr_p
AND gjahr EQ v_ano
AND bukrs EQ /pws/zycie006-bukrs.
PERFORM fill_date_f-43_pag_antecipado TABLES itab_bseg.
PERFORM fill_date_f_51_pag_antecipado TABLES itab_bseg.
itab_zycit132-status = '2'.
MODIFY itab_zycit132.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
...