CE PLUS - Nota 000628
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Prestação de Contas
Data/Hora da Publicação: 09/01/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:03:24
Descrição da Nota: FUNÇÃO F-43 E F-51, CAMPO GSBER PASSADO INCORRETAMENTE
Sintoma
Estava sendo enviado incorretamente o valor para o campo BSEG-GSBER,
porém este campo não existia na tela.
Solução
Foi adicionada a chave 21 nesta varificação, pois existem 3casos:
1- Conta do Razão.
2- Fornecedor
3- Razão Especial
Caso a chave de lancamento esteja entre os casos 2 ou 3, é preciso buscar
a conta referente àquele fornecedor para depois buscar a string de campos.
No primeiro caso, não é preciso buscar pelo fornecedor, uma vez que já
é passado na própria chave de lançamento, o código da conta.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00628 Data: 09/01/2006 Hora: 14:55:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00628
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00094
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00520 - 00001 - 6.0 - 00022 - ERRO NA PRESTAÇÃO DE CONTAS, CAMPO BSEG-GSBER NÃO EXISTE NA TELA.
----------------------------------------------------------------------------------------------------
FUNÇÃO F-43 E F-51, CAMPO GSBER PASSADO INCORRETAMENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
GSBER - COBL - BSEG-GSBER - COBL-GSBER - F-43 - F-51
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSACAO_F_43B
FUNC /PWS/ZYCI_TRANSACAO_F_51A
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_43B
...
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_dados-c_gsber IS INITIAL.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_field USING 'BSEG-GSBER' t_dados-c_gsber.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_43B
PERFORM bdc_field USING 'COBL-GSBER' t_dados-c_gsber.
* << Fim da inclusão
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_debito-c_sgtxt IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSACAO_F_51A
...
t_campo-campo = 'RF05A-NEWKO'.
t_campo-descricao = text-022.
append t_campo.
raise campo_em_branco.
endif.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51A
if t_dados-newbs eq '34'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSACAO_F_51A
if t_dados-newbs eq '34'
or t_dados-newbs eq '21'.
* << Fim da inclusão
v_chave_debito = t_dados-newbs.
select single akont from lfb1
into lfb1-akont
where lifnr = t_dados-d_newko
and bukrs = t_dados-bukrs.
...