CE PLUS - Nota 002165
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 27/09/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:19:05
Descrição da Nota: VINCULAÇÃO ESTORNO FATURAS EXIBIR
Sintoma
Quando o usuario cria uma vinculação nova e tenta estornar a parcela sem sair da tela de vinculação,
o programa mostra a mensagem que não pode fazer o estorno por causa da data que está '00.00.000'.
Solução
Quando o usuario criar a vinculação, o programa sai do modo de criação e passa para o modo de
exibição, forçando o usuario a entrar em modificar para poder fazer o estorno.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02165 Data: 27/09/2006 Hora: 18:20:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02165
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VINCULAÇÃO ESTORNO FATURAS EXIBIR
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO ESTORNO FATURAS EXIBIR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
CLEAR ok_code.
IF NOT itab_transport[] IS INITIAL.
LEAVE PROGRAM.
ENDIF.
CLEAR v_erro_estorno.
* >> Início da inclusão: FORM GRAVA_TABELAS
SET PARAMETER ID '001' FIELD /PWS/ZYCBE001-NRSEQC.
SET PARAMETER ID '9999' FIELD /PWS/ZYCBE005-DTVINCUL.
leave to transaction '/PWS/ZYCB009_E' and skip first screen.
* << Fim da inclusão
ENDFORM.
FORM altera_itab_zycbt005.
DATA: subrc LIKE sy-subrc.
v_index = tc_faturas-current_line.
IF v_status_s EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009O01
...
v_nrseqc = v_nseqc.
ENDIF.
IMPORT v_datv FROM MEMORY ID '9999'.
IF NOT v_datv IS INITIAL.
v_dtvincul = v_datv.
* >> Início da inclusão: MODULE STATUS_0001
ENDIF.
if v_nrseqc is initial.
GET PARAMETER ID '001' FIELD v_nrseqc.
GET PARAMETER ID '9999' FIELD v_dtvincul.
SET PARAMETER ID '001' FIELD ''.
SET PARAMETER ID '9999' FIELD ''.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE status_0010 OUTPUT.
SET PF-STATUS '0010'.
SET TITLEBAR '10'.
...