http://img135.imageshack.us/my.php?image=mesasuo4.jpg
Saludos.
DEFINE WINDOW oWnd MDICHILD TITLE "Seleccion de mesa" ;
OF MEMVAR->oWPpal NOZOOM ICON MEMVAR->oIco
DEFINE DIALOG oDlg RESOURCE "SELEMESA" OF oWnd
oDlg:nStyle := WS_CHILD
FOR i := 1 TO 100
REDEFINE BTNBMP oBit[i] ;
RESNAME IF(FILE("MESA"+STRTRAN(STR(i,3)," ","0")+".DBF"),;
"MESO",;
"MESA") ;
ACTION (Venta(::nId - 100, @oBit,@mocupa,@mlibre),;
oGet1:Refresh(),oGet2:Refresh());
ID i+100;
TOOLTIP "Mesa "+STR(i,3) OF oDlg NOBORDER
mocupa := mocupa + IF(FILE("MESA"+STRTRAN(STR(i-1,3)," ","0")+".DBF"),;
1,0)
NEXT i
mlibre := 100 - mocupa
REDEFINE GET oGet1 VAR mocupa ID 201 PICTURE "999" WHEN(.F.) OF oDlg
REDEFINE GET oGet2 VAR mlibre ID 202 PICTURE "999" WHEN(.F.) OF oDlg
REDEFINE GET oGet3 VAR mmesa ID 204 PICTURE "999" OF oDlg ;
VALID(mmesa>0 .and. mmesa < 101)
REDEFINE BUTTON oBot1 ID 206 ACTION Venta(mmesa,@oBit,@mocupa,@mlibre)
REDEFINE BUTTON oBot2 ID 205 ACTION oWnd:End() CANCEL
ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:Move(0,0) VALID(oWnd:End())
ACTIVATE WINDOW oWnd VALID(cerrar(base,oGet,oWnd))
karinha wrote:http://img135.imageshack.us/my.php?image=mesasuo4.jpg
Saludos.
cmsoft wrote:Karinha:
Te paso los links de las pantallas
http://www.quilmesmercedes.com.ar/index ... panta1.JPG
http://www.quilmesmercedes.com.ar/index ... panta2.JPG
Para hacer que las mesas no sean fijas si no variables (con un máximo por supuesto) puedes tener una variable que controle el maximo de mesas y a los botones restantes ponerles oBtn[x]:Hide para que no se vean.
Armando Picon wrote:karinha wrote:http://img135.imageshack.us/my.php?image=mesasuo4.jpg
Saludos.
Karinha
Esta aplicación se encuentra limitada por la cantidad de graficos que puede caber en la pantalla. Desde www.geocities.com/sisgemeirl (opción Productos) puedes bajar una aplicación sencilla que te permitirá manejar hasta 99 mesas y 99 puntos de atencion en barra (esta aplicación no utiliza gráficos)
karinha wrote:Armando Picon wrote:karinha wrote:http://img135.imageshack.us/my.php?image=mesasuo4.jpg
Saludos.
Karinha
Esta aplicación se encuentra limitada por la cantidad de graficos que puede caber en la pantalla. Desde www.geocities.com/sisgemeirl (opción Productos) puedes bajar una aplicación sencilla que te permitirá manejar hasta 99 mesas y 99 puntos de atencion en barra (esta aplicación no utiliza gráficos)
Bela página Armando.
Armando, gracias, Cual de estes control és el correcto??
Control de Almacén Estanda
Control de Almacén - Ventas (Versión limitada)
Anfitrion 2007.01
Saludos.
karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
Armando Picon wrote:karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
Tu sabes que existen varias maneras de hacer algo. Lo importante es que lo hagas!!!
karinha wrote:Armando Picon wrote:karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
Tu sabes que existen varias maneras de hacer algo. Lo importante es que lo hagas!!!
Excelente. Exatamente.
Armando, baje tu ejemplo, pero no tiene el que necesito. Donde cadastras las mesas? Donde estan las Bitmaps?
Otra, por favor testa tu ejemplo en WINDOWS XP, no está bién.
Saludos y muchas gracias.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 77 guests