All Activity

Faço assim hoje Class P_PortalCartasAnuPdfImp Data oDb_Protesto Data oDb_ProtestoAcervos Data oSf_MyEdgeWeb //Objeto MyEdgeWeb com a pagina da Cenprot apresentada atualmente em focus Data oXmlToDbf As Object //Objeto de XmlToDbf Data aPdfsFoundsUrlsAndChaveUnica As Array Init {} //{Url DownLoad, Chave Unica, RotaArquivo, nApontamento, lBaixado } Pdfs das cartas de anuencias encontradas //Par 1-Url do pdf para ser baixado //Par 2-Chave unica referente o pdf encontrado //Par 3-Caminho completo e nome do pdf a ser baixado em Downloads //Par 4-Numero do apontamento //Par 5-Se foi baixado Data nPdfsEncontrados As Integer Init 0 //Quantos arquivos foram encontrados Data nPdfsJaIncluidos As Integer Init 0 //Quantos arquivos ja foram incluidos (repetidos) Data nPdfsNovos As Integer Init 0 //Quantos arquivos novos incluidos Data nPdfsErros As Integer Init 0 //Quantos arquivos com erros Data cUrlFileDownBase64Decode As String Init "" //Url do arquivo a ser baixado decodificado Data eFlagUrlExtractInfo As CodeBlock Init {|_cHtmlBlock|TXT_StrExtractTxt(_cHtmlBlock,; "window.open('",; "', '_self",; 190,; {" "})} Method New() Constructor Method End() Method P_PortalCartasAnuPdfImp_Start() Method P_PortalCartasAnuPdfImp_DadosExtract() Method P_PortalCartasAnuPdfImp_DadosDownLoad() Method P_PortalCartasAnuPdfImp_DadosGravar() EndClass

Fala, tbm, com o Eroni, ele faz parte aqui do forum, ele tem todas as rotinas fontes, para o esocial, com ela vc pode manipular como vc desejar.

// BUILDX.BAT alterado para /GC3 /W3 /ES2 @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour xHarbour development power ³Ü ECHO ³ (c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... if "%FWDIR%" == "" set FWDIR=.\..\ if "%XHDIR%" == "" set XHDIR=c:\xHBBCC77 rem if "%2" == "/b" set GT=gtwin rem if not "%2" == "/b" set GT=gtgui set GT=gtgui set hdir=%XHDIR% set hdirl=%hdir%\lib set bcdir=c:\BCC77 set fwh=%FWDIR% REM %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w3 /p %2 %3 > comp.log 2> warnings.log %hdir%\bin\harbour %1 /a /m /n /gc3 /w3 /es2 /i%fwh%\include;%hdir%\include /w0 -wb- /p %2 %3 > comp.log 2> warnings.log IF ERRORLEVEL 1 GOTO COMPILEERRORS @type comp.log @type warnings.log echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1 REM %bcdir%\bin\BRC32.Exe -R XPLOOK.RC echo %bcdir%\lib\c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc echo %fwh%\lib\pgsql.lib %fwh%\lib\libpq.lib + >> b32.bc echo %hdirl%\rtl.lib + >> b32.bc echo %hdirl%\vm.lib + >> b32.bc echo %hdirl%\%GT%.lib + >> b32.bc echo %hdirl%\lang.lib + >> b32.bc echo %hdirl%\macro.lib + >> b32.bc echo %hdirl%\rdd.lib + >> b32.bc echo %hdirl%\dbfntx.lib + >> b32.bc echo %hdirl%\dbfcdx.lib + >> b32.bc echo %hdirl%\dbffpt.lib + >> b32.bc echo %hdirl%\hbsix.lib + >> b32.bc echo %hdirl%\debug.lib + >> b32.bc echo %hdirl%\common.lib + >> b32.bc echo %hdirl%\codepage.lib + >> b32.bc echo %hdirl%\pp.lib + >> b32.bc echo %hdirl%\pcrepos.lib + >> b32.bc echo %hdirl%\ct.lib + >> b32.bc REM echo %hdirl%\DrXlsx32x_bcc.lib + >> b32.bc echo %hdirl%\zlib.lib + >> b32.bc echo %hdirl%\hbzip.lib + >> b32.bc REM echo %hdirl%\libmisc.lib + >> b32.bc echo %hdirl%\png.lib + >> b32.bc rem para que TIPSSL.LIB funcione, por a TIP.LIB depois. REM echo %hdirl%\tipssl.lib + >> b32.bc REM echo %hdirl%\libssl.lib + >> b32.bc REM echo %hdirl%\libcrypto.lib + >> b32.bc echo %hdirl%\tip.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD rem echo %hdir%\lib\rddads.lib + >> b32.bc rem echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\wininet.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\urlmon.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :COMPILEERRORS @type comp.log ECHO * Compile errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT

