Galera,
Esse POST tem 86 campos. Porque o delphi está me retornando "CONSULTA MUITO
COMPLEXA" ?
Já fiz post com mais campos.. o que pode estar acontecendo ?
O erro ocorre exatamente na ultima linha POST;
begin
dmestrutbd.tabbem.first;
dmEstrutBD.tabBem.Locate('Uf;Ident',
VarArrayOf([dmEstrutBD.qryBem.FieldByName('Uf').asstring,
dmEstrutBD.qryBem.FieldByName('Ident').asstring]), [loCaseInsensitive]);
wbookmark := dmestrutbd.qryBem.GetBookmark;
posicao := dmEstrutBD.tabBem.FieldByName('SerialBem').AsInteger;
dmEstrutBD.tabBem.Edit;
dmEstrutBD.tabBem.FieldByName('LocalPredio').AsString :=
trim(ed1localpredio.Text);
dmEstrutBD.tabBem.FieldByName('TermoAutorizado').AsString :=
inttostr(Integer(cboTermoAutorizado.Items.Objects[cboTermoAutorizado.ItemInd
ex]));
dmEstrutBD.tabBem.FieldByName('Titulo').AsString :=
trim(EdTitulo.Text);
dmEstrutBD.tabBem.FieldByName('IdentClasse').AsString :=
inttostr(Integer(cboClasse.Items.Objects[cboClasse.ItemIndex]));
dmEstrutBD.tabBem.FieldByName('IdentSubClasse').AsString :=
inttostr(Integer(cboSubClasse.Items.Objects[cboSubClasse.ItemIndex]));
dmEstrutBD.tabBem.FieldByName('Epoca').AsString :=
trim(EdEpoca.Text);
dmEstrutBD.tabBem.FieldByName('Autoria').AsString :=
trim(EdAutoria.Text);
dmEstrutBD.tabBem.FieldByName('MaterialTecnica').AsString :=
trim(MemMaterial.Text);
dmEstrutBD.tabBem.FieldByName('NumeroInvent').AsString :=
trim(ed1NumeroInvent.Text);
dmEstrutBD.tabBem.FieldByName('NumInventAnt').AsString :=
trim(edNumInventAnt.Text);
dmEstrutBD.tabBem.FieldByName('Origem').AsString :=
trim(EdOrigem.Text);
dmEstrutBD.tabBem.FieldByName('Procedencia').AsString :=
trim(EdProcedencia.Text);
dmEstrutBD.tabBem.FieldByName('ModoAquisicao').AsString :=
trim(ed1modoaquisicao.Text);
dmEstrutBD.tabBem.FieldByName('AquisicaoData').asstring :=
EdAquisicaoData.text;
dmEstrutBD.tabBem.FieldByName('MarcasInscricoesLegendas').AsString
:= trim(MemMarca.Text);
dmEstrutBD.tabBem.FieldByName('Altura').Asstring :=
trim(ed2altura.Text);
dmEstrutBD.tabBem.FieldByName('Largura').Asstring :=
trim(ed2largura.Text);
dmEstrutBD.tabBem.FieldByName('Comprimento').Asstring :=
trim(ed2comprimento.Text);
dmEstrutBD.tabBem.FieldByName('Profundidade').Asstring :=
trim(ed2profundidade.Text);
dmEstrutBD.tabBem.FieldByName('Diametro').Asstring :=
trim(ed2diametro.Text);
dmEstrutBD.tabBem.FieldByName('Peso').Asstring :=
trim(ed2peso.Text);
dmEstrutBD.tabBem.FieldByName('Circunferencia').Asstring :=
trim(ed2circunferencia.Text);
dmEstrutBD.tabBem.FieldByName('Descricao').Asstring :=
trim(mem2descricao.Text);
if chkprotlegal1.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal1').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal1').Asboolean :=
false;
if chkprotlegal2.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal2').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal2').Asboolean :=
false;
if chkprotlegal3.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal3').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal3').Asboolean :=
false;
if chkprotlegal4.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal4').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal4').Asboolean :=
false;
if chkprotlegal5.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal5').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal5').Asboolean :=
false;
if chkprotlegal6.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal6').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal6').Asboolean :=
false;
if chkprotlegal7.Checked then
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal7').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('ProtecaoLegal7').Asboolean :=
false;
if chkRoubo.Checked then
dmEstrutBD.tabBem.FieldByName('Roubo').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Roubo').Asboolean := false;
if chkExtravio.Checked then
dmEstrutBD.tabBem.FieldByName('Extravio').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Extravio').Asboolean := false;
if chkFurto.Checked then
dmEstrutBD.tabBem.FieldByName('Furto').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Furto').Asboolean := false;
if chk3Registro_1.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroFilme').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('RegistroFilme').Asboolean :=
false;
if chk3Registro_2.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroVideo').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('RegistroVideo').Asboolean :=
false;
if chk3Registro_3.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroPublicacao').Asboolean :=
true
else
dmEstrutBD.tabBem.FieldByName('RegistroPublicacao').Asboolean :=
false;
if chk3Registro_4.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroEstudo').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('RegistroEstudo').Asboolean :=
false;
if chk3Registro_5.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroOutrasFotos').Asboolean :=
true
else
dmEstrutBD.tabBem.FieldByName('RegistroOutrasFotos').Asboolean :=
false;
if chk3Registro_6.Checked then
dmEstrutBD.tabBem.FieldByName('RegistroOutros').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('RegistroOutros').Asboolean :=
false;
dmEstrutBD.tabBem.FieldByName('RegistrosDescr').AsString :=
trim(MemRegistroDesc.Text);
dmEstrutBD.tabBem.FieldByName('ProtecaoObservacao').AsString :=
trim(ed3protobs.Text);
dmEstrutBD.tabBem.FieldByName('TombFederalDesc').AsString :=
trim(ed3TombFederal.Text);
dmEstrutBD.tabBem.FieldByName('TombMunicipalDesc').AsString :=
trim(ed3TombMunicipal.Text);
dmEstrutBD.tabBem.FieldByName('TombConjuntoDesc').AsString :=
trim(ed3TombConjunto.Text);
dmEstrutBD.tabBem.FieldByName('TombEstadualDesc').AsString :=
trim(ed3TombEstadual.Text);
dmEstrutBD.tabBem.FieldByName('TombIndividualDesc').AsString :=
trim(ed3TombIndividual.Text);
dmEstrutBD.tabBem.FieldByName('TombLei3924Desc').AsString :=
trim(ed3TombLei3924.Text);
dmEstrutBD.tabBem.FieldByName('NomeMuseu').AsString :=
trim(ed3NomeMuseu.Text);
dmEstrutBD.tabBem.FieldByName('Preenchedor_da_ficha').AsString :=
trim(ed8RespPreenchiFicha.Text);
dmEstrutBD.tabBem.FieldByName('Seguranca').Asinteger := seguranca;
dmEstrutBD.tabBem.FieldByName('EstadoConservacao').asinteger :=
conservacao;
dmEstrutBD.tabBem.FieldByName('EspecificacaoConservacao').AsString
:= trim(mem3conservacao.Text);
dmEstrutBD.tabBem.FieldByName('Restauracao').AsString :=
trim(mem3restauracao.Text);
dmEstrutBD.tabBem.FieldByName('Restauradores').AsString :=
trim(ed4restauradores.Text);
dmEstrutBD.tabBem.FieldByName('RestauradoresData').AsString :=
trim(ed4restdata.Text);
dmEstrutBD.tabBem.FieldByName('CaracteristicaTecnica').AsString :=
trim(mem4caracttec.Text);
dmEstrutBD.tabBem.FieldByName('CaracteristicaEstilistica').AsString
:= trim(mem4caractest.Text);
dmEstrutBD.tabBem.FieldByName('CaracteristicaIconografica').AsString
:= trim(mem4caractico.Text);
dmEstrutBD.tabBem.FieldByName('DadoHistorico').AsString :=
trim(mem5dadohistorico.Text);
dmEstrutBD.tabBem.FieldByName('ReferenciaBibliografica').AsString :=
trim(mem5refbib.Text);
dmEstrutBD.tabBem.FieldByName('Observacao').AsString :=
trim(mem5obs.Text);
dmEstrutBD.tabBem.FieldByName('Preenchedor_da_ficha').AsString :=
trim(cboRespPreen.Text);
dmEstrutBD.tabBem.FieldByName('MatrPreenchimento').AsString :=
trim(ed6matpreen.Text);
dmEstrutBD.tabBem.FieldByName('RespRevisao').AsString :=
trim(cboRespRevisao.Text);
dmEstrutBD.tabBem.FieldByName('MatrRevisao').AsString :=
trim(ed6Matrevisao.Text);
dmEstrutBD.tabBem.FieldByName('RespExecucao').AsString :=
trim(cboRespExecucao.Text);
dmEstrutBD.tabBem.FieldByName('IPHAN').AsString :=
trim(ed6iphan.Text);
dmEstrutBD.tabBem.FieldByName('NomeDigitador').AsString :=
copy(frmprincipal.Sb1.Panels[0].Text,10,20);
dmEstrutBD.tabBem.FieldByName('CodigoInterpol').AsString :=
trim(ed8CodigoInterpol.Text);
if chkMostraInternet.Checked then
dmEstrutBD.tabBem.FieldByName('Mostrar_Na_Internet').Asboolean := true
else
dmEstrutBD.tabBem.FieldByName('Mostrar_Na_Internet').Asboolean :=
false;
dmEstrutBD.tabBem.FieldByName('DelegaciaResponsavel').AsString :=
trim(Ed8DelegaciaResponsavel.Text);
dmEstrutBD.tabBem.FieldByName('Comunicante').AsString :=
trim(EdComunicante.Text);
dmestrutbd.tabBem.FieldByName('Preenchimento_data').asstring
:=Ed7DtPreenchimento.text;
dmestrutbd.tabBem.FieldByName('DataOcorrencia').asstring :=
Ed8Dtocorrencia.text;
dmestrutbd.tabBem.FieldByName('DataDesaparecimento').asstring :=
dt8Desaparecimento.text;
dmestrutbd.tabBem.FieldByName('DataUltAtualizacao').asstring
:=datetostr(now);
dmestrutbd.tabBem.FieldByName('DataExecucao').asstring :=
Ed7DtExecucao.text;
dmestrutbd.tabBem.FieldByName('DataRevisao').asstring :=
Ed7DtRevisao.text;
dmEstrutBD.tabBem.fieldbyname('Preenchedor_da_ficha').asstring :=
trim(Ed8RespPreenchiFicha.Text);
dmEstrutBD.tabBem.FieldByName('CidadeOndeEstava').AsString :=
trim(ed8CidadeOndeEstava.Text);
dmEstrutBD.tabBem.FieldByName('CargoExecucao').AsString :=
trim(cboCargo.Text);
dmEstrutBD.tabBem.FieldByName('FuncaoExecucao').AsString :=
trim(cboFuncao.Text);
dmEstrutBD.tabBem.FieldByName('MatrExecucao').AsString :=
trim(ed6MatExecucao.Text);
dmEstrutBD.tabBem.fieldbyname('LocalOcorrencia').asstring :=
trim(EdLocalOcorrencia.Text);
dmEstrutBD.tabBem.fieldbyname('Proprietario').asstring :=
trim(EdProprietario.Text);
dmEstrutBD.tabBem.Post;
ShowMessage('Alteração efetuada!');
end;
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
