CE PLUS - Nota 000394
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Comissão de Agente
Data/Hora da Publicação: 05/12/2005 00:00:00
Data/Hora Última Alteração: 21/02/2011 15:20:58
Descrição da Nota: CAMPO DIVISÃO OCULTO NA TELA DA COMPENSAÇÃO DA COMISSÃO DE AGENTE
Sintoma
O programa está passando o campo da Divisão para a tela sendo que o mesmo está oculto.
Solução
O programa foi ajustado de forma que verifique a chave de Débito.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00394 Data: 05/12/2005 Hora: 11:36:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00394
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAMPO DIVISÃO OCULTO NA TELA DA COMPENSAÇÃO DA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXPORTAÇÃO - COMISSÃO DE AGENTE - COMPENSAÇÃO - DIVISÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCE_TRANSACAO_F_51B
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_TRANSACAO_F_51B
...
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR' chave = 'C'.
IF sy-subrc <> 0. "Não está oculto
PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-d_zuonr.
ENDIF.
"Texto item
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT' chave = 'C'.
IF sy-subrc <> 0. "Não está oculto
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-d_sgtxt.
ENDIF.
"Divisão
* >> Início da Exclusão <<
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER' chave = 'C'.
* >> Fim da Exclusão <<
* >> Início da Inclusão <<
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER' chave = 'D'.
* >> Fim da Inclusão <<
IF sy-subrc <> 0. "Não está oculto
PERFORM bdc_field USING 'BSEG-GSBER' t_dados-d_gsber.
ENDIF.
* Verifica se possui despesa *
READ TABLE t_contas INDEX 1.
IF NOT t_contas-wrbtr1 IS INITIAL.
PERFORM bdc_field USING:
'RF05A-NEWBS' t_contas-bschl, "Chav Lancto
'RF05A-NEWKO' t_contas-d_newko. "Conta
PERFORM bdc_field USING 'BDC_OKCODE' '/00'. "/00'.
ELSE.
PERFORM bdc_field USING 'BDC_OKCODE' '=PA'.
ENDIF.
ELSE.
WRITE: t_dados-wrbtr TO v_wrbtr CURRENCY t_contas-waers.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr. "Montante