Hi everyone,
we just try to convert your VFP 9.0 software applications zu x#.
We get some problems with "APPEND for". The "for" clauses appends less data then our VFP code ( which works well )
Is something different in x#, have we to set something ?
Thank you very much for helping.
Peter
APPEND with for
Re: APPEND with for
Peter
Can you post a sample of the code and data?
Robert
Can you post a sample of the code and data?
Robert
XSharp Development Team
The Netherlands
robert@xsharp.eu
The Netherlands
robert@xsharp.eu
- COMSYSplus
- Posts: 7
- Joined: Sun Nov 26, 2023 8:48 pm
- Location: Deutschland
Re: APPEND with for
Robert,
we did it with following Code:
XSharp:
COPY FILE "Zwischen\f_artike_kopie.DBF" to "Zwischen\005_f_artike_use.dbf"
COPY FILE "Zwischen\f_artike_kopie.FPT" to "Zwischen\005_f_artike_use.fpt"
COPY FILE "Zwischen\f_artike_kopie.CDX" to "Zwischen\005_f_artike_use.cdx"
select 0
use "Zwischen\005_f_artike_use" alias artikel exclusive
delete all for recno() > 0
pack
use
select 0
use "Zwischen\005_f_artike_use" alias artikel
append from "Zwischen\f_artike_kopie" for ALLTRIM(Artiknr) < "2000"
=========================================================================================
VFP:
COPY FILE "Zwischen\f_artike_kopie.DBF" to "Zwischen\005_f_artike_use.dbf"
COPY FILE "Zwischen\f_artike_kopie.FPT" to "Zwischen\005_f_artike_use.fpt"
COPY FILE "Zwischen\f_artike_kopie.CDX" to "Zwischen\005_f_artike_use.cdx"
select 0
use "Zwischen\005_f_artike_use" alias artikel exclusive
Zap
use
select 0
use "Zwischen\005_f_artike_use" alias artikel
append from "Zwischen\f_artike_kopie" for ALLTRIM(Artiknr) < "2000"
=========================================================================================
The result is:
XSharp: ==> Datensätze nach append for: 16 <==
VFP: ==> Datensätze nach Append for: 37 <==
I attach the tables which we are using als zip-file.
Peter
we did it with following Code:
XSharp:
COPY FILE "Zwischen\f_artike_kopie.DBF" to "Zwischen\005_f_artike_use.dbf"
COPY FILE "Zwischen\f_artike_kopie.FPT" to "Zwischen\005_f_artike_use.fpt"
COPY FILE "Zwischen\f_artike_kopie.CDX" to "Zwischen\005_f_artike_use.cdx"
select 0
use "Zwischen\005_f_artike_use" alias artikel exclusive
delete all for recno() > 0
pack
use
select 0
use "Zwischen\005_f_artike_use" alias artikel
append from "Zwischen\f_artike_kopie" for ALLTRIM(Artiknr) < "2000"
=========================================================================================
VFP:
COPY FILE "Zwischen\f_artike_kopie.DBF" to "Zwischen\005_f_artike_use.dbf"
COPY FILE "Zwischen\f_artike_kopie.FPT" to "Zwischen\005_f_artike_use.fpt"
COPY FILE "Zwischen\f_artike_kopie.CDX" to "Zwischen\005_f_artike_use.cdx"
select 0
use "Zwischen\005_f_artike_use" alias artikel exclusive
Zap
use
select 0
use "Zwischen\005_f_artike_use" alias artikel
append from "Zwischen\f_artike_kopie" for ALLTRIM(Artiknr) < "2000"
=========================================================================================
The result is:
XSharp: ==> Datensätze nach append for: 16 <==
VFP: ==> Datensätze nach Append for: 37 <==
I attach the tables which we are using als zip-file.
Peter
- Attachments
-
- f_artike_kopie.zip
- (13.53 KiB) Downloaded 2 times