Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sharing form
Message
From
24/10/2004 17:31:31
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
 
 
To
24/10/2004 04:55:09
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Environment versions
Visual FoxPro:
VFP 5
Miscellaneous
Thread ID:
00954064
Message ID:
00954143
Views:
17
>hi all,
>
>i'll try to insert two bills at the same time via same form via two pc
>
>1.i creat temp.table
>2.at my form i put a grid to insert my item via temp.table
>3.when i finish insert items, at save command i append all things from my grid to mstr.table
> ...

Although this wasn't your real question: There is really no need to create data in a temp table and then copy to the final destination.

Many things are much simpler if you use buffering. You can create the data directly in the final table. No data will be saved until you give the TableUpdate() command. You can undo any change with TableRevert().


>
>but if mybill number is =14 at my pc,
>i can see the same number at another pc.
>
>how i can let every pc have another number of bill , when i open myform to add new bills
>via 2 pc or more.
>or if another way to do that
>
>this is the code..at save command
>
>USE MSTR EXCL
>  Append From Dbf('temp')
>  replace w1 with thisform.text14.value
>  replace w2 with thisform.text16.value
>  With thisform.grid1
>   .recordsource = ''
>   Select temp
>    Zap                && i get error message  any idea
>   *delete all
>
>   .recordsource = 'temp'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  ******************
> with thisform.Grid1
> .Recordsource = .Recordsource
>endwith
>
>  ********************************************
>  thisform.text1.value=space(10)
>  thisform.text2.value=ctod("  /  /  ")
>  thisform.text3.value=space(10)
>  thisform.text4.value=space(10)
>  thisform.text5.value=space(10)
>  thisform.text6.value=0
>  thisform.text7.value=0
>  thisform.text8.value=0
>  thisform.text10.value=0
>
>SELECT mstr
>SELECT MAX(BILLNO) FROM mstr INTO ARRAY laArray
>IF _TALLY > 0
>  THISFORM.TEXT1.VALUE = laArray + 1
>ELSE
>  THISFORM.TEXT1.VALUE = 1
>ENDIF
>With thisform.grid1
>   .recordsource = ''
>   Select temp
>   SET EXCLUSIVE off && i get error message  any idea
>   Zap
> * delete all
>   .recordsource = 'temp'
>   thisform.text1.SetFocus
>   thisform.refresh
>  endwith
>  thisform.grid1.refresh
>
>thanks
>m.qasem
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform