CE PLUS - Nota 006868
Módulo: CÂMBIO IMPORTAÇÃO
Funcionalidade: Financiamento
Data/Hora da Publicação: 27/06/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 10:00:18
Descrição da Nota: COMPLEMENTO DO BOLETO - COMISSAO EMPRESTIMO/FINANCIAMENTO
Sintoma
A conta no complemento do boleto de comissao de emprestimo e financiamento está errada.
Solução
alterado para que a programa busque a conta correta.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06868 Data: 27/06/2008 Hora: 15:34:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06868
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04196 - 00001 - 7.0 - 00002 - IRRF SOBRE COMISSÃO DE EMPRÉSTIMO CONTABILIZADO NO COMPLEMENTO DO
04667 - 00002 - 7.0 - 00002 - COMPLEMENTO DO BOLETO
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO - COMISSAO EMPRESTIMO/FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO - COMISSAO LIVRE VALOR EMPRESTIMO/FINANCIAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCM110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
ENDIF.
ELSE.
IF /pws/zycbe031-tpparc = 'C'.
IF sy-index LE '1'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
* >> Início da exclusão: FORM GET_PARAMETERS_128_129E031
ktosl = 'PDS'
codaux1 = 'CO'
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_128_129E031
ktosl = 'PVF'
codaux1 = 'COMIS C'
* << Fim da inclusão
codaux2 = wa_zycbt128-tpemprest
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
ELSE.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
...
...
codaux1 = 'COMIS C'
codaux2 = wa_zycbt128-tpemprest
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
* >> Início da exclusão: FORM EXECUTA_CLEARING_EMP
itab_zycbe033-d_newko = itab_zyglt316-konts.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
itab_zycbe033-c_newko = itab_zyglt316-konth.
* << Fim da inclusão
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'PVF'
codaux1 = 'COMIS C'
codaux2 = wa_zycbt128-tpemprest
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
* >> Início da exclusão: FORM EXECUTA_CLEARING_EMP
IF itab_zyglt316-konts NE itab_zycbe033-d_newko.
itab_zycbe033-c_newko = itab_zyglt316-konts.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
IF itab_zyglt316-konth NE itab_zycbe033-c_newko.
itab_zycbe033-d_newko = itab_zyglt316-konth.
ELSE.
itab_zycbe033-d_newko = itab_zycbe033-c_newko.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt013.
CASE itab_zycbt013-cpor3.
WHEN 'XBLNR'.
CASE itab_zycbt013-cpocb.
WHEN 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbt128-nrseq.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
IF itab_zyglt316-konts NE itab_zycbe033-d_newko.
MOVE itab_zyglt316-konts TO itab_zycbe033-c_newko.
itab_contas-conta = itab_zyglt316-konts.
APPEND itab_contas.
ENDIF.
ENDIF.
ELSE.
IF ( wa_zycbt112-fpagto_c EQ 'P' AND
wa_zycbt112-tpcomis EQ 'P' ) OR
( wa_zycbt112-fpagto_c EQ 'D' AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_FINANC
wa_zycbt112-tpcomis EQ 'F' ) OR
( wa_zycbt112-fpagto_c EQ 'L' AND
wa_zycbt112-tpcomis EQ 'V' ).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_FINANC
wa_zycbt112-tpcomis EQ 'F' ).
* << Fim da inclusão
v_aux_ktosl = 'PDI'.
v_aux_cod = 'CO'.
ELSE.
v_aux_ktosl = 'PVI'.
v_aux_cod = 'COMIS C'.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = v_aux_ktosl
...
...
OTHERS = 3.
ENDIF.
IF sy-subrc = 0.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konts TO itab_zycbe033-d_newko.
itab_contas-conta = itab_zyglt316-konts.
APPEND itab_contas.
ENDIF.
ELSEIF /pws/zycbe031-tpparc EQ 'C'.
IF ( wa_zycbt112-fpagto_c EQ 'P' AND wa_zycbt112-tpcomis EQ 'P' ) OR
* >> Início da exclusão: FORM GET_PARAMETERS_112_113E031
( wa_zycbt112-fpagto_c EQ 'D' AND wa_zycbt112-tpcomis EQ 'F' ) OR
( wa_zycbt112-fpagto_c EQ 'L' AND wa_zycbt112-tpcomis EQ 'V' ).
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_112_113E031
( wa_zycbt112-fpagto_c EQ 'D' AND wa_zycbt112-tpcomis EQ 'F' ).
* << Fim da inclusão
v_aux_ktosl = 'PDI'.
v_aux_cod = 'CO'.
ELSE.
v_aux_ktosl = 'PVI'.
v_aux_cod = 'COMIS C'.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = v_aux_ktosl
...