I have tried to create a structure with STRUCTURE/ENDSTRUCTURE but i get an error
Code: Select all
STRUCT oQueryAlias
//type:STRING,NUMERIC,LOGICAL,DATE,DATETIME,CODEBLOCK,ARRAY,OBJECT,HASH>
MEMBER cQueryAlias AS STRING INIT ""
MEMBER cColunaFiltro AS STRING INIT ""
MEMBER aFieldSql AS ARRAY INIT {}
MEMBER aWhereSql AS ARRAY INIT {}
MEMBER aGroupSql AS ARRAY INIT {}
MEMBER aOrderSql AS ARRAY INIT {}
MEMBER nLimitSql AS LONG INIT 0
MEMBER nOffSetSql AS LONG INIT 0
ENDSTRUCT
Code: Select all
Application
===========
Path and name: C:\test\app.EXE (32 bits)
Size: 1,961,984 bytes
Time from start: 0 hours 0 mins 6 secs
Error occurred at: 16/01/2009, 19:31:26
Error description: Error BASE/1106 Argument error: REPLICATE
Args:
[ 1] = C
[ 2] = U
Stack Calls
===========
Called from: => REPLICATE(0)
Called from: .\source\classes\TStruct.PRG => TSTRUCT:ADDMEMBER(0)
Called from: C:\extras\xbrowse.prg => TXBROWSE:SETOBJQUERY(6233)
Called from: C:\extras\xbrowse.prg => TXBROWSE:NEW(610)
Called from: C:\modulos\Cadastros\Cadastro_Empresa.prg => SELECIONAEMPRESA(1411)
Called from: C:\modulos\Cadastros\Cadastro_UsuariosSistema.prg => LOGINSISTEMA(632)
Called from: C:\RepositorioLocal\main.prg => (b)MAIN(214)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: C:\RepositorioLocal\main.prg => MAIN(214)