FiveTech Software tech support forums

... + " (" + &num + ")" OF oAmbRitardo SIZE 30,10 sample : I := 1 FOR I := 1 TO 10 num := "N" + LTrim(str(I)) MsgAlert( "massimo (" + num + ")" ) NEXT regards Uwe :D

... == 200 oADODBStream:Type := 1 oADODBStream:Open() oADODBStream:Write( oXMLHTTP:ResponseBody ) oADODBStream:SaveToFile( cDest, 2 ) // MsgAlert("Download feito, ok", "Aviso") lOk:=.t. Else // MsgAlert("Erro com download", "Aviso") lOk:=.f. Endif ...

... == 200 oADODBStream:Type := 1 oADODBStream:Open() oADODBStream:Write( oXMLHTTP:ResponseBody ) oADODBStream:SaveToFile( cDest, 2 ) // MsgAlert("Download feito, ok", "Aviso") lOk:=.t. Else // MsgAlert("Erro com download", "Aviso") lOk:=.f. Endif ...

Silvio,

a test with 50 days

SET DATE GERMAN
ddateInit := ctod("31.08.2013")
dDatefinal := ctod("31.08.2019")

DO while dDatefinal >= ddateInit
ddateInit+=50 //add 3 days
MsgAlert( ddateInit )
EndDo

regards
Uwe

... oFtp:Directory( "*.*" ) MsgInfo( Len(aFiles),"aFiles" ) AEval( aFiles, { | aFile | MsgInfo( aFile[ 4 ], aFile[ 3 ] ) } ) else MsgAlert( "oFtp:hFtp is null...","Connection not established." ) endif oInternet:End() MsgInfo( "Done!" ) return nil Thank ...

... succeeded and failed? I want to determine if UPDATE FAILED so I can INSERT record. TRY oSql:=TOleAuto():New("ADODB.Recordset") CATCH MsgAlert("It seems that your PC does not have MDAC installed OR MDAC is corrupted.") RETURN (.F.) END oSql:CursorType := 1 // opendkeyset ...

... Set Delete On Set Epoch to 1956 Set Century On SET DECIMALS TO 2 hWnd := FindWindow( 0, "Finder 1.0") IF hWnd != 0 ShowWindow( hWnd, 1 ) MsgAlert("Ya esta corriendo la aplicacion","Advertencia") QUIT ENDIF PRINTER oPrn to "CFDPRINTER" DEFINE WINDOW oWnd FROM ...

... 6 ]:lBtnTransparent := .t. :aCols[ 6 ]:nBtnBmp := 1 :aCols[ 6 ]:nEditType := EDIT_BUTTON :aCols[ 6 ]:bEditBlock := { | nRow, nCol, oCol, nKey | ; MsgAlert( "Row : = " + ALLTRIM( STR( oBrw:Keyno() ) ) + CRLF + ; "Col : = " + ALLTRIM( STR( oBrw:nColSel ) ), "SELECTION" ...

... +1, oGet:nRight BTNBMP oBtn OF oDlg ; SIZE 20, oGet:nHeight PIXEL ; // B / H width = fixed value FILENAME c_path1 + "Down4.png" ; ACTION MsgAlert( "Test" ) ; CENTERED NOBORDER ADJUST http://www.pflegeplus.com/IMAGES/Getbtn2.jpg Your selected image ( with resized ...

Silvio, there is a function ( seems to work as well ) // can now convert date text containing month names also into valid dates. MsgAlert( uCharToVal ( "Monday, 04 March 2019" ) ) regards Uwe :D uCharToVal( "Monday, 04 March 2019", "D" ) works well with English ...

Silvio,

there is a function ( seems to work as well )

// can now convert date text containing month names also into valid dates.
MsgAlert( uCharToVal( "Monday, 04 March 2019" ) )

regards
Uwe

... and added a message METHOD KeyDown( nKey, nFlags ) CLASS TXBrowse ... ... case nKey == VK_RIGHT if GetKeyState( VK_CONTROL ) ::GoRightMost() else MsgAlert( STR(nKey), "Go right" ) ::GoRight() :!: endif closing the message the cell is painted without the message nothing happens http://www.pflegeplus.com/IMAGES/Cellfocus1.jpg ...

... "ADODB.Connection" ) TRY oConnection:open("Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=C:\_DWH\DWH.MDB;") CATCH oError MsgAlert(" No se pudo establecer conexión con la base de datos..","Atención") RETURN .F. END TRY oRSet := CreateObject( "ADODB.RecordSet" ...

... can use : @ 185, 810 GET oGet[1] VAR nAge SIZE 30, 22 PICTURE "99" PIXEL UPDATE oGet[1]:bLClicked := {|| aSize := GET_SIZE( oGet[1] ), ; MsgAlert( "Top : " + ALLTRIM(STR(aSize[1])) + CRLF + ; // only for test "Left : " + ALLTRIM(STR(aSize[2])) + CRLF + ; "Width ...

... ; TOOLTIP "Cancelar" BORDER ACTIVATE DIALOG oDlg CENTERED if lGoOn SysRefresh() sele 1 set order to 1 go top seek alltrim(wnom) if eof() msgalert("Inexistente...") go top return NIL endif HC0100LI10() endif olbx:refresh() return nil *-------------------------------------- FUNCTION ...