Sintoma

Ao entrar na Liquidação Modificar para contratos de Pré-Pagamento e marcar o campo DEDUZ_JUROS e

salvar a informação o programa não atualiza a tabela de liquidação.

Solução

Foi inserida uma consitência para gravar a informação na tabela

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02032 Data: 01/09/2006 Hora: 14:23:06

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 02032

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

CAMPO DEDUZ_JUROS NÃO ESTAVA SENDO ATUALIZADO NA TABELA DE LIQUIDAÇÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

DEDUZ JUROS LIQUIDAÇÃO FATURAS

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB004F02

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

                             AND nrparcf  = itab_zycbt006-nrparcf

                             AND gsberf   = itab_zycbt006-gsberf

                             AND dtvincul = itab_zycbt006-dtvincul

                             AND dtvencto = itab_zycbt006-dtvencto

                             AND dtpagto  = itab_zycbt006-dtpagto.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

        UPDATE /pws/zycbt006 SET deduz_juros = itab_zycbt006-deduz_juros

                           WHERE nrseqc      = itab_zycbt006-nrseqc

                             AND tpdesp      = itab_zycbt006-tpdesp

                             AND nrparc      = itab_zycbt006-nrparc

                             AND dtincl      = itab_zycbt006-dtincl

                             AND nrinvoic    = itab_zycbt006-nrinvoic

                             AND nrparcf     = itab_zycbt006-nrparcf

                             AND gsberf      = itab_zycbt006-gsberf

                             AND dtvincul    = itab_zycbt006-dtvincul

                             AND dtvencto    = itab_zycbt006-dtvencto

                             AND dtpagto     = itab_zycbt006-dtpagto.

* << Fim da inclusão

        IF v_subrc IS INITIAL.

          IF NOT itab_zycbt006-vljur IS INITIAL

            AND ( /pws/zycbe001-tpcontr(1) NE 'P' AND

                  /pws/zycbe001-tpcontr(1) NE 'S' ).

            PERFORM atualiza_zycbt004.

...