Para usar variáveis public e private, basta declarar no início do prg como MEMVAR. Assim campos sem alias como é preciso declarar como FIELD. Também vi post, de que não pode iniciar uma variável ao declarar com W3. Pode sim, o que é verificado é a necessidade, vc declara lcerto:=.t. após no primeiro uso da variável vc usar o comando por exemplo, lcerto:= msgyesno(), isto ocorrerá a msg de advertência por iniciar a variável sem necessidade.

Faz anos que uso /W3 Pra começar meus prgs não tem variaveis PUBLICAS (PUBLIC) e nem PRIVADAS (PRIVATE) Tudo em Classes.

Mister Quintas, mais um exemplo para o senhor brincar e me desafiar. kkkkk Tenta a sorte... // C:\FWH\SAMPLES\RADHORIZ.PRG #include "FiveWin.ch" FUNCTION Main() LOCAL oDlg, oRad, nValue := 1, oGet1, oFont, lSave := .F., cTestGet IF .NOT. File( "test1.dbf" ) createfilea() ENDIF IF ( Select( "test1" ) == 0 ) USE test1 NEW INDEX ON FIELD->msg1 TO temp ELSE SELECT Select( "test1" ) ENDIF APPEND BLANK onerror( "APPEND" ) REPLACE FIELD->msg1 WITH "This is Radio 1" REPLACE FIELD->msg2 WITH "This is Radio 2" REPLACE FIELD->msg3 WITH "This is Radio 3" IF nValue = 1 ctestget = FIELD->msg1 ELSEIF nValue = 2 ctestget = FIELD->msg2 ELSE ctestget = FIELD->msg3 ENDIF DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 FONT oFont ; TITLE "Test radio horizontal:-> " + Version() oDlg:lHelpIcon := .F. @ 0.5, 2 RADIO oRad VAR nValue ITEMS "Radio 1" OF oDlg SIZE 50, 12 ; ON CHANGE {|| radiobtntest( oRad:nOption, oGet1, @ctestget ) } ; UPDATE @ 0.5, 17 RADIOITEM "Radio 2" RADIOMENU oRad OF oDlg SIZE 50, 12 ; UPDATE @ 0.5, 32 RADIOITEM "Radio 3" RADIOMENU oRad OF oDlg SIZE 50, 12 ; UPDATE @ 6, 1 GET oGet1 VAR cTestGet SIZE 100, 12 OF oDlg UPDATE ; COLORS METRO_PINK, CLR_WHITE FONT oFont @ 11.70, 001 SAY "kapiabafwh@gmail.com" SIZE 085, 12 OF oDlg UPDATE ; COLORS METRO_COBALT, CLR_WHITE FONT oFont @ 9.95, 18.7 BUTTON "&Gravar" OF oDlg ACTION ( lSave := .T. ) ; SIZE 40, 12 @ 9.95, 25.7 BUTTON "&Saida" OF oDlg ACTION ( oDlg:End() ) ; SIZE 40, 12 CANCEL ACTIVATE DIALOG oDlg CENTERED ON INIT( CTRLS_COLORS( oDlg ) ) oFont:End() IF lSave SELECT test1 onerror( "RLOCK" ) IF nValue = 1 REPLACE FIELD->msg1 WITH ctestget ELSEIF nValue = 2 REPLACE FIELD->msg2 WITH ctestget ELSE REPLACE FIELD->msg3 WITH ctestget ENDIF ENDIF dbCloseAll() // CLOSE DATABASES RETURN NIL FUNCTION NAO_VOLTA_SETA_ACIMA() IF GETASYNCKEY( VK_UP ) RETURN( .F. ) ENDIF RETURN( .T. ) FUNCTION radiobtntest( nValue, oGet1, ctestget ) IF nValue = 1 ctestget = FIELD->msg1 ELSEIF nValue = 2 ctestget = FIELD->msg2 ELSE ctestget = FIELD->msg3 ENDIF oGet1:ReFresh() RETURN NIL FUNCTION createfilea() // "File : test1.dbf" LOCAL tmpdbf := {} AAdd( tmpdbf, { "msg1", "c", 50, 0 } ) AAdd( tmpdbf, { "msg2", "c", 50, 0 } ) AAdd( tmpdbf, { "msg3", "c", 50, 0 } ) dbCreate( "test1.dbf", tmpdbf ) CLOSE RETURN NIL FUNCTION ONERROR() PARAMETERS errortype errortype := Upper( errortype ) DO CASE CASE errortype == "RLOCK" IF ( RLock() ) RETURN( .T. ) ENDIF DO WHILE ( .NOT. RLock() ) Inkey( 3 ) ENDDO CASE errortype == "APPEND" IF ( .NOT. NetErr() ) onerror( "RLOCK" ) RETURN( .T. ) ENDIF DO WHILE ( NetErr() ) Inkey( 3 ) APPEND BLANK ENDDO onerror( "RLOCK" ) ENDCASE RETURN( .T. ) // By Giovanny Vecchi - TESTRAD.PRG aqui na minha pasta. FUNCTION CTRLS_COLORS( f_oDlgContainer ) LOCAL lc_aCtrls := {}, lc_iFor := 0 LOCAL lc_aItemsRadio := {} lc_aCtrls := f_oDlgContainer:aControls FOR lc_iFor := 1 TO Len( lc_aCtrls ) IF ValType( lc_aCtrls[lc_iFor] ) == "O" IF lc_aCtrls[lc_iFor]:ClassName() == "TRADIO" aEval( lc_aCtrls[lc_iFor]:oRadMenu:aItems, ; {|_oRadId|{ SetWindowTheme( _oRadId:hWnd, "", "" ), ; _oRadId:SetColor( CLR_CYAN, CLR_WHITE ) } } ) ELSEIF lc_aCtrls[lc_iFor]:ClassName() == "TCHECKBOX" SetWindowTheme( lc_aCtrls[lc_iFor]:hWnd, "", "" ) // C:\FWH\INCLUDE\COLORS.CH lc_aCtrls[lc_iFor]:SetColor( METRO_ORANGE, METRO_ORANGE ) ENDIF ENDIF NEXT RETURN NIL // FIN / END - kapiabafwh@gmail.com Regards, saludos.

