LOCAL
dsDataSource is Data Source <description=products>
sFileName is string = "products"
ctKassaLokal is Connection
bRes is boolean
bHFCSConnected is boolean = True
sDataDir is string = CompleteDir(fExeDir())
HAlias(sFileName, dsDataSource)
HChangeName(dsDataSource,{sFileName,indFile}..DescribedPhysicalName) //Important!
IF bHFCSConnected THEN
ctKassaLokal..Access = hOReadWrite
ctKassaLokal..Database = "TESTDB"
ctKassaLokal..User = "admin"
ctKassaLokal..Password = "password"
ctKassaLokal..Server = "localhost:4900"
bRes = HOpenConnection(ctKassaLokal)
HChangeDir(dsDataSource, "")
HChangeConnection(dsDataSource, ctKassaLokal)
ELSE
HChangeDir(dsDataSource, sDataDir)
END
HReadFirst(products, prod_no)
WHILE NOT HOut(products)
HReadSeek(dsDataSource, prod_no, products.prod_no, hIdentical)
IF HFound(dsDataSource) THEN
Trace(dsDataSource.prod_no + ", ", + dsDataSource.prod_description)
END
HReadNext(products, prod_no)
END
HCancelAlias(dsDataSource)