FiveTech Software tech support forums

Jimmy All you need to do is add two fields to your database table cUser := WNetGetUser() // FiveWin function cUser := UPPER( cUser ) "LastUpdate" "D" 8 and "UpdatedBy" "C" 15 When you add or save a record just update the lastupdate ...

Hi all, when the oBrw:toExcel function is executed and the UseXLSXLIB( .T. ) command is active to use the Fwxlsxlb library this error appears : Application =========== Path and name: d:\Zephir\NwCoge\Sigah.exe (32 bits) Size: ********* bytes ...

you can use StretchBlt API function https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-stretchblt BOS Taurus of HMG have this : //*****************************************************************************************************************************//* ...

Hola Antonio. Esta declaracion: DLL32 FUNCTION PeriodSalesByGrade( pt AS LPSTR, periodID AS LPSTR, pte AS LPSTR, @periodInfo AS LPSTR ) AS BOOL FROM "Fusion" LIB "FusionClass.dll" La puse y tambien la saque para probar si ...

Disculpa, no entiendo la pregunta. Aqui está la declaración de tu función: DLL32 FUNCTION PeriodSalesByGrade( pt AS LPSTR, periodID AS LPSTR, pte AS LPSTR, @periodInfo AS LPSTR ) AS BOOL FROM "Fusion" LIB "FusionClass.dll" sin embargo en tu código ...

... redrawn and somewhat flicker then. I wonder if this is standard behavior or do I have to look at my code for a wrong code.... Shift select has no function of mine to call.

... Static Status,SubStatus,ModCem ******************** VENTANA PRINCIPAL DEL SISTEMA *************************** Function Main() Local oDbf,Vec1,Q,Titulo,MsgFooter,IPCem Private DBF1,CDX1 DBF1:=CurDrive()+":\"+Curdir()+"\CONFPIPE.DBF" USE &DBF1 ...

Use CHOOSECOLOR() function instead of a fixed RGB() color.

... PathUrl() and it perfectly returns to me the relative path such as "/folder/subfolder". Maybe someone could advise me an equally nice function for the full URL, including protocol and domain name like "https://example.com/folder/subfolder". ChatGPT told me to work around ...

I allready Used

Function GetIP()
Local cVar1
WsaStartUp()
cVar1 := GetHostByName( GetHostName() )
WsaCleanUp()
return cVar1

Please set harbour warnings to the highest level (-w3). That way, you will find some errors in your code (oServer is not declared nor assigned in DemoMySql() function).

Mira, se ayuda: // C:\FWH\SAMPLES\SHOWPDF3.PRG #include "FiveWin.ch" STATIC oWnd FUNCTION Main() LOCAL oActiveX, oPdf, oIco, oBar, oBmp, cFile cFile := "C:\TEMP\MODELO.PDF" SkinButtons() DEFINE ICON oIco FILE "..\icons\fax.ico" // mdichild ...

Just a FYI. I noticed my function below doesn't work when I compiled with FWH+Harbour FUNC UD_KeyPress( nKey)     DO CASE        CASE nKey == VK_F3         && F3 - System date             KEYBOARD DTOC( DATE() ...

HI,
You could use the "directory" function

aFiles := DIRECTORY( "f:\myapp\report\" + "202405*.pdf")

... MQTTLIB "paho-mqtt3c.dll" #DEFINE DLL_OSAPI 0x0020 // __stdcall #DEFINE NULL Nil Static nHandle Static ConnLost , MsgArrvd, Delivered Function WPRA101_MQTT() Local nResult if !file( MQTTLIB ) Vt_Aviso("Arquivo " + MQTTLIB + " não localizado...",.T.) Return( Nil ...