https://www.gointellitech.com/oop1.html Regards, saludos.

Não precisa agradecer, não fiz nada, apenas estou aprendendo também.

Bom dia. Fale com o Jorge Andrade. Domina a ACBR completamente. É um gênio. Mey Gaytola, más.... kkkkkkk Tks. Regards, saludos.

Amiguinhos, Que tal tentar assim: oHttp := CreateObject("MSXML2.ServerXMLHTTP.6.0") oHttp:Open("POST", "https://content.dropboxapi.com/2/files/upload", .f.) oHttp:setRequestHeader( "Authorization", "Bearer " + alltrim(Taux_Token) ) oHttp:setRequestHeader( "Content-Length: " + str(len(Taux_Binario)) ) oHttp:setRequestHeader( "Content-Type", "application/pdf" ) oHttp:setRequestHeader( [Content-Disposition: form-data; name="arquivo"; filename="\temp\TestePZ.pdf" ] + Taux_Binario ) oHttp:setRequestHeader( "Dropbox-API-Arg", Taux_API_Arg ) oHttp:Send()

Estou tentando fazer downloads dos xml do e-Social com ACBreSocial32.dll e nao estou conseguindo passar a as informações quando se trata de datas! Exemplo: oEsocial:ConsTrabalhador("04050400000000",15, "ID1040504000000002023071401271100629", "01/06/2023" , "30/06/2023") mas na dll só chaga assim "04050400000000", 15,"ID1040504000000002023071401271100629", "30/12/1899" , "30/12/1899" não importa o parâmetro que envio como a data sempre retorna 30/12/1899 não importando se passo 30/06/2023, 2023-06/30 ou seja não leva em consideração as informações das datas Os três primeiros parâmetros chegam certinhos agora o problema estar nas variáveis tipo data. Alguém já chegou a ver isto ? e se consegue ajudar ** A chamada do metodo é assim cXmlResposta := oEsocial:ConsTabela("04050400000000", 15, "ID1040504000000002023071401271100629","01/06/2023" , "30/06/2023") METHOD ConsTabela( aIdEmpregador, aTipoEvento, aChave,aDataInicial,aDataFinal ) /*-------------------------------------------------------------------------*/ //01 aIdEmpregador String Informe o ID do Empregador. //02 aTipoEvento Integer Informe o Tipo do Evento. //03 aChave String Informe a Chave para Consulta. //04 aDataInicial Date Data Inicial da Consulta. //05 aDataFinal Date Data Final de Consulta. //06 sResposta String Usado pelo retorno, contem as informações retornadas pela consulta. //07 esTamanho Integer Usado pelo retorno, contem o tamanho da string (sResposta). METHOD ConsTabela(aIdEmpregador, aTipoEvento, aChave,aDataInicial,aDataFinal) CLASS tEsocial local hResult, buffer, bufferLen bufferLen := STR_LEN buffer := Space(bufferLen) hResult := DllCall(::hHandle, DLL_STDCALL, "eSocial_ConsultaIdentificadoresEventosTabela", hb_StrToUTF8(aIdEmpregador), aTipoEvento, aChave, hb_StrToUTF8(aDataInicial), hb_StrToUTF8(aDataFinal),@buffer, @bufferLen) ::CheckResult(hResult) RETURN ::ProcessResult(buffer, bufferLen) *----------------------------------------------------------------------------------------------------------*

