Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Apparently I can't run it without translationPablo César wrote:Ohh yes it is working !esgici wrote:User defined conversion "processos" not working yet, is this correct ?
(I will start tomorrow, I promess to you dear Esgici !)Sorry, after "Gravar" editbox, "Salvar" always left disabledPablo César wrote:Remember, you will need to make your own source code inside that EditBox and save your text with "Gravar" in menu item. Then you can "Salvar" just for apply modifications.
Please ...Pablo César wrote:Translations... just strings...
You so right, amigo Esgici. Even if no structure changing was made and any process has been changed, at least must allow for save "Salvar". Sorry was missing enabling "Salvar" button. Also was corrected a path+new name of dbf that is directly connected with the same name of prg which must compile & execute in runtime. Another think, when any changing is made (not structural) only data by processes, STRU should has not to be mention of any changing, so was needing to check structural of before and after saving.Esgici wrote:Sorry, after "Gravar" editbox, "Salvar" always left disabled
Sorry, amigo was not detecting prg files then was not executing. Now it is working !Esgici wrote:I'm wondering really, how you will execute an User Defined Function at run time
Just to clearify this question. To you amigo Esgici and for rest of fellow of this forum. Clipper on line placed in: http://www.pctoledo.com.br/forum/index.php is a brazilian forum for xBase language.Esgici wrote:I did not almost anything understand from "Clipper On Line" forum because of language restrictionPablo César wrote:..."Clipper On Line" site
So it's impossible to know what features have it.
Code: Select all
#include "dbinfo.ch"
PROC Main()
* Test .prg for MemFExtn() function
SetMode( 25, 80 )
CLS
? "Memo File extention :", MemFExtn() // NIL
? REPL( "-", 80 )
cTfName := "MFInTst1"
aStruct := { { "FLD1", "C", 10, 0 } }
DBCREATE( cTfName, aStruct )
USE ( cTfName )
? "Memo File extention :", ">" + MemFExtn() + "<" // ><
? REPL( "-", 80 )
cTfName := "MFInTst2"
aStruct := { { "FLD1", "M", 10, 0 } }
DBCREATE( cTfName, aStruct )
USE ( cTfName )
? "Memo File extention :", MemFExtn() // .dbt
? REPL( "-", 80 )
cTfName := "MFInTst3"
aStruct := { { "FLD1", "M", 10, 0 } }
DBCREATE( cTfName, aStruct, "DBFFPT" )
USE ( cTfName )
? "Memo File extention :", MemFExtn() // .fpt
? REPL( "-", 80 )
?
WAIT "EOF MemFExtn.prg"
RETURN // MemFExtn.Main()
/*
Function MemFExtn() -> Memo File Extention of current table
Return : If current work area is empty : NIL
elseIf current table not include MEMO field : ""
else .dbt / or .fpt depending RDD use in creation of current table.
Required :
#include "dbinfo.ch"
Aug 2012
*/
FUNCTION MemFExtn() // Mem file extention
LOCAL xRetVal
IF !EMPTY( ALIAS() )
IF DBINFO( DBI_MEMOHANDLE ) < 0
xRetVal := ""
ELSE
xRetVal := DBINFO( DBI_MEMOEXT )
ENDIF
ENDIF !EMPTY( ALIAS() )
RETURN xRetVal // MemFExtn()