CE PLUS - Nota 000520
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 23/12/2005 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:07:50
Descrição da Nota: ERRO NA PRESTAÇÃO DE CONTAS, CAMPO BSEG-GSBER NÃO EXISTE NA TELA.
Sintoma
Na prestacao de Contas, quando vai devolver dinheiro para o Banco, ou seja o despacahnte gastou
Menos do que foi Adiantado, esta dando que o campo DIVISAO nao existente na Tela.
O chamado 265729 , tratou deste mesmo caso mas quando o despachante gastou MAis do que foi
Adiantado.
Solução
Ajustado para quando o campo fosse em vazio mandar um valor em branco.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00520 Data: 23/12/2005 Hora: 14:23:03
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00520
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00021
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ERRO NA PRESTAÇÃO DE CONTAS, CAMPO BSEG-GSBER NÃO EXISTE NA TELA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PRESTAÇÃO DE CONTAS - BANCO - DESPACHANTE - ADIANTADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_43B
REPS /PWS/LZYCIGF2F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
ENDIF.
ELSEIF v_string+32(1) = '-'. "Entrada OCULTA
p_itab_oculto-campo = 'BSEG-GSBER'.
p_itab_oculto-chave = 'C'.
APPEND p_itab_oculto.
ENDIF.
** Inicio da Inclusão: Form trata_string_credito
IF v_string+32(1) = '+'. "Entrada obrigatória
IF p_t_dados-d_gsber = space. "Ñ preenchido na T_DADOS
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'BSEG-GSBER'.
IF sy-subrc <> 0. "Ñ encontrou 'cobl-gsber'
"na T_CAMPO
* Preenche campo na tabela T_CAMPO
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'BSEG-GSBER'.
p_t_campo-descricao = text-016.
APPEND p_t_campo.
RAISE campo_em_branco.
ELSE. "Encontrou 'bseg-gsber'
IF ( p_t_campo-conteudo = space ). "Campo CONTEÚDO em branco
RAISE campo_em_branco.
ELSE. "Campo CONTEÚDO preenchido
* Preenche campo na tabela T_DADOS
MOVE p_t_campo-conteudo TO p_t_dados-d_gsber.
MODIFY p_t_dados TRANSPORTING d_gsber.
* Apaga linha da T_CAMPO copiada p/ T_DADOS
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+32(1) = '-'. "Entrada OCULTA
p_itab_oculto-campo = 'BSEG-GSBER'.
p_itab_oculto-chave = 'D'.
APPEND p_itab_oculto.
ENDIF.
** Fim da Inclusão: Form trata_string_credito
* Campo CENTRO DE CUSTO (C_KOSTL)
IF v_string+9(1) = '+'. "Entrada obrigatória
IF p_t_dados-c_kostl = space. "Ñ preenchido na T_DADOS
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'COBL-KOSTL'.
IF sy-subrc <> 0. "Ñ encontrou 'cobl-kostl'
"na T_CAMPO
...