Dê uma olhada em ..\FWH\samples\BlockChain.prg, talvez goste dessa opção.

SOLUCIONADO, PQP, QUE DUREZA!! kkkkkkkkkkkk https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44466&sid=04087edfcfe07aa872f32c1b336e5358&start=15#p269756 Obrigado Eroni. Valeu mesmo. abs. Regards, saludos.

Eroni, modifique seu BUILDX.BAT assim: %hdir%\bin\harbour %1 /m /n /gc3 /w3 /es2 /i%fwh%\include;%hdir%\include /w0 -wb- /p %2 %3 > comp.log 2> warnings.log E compile este modelo de TUTOR04.PRG Usando: /w3 e /es2 - Entende? // C:\FWH..\SAMPLES\TUTOR04.PRG Modificado por Joao Santos/Sao Paulo/Brasil. // Para David Barrio de Argentina. 16/11/2022 // We are going to build a PullDown menu and we are going to assign it // to our main Window // This example is the typical way of start building a FiveWin program #include "FiveWin.ch" STATIC oWnd // MEMVAR ERONI // ASIM FUNCIONA ERONI FUNCTION Main() LOCAL oIco, oBar, oBmp // PRIVATE ERONI // ASSIM FUNCIONA ERONI PUBLIC ERONI // ASSIM NAO FUNCIONA ERONI, USANDO /W3 /ES2 Entende? hb_gcAll( .F. ) ERONI := Space( 30 ) // TUTOR04.prg( 25 ) Warning W0001 Ambiguous reference: 'ERONI' // No cargar la aplicacion dos veces. IF ISEXERUNNING( CFILENAME( hb_argv( 0 ) ) ) MsgInfo( "Tutor04.exe Já Está Rodando Nesta Máquina", "Tutor04.exe" ) SHOWWINDOW( FINDWINDOW( 0, "TUTOR04" ), 9 ) // Nombre tu .EXE SETFOREGROUNDWINDOW( FINDWINDOW( 0, "TUTOR04" ) ) LIBERA_TUDO() RETURN NIL ENDIF DEFINE ICON oIco FILE "..\icons\fax.ico" DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ; TITLE "FiveWin sample" ; MENU BuildMenu() ; COLOR "B/W" ; ICON oIco DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ; ACTION MsgInfo( "New" ) ; TOOLTIP "Creates a new document" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ; ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ; TOOLTIP "Opens a document" WHEN .F. DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ; ACTION MsgInfo( Time() ) TOOLTIP "Saves this document" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ; ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" GROUP DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ; ACTION PrinterSetup() TOOLTIP "Setup the printer" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ; ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ; Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ; ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ; ACTION( oWnd:End(), LIBERA_TUDO() ) TOOLTIP "Exit this app" GROUP DEFINE MESSAGE OF oWnd ; PROMPT FWVERSION + " " + FWCOPYRIGHT ; NOINSET CENTERED KEYBOARD DATE CLOCK DEFINE BITMAP oBmp FILENAME "..\bitmaps\visual.bmp" oWnd:bPainted = {| hDC | BmpTiled( hDC, oWnd, oBmp ) } ACTIVATE WINDOW oWnd /* ; VALID MsgYesNo( "Do you want to quit ?" ) */ RETURN NIL FUNCTION BuildMenu() LOCAL oMenu MENU oMenu MENUITEM "Information" MENU MENUITEM "&About..." ; ACTION MsgInfo( FWDESCRIPTION ) ; FILENAME "..\bitmaps\16x16\info.bmp" SEPARATOR MENUITEM "&End..." ; ACTION( oWnd:End(), LIBERA_TUDO() ) ; FILENAME "..\bitmaps\16x16\exit.bmp" ENDMENU MENUITEM "&Clients" MENU MENUITEM "&New..." ; ACTION ( MsgStop( "New Clients" ), ; oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ; FILENAME "..\bitmaps\16x16\faces.bmp" MENUITEM "&Modify..." ACTION MsgInfo( "Modif. Clients" ) ; FILENAME "..\bitmaps\edit.bmp" MENUITEM "&Delete..." ACTION MsgAlert( "Del Clients" ) ; FILENAME "..\bitmaps\16x16\delete.bmp" SEPARATOR MENUITEM "&Browse..." ACTION MsgInfo( "Browse Clients" ) ; FILENAME "..\bitmaps\16x16\browse.bmp" ENDMENU MENUITEM "&Utilities" MENU MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ; FILENAME "..\bitmaps\16x16\calc.bmp" MENUITEM "&Internet..." ; ACTION WinExec( "start iexplore www.fivetech.com", 0 ) ; FILENAME "..\bitmaps\16x16\explorer.bmp" ENDMENU ENDMENU RETURN oMenu // --Fecha o Programa Definitivamente e Libera a Memoria RAM. FUNCTION LIBERA_TUDO() IF File( "TUTOR04.LOG" ) DELETEFILE( "TUTOR04.LOG" ) ENDIF dbCommitAll() dbUnlockAll() dbCloseAll() FreeResources() RELEASE ALL SysRefresh() hb_gcAll( .T. ) CLEAR MEMORY PostQuitMessage( 0 ) QUIT RETURN NIL STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) LOCAL nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() LOCAL nRow := 0, nCol := 0 // , n LOCAL nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() IF oBmp:hBitmap == 0 RETURN NIL ENDIF WHILE nRow < nHeight nCol = 0 WHILE nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth END nRow += nBmpHeight END RETURN NIL // FIN / END Regards, saludos.

