CE PLUS - Nota 001809
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 25/07/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:51:33
Descrição da Nota: ESTORNO NA PRESTAÇÃO DE CONTAS DA
Sintoma
1) Quando existir uma prestação de contas na DA e esta DA tiver uma nacionalização (embarque com
regime 14), o sistema não poderá deixar estornar esta prestação de contas na DA.
2) Quando o usuário estornar a prestação de contas na DA e a transação FB08 não for realizada,
deverá aparecer uma mensagem de erro: "estorno não foi realizado"
Solução
Fazer tratamento para verificar se há nacionalizações.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01809 Data: 25/07/2006 Hora: 09:48:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01809
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00124
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ESTORNO NA PRESTAÇÃO DE CONTAS DA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ESTORNO - PRESTAÇÃO DE CONTAS - FB08 - NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI075F02
REPS /PWS/MZYCI075I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075F02
FORM reverse_document_fb08.
DATA: v_belnr_ant LIKE /pws/zycie006-belnr_p.
CHECK NOT /pws/zycie459-docfat IS INITIAL.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
SELECT SINGLE *
FROM /pws/zycit036
WHERE origem EQ 'PCD'
AND nrseqori EQ /pws/zycie459-nrpres.
IF sy-subrc IS INITIAL.
MESSAGE i015 WITH text-109.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM clear_date_batch.
it_zycbe033-tcode = 'FB08'.
it_zycbe033-tabela = text-012.
it_zycbe033-cpochv = /pws/zycie459-nrseqda.
it_zycbe033-belnr = /pws/zycie459-docfat.
...
...
IF sy-subrc = 0.
READ TABLE it_zycbt032 WITH KEY tcode = 'FB08'
tabela = text-012
cpochv = /pws/zycie459-nrseqda
tpmsg = 'S'.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FB08
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
IF sy-subrc = 0 AND
NOT it_zycbt032-belnr IS INITIAL.
* << Fim da inclusão
MESSAGE i030 WITH v_belnr_ant.
CLEAR: /pws/zycie459-docfat, /pws/zycie459-dtaprov.
/pws/zycie459-status = 'I'.
UPDATE /pws/zycit459 SET docfat = space
dtaprov = space
...
...
ELSE.
LOOP AT it_zycbt032.
MESSAGE i015 WITH it_zycbt032-msg+0(50)
it_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FB08
MESSAGE i015 WITH text-110.
* << Fim da inclusão
PERFORM popup_message USING text-039 text-038.
IF v_answer = 'J'.
CLEAR: /pws/zycie459-docfat, /pws/zycie459-dtaprov,
/pws/zycie459-status.
/pws/zycie459-status = 'I'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI075I01
Não há diferenças significativas entre as fontes destas versões.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/SAPMZYCI075
Elementos de texto foram inseridos:
Chave Comprimento Txt.
109 39 DA nacionalizada não pode ser estornada
110 25 Estorno não foi realizado