Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
I'll wait eagerly; especially multiple RDD support, because DBA doesn't have and because many people need itMigSoft wrote:
...
In the future we can all keep adding new features.
...
Here is very humble code, which may be helpful for this viewtopic.php?f=15&t=284MigSoft wrote:Hi Sudip,
Very interesting. How so
Regards,
MigSoft
Hola Miguel Angel, lo veo bastante completo, ahora bien ¿Con qué IDE y versión se compila?, con el de HMG, el de Minigui...MigSoft wrote:Hello everyone,
"dbfview" is an application that is a mixture of code provided by our friends Rathinagiri, Grigory Filatov and an adaptation of sample "contactos" by Roberto Lopez.
I hope it serves as a starting point of a tool for viewing files DBF.
Regards,
Miguel Angel Juárez A.
Compile with IDE
Code: Select all
IF !Empty(aNewFile)
Use (aNewFile[1]) New /*Note */
_DBULastPath := curdrive()+':\'+CurDir()+'\'
If !Used(aNewFile[1])
/* MsgInfo("Unable open file: "+aNewFile[1],PROGRAM) */
Use (aNewFile[1]) New shared /* Note */
oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
cBase := Alias()
nCamp := Fcount()
aEst := DBstruct()
aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
For i := 1 to nCamp
aadd(aNomb,aEst[i,1])
aadd(aJust,iif(aEst[i,2]=='N',1,0))
aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
Next
CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
Else
oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
cBase := Alias()
nCamp := Fcount()
aEst := DBstruct()
aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
For i := 1 to nCamp
aadd(aNomb,aEst[i,1])
aadd(aJust,iif(aEst[i,2]=='N',1,0))
aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
Next
CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
Endif
Else
cBase := ''
EndifHola Tristan:Tristan wrote:Hi All,
I need utility to make dbf file & cdx index, where i can find it?
Thanks,
Tristan
Code: Select all
REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT ("DBFCDX"Code: Select all
Cpathbases :=cDisco+ "seguros\bases\"+"tipos"
CPathindices:=cDisco+ "seguros\indices\"+"tipos"
use &Cpathbases VIA "DBFCDX"
INDEX ON STR(COD_TIPO,3) TAG COD_TIPO TO &CPathindices
INDEX ON UPPER(DESC) TAG DESC TO &CPathindices
Hello Tristan:Tristan wrote:Thanks Daniel
Is dbf/cdx file create from HMG compatible with Foxpro26 Dos version or VFP 9?
Is there utility like DBU for create dbf/cdx file?
Regards,
Tristan