Eroni, você não entendeu, eu não quero que você "bula" no FONTE! Eu quero os FLAGS de compilação usando o W3 sem erros. Programação, eu deito e rolo, tiro onda, vou à marte. kkkkkkkkkkkkkkkkkkkkkkkkkk Obg. abs. Regards, saludos.

Oi João, segue o teu JIMMYSKI.PRG: // C:\FWH..\SAMPLES\JIMMYSKI.PRG #Include "FiveWin.ch" //STATIC oBar, oGrid, oWnd, nWidth := 50 STATIC oButton FUNCTION Main() LOCAL oWnd//,oButton LOCAL cSource := GetAppName() // LOCAL cSource := GetModuleFileName( GetInstance() ) // Name .EXE LOCAL cPath, cFile PUBLIC cDirPleno PUBLIC XRESOLUCAO, XSINALSONOR //= [S] // PUBLIC WFLAGCONTABIL // := .F. // PUBLIC WFLAGPLENO // := "" // PUBLIC WFILIAL // := .F. // IF PCOUNT() > 0 // ?? IF GetActive() == Nil SkinButtons() ENDIF cPath := Pathonly( cSource ) // // MsgInfo( GETCURDIR() ) cFile := Fileonly( cSource ) DEFINE WINDOW oWnd TITLE "FiveWin SkinButtons Demo" @ 10, 10 BUTTON oButton PROMPT "Property" SIZE 74, 42 PIXEL ACTION SHOWFILEPROPERTIES( oWnd:Hwnd, cPath, cFile ) ACTIVATE WINDOW oWnd CENTERED oButton := nil RETURN NIL FUNCTION GetAppName() RETURN GetModuleFileName( GetInstance() ) FUNCTION Pathonly( cFull ) LOCAL cRet := "" // // ERROR Chinese Char? LOCAL nPosi nPosi := RAT( "\", cFull ) IF nPosi > 0 cRet := SUBSTR( cFull, 1, nPosi - 1 ) ENDIF RETURN( cRet ) FUNCTION Fileonly( cFull ) LOCAL cRet := "" // // ERROR Chinese Char? LOCAL nPosi nPosi := RAT( "\", cFull ) IF nPosi > 0 cRet := SUBSTR( cFull, nPosi + 1 ) ENDIF RETURN cRet #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> #include <dbt.h> #include <hbapi.h> #include <hbapiitm.h> #include <shellapi.h.> HB_FUNC( SHOWFILEPROPERTIES ) { #ifndef _WIN64 HWND hWnd = ( HWND ) hb_parnl( 1 ); #else HWND hWnd = ( HWND ) hb_parnll( 1 ); #endif SHELLEXECUTEINFO SHExecInfo; ZeroMemory(&SHExecInfo, sizeof(SHExecInfo)); SHExecInfo.cbSize = sizeof(SHExecInfo); SHExecInfo.fMask = SEE_MASK_INVOKEIDLIST; SHExecInfo.lpVerb = "Properties"; SHExecInfo.lpDirectory = hb_parc(2); SHExecInfo.lpFile = hb_parc(3); SHExecInfo.nShow = SW_SHOW; SHExecInfo.hwnd = hWnd; ShellExecuteEx(&SHExecInfo); } #pragma ENDDUMP // fin / end Compilado com xHarbour 1.3.0 Intl. (SimpLex) (Build 20231104) Regards

