DLL32 Static Function.... error

DLL32 Static Function.... error

Postby Mayor_Valenzuela » Thu Sep 11, 2008 2:17 pm

Error al compilar tsbrowse, nuchas de estas sentencias comunes generan errores de compilacion, puedo ver a groso modo que la sintaxis esta bien..


.\FUENTES\TSBROWSE.PRG(11430) Error E0030 Syntax error: "syntax error at 'STATIC'"


DLL32 STATIC FUNCTION MoveFile( cOldName AS STRING, cNewName AS STRING ) ;
AS LONG PASCAL FROM "MoveFileA" LIB "kernel32.dll"

Cual es el error????

Gracias...
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile

Postby Antonio Linares » Thu Sep 11, 2008 4:21 pm

Aqui compila perfectamente sin dar error.

Que versión de FWH estás usando ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42161
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Mayor_Valenzuela » Fri Sep 12, 2008 4:22 pm

La version es la 7.12 y harbour bajado de esta misma pagina...
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile

Postby Mayor_Valenzuela » Fri Sep 12, 2008 4:28 pm

Ahora se genera un error de ejecucion. con la version anterior no tenia problemas, funcionaba bien...


Select(oDbf[2]:cAlias)
oDbf[2]:GoBottom()
Until:=(oDbf[2]:cAlias)->Indice
aSelect := {}
For I = 1 To Until
Set Filter To Indice = I
Index On Substr(N_Pedido,8,5)+SubStr(N_Pedido,5,2) To Pedd031
oDbf[2]:GoTop()
While !Eof()
Aadd(aSelect, { FieldGet(1), FieldGet(2), FieldGet(3), FieldGet(4) } )
If !Eof()
Skip
Else
Exit
EndIf
End While
Next


Application
===========
Path and name: H:\HYTSYS32\HytSys32.exe (32 bits)
Size: 2,300,416 bytes
Time from start: 0 hours 0 mins 39 secs
Error occurred at: 12/09/2008, 11:52:15
Error description: (DOS Error 32) DBFNTX/1006 Create error: Pedd031.ntx

Stack Calls
===========
Called from: => ORDCREATE(0)
Called from: source\rdd\rddord.prg => DBCREATEINDEX(59)
Called from: .\SOURCE\GENEPED.PRG => AGREMOD(282)
Called from: .\SOURCE\GENEPED.PRG => (b)ADDPED(179)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\SOURCE\GENEPED.PRG => ADDPED(183)
Called from: .\SOURCE\GENEPED.PRG => (b)SETBTNBAR(156)
Called from: => TSBUTTON:LBUTTONDOWN(1252)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TSBUTTON:HANDLEEVENT(1152)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: .\SOURCE\HYTSYS.PRG => MAIN(60)
User avatar
Mayor_Valenzuela
 
Posts: 62
Joined: Tue Jul 08, 2008 4:27 pm
Location: Santiago, Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 49 guests