Como Hacer esto en FIVEWIN??
Como Hacer esto en FIVEWIN??
João Santos - São Paulo - Brasil
Hola Karinha:
Mira, yo lo hago asi, cuando abro una mesa, creo un archivo temporario con el nombre de la mesa, ej. MESA001.DBF, ya que si quiere dejar pendiente una mesa para luego agregarle mas items vendidos, tiene que tener esa posibilidad. Luego utilizo este codigo:
Como veras, tengo dos BMP en el recurso que se llaman MESO y MESA
MESO es el dibujo de mesa ocupada y MESA es el de mesa libre. Y los ID de los botones comienzan en 201 en el recurso.
Cualquier consulta, no dudes en preguntar.
Mira, yo lo hago asi, cuando abro una mesa, creo un archivo temporario con el nombre de la mesa, ej. MESA001.DBF, ya que si quiere dejar pendiente una mesa para luego agregarle mas items vendidos, tiene que tener esa posibilidad. Luego utilizo este codigo:
Code: Select all
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))
MESO es el dibujo de mesa ocupada y MESA es el de mesa libre. Y los ID de los botones comienzan en 201 en el recurso.
Cualquier consulta, no dudes en preguntar.
cmsoft, desculpa, no se tu nombre...
Comprendo, pero me gustaria hacer algo mas avanzado.
En este ejemplo, que baje de la internet, cuando se añande una mesa, automaticamente el programa pone una BITMAP en el dialogo y llama(ACTION) a rotina de ventas en las mesas.
Gustaria de idéas...
Podrias por favor, muestrar una imagen de como está tu tela de mesas?
Y tu tela de ventas, como és?
desde ya, gracias.
Saludos.
Comprendo, pero me gustaria hacer algo mas avanzado.
En este ejemplo, que baje de la internet, cuando se añande una mesa, automaticamente el programa pone una BITMAP en el dialogo y llama(ACTION) a rotina de ventas en las mesas.
Gustaria de idéas...
Podrias por favor, muestrar una imagen de como está tu tela de mesas?
Y tu tela de ventas, como és?
desde ya, gracias.
Saludos.
João Santos - São Paulo - Brasil
Karinha:
Mi pantalla de seleccion de mesas es la siguiente
Y la pantalla de ventas es la siguiente:
El programa muestra de forma fija hasta 100 mesas. Cuando hago click en una mesa, o escribo el numero de mesa, accede a dicha mesa y realiza la facturacion, que puede dejar pendiente (mesa abierta u ocupada). Cuando vuelvo al selector de mesas, me actualiza el estado de las mesas.
Espero te sirva la idea.
Mi pantalla de seleccion de mesas es la siguiente
Y la pantalla de ventas es la siguiente:
El programa muestra de forma fija hasta 100 mesas. Cuando hago click en una mesa, o escribo el numero de mesa, accede a dicha mesa y realiza la facturacion, que puede dejar pendiente (mesa abierta u ocupada). Cuando vuelvo al selector de mesas, me actualiza el estado de las mesas.
Espero te sirva la idea.
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.
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
- Posts: 448
- Joined: Mon Dec 26, 2005 9:11 pm
- Location: Lima, Peru
Re: Como Hacer esto en FIVEWIN??
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)
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Hola karinha
Lo puedes hacer de la siguiente manera
Si vas usar areas o secciones en el restaurant
Create una base de datos
id_area // ID area o seccion
descrip // Nombre del area o seccion COMEDOR-BAR-JARDIN
no_mesas // Total del numero de mesas que tiene la seccion o salon o area
clr_mesa_activa // Color para las mesas activas
clr_mesa_cobradas // Color para las mesas en trasito o por cobrar
Despues otra tabla donde irian las mesa por area o seccion
id_area // area o seccion a que corresponde la mesa
id_mesa // numero de mesa
pos_x // TOP posicion en pixeles en la ventana
pos_y // LEFT posicion en pixeles en la ventana
bitmap // imagen del boton
Proceso
- Selecciona el area o seccion donde se va a selccionar la mesa
- despliega la ventana con los botones de las mesas que tiene esa seccion
- agrega una opcion que diga "crear nueva mesa" esto es en caso que se abra una mesa que no este definida en la seccion area o salon
El mejor control para hacer esto es TSBUTTON de manuel mercado
Espero y te sea de utilidad
Saludos
GABO
Lo puedes hacer de la siguiente manera
Si vas usar areas o secciones en el restaurant
Create una base de datos
id_area // ID area o seccion
descrip // Nombre del area o seccion COMEDOR-BAR-JARDIN
no_mesas // Total del numero de mesas que tiene la seccion o salon o area
clr_mesa_activa // Color para las mesas activas
clr_mesa_cobradas // Color para las mesas en trasito o por cobrar
Despues otra tabla donde irian las mesa por area o seccion
id_area // area o seccion a que corresponde la mesa
id_mesa // numero de mesa
pos_x // TOP posicion en pixeles en la ventana
pos_y // LEFT posicion en pixeles en la ventana
bitmap // imagen del boton
Proceso
- Selecciona el area o seccion donde se va a selccionar la mesa
- despliega la ventana con los botones de las mesas que tiene esa seccion
- agrega una opcion que diga "crear nueva mesa" esto es en caso que se abra una mesa que no este definida en la seccion area o salon
El mejor control para hacer esto es TSBUTTON de manuel mercado
Espero y te sea de utilidad
Saludos
GABO
NADA, NO PUEDO CARGAR(bajar).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.
Podrias, por favor enviar em mi correo?
kmt_karinha@pop.com.br
Un gran saludo a todo pueblo Argentino.
És Torcedor del Boca Junior?? No... Creo, que és QUILMES??? jejeje.
Saludos.
João Santos - São Paulo - Brasil
Re: Como Hacer esto en FIVEWIN??
Bela página Armando.Armando Picon wrote: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)
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.
João Santos - São Paulo - Brasil
- Armando Picon
- Posts: 448
- Joined: Mon Dec 26, 2005 9:11 pm
- Location: Lima, Peru
Re: Como Hacer esto en FIVEWIN??
Karinha
El adecuado sería Anfitrion 2007.01.
Las otras aplicaciones corresponden a temas como Control de Stocks mas Facturación.
El adecuado sería Anfitrion 2007.01.
Las otras aplicaciones corresponden a temas como Control de Stocks mas Facturación.
karinha wrote:Bela página Armando.Armando Picon wrote: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)
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.
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
- Armando Picon
- Posts: 448
- Joined: Mon Dec 26, 2005 9:11 pm
- Location: Lima, Peru
Tu sabes que existen varias maneras de hacer algo. Lo importante es que lo hagas!!!karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Excelente. Exatamente.Armando Picon wrote:Tu sabes que existen varias maneras de hacer algo. Lo importante es que lo hagas!!!karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
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.
João Santos - São Paulo - Brasil
- Armando Picon
- Posts: 448
- Joined: Mon Dec 26, 2005 9:11 pm
- Location: Lima, Peru
Las mesas y puntos de atención de la barra se crean a petición del operador (esa es una de las razones por lo que que no utilizo bitmaps de cada mesa o punto de atención en la barra). Voy a bajar los archivos y probarlos en una XP que tengo en casa!!!.karinha wrote:Excelente. Exatamente.Armando Picon wrote:Tu sabes que existen varias maneras de hacer algo. Lo importante es que lo hagas!!!karinha wrote:Gracias Armando, voy probar.
Creo que la solucíon sea usar botones fijos con Hide() y Show().
Saludos.
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.
PS. Acabo de bajar e instalar Anfitrion... Por defecto utilizo el drive D en el archivo ANFI00.INI., así que tiene que instalarlo en ese Drive.
[PATHS]
Login=D:\ANFITRION\LOGIN\
DATOS=D:\ANFITRION\data\
Indices=D:\ANFITRION\indx\
Work=D:\ANFITRION\Work\
Bmps=D:\ANFITRION\Bmps\
Si quieres que funcione en C debes instalar alli y editar el Archivo INI y cambiar las entradas a:
[PATHS]
Login=C:\ANFITRION\LOGIN\
DATOS=C:\ANFITRION\data\
Indices=C:\ANFITRION\indx\
Work=C:\ANFITRION\Work\
Bmps=C:\ANFITRION\Bmps\
Para aumentar la cantidad de mesas y puntos de atención en la barra puedes elegir la opción "Acerca de.../configuración" o editar ANFI00.INI y cambiar las cantidades que necesitas en:
[PUNTOS]
qmesas=99
qbarra=99
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com