Enrico/Eroni!! Ready!! 30 years later, I found the perfect combination. You are the man! Enrique/Eroni!! ¡¡Listo!! 30 años después, encontré la combinación perfecta. ¡Tu eres el hombre! @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for xHarbour 19.05 - May. 2019 xHarbour development power ³Ü ECHO ³ (c) FiveTech 1993-2019 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... if "%FWDIR%" == "" set FWDIR=.\..\ if "%XHDIR%" == "" set XHDIR=c:\xHBBCC77 rem if "%2" == "/b" set GT=gtwin rem if not "%2" == "/b" set GT=gtgui set GT=gtgui set hdir=%XHDIR% set hdirl=%hdir%\lib set bcdir=c:\BCC77 set fwh=%FWDIR% REM %hdir%\bin\harbour %1 /n /i%fwh%\include;%hdir%\include /w3 /p %2 %3 > comp.log 2> warnings.log %hdir%\bin\harbour %1 /m /n /gc3 /w3 /es0 /i%fwh%\include;%hdir%\include /w0 -wb- /p %2 %3 > comp.log 2> warnings.log IF ERRORLEVEL 1 GOTO COMPILEERRORS @type comp.log @type warnings.log echo -O2 -e%1.exe -I%hdir%\include -I%bcdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32.exe -r -I%bcdir%\include -I%bcdir%\include\windows\sdk %1 REM %bcdir%\bin\BRC32.Exe -R XPLOOK.RC echo %bcdir%\lib\c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fwh%\lib\Fivehx.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib + >> b32.bc echo %fwh%\lib\pgsql.lib %fwh%\lib\libpq.lib + >> b32.bc echo %hdirl%\rtl.lib + >> b32.bc echo %hdirl%\vm.lib + >> b32.bc echo %hdirl%\%GT%.lib + >> b32.bc echo %hdirl%\lang.lib + >> b32.bc echo %hdirl%\macro.lib + >> b32.bc echo %hdirl%\rdd.lib + >> b32.bc echo %hdirl%\dbfntx.lib + >> b32.bc echo %hdirl%\dbfcdx.lib + >> b32.bc echo %hdirl%\dbffpt.lib + >> b32.bc echo %hdirl%\hbsix.lib + >> b32.bc echo %hdirl%\debug.lib + >> b32.bc echo %hdirl%\common.lib + >> b32.bc echo %hdirl%\codepage.lib + >> b32.bc echo %hdirl%\pp.lib + >> b32.bc echo %hdirl%\pcrepos.lib + >> b32.bc echo %hdirl%\ct.lib + >> b32.bc REM echo %hdirl%\DrXlsx32x_bcc.lib + >> b32.bc echo %hdirl%\zlib.lib + >> b32.bc echo %hdirl%\hbzip.lib + >> b32.bc REM echo %hdirl%\libmisc.lib + >> b32.bc echo %hdirl%\png.lib + >> b32.bc rem para que TIPSSL.LIB funcione, por a TIP.LIB depois. REM echo %hdirl%\tipssl.lib + >> b32.bc REM echo %hdirl%\libssl.lib + >> b32.bc REM echo %hdirl%\libcrypto.lib + >> b32.bc echo %hdirl%\tip.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD rem echo %hdir%\lib\rddads.lib + >> b32.bc rem echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\uuid.lib + >> b32.bc echo %bcdir%\lib\ws2_32.lib + >> b32.bc echo %bcdir%\lib\wininet.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc echo %bcdir%\lib\psdk\gdiplus.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc echo %bcdir%\lib\psdk\urlmon.lib + >> b32.bc echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :COMPILEERRORS @type comp.log ECHO * Compile errors * GOTO EXIT :LINKERROR ECHO * Linking errors * GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT Super Many Thanks, Enrico/Eroni. Regards, saludos.

