Stuff

procedure TActualizador.EjecutaWeb;
var MySqlMonExis:Boolean;
begin
  if(not chkWebActivo.Checked)then
    Exit;

  if(not MySql4.Connected)then
    btWebProbar.Click;
    
  if(not IBConnection1.Connected)then
    btProbarGdb.Click;

  SqlSelect(SQLQuery1,'select * from monedas where estado="A"');
  if(SQLQuery1.IsEmpty)then
    Exit;
    
  //--Monedas--
  SqlSelect(SqlMySql,'select * from monedas');
  SQLQuery1.First;
  while not SQLQuery1.EOF do begin
    SqlMySql.First;
    MySqlMonExis:=False;
    while not SqlMySql.EOF do begin
      if(SQLQuery1.FieldByName('id_moneda').AsInteger=SqlMySql.FieldByName('id_moneda').AsInteger)then begin
        MySqlMonExis:=True;
        SqlMySql.Last;
      end;
      SqlMySql.Next;
    end;
    try
      if(not MySqlMonExis)then begin
        SqlEjecuta(SqlMySql,'');
        SqlMySql.Insert;
        SqlMySql.FieldByName('id_moneda').AsInteger          :=SQLQuery1.FieldByName('id_moneda').AsInteger;
        SqlMySql.FieldByName('CODIGO').AsString              :=SQLQuery1.FieldByName('CODIGO').AsString;
        SqlMySql.FieldByName('DESCRIPCION').AsString         :=SQLQuery1.FieldByName('DESCRIPCION').AsString;
        SqlMySql.FieldByName('ABREVIACION').AsString         :=SQLQuery1.FieldByName('ABREVIACION').AsString;
        SqlMySql.FieldByName('MONEDANACIONAL').AsString      :=SQLQuery1.FieldByName('MONEDANACIONAL').AsString;
        SqlMySql.FieldByName('ORDEN').AsString               :=SQLQuery1.FieldByName('ORDEN').AsString;
        SqlMySql.FieldByName('ESTADO').AsString              :=SQLQuery1.FieldByName('ESTADO').AsString;
        SqlMySql.ApplyUpdates;
      end;
    except
      on E:Exception do
        MostrarMsg(E.Message);
    end;
    SQLQuery1.Next;
  end;
  //--Monedas-Fin--
end;


procedure TActualizador.btWebProbarClick(Sender: TObject);
begin
  MySql4.Close;
  txtMySqlConectado.Caption:='Desconectado';
  MySql4.HostName      :=txtMySqlHost.Text;
  MySql4.UserName      :=txtMySqlUsu.Text;
  MySql4.Password      :=txtMySqlCont.Text;
  MySql4.DatabaseName  :=txtMySqlBase.Text;
  try
    MySql4.Open;
    txtMySqlConectado.Caption:='Conectado';
    //SqlSelect(SqlMySql,'show databases');
    //mMySqlBases.Clear;
    //while not SqlMySql.EOF do begin
      //mMySqlBases.Lines.Add(SqlMySql.Fields[0].AsString);
      //SqlMySql.Next;
    //end;
  except
    on E:Exception do
      MostrarMsg(E.Message);
  end;
end;