records are not updating in some systems

if anybody can give solution to the following problem in vfp 7 version, it
would be very tankful.
I am facing a severe problem, that in some of my clients systems some
records are missing or not updating properly. for example, if I have 3 files
to be updated in a Transactios, one of the file is not updating. the records
çan be find updated before 'End Transactions'. but after the 'End Transacton'
Records are not updated
it is not showing any error messages even i put error handling functions.
But the fact, which is updating properly in some other system.
secondly how i can check database/index file integrity.
the following command are given for updation
***************************
bigin transactions

detail

if Tableupdate(1,.t.,'invoice')
rollback
=messabox('')
thisform.txtinvoiceno.setfocus()
return
endif
if Tableupdate(2,.t.,'invTrans')
rollback
=messabox('')
thisform.txtinvoiceno.setfocus()
return
endif

if Tableupdate(2,.t.,'LedgerTransactions')
rollback
=messabox('')
thisform.txtinvoiceno.setfocus()
return
endif

endtransactions

select invoice
if !eof()
skip
else
skip -1
endif
**************************

Anders
Sun Oct 24 07:45:49 CDT 2004

I don't get it. If the TableUpdate succeeds you roll back the updates
instead of committing them with END TRANS.
-Anders

"sameer" <sameer@discussions.microsoft.com> wrote in message
news:FB0E168B-0FCA-42F0-9633-B21AA5C85F9F@microsoft.com...
> if anybody can give solution to the following problem in vfp 7 version, it
> would be very tankful.
> I am facing a severe problem, that in some of my clients systems some
> records are missing or not updating properly. for example, if I have 3
files
> to be updated in a Transactios, one of the file is not updating. the
records
> çan be find updated before 'End Transactions'. but after the 'End
Transacton'
> Records are not updated
> it is not showing any error messages even i put error handling functions.
> But the fact, which is updating properly in some other system.
> secondly how i can check database/index file integrity.
> the following command are given for updation
> ***************************
> bigin transactions
>
> detail
>
> if Tableupdate(1,.t.,'invoice')
> rollback
> =messabox('')
> thisform.txtinvoiceno.setfocus()
> return
> endif
> if Tableupdate(2,.t.,'invTrans')
> rollback
> =messabox('')
> thisform.txtinvoiceno.setfocus()
> return
> endif
>
> if Tableupdate(2,.t.,'LedgerTransactions')
> rollback
> =messabox('')
> thisform.txtinvoiceno.setfocus()
> return
> endif
>
> endtransactions
>
> select invoice
> if !eof()
> skip
> else
> skip -1
> endif
> **************************
>

Anders
Mon Oct 25 09:11:29 CDT 2004

Siorry Sameer.
I didn't notice the ! in IF !TableUpdate. I always use IF NOT TableUpdate
just to make NOT stand out even if the font size is small.
-Anders

"Anders Altberg" <x_pragma@telia.com> wrote in message
news:e5JUobcuEHA.908@TK2MSFTNGP11.phx.gbl...
> I don't get it. If the TableUpdate succeeds you roll back the updates
> instead of committing them with END TRANS.
> -Anders
>
> "sameer" <sameer@discussions.microsoft.com> wrote in message
> news:FB0E168B-0FCA-42F0-9633-B21AA5C85F9F@microsoft.com...
> > if anybody can give solution to the following problem in vfp 7 version,
it
> > would be very tankful.
> > I am facing a severe problem, that in some of my clients systems some
> > records are missing or not updating properly. for example, if I have 3
> files
> > to be updated in a Transactios, one of the file is not updating. the
> records
> > çan be find updated before 'End Transactions'. but after the 'End
> Transacton'
> > Records are not updated
> > it is not showing any error messages even i put error handling
functions.
> > But the fact, which is updating properly in some other system.
> > secondly how i can check database/index file integrity.
> > the following command are given for updation
> > ***************************
> > bigin transactions
> >
> > detail
> >
> > if Tableupdate(1,.t.,'invoice')
> > rollback
> > =messabox('')
> > thisform.txtinvoiceno.setfocus()
> > return
> > endif
> > if Tableupdate(2,.t.,'invTrans')
> > rollback
> > =messabox('')
> > thisform.txtinvoiceno.setfocus()
> > return
> > endif
> >
> > if Tableupdate(2,.t.,'LedgerTransactions')
> > rollback
> > =messabox('')
> > thisform.txtinvoiceno.setfocus()
> > return
> > endif
> >
> > endtransactions
> >
> > select invoice
> > if !eof()
> > skip
> > else
> > skip -1
> > endif
> > **************************
> >
>