Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 19/01/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:22:50
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.
Sintoma
Ao rodar a rotina CLEARING NO PAGAMENTO, hoje o prgrama faz uma consistencia na tabela
/PWS/ZYCBT154, por contrato e por banco, e relaciona as provisões já executada na rotina mensal e
efetua o calculo, perém, se ocorrer uma mudança no banco finaciador ou negociador, devido a
cosnsitencia de bancos, os registros na tabela /pws/zycbt154 não são considerados, pois serão
divergentes e o programa recalcula a rotina mensal desconsiderando e provisionando o valor maior.
Solução
Ajuste efetuado, retirando da chave de seleção da tabela /pws/zycbt154 o campo bco, para que
independente do usuário alterar o banco na captação após a contabilização.
6.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02926 Data: 19/01/2007 Hora: 06:07:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02926
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00149
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01309 - 00001 - 6.0 - 00023 - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO - CAMPO BANCO DA TABELA /PWS/ZYCBT154.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
IF wa_zycbt007-fprovisao EQ 'C' AND
itab_relat-tpcontab EQ 'C'.
CLEAR: v_vlirprov, v_vlrjprov.
LOOP AT itab_zycbt154
WHERE nrcorresp EQ v_nrcorresp
AND bukrs EQ aux_relat-bukrs
AND waers EQ aux_relat-waers
AND gsber EQ aux_relat-gsber
AND tpcontr EQ aux_relat-tpcontr
AND codint EQ aux_relat-nrparcj
* >> Início da exclusão: FORM EXIBE_RELATORIO
AND bco EQ aux_relat-bco
* << Fim da exclusão
AND ( codmodul EQ 'C'
OR codmodul EQ 'CD'
OR codmodul EQ 'CF'
OR codmodul EQ 'CI' ).
ON CHANGE OF itab_zycbt154-codint.
ULINE.
ENDON.
IF itab_zycbt154-codmodul EQ 'CI' OR
itab_zycbt154-codmodul EQ 'CF'.
ADD itab_zycbt154-vlme TO v_vlirprov.
...
...
aux_relat-tpcontab IS INITIAL AND
( aux_relat-tpcontr EQ 'A' OR
aux_relat-tpcontr EQ 'E' ) AND
v_separa EQ 'X'.
CLEAR: v_vlrjprov, v_vlirprov.
LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc
AND bukrs EQ aux_relat-bukrs
AND waers EQ aux_relat-waers
AND gsber EQ aux_relat-gsber
AND tpcontr EQ aux_relat-tpcontr
* >> Início da exclusão: FORM EXIBE_RELATORIO
AND bco EQ aux_relat-bco
* << Fim da exclusão
AND codmodul NE 'C'
AND codmodul NE 'CD'
AND codmodul NE 'CF'
AND codmodul NE 'CI'.
PERFORM verifica_conta_acc_ace CHANGING v_conta_dif.
IF v_conta_dif IS INITIAL.
IF itab_zycbt154-codmodul EQ 'IR'.
ADD itab_zycbt154-vlme TO v_vlirprov.
ELSE.
ADD itab_zycbt154-vlme TO v_vlrjprov.
...
...
IF wa_zycbt007-fprovisao = 'C'.
SORT itab_zycbt154 BY nrcorresp.
v_nrcorresp = itab_relat-nrseqc.
CLEAR: v_vlrjprov, v_vlirprov.
IF itab_relat-tpcontab IS INITIAL.
LOOP AT itab_zycbt154 WHERE nrcorresp = v_nrcorresp
AND bukrs = aux_relat-bukrs
AND waers = aux_relat-waers
AND gsber = aux_relat-gsber
AND tpcontr = aux_relat-tpcontr
* >> Início da exclusão: FORM EXIBE_RELATORIO
AND bco = aux_relat-bco
* << Fim da exclusão
AND codmodul NE 'C'
AND codmodul NE 'CD'
AND codmodul NE 'CF'
AND codmodul NE 'CI'.
ON CHANGE OF itab_zycbt154-nrcorresp.
ULINE.
ENDON.
IF itab_zycbt154-codmodul EQ 'IR'.
ADD itab_zycbt154-vlme TO v_vlirprov.
ELSE.
...
...
FORMAT RESET.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt154 WHERE nrcorresp = v_nrcorresp
AND bukrs = aux_relat-bukrs
AND waers = aux_relat-waers
AND gsber = aux_relat-gsber
AND tpcontr = aux_relat-tpcontr
AND d_newko = aux_relat-d_newko
AND c_newko = aux_relat-c_newko
* >> Início da exclusão: FORM EXIBE_RELATORIO
AND bco = aux_relat-bco
* << Fim da exclusão
AND codmodul = 'PR'.
ON CHANGE OF itab_zycbt154-nrcorresp.
ULINE.
ENDON.
ADD itab_zycbt154-vlme TO v_vlrjprov.
FORMAT COLOR COL_KEY INTENSIFIED OFF.
WRITE : / sy-vline,
text-056,
itab_zycbt154-dtcont,
' - ',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
ENDIF.
ENDFORM.
FORM verifica_provisao_liquidacao CHANGING p_separa.
DATA: v_cont TYPE i.
CLEAR p_separa.
LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc
AND bukrs EQ aux_relat-bukrs
AND waers EQ aux_relat-waers
AND gsber EQ aux_relat-gsber
AND tpcontr EQ aux_relat-tpcontr
* >> Início da exclusão: FORM VERIFICA_PROVISAO_LIQUIDACAO
AND bco EQ aux_relat-bco
* << Fim da exclusão
AND codmodul NE 'C'
AND codmodul NE 'CD'
AND codmodul NE 'CF'
AND codmodul NE 'CI'.
v_cont = v_cont + 1.
ENDLOOP.
IF v_cont > 1 OR sy-subrc NE 0.
p_separa = 'X'.
ELSE.
LOOP AT itab_zycbt154 WHERE nrcorresp EQ aux_relat-nrseqc
AND bukrs EQ aux_relat-bukrs
AND waers EQ aux_relat-waers
AND gsber EQ aux_relat-gsber
AND tpcontr EQ aux_relat-tpcontr
* >> Início da exclusão: FORM VERIFICA_PROVISAO_LIQUIDACAO
AND bco EQ aux_relat-bco
* << Fim da exclusão
AND liquid NE 'X'
AND codmodul NE 'C'
AND codmodul NE 'CD'
AND codmodul NE 'CF'
AND codmodul NE 'CI'.
ENDLOOP.
IF sy-subrc = 0.
p_separa = 'X'.
ENDIF.
ENDIF.
...