CE PLUS - Nota 003563
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Pagamento Antecipado
Data/Hora da Publicação: 26/04/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 09:49:55
Descrição da Nota: COMPLEMENTO DO BOLETO - CAMPOS BUPLA E BRNCH
Sintoma
Ao realizar o lançamento de aprovação no Compl. do Boleto, a F-43 não atualiza o campo BUPLA(Centro
ou Local de Negócios).
Solução
Foi incluido o mapeamento no Batch Input.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03563 Data: 26/04/2007 Hora: 18:05:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03563
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01166 - 00001 - 6.0 - 00023 - COMPLEMENTO DO BOLETO POR ITEM PEDIDO DE COMPRA - F-43
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - CAMPOS BUPLA E BRNCH
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO -CAMPOS LOCAL NEGÓCIO(BUPLA)E FILIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCM_TRANSACAO_F_43C
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_43C
...
CONCATENATE '0' v_data_lanc_char+3(2) INTO v_monat.
MOVE v_data_lanc_char+6(4) TO v_gjahr.
PERFORM bdc_screen USING 'SAPMF05A' '0100'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_data_doc_char,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_data_lanc_char,
'BKPF-MONAT' t_dados-budat+4(2),
'BKPF-WAERS' t_dados-waers,
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
'BKPF-BRNCH' t_dados-brnch,
* << Fim da inclusão
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-NEWBS' t_dados-newbs1,
'RF05A-NEWKO' t_dados-c_newko,
'BDC_OKCODE' '/00'.
WRITE: t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers,
t_dados-zfbdt TO v_zfbdt_char.
MOVE: t_dados-newbs1 TO v_newbs,
t_dados-d_newko TO v_agkon.
...
...
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.
ENDIF.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_43C
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = 'D'.
IF sy-subrc <> 0.
IF NOT t_item-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_item-brnch.
ENDIF.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
chave = 'D'.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-ZUONR' t_item-c_zuonr.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT'
chave = 'D'.
IF sy-subrc <> 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
itab_zycbe033-d_gsber = wa_zycbt117-gsber.
itab_zycbe033-d_kostl = wa_zycbt117-kostl.
itab_zycbe033-d_prctr = wa_zycbt117-prctr.
itab_zycbe033-d_fipos = wa_zycbt117-fipos.
itab_zycbe033-d_fictr = wa_zycbt117-fictr.
itab_zycbe033-c_gsber = wa_zycbt117-gsber.
IF v_tcode EQ 'F-43'.
itab_zycbe033-c_newko = wa_zycbt117-lifnr.
ENDIF.
itab_zycbe033-zterm = wa_zycbt117-zterm.
* >> Início da inclusão: FORM FILL_DATE_F-63_IA
IF itab_zycbe033-brnch IS INITIAL.
SELECT SINGLE * FROM t001w WHERE werks = wa_zycbt117-werks.
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING wa_zycbt117-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
IF NOT itab_zycmt020[] IS INITIAL.
PERFORM contabiliza_item.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i127 WITH itab_zycbt034-descricao v_evento.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
IF itab_zycmt020[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_63B'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
itab_pf_status-fcode = 'DEL'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'CHANGE'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'PAG'.
APPEND itab_pf_status.
v_status_s = '0'.
ENDIF.
itab_pf_status-fcode = 'ADIC'.
APPEND itab_pf_status.
* >> Início da exclusão: FORM EXIBE_ALTERA_100
SET PF-STATUS '0200' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
* << Fim da exclusão
IF ok_code = 'EXEC'.
IF /pws/zycbe031-mdcorresp = 'CD' OR
/pws/zycbe031-mdcorresp = 'ED' OR
/pws/zycbe031-mdcorresp = 'ID' OR
/pws/zycbe031-mdcorresp = 'EC'.
IF v_fcambio IS INITIAL AND
( /pws/zycbe031-mdcorresp EQ 'CD' OR
/pws/zycbe031-mdcorresp EQ 'ID' ).
SELECT SINGLE fcambio
FROM /pws/zycbt118
...
...
ENDIF.
ENDIF.
IF v_fcambio EQ 'N'.
v_status_s = '0'.
v_status_despesa = '1'.
wa_zycbt031 = /pws/zycbe031.
ENDIF.
ELSE.
v_status_despesa = '0'.
ENDIF.
* >> Início da inclusão: FORM EXIBE_ALTERA_100
ENDIF.
IF v_status_s eq '0'.
itab_pf_status-fcode = 'SAVE'.
APPEND itab_pf_status.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM EXIBE_ALTERA_100
SET PF-STATUS '0200' EXCLUDING itab_pf_status.
REFRESH itab_pf_status.
* << Fim da inclusão
ENDFORM.
FORM desabilitar_100.
IF v_status_s = '1'.
SELECT SINGLE * FROM /pws/zycbt134
WHERE nrseq = /pws/zycbe031-nrseq AND
...