CE PLUS - Nota 010538
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 26/08/2010 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:13:12
Descrição da Nota: ROTINA MENSAL EXPORTAÇÃO - EXIBIR RELATÓRIO COM TODO HISTÓRICO DA ROTINA
Sintoma
Rotina Mensal Exportação - Exibir Relatório com todo histórico da Rotina. Quando a rotina é
executada normalmente, contabilizando, só aparecem as parcelas não pagas.
Solução
Rotina Mensal Exportação - Exibir Relatório com todo histórico da Rotina. Quando a rotina é
executada normalmente, contabilizando, só aparecem as parcelas não pagas.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10538 Data: 26/08/2010 Hora: 15:41:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10538
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06528 - 00001 - 7.0 - 00005 - ROTINA MENSAL - GERAÇÃO DE VALORES INDEVIDOS
06809 - 00002 - 7.0 - 00006 - ROTINA MENSAL EXPORTAÇÃO - RETIRAR FILTRO /PWS/ZYCBT154 POR GSBER
07111 - 00003 - 7.0 - 00006 - ROTINA MENSAL EXPORTAÇÃO - ACERTOS SEPARAÇÃO ACC/ACE
10145 - 00004 - 8.0 - 00003 - ROTINA MENSAL DE EXPORTAÇÃO - PARCELA JUROS DE CAPTAÇÃO DE PRÉ-PA
10240 - 00005 - 8.0 - 00003 - EXPORTAÇÃO - ROTINA MENSAL - PT VALOR INCORRETO DO CALCULO DOS JU
----------------------------------------------------------------------------------------------------
ROTINA MENSAL EXPORTAÇÃO - EXIBIR RELATÓRIO COM TODO HISTÓRICO DA ROTINA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL EXPORTAÇÃO - EXIBIR RELATÓRIO COM TODO HISTÓRICO DA ROTINA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
and bukrs eq aux_relat-bukrs
and waers eq aux_relat-waers
and tpcontr eq aux_relat-tpcontr
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
v_conta_dif_parametro.
if v_conta_dif is initial.
* >> Início da inclusão: FORM EXIBE_RELATORIO
IF itab_zycbt154-belnr_cl IS INITIAL.
* << Fim da inclusão
if itab_zycbt154-codmodul eq 'IR'.
add itab_zycbt154-vlme to v_vlirprov.
else.
add itab_zycbt154-vlme to v_vlrjprov.
endif.
endif.
* >> Início da inclusão: FORM EXIBE_RELATORIO
ENDIF.
* << Fim da inclusão
endloop.
...
...
and bukrs = aux_relat-bukrs
and waers = aux_relat-waers
and tpcontr = aux_relat-tpcontr
and codmodul ne 'C'
and codmodul ne 'CD'
and codmodul ne 'CF'
and codmodul ne 'CI'.
on change of itab_zycbt154-nrcorresp.
uline.
endon.
* >> Início da inclusão: FORM EXIBE_RELATORIO
IF itab_zycbt154-belnr_cl IS INITIAL.
* << Fim da inclusão
if itab_zycbt154-codmodul eq 'IR'.
add itab_zycbt154-vlme to v_vlirprov.
else.
add itab_zycbt154-vlme to v_vlrjprov.
* >> Início da inclusão: FORM EXIBE_RELATORIO
ENDIF.
* << Fim da inclusão
endif.
format color col_key intensified off.
if itab_zycbt154-codmodul eq 'IR'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
IF itab_zycbt001[] IS INITIAL.
MESSAGE i222.
STOP.
ENDIF.
SELECT *
FROM /pws/zycbt002
INTO TABLE itab_zycbt002p
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc AND
tpparc = 'P'.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF s_rbrela IS INITIAL.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt002
INTO TABLE itab_zycbt002j
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc AND
( dtpagto EQ '00000000' OR
dtpagto EQ space ) AND
tpparc = 'J'.
* >> Início da inclusão: FORM SELECIONA_DADOS
ELSE.
SELECT *
FROM /pws/zycbt002
INTO TABLE itab_zycbt002j
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc AND
tpparc = 'J'.
ENDIF.
* << Fim da inclusão
SORT itab_zycbt002j BY nrseqc nrparc dtinicio.
SELECT nrseqc
tptaxa_comis
perc_comis
FROM /pws/zycbt074
INTO TABLE itab_zycbt074
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc EQ itab_zycbt001-nrseqc AND
fpagto_comis EQ 'P' AND
tipo_comis EQ 'P'.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELECIONA_DADOS
IF s_rbrela IS INITIAL.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt002
INTO TABLE itab_zycbt002c
FOR ALL ENTRIES IN itab_zycbt074
WHERE nrseqc EQ itab_zycbt074-nrseqc AND
tpparc EQ 'C' AND
flat EQ space
AND ( dtpagto EQ '00000000' OR
dtpagto EQ space ).
* >> Início da inclusão: FORM SELECIONA_DADOS
ELSE.
SELECT *
FROM /pws/zycbt002
INTO TABLE itab_zycbt002c
FOR ALL ENTRIES IN itab_zycbt074
WHERE nrseqc EQ itab_zycbt074-nrseqc AND
tpparc EQ 'C' AND
flat EQ space.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SELECIONA_DADOS
ENDIF.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt216
INTO TABLE itab_zycbt216
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc.
IF sy-subrc EQ 0.
...
...
WHERE nrseqc = itab_zycbt001-nrseqc.
SELECT *
FROM /pws/zycbt004
INTO TABLE itab_zycbt004
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc AND
tpdesp LIKE 'J%' AND
( dtpagto <> '00000000' AND
dtpagto <> ' ' AND
dtpagto <= s_dtentr ).
* >> Início da inclusão: FORM SELECIONA_DADOS
IF s_rbrela IS INITIAL.
* << Fim da inclusão
DELETE itab_zycbt004 WHERE tpcontr(1) = 'P' OR
tpcontr(1) = 'S'.
* >> Início da inclusão: FORM SELECIONA_DADOS
ENDIF.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_pr
FOR ALL ENTRIES IN itab_zycbt001
WHERE nrseqc = itab_zycbt001-nrseqc AND
...
...
FORM totaliza_valores_lancados.
DATA : BEGIN OF itab_convnrseq OCCURS 0,
nrcorresp LIKE /pws/zycbt154-nrcorresp,
END OF itab_convnrseq.
LOOP AT itab_zycbt001.
itab_convnrseq-nrcorresp = itab_zycbt001-nrseqc.
APPEND itab_convnrseq.
ENDLOOP.
IF wa_zycbt007-fprovisao = 'C'.
IF NOT itab_convnrseq[] IS INITIAL.
* >> Início da inclusão: FORM TOTALIZA_VALORES_LANCADOS
IF s_rbrela IS INITIAL.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt154
INTO TABLE itab_zycbt154
FOR ALL ENTRIES IN itab_convnrseq
WHERE codmod = 'E' AND
nrcorresp = itab_convnrseq-nrcorresp AND
dtcont <= s_dtentr AND
codmodul NE 'T' AND
nrcorresp IN s_nrseqc AND
belnr_cl EQ space AND
* >> Início da inclusão: FORM TOTALIZA_VALORES_LANCADOS
bukrs EQ s_bukrs.
ELSE.
SELECT *
FROM /pws/zycbt154
INTO TABLE itab_zycbt154
FOR ALL ENTRIES IN itab_convnrseq
WHERE codmod = 'E' AND
nrcorresp = itab_convnrseq-nrcorresp AND
dtcont <= s_dtentr AND
codmodul NE 'T' AND
nrcorresp IN s_nrseqc AND
* << Fim da inclusão
bukrs EQ s_bukrs.
* >> Início da inclusão: FORM TOTALIZA_VALORES_LANCADOS
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
* >> Início da inclusão: FORM TOTALIZA_VALORES_LANCADOS
IF s_rbrela IS INITIAL.
* << Fim da inclusão
SELECT *
FROM /pws/zycbt154
INTO TABLE itab_zycbt154
WHERE codmod = 'E' AND
dtcont <= s_dtentr AND
codmodul NE 'T' AND
belnr_cl EQ space AND
bukrs EQ s_bukrs.
* >> Início da inclusão: FORM TOTALIZA_VALORES_LANCADOS
ELSE.
SELECT *
FROM /pws/zycbt154
INTO TABLE itab_zycbt154
WHERE codmod = 'E' AND
dtcont <= s_dtentr AND
codmodul NE 'T' AND
bukrs EQ s_bukrs.
ENDIF.
* << Fim da inclusão
ENDIF.
REFRESH itab_lancados.
LOOP AT itab_zycbt154.
MOVE-CORRESPONDING itab_zycbt154 TO itab_lancados.
CLEAR itab_lancados-dtcont.
COLLECT itab_lancados.
ENDLOOP.
ENDFORM.
FORM processa_aberto.
DATA: v_vlmej_w LIKE /pws/zycbt002-vlme,
...