... a.pcforpag=b.pcforpag AND a.pcurgente=b.pcurgente AND b.pccadastro=84053 WHERE a.PCCADASTRO = 85430 AND b.pcproduto IS null

... -1 ); #else void *hOperation; void *hFile; void *hParameters; void *hDirectory; LPCTSTR lpDirectory; lpDirectory = HB_PARSTR( 4, &hDirectory, NULL ); if( lpDirectory == NULL ) lpDirectory = TEXT( "C:\\" ); hb_retnl( ( LONG ) ShellExecute( GetActiveWindow( ), HB_PARSTRDEF( 2, ...

... em C #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" HB_FUNC( HB_SHOWWINDOW ) { HWND hWnd = FindWindow( NULL, hb_parc( 1 ) ); SetForegroundWindow( hWnd ); SendMessage( hWnd, WM_SYSCOMMAND, SC_RESTORE, 0 ); } #pragma ENDDUMP Veja ai se vai funcionar. Estou ...

... $ harbour <source.prg> [win [32]]|[mac [arm]]" exit fi rm *.o *.c 2> /dev/null deps="hbct.hbc xhb.hbc" #deps="" if (test "$2" = "win") then # set env vars for mingw ... ...

Essas DLL do pg e da curl ele reclama, mas chega em um momento que reclamada de uma DLL NULL ou seja sem nome algum

... * src/vm/hvm.c + added C function: PHB_ITEM hb_vmCompileMacro( const char * szExpr, PHB_ITEM pDest ); It returns Harbour item or NULL at error (wrong macro text). The result should be used with hb_vmEvalBlockOrMacro() and then freed by hb_vmDestroyBlockOrMacro(). It hides ...

... ! fixed format specifiers in HB_TRACE() messages * src/common/expropt1.c * src/rtl/langapi.c * pass explicitly "(null)" string instead of NULL string pointer to HB_TRACE() messages, some C compilers can autoinline functions and generate warning detecting such ...

... if (hDC ) { sDoc.cbSize= sizeof(DOCINFO) ; sDoc.lpszDocName= hb_parc(2) ; sDoc.lpszOutput = hb_parc(2) ; // sDoc.lpszDatatype= NULL ; sDoc.fwType = 0 ; Result = (BOOL) (StartDoc(hDC, &sDoc) >0 ) ; } hb_retl(Result); } #pragma ENDDUMP METHOD StartEMF(cDocName) CLASS ...

... pCertGetName; //PTYPECERTNAMETOSTR pCertNameToStr; PTYPECERTFREECC pCertFreeCC; PTYPECERTCLOSESTORE pCertCloseStore; if (HCrypt != NULL && HCrypt2 != NULL){ //Sacamos el puntero todas las funciones que vamos a usar mediante GetProcAddress: #ifdef UNICODE pCertOpen = ...

... a lista é incompleta. PROCEDURE Main LOCAL aItem setmode( 33,100) CLS FOR EACH aItem IN ListODBCDrivers() ? aItem NEXT Inkey(0) RETURN #define SQL_NULL_HANDLE 0 #define SQL_HANDLE_ENV 1 #define SQL_FETCH_NEXT 1 #define SQL_FETCH_FIRST 2 #define SQL_SUCCESS 0 #define SQL_ATTR_ODBC_VERSION 200 #define ...

Achei um com declarações mais completas. Const SQL_NULL_HANDLE = 0 Const SQL_HANDLE_ENV = 1 Const SQL_FETCH_NEXT = 1 Const SQL_FETCH_FIRST = 2 Const SQL_SUCCESS = 0 Const SQL_ATTR_ODBC_VERSION = 200 Const SQL_OV_ODBC2 = 2 Const SQL_IS_INTEGER = -6 ...

... * MAX_DRIVER_COUNT]; int count = 0; int i; SQLCHAR driver[1024]; // Declarado no início da função SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv); SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0); ret = SQLDrivers(henv, SQL_FETCH_FIRST, driver, sizeof(driver), ...

... Result = FALSE; BOOL lSAVE = hb_parnl(3) ; if (hDC ) { sDoc.cbSize= sizeof(DOCINFO) ; sDoc.lpszDocName= hb_parc(2) ; sDoc.lpszOutput = NULL ; if (lSAVE) { sDoc.lpszOutput = hb_parc(2) ; } sDoc.lpszDatatype= NULL ; sDoc.fwType = 0 ; Result = (BOOL) (StartDoc(hDC, &sDoc) ...

... 'A' - 10 ) + uiVal ); } nPosRet++; nPos++; } hb_retclen_buffer( pszRet, nPosRet ); } else hb_retc_null(); } else hb_errRT_BASE( EG_ARG, 3012, NULL, HB_ERR_FUNCNAME, 1, hb_paramError( 1 ) ); } HB_FUNC( TIP_URLDECODE ) { const char * pszData = hb_parc( 1 ); if( pszData ) { HB_ISIZ nLen = hb_parclen( ...

... ); mbp.hwndOwner = HB_ISNIL( 1 ) ? GetActiveWindow() : ( HWND ) hb_parnl( 1 ); mbp.hInstance = HB_ISNIL( 6 ) ? GetModuleHandle( NULL ) : ( HINSTANCE ) hb_parnl( 6 ); mbp.lpszText = HB_ISCHAR( 2 ) ? hb_parc( 2 ) : ( HB_ISNIL( 2 ) ? NULL : MAKEINTRESOURCE( hb_parni( ...