CE PLUS - Nota 006497
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 05/05/2008 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:51:31
Descrição da Nota: REL. COMISSÃO DE AGENTE - BOLETO NA COMISSÃO DE AGENTE
Sintoma
O programa não mostra o boleto correto quando selecionado pelo relatorio de comissão de agente.
Solução
Adicionado código para limpar a memória e buscar as chaves corretas.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06497 Data: 05/05/2008 Hora: 08:58:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06497
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05718 - 00001 - 7.0 - 00004 - RELATÓRIO DE COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
REL. COMISSÃO DE AGENTE - BOLETO NA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
REL. COMISSÃO DE AGENTE - BOLETO NA COMISSÃO DE AGENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB110O01
REPS /PWS/ZYCBR027
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110O01
...
ENDMODULE.
MODULE carrega_tela OUTPUT.
PERFORM carrega_tela_0400.
ENDMODULE.
MODULE selec_nrseq OUTPUT.
DATA: v_pri_nrseq(10),
v_ult_nrseq(10).
GET PARAMETER ID '/PWS/ZYCBP283' FIELD v_pri_nrseq.
IMPORT v_pri_nrseq FROM MEMORY ID '001'.
IMPORT v_ult_nrseq FROM MEMORY ID '002'.
* >> Início da inclusão: MODULE SELEC_NRSEQ
FREE MEMORY ID '001'.
FREE MEMORY ID '002'.
* << Fim da inclusão
IF ok_code EQ 'DEL'.
CLEAR: v_pri_nrseq,
v_ult_nrseq.
ENDIF.
IF NOT v_pri_nrseq IS INITIAL AND /pws/zycbe031-nrseq IS INITIAL.
/pws/zycbe031-nrseq = v_pri_nrseq.
ENDIF.
IF NOT v_ult_nrseq IS INITIAL AND /pws/zycbe031a-nrseq IS INITIAL.
/pws/zycbe031a-nrseq = v_ult_nrseq.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
ENDIF.
SELECT
nrchave nrinvoic nrparcf nrboleto dtboleto tpparc nrparc dtliquid
dtvencto lifnr gsberf prctr tpjuros
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
FOR ALL ENTRIES IN itab_nrseq
WHERE
nrchave EQ itab_nrseq-nrseq2 AND
lifnr EQ itab_nrseq-lifnr AND
* >> Início da exclusão: FORM SELEC_DADOS_013
gsberf EQ itab_nrseq-gsber AND
prctr EQ itab_nrseq-prctr AND
* << Fim da exclusão
mdcorresp EQ 'EL'.
IF NOT itab_zycbt064[] IS INITIAL.
SELECT
nrseq dtboleto mdcorresp bcooper lifnr dtvencto gsberf prctr
FROM /pws/zycbt031
INTO TABLE itab_zycbt031
FOR ALL ENTRIES IN itab_zycbt064
WHERE
nrseq EQ itab_zycbt064-nrboleto AND
lifnr EQ itab_zycbt064-lifnr AND
...
...
v_lin_re = v_lin_re + 1.
ENDLOOP.
LOOP AT itab_bconegoc.
v_index = sy-tabix.
PERFORM: f_verifica_dtpagfat.
CLEAR itab_zycbt064.
READ TABLE itab_zycbt064 WITH KEY
nrchave = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr
gsberf = itab_zycet013-gsber
* >> Início da exclusão: FORM SELEC_DADOS_013
prctr = itab_zycet013-prctr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DADOS_013
.
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_zycbt031 WITH KEY
nrseq = itab_zycbt064-nrboleto
lifnr = itab_zycet013-lifnr
gsberf = itab_zycet013-gsber
* >> Início da exclusão: FORM SELEC_DADOS_013
prctr = itab_zycet013-prctr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELEC_DADOS_013
.
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_registro-nrseq_ = itab_zycbt031-nrseq.
READ TABLE itab_zycbt048 WITH KEY
nrseq = itab_zycbt031-nrseq
dtboleto = itab_zycbt031-dtboleto.
IF sy-subrc = 0.
MOVE itab_zycbt048-dtliquida TO itab_registro-dtliquida.
ELSE.
CLEAR itab_registro-dtliquida.
ENDIF.
...