Como Hacer esto en FIVEWIN??

Como Hacer esto en FIVEWIN??

Postby karinha » Tue May 13, 2008 12:46 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby cmsoft » Tue May 13, 2008 1:07 pm

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:
Code: Select all  Expand view  RUN
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))

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.
User avatar
cmsoft
 
Posts: 1292
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Postby karinha » Tue May 13, 2008 2:21 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby cmsoft » Tue May 13, 2008 2:55 pm

Karinha:
Mi pantalla de seleccion de mesas es la siguiente
Image
Y la pantalla de ventas es la siguiente:
Image
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.
User avatar
cmsoft
 
Posts: 1292
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Postby karinha » Tue May 13, 2008 3:14 pm

No aparecén las imagenes, puesta el link por favor.

MESAS FIJAS?? Tienes alguna idéa de como hacer mobiles??


Con TSBUTTON by Manuel Mercado, és posible?

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby cmsoft » Tue May 13, 2008 3:20 pm

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.
User avatar
cmsoft
 
Posts: 1292
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Como Hacer esto en FIVEWIN??

Postby Armando Picon » Tue May 13, 2008 3:45 pm

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)
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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Postby gabo » Tue May 13, 2008 3:49 pm

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
gabo
 
Posts: 128
Joined: Tue Jan 03, 2006 8:31 pm

Postby karinha » Tue May 13, 2008 4:00 pm

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.


NADA, NO PUEDO CARGAR(bajar).

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 - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Como Hacer esto en FIVEWIN??

Postby karinha » Tue May 13, 2008 4:08 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Como Hacer esto en FIVEWIN??

Postby Armando Picon » Tue May 13, 2008 5:14 pm

Karinha

El adecuado sería Anfitrion 2007.01.

Las otras aplicaciones corresponden a temas como Control de Stocks mas Facturación.

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.
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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Postby karinha » Tue May 13, 2008 5:34 pm

Gracias Armando, voy probar.

Creo que la solucíon sea usar botones fijos con Hide() y Show().

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Armando Picon » Tue May 13, 2008 5:36 pm

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!!!
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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Postby karinha » Tue May 13, 2008 5:50 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7835
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Armando Picon » Tue May 13, 2008 7:07 pm

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.


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!!!.

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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests