CE PLUS - Nota 005890
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 11/02/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:04:48
Descrição da Nota: SAÍDA DE PAGAMENTO - LOCAL DE NEGÓCIO - BUPLA - F-51 - F-53
Sintoma
Ao efetuar a saída de pagamento, não esta mapeando o campo local de negócio, filial, campo Bupla, j_
1bbranch. Transações F-51 e F-53.
Solução
Mapear o campo bupla e brnch nas funções que geram F-51 e F-53.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05890 Data: 11/02/2008 Hora: 11:54:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05890
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00034
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03270 - 00001 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03827 - 00002 - 7.0 - 00001 - DESPESAS IMPORTAÇÃO/FINANCEIRO - ROTINA DE PAGAMENTO - FILIAL
----------------------------------------------------------------------------------------------------
SAÍDA DE PAGAMENTO - LOCAL DE NEGÓCIO - BUPLA - F-51 - F-53
----------------------------------------------------------------------------------------------------
Palavras Chave:
SAÍDA DE PAGAMENTO - LOCAL DE NEGÓCIO - BUPLA - F-51 - F-53
J_1BBRANCH FILIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_51Q
FUNC /PWS/ZYCM_TRANSACAO_F_51O
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCB115F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51Q
FUNCTION /pws/zyca_transacao_f_51q.
...
'BKPF-BUKRS' v_bukrs,
'BKPF-BUDAT' v_budat,
'BKPF-MONAT' v_monat+1(2),
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-AUGTX' t_dados-augtx,
'RF05A-NEWBS' t_dados-newbs,
'RF05A-NEWKO' t_dados-agkon,
'BKPF-WAERS' t_dados-waers,
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q
'BKPF-BRNCH' t_dados-brnch,
* << Fim da inclusão
'BDC_OKCODE' '=00'.
IF NOT t_dados-xblnr IS INITIAL.
PERFORM bdc_field USING 'BKPF-XBLNR' t_dados-xblnr.
ENDIF.
IF t_dados-wrbtr NE 0.
WRITE: t_dados-d_valut TO v_data_val_char,
t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers.
IF t_dados-newbs EQ '01'.
PERFORM bdc_screen USING: 'SAPMF05A' '0301'.
ELSE.
...
...
ENDIF.
IF NOT t_dados-zfbdt = '00000000' AND
NOT t_dados-zfbdt = ' '.
WRITE t_dados-zfbdt TO v_zfbdt.
PERFORM bdc_field USING 'BSEG-ZFBDT' v_zfbdt.
ENDIF.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr .
PERFORM bdc_field USING:
'BSEG-DMBTR' v_dmbtr .
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q
IF NOT t_dados-brnch IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51Q
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = 'C'.
IF sy-subrc <> 0 AND NOT t_dados-brnch IS INITIAL.
* << Fim da inclusão
PERFORM bdc_field USING
'BSEG-BUPLA' t_dados-brnch.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR' chave = 'C'.
IF sy-subrc <> 0.
IF NOT t_dados-c_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' t_dados-c_zuonr.
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER' chave = 'C'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_51O
...
chave = 'C'.
IF sy-subrc <> 0 AND NOT v_valut = '00.00.0000'
AND NOT v_valut = ' '.
PERFORM bdc_field USING 'BSEG-VALUT' v_valut.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-ZUONR'
chave = 'C'.
IF sy-subrc <> 0 AND NOT t_zycbe035-c_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' t_zycbe035-c_zuonr.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_51O
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = 'C'.
IF sy-subrc <> 0 AND NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING
'BSEG-BUPLA' t_dados-brnch.
ENDIF.
* << Fim da inclusão
READ TABLE itab_oculto WITH KEY campo = 'BSEG-SGTXT'
chave = 'C'.
IF sy-subrc <> 0 AND NOT t_zycbe035-c_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_zycbe035-c_sgtxt.
ENDIF.
LOOP AT t_zycbe035_aux.
IF sy-tabix > v_tabix.
PERFORM bdc_field USING:
'RF05A-NEWBS' t_zycbe035_aux-bschl,
'RF05A-NEWKO' t_zycbe035_aux-c_newko.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
UP TO 1 ROWS
FROM bkpf
INTO (itab_zycbe033-dtdocto,itab_zycbe033-kursf,
itab_zycbe033-awkey)
WHERE bukrs EQ itab_zycbt124-bukrs AND
belnr EQ itab_zycbt124-belnr AND
gjahr EQ itab_zycbt124-dtdocto(4).
ENDSELECT.
itab_zycbe033-c_gsber = itab_zycbt124-gsber.
itab_zycbe033-d_gsber = itab_zycbt124-gsber.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
IF NOT itab_zycbt124-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt124-bukrs
itab_zycbt124-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt124-j_1bbranch.
ELSE.
CLEAR t001w.
SELECT SINGLE j_1bbranch FROM t001w INTO t001w-j_1bbranch
WHERE werks = itab_zycbt124-werks.
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING itab_zycbt124-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MOVE-CORRESPONDING itab_zycbt134 TO itab_erro_s.
itab_erro_s-dtcont = sy-datum.
itab_erro_s-belnr = ''.
CONCATENATE text-264 itab_zycbt034-descricao text-265
INTO itab_erro_s-msg1 SEPARATED BY space.
itab_erro_s-msg2 = text-266.
APPEND itab_erro_s.
ENDLOOP.
...
...
text-076.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM verify_null_field USING itab_zycbt134-vlme
'VLME'
text-077.
IF v_ccexterior IS INITIAL.
itab_zycbe033-wrbtr = itab_zycbt134-vlme.
ELSE.
IF v_moeda_ordem NE itab_zycbt134-waers.
PERFORM calcula_variacao_moedas_dif.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
IF NOT itab_zycbt124-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING itab_zycbt124-bukrs
itab_zycbt124-j_1bbranch.
itab_zycbe033-brnch = itab_zycbt124-j_1bbranch.
ELSE.
CLEAR t001w.
SELECT SINGLE j_1bbranch FROM t001w INTO t001w-j_1bbranch
WHERE werks = itab_zycbt124-werks.
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING itab_zycbt124-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM EXECUTA_F53_CP_ESPECIFICA
ENDIF.
* << Fim da inclusão
MOVE sy-repid TO v_repid.
IF itab_zycbt134-mdcorresp(1) = 'C'.
v_cod_mod = 'F'.
ELSE.
v_cod_mod = itab_zycbt134-mdcorresp(1).
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
ENDIF.
ENDLOOP.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM busca_filial USING p_zycbt031 LIKE LINE OF itab_zycbt031
CHANGING p_brnch LIKE itab_zycbe033-brnch.
CONSTANTS:
c_emprestimo TYPE /pws/zycbt031-mdcorresp VALUE 'CE',
c_despesa_f TYPE /pws/zycbt031-mdcorresp VALUE 'CD',
* >> Início da exclusão: FORM BUSCA_FILIAL
c_despesa_i TYPE /pws/zycbt031-mdcorresp VALUE 'ID'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FILIAL
c_despesa_i TYPE /pws/zycbt031-mdcorresp VALUE 'ID',
c_remessa TYPE /pws/zycbt031-mdcorresp VALUE 'CP'.
* << Fim da inclusão
DATA: v_werks TYPE /pws/zycbt128-werks.
CHECK p_brnch IS INITIAL.
CASE p_zycbt031-mdcorresp.
WHEN c_emprestimo.
IF NOT itab_zycbt128-j_1bbranch IS INITIAL.
p_brnch = itab_zycbt128-j_1bbranch.
ELSE.
v_werks = itab_zycbt128-werks.
ENDIF.
WHEN c_despesa_f OR c_despesa_i.
IF NOT itab_zycbt118-j_1bbranch IS INITIAL.
p_brnch = itab_zycbt118-j_1bbranch.
ELSE.
v_werks = itab_zycbt118-werks.
* >> Início da inclusão: FORM BUSCA_FILIAL
ENDIF.
WHEN c_remessa.
IF NOT itab_zycbt124-j_1bbranch IS INITIAL.
p_brnch = itab_zycbt124-j_1bbranch.
ELSE.
v_werks = itab_zycbt124-werks.
* << Fim da inclusão
ENDIF.
ENDCASE.
IF p_brnch IS INITIAL.
SELECT SINGLE * FROM t001w WHERE werks = v_werks.
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
p_brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
PERFORM verifica_pais_filial USING p_zycbt031-bukrs
p_brnch.
...