procedure TFmenu.FormCreate(Sender: TObject);
var
  t:TstringList;
procedure Dotacion;
var
  wnomtab:string;
begin
  try
    visible:=false;
    wnomtab:='t'+Fmenu.cUsu;
    Zq.SQL.text:='drop table if exists '+wnomtab;
    Zq.execsql;
    Zq.SQL.text:='create temporary table '+wnomtab+' (ivalor int)';
    Zq.execsql;
    Zq.sql.text:='Insert into '+wnomtab+' (ivalor) values (0)';
    Zq.execsql;
    Fdotacion:=TFdotacion.create(nil);
    Fdotacion.showmodal;
    Fdotacion.free;
    Activecontrol:=Ecantidad;
  finally
    visible:=true;
  end;
end;

begin
  t:=TstringList.create;
  t.loadfromfile('conf.cfg');
  Zconn.HostName:=t.Values['host'];
  Zconn.Port:=strtoint(t.Values['puerto']);
  Zconn.Database:=t.Values['database'];
  Zconn.User:=t.Values['user'];
  Zconn.Password:=t.Values['password'];
  t.free;
  Zconn.connected:=true;
  Zq.sql.text:='Select * from tsca_usuario a left join tcc_empresa b on a.iempresa=b.idempresa where idusuario='+paramstr(1);
  Zq.open;
  idSucursal:=-1;
  if not Zq.IsEmpty then
  begin
    idUsuCajero:=Zq.fieldbyname('idusuario').asinteger;
    idEmp:=Zq.fieldbyname('iempresa').asinteger;
    cUsu:=Zq.fieldbyname('cusuario').asstring;
  end
  else
  begin
    Messagedlg('Error Usuario no Registrado...',mterror,[mbok],0);
    Application.terminate;
  end;
  Zq.SQL.text:='select fcc_escajero('+inttostr(idUsuCajero)+') caja';
  zq.open;
  iescajero:=zq.fieldbyname('caja').asinteger;  //si es -1 es Administrador si no es un cajero valido si es 0 es caja cerrada pero es cajero y si es mayor a cero es la caja que esta abierta.
  Zq.SQL.text:='Select * from tcc_empresa where idempresa='+inttostr(idEmp);
  Zq.open;
  if not Zq.IsEmpty then
  begin
    cEmpresa:=zq.fieldbyname('cnombre').asstring;
    Snomemp.Caption:=zq.fieldbyname('cnombre').asstring;
    SdirEmp.Caption:=zq.fieldbyname('cdireccion').asstring;
    sTel.Caption:=zq.fieldbyname('ctelefono').asstring;
    Srfc.Caption:=zq.fieldbyname('crfc').asstring;
    SResponsable.Caption:=zq.fieldbyname('cresponsable').asstring;
    SdirFis.Caption:=zq.fieldbyname('cdireccionfiscal').asstring;
  end
  else
  begin
    Messagedlg('Error Empresa no Registrada...',mterror,[mbok],0);
    Application.terminate;
  end;
  if iescajero>0 then //
  begin
    Fmenu.Hide;
    RzGroup2Items0Click(nil);
    Fmenu.Close;
  end
  else if iescajero=0 then  //no hay apertura de caja
  begin
    Zq.sql.text:='Select isucursal from tcc_cajero where idcajero='+inttostr(idUsuCajero);
    zq.open;
    if not Zq.IsEmpty then
    begin
      idSucursal:=Zq.fieldbyname('isucursal').asinteger;
      Zq.SQL.text:='select fcc_cajadisponible('+inttostr(idSucursal)+') as iCajaDisponible';
      Zq.open;
      if Zq.fieldbyname('iCajaDisponible').asinteger>0 then
      begin
        Zq.SQL.text:='select fcc_abrecaja('+inttostr(Zq.fieldbyname('iCajaDisponible').asinteger)+','+inttostr(idUsuCajero)+','+inttostr(idUsuCajero)+') as icorte';
        Zq.Open;
        if Zq.FieldByName('icorte').asinteger>0 then
        begin
          //RzGroup2Items0Click(nil);
          Dotacion;
          Fmenu.Hide;
          RzGroup2Items0Click(nil);
          Fmenu.Close;
        end
        else
        begin
          Messagedlg('Error No se pudo inicializar la caja  Error 20001', mtError, [mbok],0);
        end;
      end
      else
      begin
        Messagedlg('Error El cajero no tiene una caja disponible para abrir Error 20002', mtError, [mbok],0);
      end
    end
    else
    begin
      Messagedlg('Error El cajero no tiene una sucursal definida Error 20003', mtError, [mbok],0);
    end;
  end;
end;