CE PLUS - Nota 002434
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 14/11/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:57:40
Descrição da Nota: ROTINA MENSAL - DUPLICAR REGISTRO CONTRATO DE PT
Sintoma
Depois de gerar a Rotina Mensal a comissão é contabilizada com sucesso. Mas ao consultar a tabela
/pws/zycbt154, percebe-se que a comissão está em duplicidade. Inclusive, o campo CODINT aparece como
000, enquanto as demais vêm com 001 e 002.
Solução
O programa fazia uma duplicidade por uma inconsistencia da divisão de ACC e ACE, foi ajustado para
que o programa não duplique mais os registros conforme regra do contrato de PT.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02434 Data: 14/11/2006 Hora: 10:05:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02434
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00140
----------------------------------------------------------------------------------------------------
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 - DUPLICAR REGISTRO CONTRATO DE PT
----------------------------------------------------------------------------------------------------
Palavras Chave:
ROTINA MENSAL - DUPLICAR REGISTRO CONTRATO DE PT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBI003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
ENDFORM.
FORM lancamento_provisao.
DATA: v_descricao(30).
SELECT * FROM /pws/zycbt013 INTO TABLE itab_zycbt013
WHERE tabela = '/PWS/ZYCBT154'.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
IF ( /pws/zyglt009-calc_rot_sep EQ 'S' OR
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
READ TABLE itab_contabil INDEX 1.
IF ( ( /pws/zyglt009-calc_rot_sep EQ 'S' OR
* << Fim da inclusão
/pws/zyglt009-cont_rot_sep EQ 'S' ) AND
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
wa_zycbt007-fprovisao EQ 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
wa_zycbt007-fprovisao EQ 'C' )
OR itab_contabil-tpcontr NE 'AC'.
* << Fim da inclusão
DELETE itab_contabil WHERE NOT subtotal IS initial.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
IF itab_contabil-tpcontr NE 'AC'.
DELETE itab_contabil WHERE nrparcp = '000'
AND tpcontab <> ' ' .
ENDIF.
* << Fim da inclusão
REFRESH itab_contabil_aux.
LOOP AT itab_contabil.
CLEAR itab_contabil_aux.
MOVE-CORRESPONDING itab_contabil TO itab_contabil_aux.
...