CE PLUS - Nota 003580
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 30/04/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 13:41:18
Descrição da Nota: COMPLEMENTO DO BOLETO - CAMPO CENTRO - CAMPO LOCAL DE NEGOCIO.
Sintoma
Favor ajustar para que na contabilizacao do complemento do boleto de financiamento - principal,
juros, IRRF, e Comissao - leve a informacao do campo Centro, para o campo Local de Negocio.
Solução
Ajuste efetuado para que o programa passasse a levar a informação do campo Centro, para o campo
Local de Negocio.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03580 Data: 30/04/2007 Hora: 11:43:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03580
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00027
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - CAMPO CENTRO - CAMPO LOCAL DE NEGOCIO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - CAMPO CENTRO - CAMPO LOCAL DE NEGOCIO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
itab_zycbe033-wrbtr = /pws/zycbe031-vlmiir.
itab_zycbe033-dmbtr = 0.
ENDIF.
ENDIF.
itab_zycbe033-d_gsber = wa_zycbt112-gsber.
itab_zycbe033-d_kostl = wa_zycbt112-kostl.
itab_zycbe033-d_prctr = wa_zycbt112-prctr.
itab_zycbe033-d_fipos = wa_zycbt112-fipos.
itab_zycbe033-c_gsber = wa_zycbt112-gsber.
PERFORM local_negocio USING wa_zycbt112-werks.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
IF NOT /pws/zycbe112-j_1bbranch IS INITIAL.
* << Fim da inclusão
PERFORM verifica_pais_filial USING /pws/zycbe031-bukrs
wa_zycbt112-j_1bbranch.
itab_zycbe033-brnch = wa_zycbt112-j_1bbranch.
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
ELSE.
SELECT SINGLE * FROM t001w WHERE werks = wa_zycbt112-werks.
IF sy-subrc EQ 0.
PERFORM verifica_pais_filial USING /pws/zycbe031-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 = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
...