A different payment

[Silvio.Falconi]

On a Xbrowse I have some fields ( Qta,Desc,Price,Importe)

I did this table for a restaurant application.

Now let me tell you what is my problem

When customers pay the bill they may want to pay "alla romana" ie everyone who is sitting on the same table can only pay for the products he has personally taken.
I can not find a way to do this

That is, if the total account is 45 euros and the customers are 8 I have to pay to each one only the products he has consumed

How can this be done?

[Marc Venken]

Just a Idea :

You have the Xbrowse wich will have all articles that are served on the table.

I would think of adding into the dialog besides the xbrowse as many buttons as that the customer alow to pay pro table (In Belgium often this is not allowed )
Of cource, you can also just use one button !

So assume 8 people, you have 8 small buttons. You select the articles from the browse and hit button-1 for person 1
You do this with all persons until all items on the browse are selected. Since you have 8 buttons, it is easy to select again a item if it was cunsumed by someone else.

Afther all is selected, you print one large bill, divided into 8 smaller onces for eacht person to pay.

I hope you understand the idea...

[Silvio.Falconi]

the problem is also I cannot use check on the xbrowse because I making a Touch Ecr and the final user not use mouse and keyboard

[Armando]

Silvio:

An other idea, You must take the orders by table and person, for example

18-1 table 18 person 1 Chicken 50.00
18-2 table 18 person 2 only coffe 10.00
Total per table 60.00

With this, in xbrows you can make a tree and get the total by person and
by table.

Regards

[Marc Venken]

the problem is also I cannot use check on the xbrowse because I making a Touch Ecr and the final user not use mouse and keyboard

Never used touchscreen, but can't you select items in the browse with a fingertip and than hit a button with a finger ? No Mouse/keyboard is needed then.

The problem is that you don't know in front if the table is going to split into person by person bill, so you need to seperate the list when they ask the bill.

Is the Touch Ecr a hardware handheld like a Ipad or so ?

[dutch]

Who use touch ECR, user or customer?
- if user,
you can
1 you must have split button for split the item 1 by 1 (if any more quantity than 1)
2 select the item to pay ( add check column in xbrowse ), you will know the total.
3 let the user to press pay button and settle only they select.
- if customer
1 you must post item by item, in case of separated bill.
2,3 the same as above
Hope it help.

[Silvio.Falconi]

Ecr is user from final user

this a first beta release !!

[dutch]

This is my POS screen. You can see what's function you should have.
1.Items function
- split items for which quantity more than 1.

2.Table function
- split bill (separated bill) and then you can move the item from 1st bill to 2nd bill.

I hope it help.

[Silvio.Falconi]

I'm thinking to create another dialog with two xbrowse

1. with all products
2 empty

on the middle button ==> and <== to insert products from first xbtowse to second

when I insert a product the procedure must erase the product on first xbrowse ( if not have a quantity >1) or change the quantity of the product


on bottom the total price and the possibility to create on print the ticket

[Silvio.Falconi]

Perhaps I found a method but also not run ok






I create two xbrowse :

on first I insert the ticket and on the second I put an empty array

If I use the mouse the drag and drop run ok

If I press the two button I insert on the middle of the dialog ( I draw with red circles)

the procedure make error not allways but sometimes and I not found why

where is the error ?

here the code of these buttons

Code: Select all  Expand view

 @  50,245 BTNBMP  aBtnDropBrw[1] OF  oDlgDivide SIZE 30, 30 PIXEL  Filename ".\bitmaps\dropin.bmp"   NOBORDER     ;
                  ACTION  ( AAdd( oLbx2:aArrayData,  oLbx:aArrayData[ oLbx:nAt ] ), ;
                                            ADel( oLbx:aArrayData, oLbx:nAt, .t. ), ;
                                              oLbx:Refresh(.t.), oLbx2:Refresh(.t.),;
                                              oLbx:setfocus() ,SetTotals(oLbx,oLbx2,oDlgDivide,aVars,aVars2))



   @  90,245  BTNBMP  aBtnDropBrw[2] OF  oDlgDivide SIZE 30, 30 PIXEL  Filename ".\bitmaps\dropout.bmp"  NOBORDER     ;
                  ACTION ( AAdd( oLbx:aArrayData,  oLbx2:aArrayData[ oLbx2:nAt ] ), ;
                                            ADel( oLbx2:aArrayData, oLbx2:nAt, .t. ), ;
                                              oLbx:Refresh(.t.), oLbx2:Refresh(.t.),;
                                              oLbx2:setfocus(),SetTotals(oLbx,oLbx2,oDlgDivide,aVars,aVars2) )