CE PLUS - Nota 002206
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Corretagem
Data/Hora da Publicação: 04/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 11:42:54
Descrição da Nota: COMPLEMENTO DO BOLETO REMESA EXCLUIR
Sintoma
Ao Entrer para criar uma remessa de pagamento com forma de pagamento "à pagar competência" e não
preenchí o campo "Data do documento" ao gravar a remessa nesse momento é exibida mensagem de erro e
não gera o documento contábil, pois para a contabilização é utilizada a data do documento preenchida
na tela da remessa, mas o programa está permitindo que eu crie um boleto para essa remessa que não
foi contabilizada corretamente na criação. 2) Ao tentar excluir esse boleto, o programa não permite
a exclusão do boleto. 3) Outro ponto a ser analisado é o seguinte: Ao gravar uma remessa, o programa
não atualiza o campo "STATUS" da tabela /pws/zycbt124 com C,ou seja, esse campo sempre fica igual a
I.
Solução
Adicionado código para tratamento do erro para que o boleto seja excluído, quando não tenha
documento contabil na criaação da remessa por regime de competencia
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02206 Data: 04/10/2006 Hora: 13:47:54
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02206
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00134
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
COMPLEMENTO DO BOLETO REMESA EXCLUIR
----------------------------------------------------------------------------------------------------
Palavras Chave:
COMPLEMENTO DO BOLETO REMESA EXCLUIR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
IF NOT /pws/zycbe031-belnr_comp IS INITIAL.
PERFORM estorna_f04.
ENDIF.
PERFORM exclui_cp.
ENDIF.
* >> Início da inclusão: FORM MARCA_EXCLUSAO
IF erro_bi IS INITIAL.
/pws/zycbe031-status = 'E'.
LOOP AT itab_zycbt124_aux.
CLEAR: itab_zycbt124_aux-statusp, itab_zycbt124_aux-dtpagto.
UPDATE /pws/zycbt124 SET statusp = itab_zycbt124_aux-statusp
dtpagto = itab_zycbt124_aux-dtpagto
WHERE nrseq = itab_zycbt124_aux-nrseq.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDIF.
IF /pws/zycbe031-mdcorresp = 'IU' OR /pws/zycbe031-mdcorresp = 'ED'.
PERFORM exclui_boleto.
ENDIF.
IF /pws/zycbe031-mdcorresp = 'EP'.
...