CE PLUS - Nota 003053
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Encerramento de Custo
Data/Hora da Publicação: 07/02/2007 00:00:00
Data/Hora Última Alteração: 08/03/2010 17:04:37
Descrição da Nota: NO BI DO ENCERRAMENTO DE CUSTOS ERRO NO CAMPO COBL-WERKS
Sintoma
Encerramento de custos - No batch input do encerramento de custos, o sistema está tentando passar o
campo COBL-WERKS, que não existe na tela. O sistema deve verificar status de campo por grupo/conta
contábil.
Solução
Verificar campo COBL-WERKS antes de preenchê-lo.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03053 Data: 07/02/2007 Hora: 16:26:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03053
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NO BI DO ENCERRAMENTO DE CUSTOS ERRO NO CAMPO COBL-WERKS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BATCH INPUT - ENCERRAMENTO DE CUSTOS - ERRO - CAMPO EM TELA
CAMPO FECHADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCIGF2F01
REPT /PWS/SAPLZYCIGF2
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCIGF2F01
...
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+32(1) = '-'.
p_itab_oculto-campo = 'BSEG-GSBER'.
p_itab_oculto-chave = 'D'.
APPEND p_itab_oculto.
ENDIF.
* >> Início da inclusão: FORM TRATA_STRING_CREDITO
IF v_string+25(1) = '+'.
IF p_t_dados-d_gsber = space.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'COBL-WERKS'.
IF sy-subrc <> 0.
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'COBL-WERKS'.
p_t_campo-descricao = text-049.
APPEND p_t_campo.
RAISE campo_em_branco.
ELSE.
IF ( p_t_campo-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campo-conteudo TO p_t_dados-werks.
MODIFY p_t_dados TRANSPORTING werks.
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+25(1) = '-'.
p_itab_oculto-campo = 'COBL-WERKS'.
p_itab_oculto-chave = 'C'.
APPEND p_itab_oculto.
ENDIF.
* << Fim da inclusão
IF v_string+9(1) = '+'.
IF p_t_dados-c_kostl = space.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'COBL-KOSTL'.
IF sy-subrc <> 0.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'BSEG-KOSTL'.
IF sy-subrc <> 0.
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'COBL-KOSTL'.
...
...
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+32(1) = '-'.
p_itab_oculto-campo = 'BSEG-GSBER'.
p_itab_oculto-chave = 'D'.
APPEND p_itab_oculto.
ENDIF.
* >> Início da inclusão: FORM TRATA_STRING_DEBITO
IF v_string+25(1) = '+'.
IF p_t_dados-d_gsber = space.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'COBL-WERKS'.
IF sy-subrc <> 0.
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'COBL-WERKS'.
p_t_campo-descricao = text-049.
APPEND p_t_campo.
RAISE campo_em_branco.
ELSE.
IF ( p_t_campo-conteudo = space ).
RAISE campo_em_branco.
ELSE.
MOVE p_t_campo-conteudo TO p_t_dados-werks.
MODIFY p_t_dados TRANSPORTING werks.
DELETE p_t_campo INDEX sy-tabix.
CLEAR p_t_campo.
ENDIF.
ENDIF.
ENDIF.
ELSEIF v_string+25(1) = '-'.
p_itab_oculto-campo = 'COBL-WERKS'.
p_itab_oculto-chave = 'D'.
APPEND p_itab_oculto.
ENDIF.
* << Fim da inclusão
IF v_string+9(1) = '+'.
IF p_t_dados-d_kostl = space.
CLEAR p_t_campo.
READ TABLE p_t_campo WITH KEY campo = 'COBL-KOSTL'.
IF sy-subrc <> 0.
p_t_campo-mandt = p_t_dados-mandt.
p_t_campo-campo = 'COBL-KOSTL'.
p_t_campo-descricao = text-015.
APPEND p_t_campo.
RAISE campo_em_branco.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCIGF2
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (6 caracteres)
"Centro"
Comprimento máximo: 6