Fórum Erro ao cadastrar logradouros #236021

03/06/2004

0

Delphi

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.


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

Mario Patto

Responder

Posts

07/06/2004

Welter

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar