Re: [sqlwin] Sujeira ao popular uma tabela e outros erros

Wed, 10 May 2000 09:00:37 -0700

Ol� Lairton,
 
N�o estou usando o SalTblPopulate() devido a outros erros que ele apresenta.
O que estou fazendo � o seguinte: Fa�o a select com into, preparo e executo o comado e vou incluindo linhas e setando as colunas enquanto tem registro e depois limpo os headers das linhas. O c�digo est� abaixo.
 
!!CB!! 174
Set sSelect = '
  SELECT di.DisciplinaCodigo,    di.DisciplinaDescricao,  RTRIM(LTRIM(NotasNota1bimestre)),
   NotasFaltas1bimestre,   RTRIM(LTRIM(NotasNota2bimestre)), NotasFaltas2bimestre,
   RTRIM(LTRIM(NotasRecupSemest)),  NotasFaltasRecupSemestral,  RTRIM(LTRIM(NotasMediaSemestral)),
   RTRIM(LTRIM(NotasNota3bimestre)),  NotasFaltas3bimestre,  RTRIM(LTRIM(NotasNota4bimestre)),
   NotasFaltas4bimestre,   RTRIM(LTRIM(NotasMediaAnual)), RTRIM(LTRIM(NotasRecupFinal)),
   NotasFaltasRecupFinal,   RTRIM(LTRIM(NotasNotaConselho)), NotasFrequencia,
   RTRIM(LTRIM(NotasMediaFinal)),  av.AvaliacaoSituacaoReal,  no.AvaliacaoSituacaoFinal,
   RTRIM(LTRIM(NotasRecupSegundaEpoca)), NotasFaltasSegundaEpoca,  NotasUsuario,
   NotasDataDoCalculo
  FROM Notas no, Discipli di, AvaliacaoSituacao av
  WHERE no.FundBradescoJuncao = :sJuncaoEscola   AND
   no.UnidadeCodigo  = :sUnidade   AND
   no.ExtensaoCodigo  = :nExtensao   AND
   no.ClasseAnoLetivo  = :sAnoLetivo   AND
   no.CursoCodigo  = :sCurso    AND
   no.Serie   = :sSerie    AND
   no.ClasseCodigo  = :sClasse   AND
   no.ClasseTurno  = :sTurno    AND
   no.AlunoGeralNroProntuario = :nProntuario   AND
   no.DisciplinaCodigo  = di.DisciplinaCodigo  AND
   no.AvaliacaoSituacaoFinal *= AvaliacaoSituacaoCodigo
  INTO :nDisciplina, :sDisciplina, :sNota1Bim,
   :nFalta1Bim, :sNota2Bim, :nFalta2Bim,
   :sNotaRecSem, :nFaltaRecSem, :sNotaMedSem,
   :sNota3Bim, :nFalta3Bim, :sNota4Bim,
   :nFalta4Bim, :sMediaAnual, :sNotaRecFinal,
   :nFaltaRecFinal, :sNotaConselho, :nFrequencia,
   :sMediaFinal, :sSitFinalDesc, :sSitFinalCodigo,
   :sNota2Epoca, :nFalta2Epoca, :sUsuario,
   :dData'
Call SqlPrepare( i_Hsql, sSelect )
If SqlExecute( i_Hsql )
 While SqlFetchNext( i_Hsql, nErro )
  Call SalTblInsertRow( tblNotas, TBL_MaxRow )
  Call SalTblSetCellTextColor( colsDisciplina, COLOR_Blue, TRUE )
  Set colnDisciplina  = nDisciplina
  Set colsDisciplina  = sDisciplina
  Set colNota1Bim  = sNota1Bim
  Set colFalta1Bim  = nFalta1Bim
  Set colNota2Bim  = sNota2Bim
  Set colFalta2Bim  = nFalta2Bim
  Set colNotaRecSem = sNotaRecSem
  Set colFaltaRecSem = nFaltaRecSem
  Set colNotaMedSem = sNotaMedSem
  Set colNota3Bim  = sNota3Bim
  Set colFalta3Bim  = nFalta3Bim
  Set colNota4Bim  = sNota4Bim
  Set colFalta4Bim  = nFalta4Bim
  Set colMediaAnual  = sMediaAnual
  Set colNotaRecFinal = sNotaRecFinal
  Set colFaltaRecFinal = nFaltaRecFinal
  Set colNotaConselho = sNotaConselho
  Set colFrequencia  = nFrequencia
  Set colMediaFinal  = sMediaFinal
  Set colsSitFinalDesc = sSitFinalDesc
  Set colsSitFinalCodigo = sSitFinalCodigo
  Set colNota2Epoca  = sNota2Epoca
  Set colFalta2Epoca  = nFalta2Epoca
  Set colUsuario  = sUsuario
  Set coldData  = dData
 Call SalTblSetFlagsAnyRows( tblNotas, ROW_New, FALSE, 0, 0 )
 
Depois de popular, incluo campos que n�o est�o no BD e deixo o Header da linha como ROW_New para fazer inserts na tabela do BD, mas apenas os dois primeiros campos, que seria codigo e descri��o da disciplina.
A tabela n�o popula mais do que 15 linhas. Nos meus testes, estava usando apenas 4 linhas!!!
 
[]s, Eder.
 
----- Original Message -----
Sent: Wednesday, May 10, 2000 8:14 AM
Subject: Re: [sqlwin] Sujeira ao popular uma tabela e outros erros

Ol� Eder,
 
Voc� est� usando o SalTblPopulate ( ) ?
 
Se est� , no comando sql select usado voc� est� usando o INTO para jogar os valores diretamente para as colunas da table window ?
 
A table window � muito utilizada acho que em todos os lugares e � a primeira vez que eu vejo esse tipo de problema que voc� descreve.
 
Quantas linhas est�o sendo carregadas na table?
 
Que m�todo de carga das linhas voc� est� usando? FillAll, FillNormal ou FillAllBackground ?
 
Desculpe tantas perguntas mas acho que precisamos de mais informa��es para poder tentar descobrir o que possa estar acontecendo.
 
um abra�o,
Lairton N de Almeida Jr.
 
 
----- Original Message -----
Sent: Tuesday, May 09, 2000 5:00 PM
Subject: [sqlwin] Sujeira ao popular uma tabela e outros erros

Ol� lista,
 
tenho uma aplica��o que popula uma tabela com loop. Os dados v�m normais, mas de vez em quando aparecem umas sujeiras, que nem no banco de dados est�, como campos caracteres (totalmente estranhos) em uma das colunas com tipo data. Nunca tinha acontecido algo assim antes. Percebi tamb�m que, quando se brinca um pouco com a tabela, alterando colunas em linha alternadas, d� um erro do pr�prio centura, em uma das dlls ou as vezes opera��o ilegal. O �nico diferencial desta tabela das outras � que ela possui v�rias colunas (25). Estou utilizando o Centura 1.1.1.
Estou a disposi��o para maiores informa��es.
 
 
Agrade�o qualquer sugest�o
(menos avan�ar a vers�o do centura, porque n�o est� nas minhas m�os)
 
[]s, Eder

Responder a