CE PLUS - Nota 003676
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 14/05/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:57:07
Descrição da Nota: PROCESSAR BOLETO COMISSÃO DE AGENTE - DUPLICAÇÃO
Sintoma
Após agrupar várias comissões de agente em um boleto, ao tentar gerar novamente o processar boleto
para uma delas, esta aparecendo incorretamente, permitindo duplicar o boleto para a mesma comissão.
Solução
Não considerar o campo NRINVOIC na verificação da /PWS/ZYCBT031 e /PWS/ZYCBT064. Ajustar o if da
/pws/zycet037.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03676 Data: 14/05/2007 Hora: 17:17:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03676
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00166
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00807 - 00001 - 6.0 - 00022 - PROCESSAR BOLETO - COMISSÕES DE FATURAS LIQUIDADAS
----------------------------------------------------------------------------------------------------
PROCESSAR BOLETO COMISSÃO DE AGENTE - DUPLICAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PROCESSAR BOLETO COMISSÃO DE AGENTE DUPLICAÇÃO
EL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR102
REPS /PWS/ZYGLR002
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
ELSEIF itab_selreg-fmd = 'EL'.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_selreg-nrchave.
IF sy-subrc NE 0.
DELETE itab_selreg.
CONTINUE.
ELSE.
SELECT SINGLE * FROM /pws/zycbt031
WHERE nrcorresp EQ itab_selreg-nrchave
AND mdcorresp EQ itab_selreg-fmd
* >> Início da exclusão: FORM VERIFICA_BOLETO
AND nrinvoic EQ itab_selreg-docto
* << Fim da exclusão
AND nrparcf EQ itab_selreg-nrparcf
AND dtvencto EQ itab_selreg-dtvencto
AND lifnr EQ itab_selreg-lifnr
AND gsberf EQ itab_selreg-gsberf
AND prctr EQ itab_selreg-prctr.
IF sy-subrc EQ 0.
DELETE itab_selreg.
CONTINUE.
ELSE.
SELECT SINGLE * FROM /pws/zycbt064
WHERE nrchave EQ itab_selreg-nrchave
AND mdcorresp EQ itab_selreg-fmd
* >> Início da exclusão: FORM VERIFICA_BOLETO
AND nrinvoic EQ itab_selreg-docto
* << Fim da exclusão
AND nrparcf EQ itab_selreg-nrparcf
AND dtvencto EQ itab_selreg-dtvencto
AND lifnr EQ itab_selreg-lifnr
AND gsberf EQ itab_selreg-gsberf
AND prctr EQ itab_selreg-prctr.
IF sy-subrc EQ 0.
DELETE itab_selreg.
CONTINUE.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR002
...
PERFORM verifica_averbacao.
IF v_averb = 'X'.
CONTINUE.
ENDIF.
ENDIF.
CLEAR itab_zycet010.
READ TABLE itab_zycet010 WITH KEY nrseq = itab_zycet013-nrseq
lifnr = itab_zycet013-lifnr.
READ TABLE itab_zycet037 WITH KEY bukrs
= itab_zycbt017-bukrs.
* >> Início da exclusão: FORM SELECIONA_COMISSAO
IF sy-subrc NE 0 AND
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_COMISSAO
IF sy-subrc EQ 0 AND
* << Fim da inclusão
( itab_zycet037-comis_provisao EQ '0' OR
itab_zycet037-comis_provisao IS INITIAL ).
CLEAR itab_selreg.
CONTINUE.
ENDIF.
MOVE:
text-032 TO itab_selreg-mod,
itab_zycet013-nrseq TO itab_selreg-nrchave,
itab_zycet013-nrseq TO itab_selreg-docto,
'/PWS/ZYCET013' TO itab_selreg-tab,
...