CE PLUS - Nota 006652
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 30/05/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:06:54
Descrição da Nota: CAPTAÇÃO - RECONTABILIZAÇÃO DA CAPTAÇÃO COM BANCO DIFERENTE
Sintoma
Quando alterado o banco da captação, o programa recontabiliza a captação com o banco atual, enquanto
o certo é contabilizar utilizando o banco anterior a modificação.
Solução
Adicionado tratamento para os contratos de DR e corrigido o tratamento para os contratos de PT.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06652 Data: 30/05/2008 Hora: 13:09:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06652
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00049
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06355 - 00001 - 7.0 - 00005 - CAPTAÇÕES DE CONTRATOS DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - RECONTABILIZAÇÃO DA CAPTAÇÃO COM BANCO DIFERENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - RECONTABILIZAÇÃO DA CAPTAÇÃO COM BANCO DIFERENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
LOOP AT itab_zycbt216.
/pws/zycbe001-vltotjur = /pws/zycbe001-vltotjur +
itab_zycbt216-vlme.
ENDLOOP.
IF sy-subrc NE 0.
/pws/zycbe001-vltotjur = /pws/zycbe001-vltotjur +
itab_zycbt002-vlme.
ENDIF.
ENDFORM.
FORM account_number_desc_receb.
* >> Início da inclusão: FORM ACCOUNT_NUMBER_DESC_RECEB
IF NOT v_volta_part_banco IS INITIAL.
v_bcocred = wa_zycbt001-bcocred.
ELSE.
v_bcocred = /pws/zycbe001-bcocred.
ENDIF.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
* >> Início da exclusão: FORM ACCOUNT_NUMBER_DESC_RECEB
codaux1 = /pws/zycbe001-bcocred
* << Fim da exclusão
* >> Início da inclusão: FORM ACCOUNT_NUMBER_DESC_RECEB
codaux1 = v_bco_cred
* << Fim da inclusão
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM ACCOUNT_NUMBER_DESC_RECEB
v_bcocred = /pws/zycbe001-bcocred.
* << Fim da exclusão
SHIFT v_bcocred LEFT DELETING LEADING '0'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'FBK'
codaux1 = v_bcocred
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
itab_zycbe033-vbeln2 = /pws/zycbe001-vbeln_va.
ENDIF.
IF NOT /pws/zycbe001-posnr_va IS INITIAL.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
ENDIF.
itab_zycbe033-kkber = /pws/zycbe001-area_credito.
ENDFORM.
FORM volta_part_banco USING p_belnr.
PERFORM clear_date_batch.
PERFORM verif_dt_lancto.
* >> Início da exclusão: FORM VOLTA_PART_BANCO
MOVE /pws/zycbe001 TO wa_zycbt001.
* << Fim da exclusão
IF v_lanc NE 'S'.
MOVE wa_zycbt001 TO /pws/zycbe001.
EXIT.
ENDIF.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = wa_zycbt001-nrseqc.
v_volta_part_banco = 'X'.
...