FiveTech Software tech support forums

... *--------------------------------- Static Function ValArtCap(cNumArt , oDbArti , oDbDetCom ) IF ! oDbArti:Seek( cNumArt , .t.) MsgBeep() MsgAlert("El Articulo no Existe "+ cNumArt +" No Exiete en el Catalogo de Articulo") // oHojeador:HiliteCell(1) oHojeador:SetFocus() oHojeador:Refresh() ...

... Dentro de esa funcion utilizo esa variable para hacer una comparacion, pero me daba un error. Para averiguar que valor estaba tomando use un MsgAlert: MsgAlert("Contenido de cCambiar : "+cCambiar,"PACORR!!!") Y este fue el Error.log que me genero: Time from start: 0 hours 0 mins 18 secs Error ...

... CLASS TPrincipal ::lIngreso := .f. ::cVersion := "Versión 1.0.1" RETURN Self //-------------------------------- METHOD Hola() CLASS TPrincipal MsgAlert( "Hola..." ) RETURN NIL ****PROGRAMA 2 #Include "FiveWin.ch" //-------------------------------- CLASS TSegunda FROM TPrincipal METHOD New() ...

... Dentro de esa funcion utilizo esa variable para hacer una comparacion, pero me daba un error. Para averiguar que valor estaba tomando use un MsgAlert: MsgAlert("Contenido de cCambiar : "+cCambiar,"PACORR!!!") Y este fue el Error.log que me genero: Time from start: 0 hours 0 mins 18 secs Error ...

... entretiene ;-) DbAppend() FOR n := 1 TO nFldCount FieldPut( n, oTbGpos:xFieldGet( n ) ) NEXT end DbCommit() DbGoTop() // DATABASE oDbGrupos else MsgAlert("La Tabla de Grupos esta vacia") return(.t.) endif else msgAlert("La Tabla de grupos no esta abirta") return(.t.) endif DEFINE TABLE oTbSGpos ...

... pero entretiene ;-) DbAppend() FOR n := 1 TO nFldCount FieldPut( n, oTbGpos:xFieldGet( n ) ) NEXT end DbCommit() DbGoTop() DATABASE oDbGrupos else MsgAlert("La Tabla de Grupos esta vacia") return(.t.) endif else msgAlert("La Tabla de grupos no esta abirta") return(.t.) endif DEFINE TABLE oTbSGpos ...

... ferase(Ccamino+cFichtrab+'.ANT') endif (nSeletrab)->(dbclosearea()) IF frename((Ccamino+cFichtrab+'.DBF'), (Ccamino+cFichtrab+'.ANT')) == -1 MSGALERT("Imposible renombrar fichero..."+CcAMINO+CFICHTRAB+".DBF") RETURN .F. ENDIF IF FRename((Ccamino+"temptras.dbf"),(ccamino+cfichtrab+".dbf")) ...

... ferase(Ccamino+cFichtrab+'.ANT') endif (nSeletrab)->(dbclosearea()) IF frename((Ccamino+cFichtrab+'.DBF'), (Ccamino+cFichtrab+'.ANT')) == -1 MSGALERT("Imposible renombrar fichero..."+CcAMINO+CFICHTRAB+".DBF") RETURN .F. ENDIF IF FRename((Ccamino+"temptras.dbf"),(ccamino+cfichtrab+".dbf")) ...

Riccardo,

I missunderstood you, I though you were using Harbour, instead of xharbour.

Please create a MAP file and search for the GPF address into the MAP file.

Don't you get a FWH MsgAlert() with the calls stack list ?

... ) // Bloquea el registro MyAlias->Field := <NewValue> // Modifica el contenido MyAlias->( DbUnLock() ) // Desbloquea el registro else MsgAlert( "La base de datos está siendo usada..") Endif Algunas operaciones de base de datos (como crear un índice completo) precisan que abra la base ...

The following sample shows spurious characters if run from the root directory (MyDevice):

#include "Fwce.ch"


FUNCTION MAIN()

MSGALERT( "*" + CURDIR() + "*" )

RETURN NIL

The problem is reproduceable with the device emulator.

EMG

Randal,

Don't you get the FWH GPF MsgAlert() with the callstack ?

Have you tried to build some FWH samples that come with xHB ?

If not, could you create a MAP file and seach the GPF address into it ?

Frank,

Are you able to provide a sample to reproduce it ? Could you also generate a map file and see on what address is it GPFing ? Don't you get the calls stack list on a MsgAlert() ?