CE PLUS - Nota 003827
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Despesas
Data/Hora da Publicação: 01/06/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:47:22
Descrição da Nota: DESPESAS IMPORTAÇÃO/FINANCEIRO - ROTINA DE PAGAMENTO - FILIAL
Sintoma
Ao efetuar as contabilizações de Despesas Importação ou Financeiro, tanto na origem como no
processar boleto, complemento do boleto ou saída de pagamento, e a despesa não ter o campo filial
preenchido, não esta buscando o mesmo do centro da despesa(werks).
Solução
Efetuar a verificação do campo filial da despesa, onde se o mesmo estiver vazio, buscar através do
centro e mapear nos batch-input¿s: BRNCH e BUPLA.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03827 Data: 01/06/2007 Hora: 17:02:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03827
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00168
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03791 - 00001 - 7.0 - 00001 - ROTINA DE PAGAMENTO - EMPRÉSTIMO - FILIAL(BUPLA)
----------------------------------------------------------------------------------------------------
DESPESAS IMPORTAÇÃO/FINANCEIRO - ROTINA DE PAGAMENTO - FILIAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS IMPORTAÇÃO/FIN.ROT.DE PAGAMENTO FILIAL WEKRS
PROCESSAR BOLETO COMPLEMENTO BOLETO SAÍDA PAGAMENTO BRNCH J_1BBRANCH
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_63P
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB105F01
REPS /PWS/MZYCB105TOP
REPS /PWS/MZYCB115F02
REPS /PWS/MZYCM110F01
REPS /PWS/ZYCBN102
REPS /PWS/ZYCBR102
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63P
...
'BKPF-BLDAT' v_data_doc_char,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_data_lanc_char,
'BKPF-MONAT' v_monat+1(2),
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05V-NEWBS' '31'.
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63P
if not t_dados-brnch is initial.
PERFORM bdc_field USING: 'BKPF-BRNCH' t_dados-brnch.
endif.
* << Fim da inclusão
IF NOT ( t_dados-newbs1 IS INITIAL ).
PERFORM bdc_field USING 'RF05V-NEWBS' t_dados-newbs1.
ENDIF.
PERFORM bdc_field USING:
'RF05V-NEWKO' t_dados-agkon,
'BDC_OKCODE' '/00'.
SELECT SINGLE * FROM tcurx INTO tcurx WHERE currkey = t_dados-waers.
IF tcurx-currdec <> 0 OR sy-subrc <> 0.
WRITE: t_dados-wrbtr TO v_wrbtr CURRENCY t_dados-waers.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
itab_zycbe033-dmbtr = 0.
ENDIF.
itab_zycbe033-d_gsber = wa_zycbt118-gsber.
itab_zycbe033-d_kostl = wa_zycbt118-kostl.
itab_zycbe033-d_prctr = wa_zycbt118-prctr.
itab_zycbe033-d_fipos = wa_zycbt118-fipos.
itab_zycbe033-d_fictr = wa_zycbt118-fictr.
IF itab_zycbe033-c_gsber IS INITIAL.
itab_zycbe033-c_gsber = wa_zycbt118-gsber.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_CD
IF NOT wa_zycbt118-j_1bbranch IS INITIAL.
* << Fim da inclusão
PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs
wa_zycbt118-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt118-j_1bbranch.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_CD
ELSE.
SELECT SINGLE * FROM t001w WHERE werks = wa_zycbt118-werks.
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-c_kostl = wa_zycbt118-kostl.
itab_zycbe033-c_prctr = wa_zycbt118-prctr.
itab_zycbe033-c_fipos = wa_zycbt118-fipos.
itab_zycbe033-c_fictr = wa_zycbt118-fictr.
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
itab_zycbe033-d_kostl = itab_zycbe033-c_kostl.
ELSE.
itab_zycbe033-d_kostl = /pws/zycbe118-kostl.
itab_zycbe033-c_kostl = /pws/zycbe118-kostl.
ENDIF.
itab_zycbe033-d_prctr = /pws/zycbe118-prctr.
itab_zycbe033-d_fipos = /pws/zycbe118-fipos.
itab_zycbe033-c_prctr = /pws/zycbe118-prctr.
itab_zycbe033-c_fipos = /pws/zycbe118-fipos.
itab_zycbe033-c_gsber = /pws/zycbe118-gsber.
* >> Início da exclusão: FORM CONTABILIZA_F-63
itab_zycbe033-brnch = /pws/zycbe118-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_F-63
IF NOT /pws/zycbe118-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe118-bukrs
/pws/zycbe118-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe118-j_1bbranch.
ELSE.
SELECT SINGLE * FROM t001w WHERE werks = /pws/zycbe118-werks.
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe118-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR: itab_zyglt100.
REFRESH: itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = /pws/zycbe118-codmod
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
...
...
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
MOVE itab_zycbe033-kursf TO v_txest.
ENDFORM.
* >> Início da inclusão:
FORM verifica_pais_filial USING p_bukrs
p_brnch.
SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
SELECT SINGLE country FROM adrc INTO adrc-country
WHERE addrnumber = j_1bbranch-adrnr.
IF sy-subrc = 0 AND
adrc-country NE 'BR' AND adrc-country NE 'TW'.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105TOP
...
/pws/zycbt015,
/pws/zycbt064,
/pws/zyglt209,
/pws/zygle209,
/pws/zyglt009,
/pws/zyglt340,
/pws/zyglt343,
rm06b,
t16fe,
bkpf,
* >> Início da exclusão:
tcurt.
* << Fim da exclusão
* >> Início da inclusão:
tcurt,
t001w,
j_1bbranch,
adrc.
* << Fim da inclusão
CONTROLS: ts_despesas TYPE TABSTRIP.
INCLUDE /pws/zygli101.
DATA v_tela_help LIKE sy-dynnr VALUE '0052'.
DATA:
wa_zycbt031a LIKE /pws/zycbe031,
wa_zycbt064a LIKE /pws/zycbe064.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF itab_pf_status OCCURS 10,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F02
...
AND tpimp = itab_zycat025-tpimp.
ENDLOOP.
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:
* >> Início da exclusão: FORM BUSCA_FILIAL
c_emprestimo type /pws/zycbt031-mdcorresp value 'CE'.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FILIAL
c_emprestimo TYPE /pws/zycbt031-mdcorresp VALUE 'CE',
c_despesa_f TYPE /pws/zycbt031-mdcorresp VALUE 'CD',
c_despesa_i TYPE /pws/zycbt031-mdcorresp VALUE 'ID'.
* << Fim da inclusão
* >> Início da exclusão: FORM BUSCA_FILIAL
DATA: v_bukrs TYPE /pws/zycbt001-bukrs,
v_werks TYPE /pws/zycbt128-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FILIAL
DATA: v_werks TYPE /pws/zycbt128-werks.
* << Fim da inclusão
CHECK p_brnch IS INITIAL.
CASE p_zycbt031-mdcorresp.
WHEN c_emprestimo.
* >> Início da exclusão: FORM BUSCA_FILIAL
v_bukrs = itab_zycbt128-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FILIAL
IF NOT itab_zycbt128-j_1bbranch IS INITIAL.
p_brnch = itab_zycbt128-j_1bbranch.
ELSE.
* << Fim da inclusão
v_werks = itab_zycbt128-werks.
* >> Início da inclusão: FORM BUSCA_FILIAL
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.
ENDIF.
* << Fim da inclusão
ENDCASE.
* >> Início da inclusão: FORM BUSCA_FILIAL
IF p_brnch IS INITIAL.
* << Fim da inclusão
SELECT SINGLE * FROM t001w WHERE werks = v_werks.
* >> Início da exclusão: FORM BUSCA_FILIAL
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING v_bukrs
t001w-j_1bbranch.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_FILIAL
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
* << Fim da inclusão
p_brnch = t001w-j_1bbranch.
ENDIF.
* >> Início da inclusão: FORM BUSCA_FILIAL
ENDIF.
PERFORM verifica_pais_filial USING p_zycbt031-bukrs
p_brnch.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
ELSE.
itab_zycbe033-wrbtr = /pws/zycbe031-vlmi.
itab_zycbe033-dmbtr = 0.
ENDIF.
itab_zycbe033-aufnr = wa_zycbt118-aufnr.
itab_zycbe033-d_gsber = wa_zycbt118-gsber.
itab_zycbe033-d_kostl = wa_zycbt118-kostl.
itab_zycbe033-d_prctr = wa_zycbt118-prctr.
itab_zycbe033-d_fipos = wa_zycbt118-fipos.
itab_zycbe033-d_fictr = wa_zycbt118-fictr.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ID
IF NOT wa_zycbt118-j_1bbranch IS INITIAL.
* << Fim da inclusão
PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs
wa_zycbt118-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt118-j_1bbranch.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ID
ELSE.
SELECT SINGLE * FROM t001w WHERE werks = wa_zycbt118-werks.
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
IF itab_zycbe033-c_gsber IS INITIAL.
itab_zycbe033-c_gsber = wa_zycbt118-gsber.
ENDIF.
itab_zycbe033-c_kostl = wa_zycbt118-kostl.
itab_zycbe033-c_prctr = wa_zycbt118-prctr.
itab_zycbe033-c_fipos = wa_zycbt118-fipos.
itab_zycbe033-c_fictr = wa_zycbt118-fictr.
APPEND itab_zycbe033.
CLEAR t021r.
SELECT SINGLE * FROM t021r INTO t021r
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBN102
...
ENDIF.
ENDIF.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-009.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM verify_null_field USING itab_selreg_aux-vlme
'VLME'
text-010.
itab_zycbe033-wrbtr = itab_selreg_aux-vlme.
* >> Início da inclusão: FORM DADOS_BATCH_DESPESA
IF NOT p_wa_despesa-j_1bbranch IS INITIAL.
* << Fim da inclusão
PERFORM verifica_pais_filial USING p_wa_despesa-bukrs
p_wa_despesa-j_1bbranch.
itab_zycbe033-brnch = p_wa_despesa-j_1bbranch.
* >> Início da inclusão: FORM DADOS_BATCH_DESPESA
ELSE.
SELECT SINGLE * FROM t001w WHERE werks = p_wa_despesa-werks.
IF sy-subrc = 0 AND NOT t001w-j_1bbranch IS INITIAL.
PERFORM verifica_pais_filial USING p_wa_despesa-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
ENDIF.
ENDIF.
* << Fim da inclusão
itab_zycbe033-d_gsber = p_wa_despesa-gsber.
itab_zycbe033-d_kostl = p_wa_despesa-kostl.
itab_zycbe033-d_prctr = p_wa_despesa-prctr.
itab_zycbe033-d_fipos = p_wa_despesa-fipos.
itab_zycbe033-d_fictr = p_wa_despesa-fictr.
itab_zycbe033-c_gsber = p_wa_despesa-gsber.
itab_zycbe033-c_kostl = p_wa_despesa-kostl.
itab_zycbe033-c_prctr = p_wa_despesa-prctr.
itab_zycbe033-c_fipos = p_wa_despesa-fipos.
itab_zycbe033-c_fictr = p_wa_despesa-fictr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
/pws/zycet037,
tline,
indx,
/pws/zycbt048,
/pws/zycmt013,
/pws/zycme013,
/pws/zygle500,
/pws/zyglt340,
/pws/zyglt343,
j_1bbranch,
* >> Início da exclusão:
adrc.
* << Fim da exclusão
* >> Início da inclusão:
adrc,
t001w.
* << Fim da inclusão
DATA:
BEGIN OF itab_boleto_aux OCCURS 100,
flag TYPE c,
mod(15) TYPE c,
nrchave(10) TYPE c,
docto(10) TYPE c,
tab(30) TYPE c,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
tipo(30) TYPE c,
...