FiveTech Software tech support forums

Enviado al correo.

Saludos.

Yo lo tengo funcionando desde hace algunos años, si me das tu correo, te envío las estructuras y el código... luego, si te sirve lo publicas.
Saludos.

joseluis

Esto funciona para mi desde hace algunos años.

Saludos.


FUNCTION BldMenu()
*----------------------------------------------------------------*
LOCAL oMainMenu, oMnuItem, lRight, cValue, cMnuAlias, i:= 1, nRec, fAction, cFileBmp, cResName
LOCAL cQry, oQry, nL, nEnd

IF ! oApp:lMySql ...

Prueba modificando la clase:

METHOD Fill() CLASS TDBCombo

// Refill aItems and aList from cAlias->cFldItem and cAlias->cFldList

LOCAL nOldRecNo
LOCAL nItem, nList

::aItems := {}
::aList := {}

IF ! HB_IsObject( ::cAlias )

IF ::cAlias == ""
* IF Empty( ::cAlias )
// There's no workarea ...

José Luis,

Mira si te sirve:

FUNCTION BldMenu()
*----------------------------------------------------------------*
LOCAL oMainMenu, oMnuItem, lRight, cValue, cMnuAlias, i:= 1, nRec, fAction, cFileBmp, cResName
LOCAL cQry, oQry, nL, nEnd

IF ! oApp:lMySql && Si es DBF

IF !AbreDbf( @cMnuAlias ...

QEPD

Otro que se une a nuestro amigo Ramón Paredes.

Que Dios les guarde.

Antonio,

Se podría abrir un fichero que está siendo utilizado por otra aplicación en modo exclusivo? así como hace visual foxpro con SET EXCLUSIVE OFF

Saludos.

tambien:

for each hItems in aHash:Values()
? hItems:cMatricula
? hItems:cMarca
? hItems:nPrecio
? hItems:cColor
next

HHasKey( aHash, "O-2222-BB" ) --> lExists

Teníamos pendiente con él y Carlos Vargas, una reunión de Fivewiners y fortalecer lazos de Amistad. Pude hablar con él, pero no se concretó la reunión.

Mi sentido pésame por la familia, que Dios le guarde y le tenga en su presencia.

William, mi buen amigo.

Lamento mucho la situación de tu hijo, y el dolor que como buenos Padres sentimos por nuestros indefensos hijos. Estoy contigo, y lo mejor que podemos hacer es ORAR A DIOS para que sane sus huesitos y se recupere muy pronto.

Un abrazo.

Jairo

Prueba ésto:


cConn:="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+cFileMdb+";Persist Security Info=False;Jet OLEDB:Database Password="+dbPass
oCone := TOleAuto():New("ADODB.Connection")
oConw:ConnectionString := cConn
oCone:Open()

Saludos,

José Luis,

Prueba asi:

WITH OBJECT ( oBrow := TXBrowse():New( oFolder:aDialogs[1] ) )
//:CreateFromResource( 101 )
...
FOR i := 4 TO 13 STEP 2
IF ! EMPTY( aCatalog[nForm, i] )
&& Agrega columnas al xBrowse
WITH OBJECT ( oCol := :AddCol() )
:cHeader := aCatalog[nForm, i]
:nArrayCol ...

Loren,

SWITCH uVal
CASE "C"
cString += CHR(34)+UPPER(ALLTRIM(aGet[1,2]))+CHR(34); EXIT
CASE "N"
cString += STR(aGet[1,2],,,.t.) ; EXIT
CASE "D"
cString += "CTOD("+'"'+DTOC(aGet[1,2])+'")' ; EXIT
CASE "L"
cString += "."+ALLTRIM(aGet[1,2])+"."
END

IF ! HB_IsNull( cString ) //! EMPTY( cString ...

Adhemar,

REDEFINE BUTTON aoButtons[3] ID 303 OF oFrmUsersCfg ; //Cancelar
ACTION ( nLost := 1, CancelClick( oFoldUsers, aoButtons ), lNew := FALSE );
CANCEL UPDATE

Saludos,

Jairo