Online Counter Update

[irfanhabib]

Respected Experts,

First i am very thankful , this forum support me every time and
i appreciate very quick response.

This moment i face another problem , actually my coding in following prg
file.

***** counter.prg

set talk off
set echo off
set safe off
set date brit
set cent on
clear all
clear


do whil .t.
close all
Sele A
use Cnfile
inde on cuscnt to cs1
set orde to tag cs1
go bott
A=0
A=cuscnt+1

Sele B
use Customer
inde on cuscnt to cs2
set orde to tag cs2
go bott
SCAT MEMV BLAN

@ 2,40 say 'Customer Id : - '
@ 2,55 say allt(str(A))

@ 5,40 say 'Customer Name ' Get M.Csname
@ 7,40 say 'Business Address ' Get M.Csadd
@ 9,40 say 'Mobile #' get M.Csmob

op1=0
@ 12,40 get op1 func '*p save;re-input;main' size 2,10,1
read cycle

if op1=1
sele a
go bott
appe blan
repl cuscnt with a

sele b
go bott
appe blan
gath memv
repl cuscnt with a
loop
endi

if op1=2
loop
endi

if op1=3
do main.prg
endi

endd


My Requirement :
================
1. Multiple user run this prg file ( i create link on each user pc on desktop )
2. When User run this application every time counter number display according
to index serial
3. if multiple use run this application on real time counter name update as per
user timing with any duplication.
4. if one use enter in this application and he exit without saving counter series
automatically ordered if any other user working on input fields.

Important : I know many expert feel this is type of query not entitle for this
professional forum , but in my present home town, no high qualified
professionals and institution available , so sorry in advance if anyone
feel negative or unprofessional regarding my query.

Note : I humbly requested kindly provide me solution in prg coding ,
i already mentioned previously i have no idea regarding form base
programming.

very best regards
irfan habib

 

[irfanhabib]

Dear All Experst - Problem Solved

Thanks For Your Support , I Simply Display Counter Value , When User Click On Save Button

Control Goto Last Record & Pick Last Value And Than Add Plus One ( + 1 ) In Last Value And

Display On Screen Than Saved In Database File. ( After Append Bland - Go Bottom )

Regards