Kapiaba, eu usei os comando gráficos para gerar as janelas e os botões, MOVETO, LINETO. Se eu ficar clicando nos botões pretos, e voltando, umas 10 vezes, as janelas e os botões ficam tudos preto, não entendi o porquê, e estou buscando uma solução usando SAY, BUTTOM, etc, mas, tem que permitir que mudar a cor de fundo dos botôes, mas, parece que não tem jeito de mudar a cor de fundo dos botões, usando button.

Eroni, modifique o BUILDX.BAT do FiveWin com seus comandos, e BUILDX TUTOR04 %hdir%\bin\harbour %1 /m /n /gc0 /w3 /es2 /i%fwh%\include;%hdir%\include /w0 /p %2 %3 > comp.log 2> warnings.log Tks Regards, saludos.

João, não foi isso que eu disse. você DEVE declarar TODAS as variáveis que vai usar. Com este flag não deixa atribuir AO FAZER a declaração. Regards.

Mais fácil me ligar apos as 13:30 dai falamos 32 98892-5094 zap

Sim , já está e depois, como faço o meu cadastro no sistema de usuarios, pra eu poder usar?

Bom dia, o comando DEFINE WINDOW - ACTIVATE WINDOW, não tem a opções MODAL ou NO MODAL Só o comando DEFINE DIALOG - ACTIVATE DIALOG, disponibiliza a opção MODAL ou NO MODAL

