FiveTech Software tech support forums

... //----------------------------------------------------------------------------// Function NomeFunc(oCod) Local MyDb, nRet nRet := space(40) MyDb:= Select() SELECT MULTIFUN MULTIFUN->(DBSETORDER(1)) if MULTIFUN->(DbSeek(oCod) ) nRet:=Alltrim(MULTIFUN->NOMFUN) ...

ARREGLADO FALTABA lSAved:=.T. Function cGetFile32( cFileMask, cTitle, nDefaultMask, cInitDir, lSave, nFlags, cIniFile ) local cSection, cFile local nRet DEFAULT lSave := .f. CursorWait() // On cGetFile() that parameter is a boolean for long filenames if nFlags != Nil .and. ValType( nFlags ) != "N" ...

... now test this i have a File TEXT.TXT but it still does not "open" IF FILE(cPath + cFile )   MsgInfo( cPath + cFile )   nRet := ShellExecute( oWnd:hWnd, "open", TRIM( cPath+cFile )  ) File() des exist MsgInfo() show full Path and Filename nRet ...

...  IF FILE(cPath + cFile )      // open with associate App      MsgInfo( TRIM( cPath+cFile ))      nRet := ShellExecute( oWnd:hWnd, "open", CHR(34)+ TRIM( cPath+cFile ) +CHR(34)  ) MsgInfo() show right Path+Filename ...

... codigo que utilizo con bematech #include "..\INCLUDE\DPXBASE.CH" MEMVAR oDp /* // Inicializa la Impresora */ FUNCTION BEMA_INI() LOCAL nRet,cError:="",I LOCAL cWinDir :=GetWinDir()+"\System32\" LOCAL cFileDll:=cWinDir+"bemafi32.dll" LOCAL aDlls:={} DEFAULT ...

... NFe (*.xml) | *.xml", "Selecione um Arquivo",,, .F., GETF_ALL ) Analisando os fontes da função, tem a seguinte chamada nRet := WinExec( "rundlg32 " + If( lSave, "2", "1" ) ) Não encontrei esse **rundlg32** Fico no aguardo.

Hi, I have a function which would like to call by parameters PRG: NRet: = CBIOS_UPWLogin ("demo\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00") Lib: libcbios.a is available // in cbios.h DWORD WINAPI CBIOS_UPWLogin (BYTE bUPW ...

Hi, I have a function which would like to call by parameters PRG: NRet: = CBIOS_UPWLogin ("demo\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00") Lib: libcbios.a is available // in cbios.h DWORD WINAPI CBIOS_UPWLogin (BYTE bUPW ...

... ) ::ocontainer:refresh() RETURN NIL /*******************************************************************/ METHOD Incrustar( hwnd ) LOCAL nret // Lo metemos dentro del ocontainer SetParent( hwnd, ::ocontainer:hwnd ) // Maximizamos la ventana incrustada dentro del contenedor, mediante el ...

Busca informacion sobre la function

//nRet := hb_ProcessRun( cCommand, cStdIn, @cStdOut, @cStdErr, lDetach )

e investiga despues el contenido de cStdOut

También puedes mirar esta function de Harbour

nRet := hb_processrun( cCommand , cStdln , @cStdOut, @cStdErr, lDetach)

En la variable cStdout tienes la salida del comando ejecutado

... LOCAL cEvent := cValToChar( event ) LOCAL cTemplate, nTemplateSize, nRet IF .NOT. lEmOperacao IF cEvent == "SensorPlug" .and. aParams[1] != "File" oFinger:Do("CapStartCapture",AllTrim(aParams[1])) ...

... Error E0047 Code Both block contains macro and declared symbol I tried to get the line that produces the error in a small test program DbEval( {|| nRet ++ }, {|| .not. Deleted() } ) but in that case the compilation is successful. thank you

... block contains both macro and declared symbol ho tentato di riportare la riga che genera l'errore in un piccolo programma di prova DbEval( {|| nRet ++ }, {|| .not. Deleted() } ) e li la riga e' compilata regolarmente. Con Harbour non ho problemi. Grazie

... MAIN() //------------------------------------------------------------------------------------------------------------- LOCAL aStruct, cFichero, nRet := 0 // Idioma español para Harbour HB_LangSelect("ES") // Para mensajes, fechas, etc.. HB_CDPSELECT("ESWIN") // Para ordenación, ...