FiveTech Software tech support forums

Thanks for your help .

Here is the code that work for me .

oRs:Filter := oLbx:aSelected
oRs:MoveFirst()
do while !oRs:Eof()
msgalert(oRs:Fields(1):Value)
oRs:MoveNext()
enddo

Thanks

Philippe

... image :?: aImage := oWnd:ReadImage( cBackImage, , .t. ) :bPaintBack := < |Self| FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) // MsgAlert( FW_ValToExp( ::DataRect():aRect ) ) // returns the array of the used painting area -> { 23, 24, 456, 783 } // { top, left, bottom, right ...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf ...

... cJason=StrToBase64( cJason ) cOrigen=cOrigen+cJason //MsgAlert(cOrigen) ElTxt:= "QrJason.txt" Nhandle:= fcreate(ElTxt) If (nhandle > 0) fwrite(Nhandle, cOrigen + CRLF) fclose(nhandle) EndIf ...

... ) if HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT+"\"+apunte) msgalert("Ya existe ese apunte") aFiles:=Array( ADir( Curdrive()+":\"+cfILES+"\"+"*.*", aFiles ) ) if len(aFiles)==0 ...

... ) if HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT+"\"+apunte) msgalert("Ya existe ese apunte") aFiles:=Array( ADir( Curdrive()+":\"+cfILES+"\"+"*.*", aFiles ) ) if len(aFiles)==0 ...

... AS LONG) AS BOOL PASCAL FROM "NET_DVR_GetDVRWorkState_V30" LIB "HCNetSDK.dll"function test2()  msgalert(1)  NET_DVR_Init()  msgalert(2)  NET_DVR_SetConnectTime(3000,3)  msgalert(3)  msgalert(NET_DVR_GetDVRWorkState_V30("admin"))  ...

... ventana activa. Se ha corregido. Esta función ahora sólo afecta a las funciones Msg*() del API de Windows como por ejemplo: MsgInfo(), MsgStop(), MsgAlert(), MsgYesNo(), MsgYesNoCancel(), MsgRetryCancel(), MsgAbout() y también a las funciones MsgRun()y MsgWait() de FWH. - Después de llamar a la ...

... were also centered in the active window. This is fixed now. This function now affects only Windows Api Msg* dialogs, i.e., MsgInfo(), MsgStop(), MsgAlert(), MsgYesNo(), MsgYesNoCancel(), MsgRetryCancel(), MsgAbout() and also FWH functions MsgRun(), MsgWait(). - After calling CenerMsgs(), calling ...

... hay una actualización a estos clientes NO se le actualiza, incluso no soy capaz de modificar el código fuente para que al menos se le muestre un msgalert advirtiendo del problema.   oFtp     :=tFtp():New(cServer,oInternet,cUser,cPass)  if !Empty( oFtp:hFtp )   cmensaje='Conectado ...

Hola remtec:
pon una bandera con msgalert(nkey) dentro del keydown para que verifiques si llega alli, ademas esta todo junto la sentencia:

Code: Select all  Expand view

nKey=32.or.nKey=VK_RETURN
 

prueba asi:

Code: Select all  Expand view

nKey=32 .or. nKey=VK_RETURN
 

... I need to insert this icon into the button. How can I do that ? @ 50 , 280 BUTTONBMP oBtn3 BITMAP 'SETUP1.bmp' SIZE 64, 64 PIXEL OF oDlg ; ACTION MsgAlert( "Test" ) regards Uwe :D

... DatNom=allTrim( substr( cTextoHTML, at( '<tr class="odd"><th>Nombre</th><td>', cTextoHTML )+34,100 )) // MsgAlert('DatNom1: '+DatNom) DatNom=alltrim( substr( DatNom, at('>',DatNom)+1, 50 ) ) // MsgAlert('DatNom2: '+DatNom) DatNom=alltrim( substr( DatNom, ...

... oOutlook := CreateObject( "Outlook.application" ) MsgWait( "Outlook is open now by CreateObject!","Info",2 ) Catch MsgAlert( "Cannot open outlook" ) End End If oOutlook == nil MsgAlert( "oOutlook is nil" ) Endif Return oOutlook Both seem to work ...

Hallo Iris,

I have to find out if a character variable inside is alphanumeric or numeric.

VAL returns the info You are looking for

Msgalert( VAL( "aaa" ) ) = 0
Msgalert( VAL( "111" ) ) = 111

best regards
Uwe