Subject Re: Append problem xdml
From Akshat Kapoor <akshat.kapoor@kapoorsons.in>
Date Sun, 8 Nov 2020 19:19:43 +0530
Newsgroups dbase.getting-started

Good Evening Charlie,
>
> use taldata order lname
 >         do while not eof()
 >            partno = part_no
 >                 set filter to part_no = partno
 >                 count to cnt
 >                 if cnt > 1
 >                    cntr = cnt
 >                         do while cntr > 1
 >                            delete
 >                            cntr = cntr - 1
 >                         enddo
 >                         replace qty with cnt
Only the last row will be updated as rest have been deleted in the above
loop.
>                    set filter to
 >                 endif
 >                 skip
 >         enddo
 >
> And it does add the blank correctly but it also changes somehow the size of taldata.dbf and fails when you try to run talfinis.prg.  I think it has something to do with an indexing problem.  What happens is instead of replacing all fields, only the last record in taldata is changed.  So if you add a total of 60 records in master.dbf, the last record of corresponding taldata.dbf shows a quantity of 60.  I have tried to reindex taldata.dbf but i don't think that helped.
 >
> i'm thinking possibly I can fix this in talfinis.prg but with the set relation, i'm not sure what to do.
We have not idea how and why you are processing the records. So the only
recommnedation I could make is mentioned above.

You mentioned dbase 4
In those days networking was a luxury and so this program was made for a
single user only.

In case you are not the original programmer i.e. you inherited it I
would recommend starting from scratch and building a new program using
the latest methods if you can afford the time.

Making small changes will consume lots of time and in the end the app
will always remain outdated.

Regards
Akshat