CE PLUS - Nota 001166
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 06/04/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:31:02
Descrição da Nota: COMPLEMENTO DO BOLETO POR ITEM PEDIDO DE COMPRA - F-43
Sintoma
Ao efetuar a contabilização do Complemento do Boleto de Pagamento Antecipado ou Pagamento de Fatura
ou Financiamento (F-43), por item do pedido de compra, foi parametrizado para aparecer os campos
documento(ebeln) e item(ebelp), mas o Batch Input só preenche o campo ITEM se parametrizarmos na
OBC4 a opção Nr. Reserva, mas a mesma não tem relação com este campo
Solução
Fazer a verificação do status dos campos pelo nr. da tela, como é feito com o campo ZFBDT, assim
retorna corretamente se esta oculto, facultativo ou obrigatório
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01166 Data: 06/04/2006 Hora: 14:27:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01166
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00108
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO POR ITEM PEDIDO DE COMPRA - F-43
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO POR ITEM PEDIDO DE COMPRA - F-43
EBELN EBELP RAZÃO ESPECIAL STATUS CAMPO TELA 0304
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_43C
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C
...
v_ulsk2 LIKE t042-ulsk2,
v_umsks LIKE t074u-umsks,
v_ok(1) VALUE 'N',
v_umskz TYPE /pws/zycbe033-umskz,
v_newbs TYPE /pws/zycbe033-newbs,
* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
v_agkon TYPE skb1-saknr.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
v_agkon TYPE skb1-saknr,
t_telas TYPE rpy_dyfatc OCCURS 0 WITH HEADER LINE,
v_programa(40) TYPE c VALUE 'SAPMF05A'.
* << Fim da inclusão
LOOP AT t_dados.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
...
...
v_tela.
PERFORM bdc_screen USING 'SAPMF05A' v_tela.
WRITE: t_item-wrbtr TO v_wrbtr CURRENCY t_dados-waers,
t_item-d_valut TO v_data_val_char.
IF v_tela NE '0303'.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
READ TABLE itab_oculto WITH KEY campo = 'BSEG-EBELN'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-EBELN' t_item-ebeln.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
IF NOT t_item-ebeln IS INITIAL.
PERFORM define_campo TABLES t_telas
USING 'BSEG-EBELN'
v_programa
v_tela.
IF v_invisible EQ 0.
IF v_input EQ 1 or v_required EQ 1.
PERFORM bdc_field USING: 'BSEG-EBELN' t_item-ebeln.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
READ TABLE itab_oculto WITH KEY campo = 'BSEG-EBELP'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-EBELP' t_item-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
IF NOT t_item-ebelp IS INITIAL.
PERFORM define_campo TABLES t_telas
USING 'BSEG-EBELP'
v_programa
v_tela.
IF v_invisible EQ 0.
IF v_input EQ 1 or v_required EQ 1.
PERFORM bdc_field USING: 'BSEG-EBELP' t_item-ebelp.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
chave = 'D'.
IF sy-subrc <> 0.
...