CE PLUS - Nota 002330
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 27/10/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:56:44
Descrição da Nota: LIQUIDAÇÃO - EXCLUIR FATURAS TABLE CONTROL
Sintoma
O programa não está excluindo todas as faturas selecionadas na table control.
Solução
Programa foi ajustado, inconsistencia corrigida, e o prorama passou a excluir todas as faturas
selecionadas na Table Control.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02330 Data: 27/10/2006 Hora: 09:03:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02330
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00137
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01481 - 00001 - 6.0 - 00023 - LIQUIDAÇÃO - EXCLUSÃO NÃO PERMITIDA DEVIDO JUROS PAGO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - EXCLUIR FATURAS TABLE CONTROL
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - EXCLUIR FATURAS TABLE CONTROL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
...
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf
AND dtvincul = itab_zycbt005-dtvincul
AND dtvencto = itab_zycbt005-dtvencto.
ENDIF.
* >> Início da exclusão: MODULE USER_COMMAND_0100
LOOP AT itab_zycbt005 WHERE mark = 'X'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
LOOP AT itab_zycbt005.
IF itab_zycbt005-mark <> 'X'.
CONTINUE.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt006
WITH KEY nrseqc = itab_zycbt005-nrseqc
tpdesp = itab_zycbt005-tpdesp
nrparc = itab_zycbt005-nrparc
dtincl = itab_zycbt005-dtincl
...
...
itab_zycbt005-nrparcf
itab_zycbt005-gsberf
v_dtpagto.
IF v_dtpagto_004 EQ ' ' OR
v_dtpagto_004 EQ '00000000'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
DELETE itab_zycbt005.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0100
DELETE itab_zycbt005 INDEX v_index_1.
* << Fim da exclusão
CLEAR itab_zycbt005.
ELSE.
MESSAGE i061 WITH text-155 itab_zycbt005-nrinvoic
text-157 text-156.
ENDIF.
...