// C:\FWH\SAMPLES\ENRIQUE2.PRG - FiveWin e o bicho. kkkkkkkkkkkk #include "FiveWin.ch" STATIC oWnd FUNCTION Main() LOCAL oIco, oBar, oBmp hb_gcAll( .F. ) DEFINE ICON oIco FILE "..\icons\fax.ico" DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 TITLE "FiveWin sample" ; MENU BuildMenu() COLOR "B/W" ICON oIco DEFINE BUTTONBAR oBar _3D SIZE 26, 27 OF oWnd 2007 DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ; ACTION( Dlg_Modal() ) ; TOOLTIP "Creates a new document" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ; ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ; TOOLTIP "Opens a document" WHEN .F. DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ; ACTION MsgInfo( Time() ) TOOLTIP "Saves this document" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ; ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" ; GROUP DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ; ACTION PrinterSetup() TOOLTIP "Setup the printer" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ; ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ; Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ; ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!" DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ; ACTION( oWnd:End(), LIBERA_TUDO() ) TOOLTIP "Exit this app" GROUP DEFINE MESSAGE OF oWnd ; PROMPT FWVERSION + " " + FWCOPYRIGHT ; NOINSET CENTERED KEYBOARD DATE CLOCK 2007 DEFINE BITMAP oBmp FILENAME "..\bitmaps\sea.bmp" oWnd:bPainted = {| hDC | BmpTiled( hDC, oWnd, oBmp ) } ACTIVATE WINDOW oWnd CENTERED // MAXIMIZED RETURN NIL FUNCTION Dlg_Modal() LOCAL oDlg, oRad, nValue := 1, cTitle, oFont cTitle := "DIALOGO MODAL by Jose Quintas" DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 14 BOLD DEFINE DIALOG oDlg TITLE cTitle FONT oFont TRANSPARENT oDlg:lHelpIcon := .F. @ 1, 1 RADIO oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" OF oDlg SIZE 80, 12 ; @ 3, 10 BUTTON "Ok" OF oDlg ACTION MsgInfo( "ok" ) CANCEL ACTIVATE DIALOG oDlg CENTERED oFont:End() RETURN NIL FUNCTION BuildMenu() LOCAL oMenu MENU oMenu 2007 MENUITEM "Information" MENU MENUITEM "&About..." ; ACTION MsgInfo( FWDESCRIPTION ) ; FILENAME "..\bitmaps\16x16\info.bmp" SEPARATOR MENUITEM "&End..." ; ACTION( oWnd:End(), LIBERA_TUDO() ) ; FILENAME "..\bitmaps\16x16\exit.bmp" ENDMENU MENUITEM "&Clients" MENU MENUITEM "&New..." ; ACTION ( MsgStop( "New Clients" ), ; oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ; FILENAME "..\bitmaps\16x16\faces.bmp" MENUITEM "&Modify..." ACTION MsgInfo( "Modif. Clients" ) ; FILENAME "..\bitmaps\edit.bmp" MENUITEM "&Delete..." ACTION MsgAlert( "Del Clients" ) ; FILENAME "..\bitmaps\16x16\delete.bmp" SEPARATOR MENUITEM "&Browse..." ACTION MsgInfo( "Browse Clients" ) ; FILENAME "..\bitmaps\16x16\browse.bmp" ENDMENU MENUITEM "&Utilities" MENU MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ; FILENAME "..\bitmaps\16x16\calc.bmp" MENUITEM "&Internet..." ; ACTION WinExec( "start iexplore www.fivetech.com", 0 ) ; FILENAME "..\bitmaps\16x16\explorer.bmp" ENDMENU ENDMENU RETURN( oMenu ) // --Fecha o Programa Definitivamente e Libera a Memoria RAM. FUNCTION LIBERA_TUDO() IF File( "ENRIQUE2.LOG" ) DELETEFILE( "ENRIQUE2.LOG" ) ENDIF dbCommitAll() dbUnlockAll() dbCloseAll() FreeResources() RELEASE ALL SysRefresh() hb_gcAll( .T. ) CLEAR MEMORY PostQuitMessage( 0 ) QUIT RETURN NIL STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) LOCAL nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() LOCAL nRow := 0, nCol := 0, n LOCAL nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() IF oBmp:hBitmap == 0 RETURN NIL ENDIF WHILE nRow < nHeight nCol = 0 WHILE nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth END nRow += nBmpHeight END RETURN NIL // FIN / END

Mister Quitas, Mira se és esto: // C:\FWH\SAMPLES\ENRIQUE.PRG #include "FiveWin.ch" FUNCTION Main() LOCAL oWnd DEFINE WINDOW oWnd ACTIVATE WINDOW oWnd ON INIT NonModal() RETURN NIL FUNCTION NonModal() LOCAL oDlg, oRad, nValue := 1, cTitle, oFont cTitle := "DIALOGO NO MODAL by Jose Quintas" DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 14 BOLD DEFINE DIALOG oDlg TITLE cTitle FONT oFont TRANSPARENT oDlg:lHelpIcon := .F. @ 1, 1 RADIO oRad VAR nValue ; ITEMS "&One", "&Two", "T&hree" OF oDlg SIZE 80, 12 ; @ 3, 10 BUTTON "Ok" OF oDlg ACTION MsgInfo( "ok" ) CANCEL ACTIVATE DIALOG oDlg NOMODAL CENTER oFont:End() RETURN NIL // FIN / END Regards, saludos.