Como Hacer esto en FIVEWIN??

User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Como Hacer esto en FIVEWIN??

Post by karinha »

João Santos - São Paulo - Brasil
User avatar
cmsoft
Posts: 653
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Post by cmsoft »

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

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
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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

Post by cmsoft »

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
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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

Post by cmsoft »

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

Re: Como Hacer esto en FIVEWIN??

Post by Armando Picon »

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

Post by gabo »

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
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Como Hacer esto en FIVEWIN??

Post by karinha »

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

Re: Como Hacer esto en FIVEWIN??

Post by Armando Picon »

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

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
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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

Post by Armando Picon »

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
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Post by karinha »

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

Post by Armando Picon »

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
Post Reply