Here in Italy there are three ways to shop at the restaurants
1. Print the receipt with all the consumed products
2. Divide the checkout for the number of lunch participants
[b:33r6t3kb]3. Select products consumed with the "alla romana" method, each one pays for itself[/b:33r6t3kb]
For the third way I have created 2 xbrowsers
[img:33r6t3kb]https://s16.postimg.org/xdl0gfdz9/contoseparato.jpg[/img:33r6t3kb]
In the first xbrowse I inserted all the products on second xbrowse an empty array
The end user can select products one at a time and place them in the second array
to select the products that one consumed and make the receipt
And so on for everyone who pays that table until the opening of the initial ticket
My problem is that when I insert a product into the second xbrowse,
the variants associated with it must also be transferred
The archive consum is indexed for numdoc and numriga
for a sample :
If I transfer a record such as the field numriga = 1
I want to transfer all records that have the numriga field = 1
How can I fix it ?
[b:33r6t3kb]test.prg[/b:33r6t3kb]
[code=fw:33r6t3kb][/code:33r6t3kb]
[b:33r6t3kb]when I press the middles button and the array is empty make error
at this line[/b:33r6t3kb]
@ 90,245 BTNBMP aBtnDropBrw[2] OF oDlgDivide SIZE 30, 30 PIXEL Filename ".\bitmaps\dropout.bmp" NOBORDER ;
ACTION ( AAdd( oLbx:aArrayData, oLbx2:aArrayData[ oLbx2:nRowSel ] ), ;
ADel( oLbx2:aArrayData, oLbx2:nRowSel, .t. ), ;
oLbx:Refresh(.t.), oLbx2:Refresh(.t.),;
oLbx2:setfocus(),SetTotals(oLbx,oLbx2,oDlgDivide,aVars,aVars2) )
↧