Fórum 0 record(s) updated. Only one re... (Zeos, Delphi 2010 e MySQL) #482307

with dm.qrMiniMain do
      begin
       dm.qrMiniMain.Close;
       SQL.Text:='select * from pessoa where id='+TxtCliente[1];  //Insere o mesmo ID vindo da retafguarda
       Open;
        if IsEmpty then
         begin
          Insert;
          FieldByName('ID').AsInteger                   := PegaInteiro(TxtCliente[1]);
         end
        else
         begin
          Edit;
         end;

        FieldByName('ID_SITUACAO_PESSOA').AsString   := '1';
        FieldByName('NOME').AsString                 := PegaTexto(TxtCliente[2],150);
        FieldByName('FANTASIA').AsString             := PegaTexto(TxtCliente[3],150);
        FieldByName('EMAIL').AsString                := PegaTexto(TxtCliente[4],250);
        FieldByName('CLIENTE').AsString              := 'S'; //Sim, é cliente
        FieldByName('TIPO').AsString                 := TxtCliente[5];
        if TxtCliente[5]='F' then
        begin  //Fisica
         FieldByName('RG').AsString                   := PegaTexto(TxtCliente[7],20);
         FieldByName('ORGAO_RG').AsString             := PegaTexto(TxtCliente[8],20);
         FieldByName('SEXO').AsString                 := TxtCliente[10];
         FieldByName('DATA_EMISSAO_RG').AsDateTime      := PegaData(TxtCliente[9]);
        end
        else
        begin //Juridica
         FieldByName('CPF_CNPJ').AsString             := SoNumero(TxtCliente[6]);
         FieldByName('INSCRICAO_ESTADUAL').AsString   := PegaTexto(TxtCliente[7],30);
         //FieldByName('INSCRICAO_MUNICIPAL').AsString  := TxtCliente[0];
        end;
        FieldByName('FONE1').AsString                := PegaTexto(SoNumero(TxtCliente[21]),10 );
        FieldByName('FONE2').AsString                := PegaTexto(SoNumero(TxtCliente[22]),10 );
        FieldByName('CELULAR').AsString              := PegaTexto(SoNumero(TxtCliente[23]),10 );
        FieldByName('DATA_CADASTRO').AsDateTime      := PegaData(TxtCliente[11]);
        dm.qrMiniMain.Post;
        dm.ConnMINI.Commit;
      end;