Erro ao cadastrar logradouros
Presados colegas, estou fazendo a migração de um aplicativo,que trabalha com Paradox, para Interbase, e estou separando os dados de lougradoros, do cadastro geral de imoveis. A duvida é a seguinte, estou usando o locate para testar se o logradouro já existe no meu cadastro de logradouros,se existe pegue o codigo e grave no codigo de logradouro da tabela de cadastro de imoveis,caso contrario, insert os dados do logradouro no cadastro de logradouros e grave o codigo no cadstro de imoveis. Na verdade a rotina funcionou parcialmente, mas alguns logradouros que existem em mais de um bairro, so foi inserido uma vez.
Solicito aos colegas experientes que por favor me digam o que esta errado da rotina abaixo.
[b:cf1aa04570][color=red:cf1aa04570]Título editado pelo Moderador (AZ) - Removido: ´Como Fazer´[/color:cf1aa04570][/b:cf1aa04570]
Solicito aos colegas experientes que por favor me digam o que esta errado da rotina abaixo.
procedure TForm1.BitBtn2Click(Sender: TObject);
VAR CODIGO,codLog,contador:INTEGER;
begin
ImoveisSaf.open;
Logradouros.open;
Imoveis.open;
Contribuintes.open;
ValoresTerreno.open;
With ImoveisSaf do
begin
Gauge1.MaxValue:=RecordCount;
Label1.caption:=inttostr(RecordCount);
Label1.Refresh;
End;
ImoveisSaf.first;
CODIGO:=1;
codLog:=1;
contador:=1;
while not ImoveisSaf.eof do
begin
Gauge1.Progress:=contador;
contador:=contador+1;
Label2.caption:=inttostr(contador);
Label2.Refresh;
Imoveis.append;
ImoveisIMOV_DISTRITO.value:=STRTOINT(ImoveisSafL_COD_DIST.value);
ImoveisIMOV_SETOR.value:= STRTOINT(ImoveisSafL_COD_SETOR.value);
ImoveisIMOV_QUADRA.value:=STRTOINT(ImoveisSafIM_QUADRA.value);
ImoveisIMOV_LOTE.value:=STRTOINT(ImoveisSafIM_LOTE.value);
ImoveisIMOV_UNIDADE.value:=STRTOINT(ImoveisSafIM_UNIDADE.value);
ImoveisIMOV_INSCRICAO.value:=ImoveisSafIM_INSC.value;
ImoveisIMOV_LOTEAMENTO.value:=ImoveisSafIM_LOTEAMENTO.value;
if ImoveisSafIM_ISENT_IPTU.VALUE=´02´then
begin
ImoveisIMOV_ISENTO_IPTU.value:=´SIM´;
end
else
begin
ImoveisIMOV_ISENTO_IPTU.value:=´NÃO´;
end;
if ImoveisSafC_TIPO.value=´2´then
begin
ImoveisIMOV_TIPO_PESSOA.value:=´FISICA´;
end
else
begin
ImoveisIMOV_TIPO_PESSOA.value:=´JURIDICA´;
end;
ImoveisIMOV_LANC_ENGLOB.value:=´NÃO´;
if not contribuintes.locate(´CONTRI_NOME´,ImoveisSafC_NOME.value,[loCaseInsensitive])Then
begin
Contribuintes.insert;
ContribuintesCONTR_COD.VALUE:=CODIGO;
CODIGO:=CODIGO + 1;
if ImoveisSafC_TIPO.value=´2´then
begin
ContribuintesCONTRI_TIPO.Value:=´FISICA´;
end
else
begin
ContribuintesCONTRI_TIPO.Value:=´JURIDICA´;
end;
ContribuintesCONTRI_NOME.Value:=ImoveisSafC_NOME.value;
ContribuintesCONTRI_END.Value:=ImoveisSafL_TIPO.value +
´ ´ + ImoveisSafC_RUA.value;
ContribuintesCONTR_NUM.Value:=ImoveisSafC_NUM.value;
ContribuintesCONTR_COMPLEMENTO.Value:=ImoveisSafC_COMPL.value;
ContribuintesCONTR_BAIRRO.Value:=ImoveisSafC_BAIRRO.value;
ContribuintesCONTR_CID.Value:=ImoveisSafC_CIDADE.value;
ContribuintesCONTR_UF.Value:=ImoveisSafC_UF.value;
ContribuintesCONTR_CEP.Value:=ImoveisSafL_CEP.value;
ContribuintesCONTR_CPF.Value:=ImoveisSafC_CPF.value;
ContribuintesCONTR_EST_CIVIL.Value:=´IGNORADO´;
ContribuintesCONTR_NACIONAL.Value:=´BRASILEIRA´;
Contribuintes.post;
end;
ImoveisCONTR_COD.value:=ContribuintesCONTR_COD.VALUE;
if not(logradouros.locate(´LOG_BAIRRO´,ImoveisSafL_BAIRRO.VALUE,[loCaseInsensitive])and
(logradouros.locate(´LOG_NOME´,ImoveisSafL_NOME.value,[loCaseInsensitive])))then
begin
logradouros.Insert;
logradourosLOG_COD.value:= codLog;
codLog:=codLog+1;
logradourosLOG_DISTR.value:=STRTOINT(ImoveisSafL_COD_DIST.value);
logradourosLOG_SETOR.value:=STRTOINT(ImoveisSafL_COD_SETOR.VALUE);
logradourosLOG_NOME.value:=ImoveisSafL_NOME.VALUE;
logradourosLOG_BAIRRO.value:=ImoveisSafL_BAIRRO.VALUE;
logradourosLOG_CEP.value:=35460000;
logradourosLOG_GRUPO.value:=ImoveisSafL_GRUPO.VALUE;
ValoresTerreno.locate(´LOG_GRUPO´,ImoveisSafL_GRUPO.VALUE,[loCaseInsensitive]);
logradourosLOG_VALOR.value:=ValoresTerrenoLOG_VALOR.value;
logradourosLOG_AGUA.value:=´SIM´;
logradourosLOG_COLETA_LX.value:=´SIM´;
logradourosLOG_ESGOTO.value:=´SIM´;
logradourosLOG_GALERIAS.value:=´SIM´;
logradourosLOG_GUIAS.value:=´SIM´;
logradourosLOG_ILUMINA.value:=´SIM´;
logradourosLOG_LIMPEZA.value:=´SIM´;
logradourosLOG_TELEFONE.value:=´SIM´;
logradourosLOG_PAVIMENT.value:=´VERIFICAR´;
logradouros.post;
imoveisLOG_COD.value:=codLog-1;
end
else
begin
imoveisLOG_COD.value:=logradourosLOG_COD.value;
end;
ImoveisIMOV_NUMERO.value:=ImoveisSafL_NUMERO.VALUE;
IF (ImoveisSafVL_CONT_COD.VALUE =´1´) OR
(ImoveisSafVL_CONT_COD.VALUE =´2´) OR
(ImoveisSafVL_CONT_COD.VALUE =´3´) OR
(ImoveisSafVL_CONT_COD.VALUE =´4´)THEN
BEGIN
ImoveisCONSTR_COD.value:=STRTOINT(ImoveisSafVL_CONT_COD.VALUE);
END;
ImoveisIMOV_AREA_LOTE.value:=ImoveisSafIM_AREA_LOTE.value;
ImoveisIMOV_AREA_CONST_UNID.value:=ImoveisSafIM_AREA_CONT_UNID.value;
ImoveisIMOV_AREA_TOT_CONST.value:=ImoveisSafIM_AREA_CONT_UNID.value;
ImoveisIMOV_AREA_TOT_CONST.value:=ImoveisSafIM_AREA_TOTAL_CONT.value;
ImoveisIMOV_TESTADA_PRINC.value:=ImoveisSafIM_TEST_PRINC.value;
ImoveisIMOV_TESTADA2.value:=floattostr(ImoveisSafIM_TESTADA_2.value);
ImoveisIMOV_TESTADA3.value:=floattostr(ImoveisSafIM_TESTADA_03.value);
ImoveisIMOV_TESTADA4.value:=floattostr(ImoveisSafIM_TESTADA_04.value);
ImoveisIMOV_NUM_UNID.value:=ImoveisSafIM_NUM_UNID_CONST.value;
IF ImoveisSafIM_AGUA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_AGUA.value:=´NÃO´;
END;
IF ImoveisSafIM_AGUA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_AGUA.value:=´PROPIA´;
END;
IF ImoveisSafIM_AGUA.VALUE=´03´THEN
BEGIN
ImoveisIMOV_AGUA.value:=´FORNECIDA´;
END;
IF ImoveisSafIM_ALINHAMENTO.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_ALINHAMENTO.value:=´ALINHADA´;
END;
IF ImoveisSafIM_ALINHAMENTO.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_ALINHAMENTO.value:=´RECUADA´;
END;
ImoveisIMOV_ANO_AQUIS.value:=´1997´;
IF ImoveisSafIM_COBERTURA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´PRECARIA´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´ZINCO´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´03´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´AMIANTO´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´04´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´LAJE´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´05´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´TELHA COMUM´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´06´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´TELHA COLONIAL´;
END;
IF ImoveisSafIM_COBERTURA.VALUE=´07´THEN
BEGIN
ImoveisIMOV_COBERTURA.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_INSTAL_ELETRIC.VALUE=´01´THEN
BEGIN
ImoveisIMOV_INSTAL_ELETR.value:=´SEM´;
END;
IF ImoveisSafIM_INSTAL_ELETRIC.VALUE=´02´THEN
BEGIN
ImoveisIMOV_INSTAL_ELETR.value:=´APARENTE´;
END;
IF ImoveisSafIM_INSTAL_ELETRIC.VALUE=´03´THEN
BEGIN
ImoveisIMOV_INSTAL_ELETR.value:=´EMBUTIDA´;
END;
IF ImoveisSafIM_ENERGIA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_ENERGIA.value:=´SIM´;
END;
IF ImoveisSafIM_ENERGIA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_ENERGIA.value:=´NÃO´;
END;
IF ImoveisSafIM_ESGOTO.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_ESGOTO.value:=´NÃO´;
END;
IF ImoveisSafIM_ESGOTO.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_ESGOTO.value:=´SIM´;
END;
IF ImoveisSafIM_ESTRUTURA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_ESTRUTURA.value:=´ALVENARIA´;
END;
IF ImoveisSafIM_ESTRUTURA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_ESTRUTURA.value:=´MADEIRA´;
END;
IF ImoveisSafIM_ESTRUTURA.VALUE=´03´THEN
BEGIN
ImoveisIMOV_ESTRUTURA.value:=´METALICA´;
END;
IF ImoveisSafIM_ESTRUTURA.VALUE=´04´THEN
BEGIN
ImoveisIMOV_ESTRUTURA.value:=´CONCRETO´;
END;
IF ImoveisSafIM_FORRO.VALUE =´01´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´SEM´;
END;
IF ImoveisSafIM_FORRO.VALUE =´02´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´MADEIRA´;
END;
IF ImoveisSafIM_FORRO.VALUE =´03´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´GESSO´;
END;
IF ImoveisSafIM_FORRO.VALUE =´04´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´ESTUQUE´;
END;
IF ImoveisSafIM_FORRO.VALUE =´05´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´ESTEIRA´;
END;
IF ImoveisSafIM_FORRO.VALUE =´06´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´LAJE´;
END;
IF ImoveisSafIM_FORRO.VALUE =´07´THEN
BEGIN
ImoveisIMOV_FORRO.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_FOSSA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_FOSSA.value:=´NÃO´;
END;
IF ImoveisSafIM_FOSSA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_FOSSA.value:=´SIM´;
END;
IF ImoveisSafIM_GARAGEM.VALUE=´01´THEN
BEGIN
ImoveisIMOV_GARAGEM.value:=´SEM´;
END;
IF ImoveisSafIM_GARAGEM.VALUE=´02´THEN
BEGIN
ImoveisIMOV_GARAGEM.value:=´SEPARADA´;
END;
IF ImoveisSafIM_GARAGEM.VALUE=´03´THEN
BEGIN
ImoveisIMOV_GARAGEM.value:=´INTEGRADA´;
END;
if ImoveisSafIM_ISNTAL_SANITARIA.VALUE=´01´then
begin
ImoveisIMOV_INSTAL_SANITARI.value:=´SEM´;
end;
if ImoveisSafIM_ISNTAL_SANITARIA.VALUE=´02´then
begin
ImoveisIMOV_INSTAL_SANITARI.value:=´EXTERNA´;
end;
if ImoveisSafIM_ISNTAL_SANITARIA.VALUE=´03´then
begin
ImoveisIMOV_INSTAL_SANITARI.value:=´INTERNA SIMPLES´;
end;
if ImoveisSafIM_ISNTAL_SANITARIA.VALUE=´04´then
begin
ImoveisIMOV_INSTAL_SANITARI.value:=´INERNA LUXO´;
end;
if ImoveisSafIM_ISNTAL_SANITARIA.VALUE=´05´then
begin
ImoveisIMOV_INSTAL_SANITARI.value:=´MAIS DE UMA INTERNA´;
end;
IF ImoveisSafIM_LIMITACAO.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_LIMITACAO.value:=´SEM´;
END;
IF ImoveisSafIM_LIMITACAO.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_LIMITACAO.value:=´CERCA´;
END;
IF ImoveisSafIM_LIMITACAO.VALUE=´03´ THEN
BEGIN
ImoveisIMOV_LIMITACAO.value:=´MURO´;
END;
IF ImoveisSafIM_LIMITACAO.VALUE=´04´ THEN
BEGIN
ImoveisIMOV_LIMITACAO.value:=´GRADE´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´FRENTE´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´FUNDOS´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´03´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´SUPERPOSTA FRENTE´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´04´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´SUPERPOSTA FUNDOS´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´05´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´SUBSOLO´;
END;
IF ImoveisSafLOCAL_UNID_CONST.VALUE=´06´ THEN
BEGIN
ImoveisIMOV_LOCAL_UND.value:=´GALERIA´;
END;
ImoveisIMOV_MORADORES.value:=ImoveisSafIM_MORADORES.VALUE;
IF ImoveisSafIM_PAREDES.VALUE=´01´THEN
BEGIN
ImoveisIMOV_PAREDES.value:=´SEM´;
END;
IF ImoveisSafIM_PAREDES.VALUE=´02´THEN
BEGIN
ImoveisIMOV_PAREDES.value:=´ALVENARIA´;
END;
IF ImoveisSafIM_PAREDES.VALUE=´03´THEN
BEGIN
ImoveisIMOV_PAREDES.value:=´MADEIRA´;
END;
IF ImoveisSafIM_PAREDES.VALUE=´04´THEN
BEGIN
ImoveisIMOV_PAREDES.value:=´TAIPA´;
END;
IF ImoveisSafIM_PAREDES.VALUE=´05´THEN
BEGIN
ImoveisIMOV_PAREDES.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_PASSEIO.VALUE=´01´THEN
BEGIN
ImoveisIMOV_PASSEIO.value:=´SEM´;
END;
IF ImoveisSafIM_PASSEIO.VALUE=´02´THEN
BEGIN
ImoveisIMOV_PASSEIO.value:=´MAL CONSERVADO´;
END;
IF ImoveisSafIM_PASSEIO.VALUE=´03´THEN
BEGIN
ImoveisIMOV_PASSEIO.value:=´BEM CONSERVADO´;
END;
ImoveisIMOV_PAVIMENTOS.value:= ImoveisSafIM_PAVIMENTOS.VALUE;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´ALAGADO´;
END;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´INUNDÁVEL´;
END;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´03´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´ROCHOSO´;
END;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´04´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´ARENOSO´;
END;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´05´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´NORMAL´;
END;
IF ImoveisSafIM_PEDOLOGIA.VALUE=´06´THEN
BEGIN
ImoveisIMOV_PEDOLOGIA.value:=´COMBINA DEMAIS´;
END;
IF ImoveisSafIM_PISCINA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_PISCINA.value:=´NÃO´;
END;
IF ImoveisSafIM_PISCINA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_PISCINA.value:=´SIM´;
END;
IF ImoveisSafIM_PISO.VALUE=´01´THEN
BEGIN
ImoveisIMOV_PISO.value:=´TERRA´;
END;
IF ImoveisSafIM_PISO.VALUE=´02´THEN
BEGIN
ImoveisIMOV_PISO.value:=´CIMENTO´;
END;
IF ImoveisSafIM_PISO.VALUE=´03´THEN
BEGIN
ImoveisIMOV_PISO.value:=´CERAMICA´;
END;
IF ImoveisSafIM_PISO.VALUE=´04´THEN
BEGIN
ImoveisIMOV_PISO.value:=´CARPETE´;
END;
IF ImoveisSafIM_PISO.VALUE=´05´THEN
BEGIN
ImoveisIMOV_PISO.value:=´PLASTICO´;
END;
IF ImoveisSafIM_PISO.VALUE=´06´THEN
BEGIN
ImoveisIMOV_PISO.value:=´TACO´;
END;
IF ImoveisSafIM_PISO.VALUE=´07´THEN
BEGIN
ImoveisIMOV_PISO.value:=´TABUA COMUM´;
END;
IF ImoveisSafIM_PISO.VALUE=´08´THEN
BEGIN
ImoveisIMOV_PISO.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_POSICIONAMENTO.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_POSICIONAMENTO.value:=´ISOLADA´;
END;
IF ImoveisSafIM_POSICIONAMENTO.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_POSICIONAMENTO.value:=´CONJUGADA´;
END;
IF ImoveisSafIM_POSICIONAMENTO.VALUE=´03´ THEN
BEGIN
ImoveisIMOV_POSICIONAMENTO.value:=´GERMINADA´;
END;
ImoveisIMOV_PROFUNDIDADE.value:=ImoveisSafIM_PROFUNDIDADE.VALUE;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´01´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´SEM´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´02´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´REBOCO´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´03´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´CAIAÇÃO´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´04´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´PINTURA´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´05´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´CERAMICA´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´06´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´PEDRA´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´07´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´MADEIRA´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´08´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´MADEIRA LUXO´;
END;
IF ImoveisSafIM_REVESTIMENTO.VALUE=´09´THEN
BEGIN
ImoveisIMOV_REVESTIMENTO.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_SITUACAO.VALUE =´01´THEN
BEGIN
ImoveisIMOV_SITUACAO.value:=´FRENTE M.DE QUADRA´;
END;
IF ImoveisSafIM_SITUACAO.VALUE =´02´THEN
BEGIN
ImoveisIMOV_SITUACAO.value:=´ESQUINA´;
END;
IF ImoveisSafIM_SITUACAO.VALUE =´03´THEN
BEGIN
ImoveisIMOV_SITUACAO.value:=´GLEBA´;
END;
IF ImoveisSafIM_SITUACAO.VALUE =´04´THEN
BEGIN
ImoveisIMOV_SITUACAO.value:=´ENCRAVADO´;
END;
IF ImoveisSafIM_TELEFONE.VALUE=´01´THEN
BEGIN
ImoveisIMOV_TELEFONE.value:=´NÃO´;
END;
IF ImoveisSafIM_TELEFONE.VALUE=´02´THEN
BEGIN
ImoveisIMOV_TELEFONE.value:=´SIM´;
END;
ImoveisIMOV_TERRACO.value:=´NÃO´;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´01´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´CASA DE 01 PAVIMENTO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´02´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´CASA DE 02 PAVIMENTO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´03´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´CASA DE + 02 PAVIMENTO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´04´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´APARTAMENTO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´05´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´LOJA´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´06´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´SALA´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´07´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´GALPÃO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´08´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´TELHEIRO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´09´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´BARRACÃO´;
END;
IF ImoveisSafIM_TIPO_EDIF.VALUE =´10´THEN
BEGIN
ImoveisIMOV_TIPO_EDIF.value:=´ESPECIAL´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´01´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´SEM USO´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´02´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´RESIDENCIAL´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´03´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´COMERCIAL´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´04´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´INDUSTRIAL´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´05´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´SERVIÇOS´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´06´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´RELIGIOSO´;
END;
IF ImoveisSafIM_UTILIZA.VALUE=´07´THEN
BEGIN
ImoveisIMOV_UTILIZACAO.value:=´ALOJAMENTO´;
END;
IF ImoveisSafIM_BEM_IMOVEL.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_TIPO_PATRIM.value:=´PUBLICO´;
END;
IF ImoveisSafIM_BEM_IMOVEL.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_TIPO_PATRIM.value:=´PARTICULAR´;
END;
IF ImoveisSafIM_BEM_IMOVEL.VALUE=´03´ THEN
BEGIN
ImoveisIMOV_TIPO_PATRIM.value:=´RELIGIOSO´;
END;
IF ImoveisSafIM_TOPOGRAFIA.VALUE=´01´ THEN
BEGIN
ImoveisIMOV_TOPOGRAFIA.value:=´PLANO´;
END;
IF ImoveisSafIM_TOPOGRAFIA.VALUE=´02´ THEN
BEGIN
ImoveisIMOV_TOPOGRAFIA.value:=´ACLIVE´;
END;
IF ImoveisSafIM_TOPOGRAFIA.VALUE=´03´ THEN
BEGIN
ImoveisIMOV_TOPOGRAFIA.value:=´DECLIVE´;
END;
IF ImoveisSafIM_TOPOGRAFIA.VALUE=´04´ THEN
BEGIN
ImoveisIMOV_TOPOGRAFIA.value:=´INRREGULAR´;
END;
Imoveis.post;
ImoveisSaf.next;
end;
ShowMessage(´concluido´);
end;[b:cf1aa04570][color=red:cf1aa04570]Título editado pelo Moderador (AZ) - Removido: ´Como Fazer´[/color:cf1aa04570][/b:cf1aa04570]
Mario Patto
Curtidas 0
Respostas
Welter
03/06/2004
Acho que uma dica para voce saber...
O Locate so procura da posicao atual do ponteiro até o final do arquivo...
Verifique se voce esta posicionando o ponteiro no inicio da tabela antes de dar o locate.
Abracao
Marcelo
O Locate so procura da posicao atual do ponteiro até o final do arquivo...
Verifique se voce esta posicionando o ponteiro no inicio da tabela antes de dar o locate.
Abracao
Marcelo
GOSTEI 0