All Activity

celular dele é 48 9106-1797

Luiz, o problema e nesta linha: IF ::lSombra // LINHA 462 SetTextColor( ::hDc, ::C_SOMBRA) DrawText( ::hDc, ::cCaption, {4,4+nSmbr,::nHeight-2,::nWidth-2+nSmbr}, ::nAlign ) SetTextColor( ::hDc, nClrLetra ) ENDIF Regards, saludos.

Não funcionou. continua explodindo a classe.

fala garoto. Enviado pelo kapiabafwh@gmail.com abs. Regards, saludos.

Ola Kapiaba, eu usei ela na época, no meu PDV, estava vendo os fonte aqui é bem simples, substituir o say por trsay e o get por gsay, nada mais além disso. #include "include\tgsay.ch" #include "include\TRSay.ch" // unitario REDEFINE trSAY oSay[1] VAR cSay[1] ID 4007 OF oPdv font Arial22B RIGHT RIGHT // oSay[1]:transparent:=.t. REDEFINE trSAY oSay[2] VAR cSay[2] ID 4008 OF oPdv font Arial22B REDEFINE trSAY oSay[3] VAR cSay[3] ID 4009 OF oPdv font Arial22B REDEFINE trSAY oSay[4] VAR cSay[4] ID 4001 OF oPdv font Arial22B REDEFINE trSAY oSay[5] VAR cSay[5] ID 4003 OF oPdv font Arial18B // descricao da mercadoria REDEFINE GSAY oGet[1] VAR cGet[1] ID 101 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ; CENTER LEFET ROUNDED FONT Arial34B COLORSOMBRA CLR_BLUE // qtd REDEFINE GSAY oGet[2] VAR qtd_vendida ID 102 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ; RIGHT LEFET ROUNDED FONT Arial30B COLORSOMBRA CLR_BLUE // unitario REDEFINE GSAY oGet[3] VAR preco_unitario ID 103 OF oPdv UPDATE COLOR CLR_YELLOW,CLR_HBLUE ; RIGHT LEFET ROUNDED FONT Arial30B COLORSOMBRA CLR_BLUE Agora que me lembrei, tive que alterar algumas coisa dentro da classe, me passa um email para empresoft@empresoft.com.br, que respondo com os prg

Probando TGSAY.prg y su potencia. Alguém conseguiu usar esta classe com RECURSOS? https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44493&sid=20f6eeaf94211ab1ccef9ededcc22b52 Com @SAY, ela está abolsutamente perfeita, más com RECURSOS(WORKSHOP.exe) explode que nem dinamite. Tks, danke. Regards, saludos.

Ja tentei falar com ele pelo skype mas nao responde ....

Dei uma melhoradinha... // C:\FWH\SAMPLES\VICTOR2.PRG /* * Project: xFF * File: xFF.prg - Original. Modificado por: kapiabafwh@gmail.com * Description: * Author: JMSilva * Date: 06-25-2014 */ #Include "Fivewin.ch" FUNCTION Main() LOCAL oFont, oFnt, oDlg, oMemo, oBtnSair, oIco, aGrad, oKey, oBtnFind, ; cText, cKey := Space( 20 ) SetBalloon( .T. ) SkinButtons() // Color en el MEMO. TGet():bColorBlock := { |oGet| IF( oGet:lFocused, { CLR_BLACK, CLR_HCYAN }, ; IF( .NOT. oGet:lActive, { CLR_RED, CLR_YELLOW }, ; { CLR_BLACK, CLR_WHITE } ) ) } cText := MemoRead( "TEXTO.txt" ) // pode ser campo memo aGrad := { { 0.30, nRGB( 221, 245, 255 ), nRGB( 192, 221, 255 ) }, ; { 0.50, nRGB( 192, 221, 255 ), nRGB( 221, 245, 255 ) } } DEFINE FONT oFont NAME "TAHOMA" SIZE 00, - 12 BOLD DEFINE FONT oFnt NAME 'TAHOMA' SIZE 00, - 12 BOLD DEFINE ICON oIco FILENAME "..\icons\customer.ico" DEFINE DIALOG oDlg TITLE "Pesquisa com GET TEXT" SIZE 680, 480 ICON oIco ; GRADIENT aGrad FONT oFont STYLE nOR( WS_SYSMENU, WS_MINIMIZEBOX ) IF Set( _SET_INSERT, ! Set( _SET_INSERT ) ) Set( _SET_INSERT, ! Set( _SET_INSERT ) ) ENDIF @ 4, 3 GET oMemo VAR cText MEMO PIXEL SIZE 330, 192 OF oDlg FONT oFont ; UPDATE oMemo:bGotFocus := {|| oMemo:SetSel( 0, 0 ) } oMemo:lReadOnly := .T. // nÆo edita @ 13.10, 07 SAY "<Click> na Lupa Para Procurar: " OF oDlg UPDATE ; COLORS METRO_GREEN, CLR_WHITE TRANSPARENT FONT oFnt @ 13.85, 1 SAY "PESQUISA: " OF oDlg UPDATE COLORS CLR_HBLUE, CLR_WHITE ; TRANSPARENT FONT oFont @ 16, 5 GET oKey VAR cKey PICTURE "@!" SIZE 150, 12 OF oDlg ; BITMAP "..\bitmaps\Find2.bmp" ; ACTION ( Find( oMemo, Trim( cKey ), .T. ), oBtnFind:Enable() ) oKey:cToolTip := "Digite o Texto a Procurar" oKey:bKeyChar := {|| oBtnFind:Disable() } oKey:lBtnTransparent := .T. oKey:lAdjustBtn := .T. @ 203, 195 BTNBMP oBtnFind PROMPT "&Próximo" SIZE 50, 18 OF oDlg ; LEFT 2007 FLAT FILENAME "../bitmaps/Next.bmp" ; ACTION Find( oMemo, Trim( cKey ), .F. ) WHEN( Find() ) oBtnFind:cToolTip := " Próximo Texto a Procurar" oBtnFind:Disable() @ 203, 290 BTNBMP oBtnSair PROMPT " &Salir" SIZE 40, 18 OF oDlg ; 2007 FLAT LEFT FILENAME "../bitmaps/Exit.bmp" ACTION( oDlg:End() ) oBtnSair:cToolTip := " Salida - Exit - Cancelar" oBtnSair:lCancel := .T. ACTIVATE DIALOG oDlg CENTERED ON INIT( XFOCUS( oKey ) ) IF Set( _SET_INSERT, ! Set( _SET_INSERT ) ) Set( _SET_INSERT, ! Set( _SET_INSERT ) ) ENDIF oFont:End() oFnt:End() RETURN NIL FUNCTION Find( oMemo, cFind, lNew ) LOCAL nIndex := 0 STATIC nStart := 0 IF PCount() == 0 ; RETURN( nStart > 0 ) ; ENDIF // when IF lNew ; nStart := 1; ENDIF // start nIndex := At( Trim( cFind ), Upper( oMemo:cText ), nStart, Len( oMemo:cText ) ) IF nIndex > 0 oMemo:Setfocus() // seta o focu oMemo:SetPos( nIndex - 1, nIndex ) // posiciona oMemo:SetSel( nIndex - 1, nIndex + Len( Trim( cFind ) ) - 1 ) RESetSelection( oMemo:hWnd, nIndex + Len( Trim( cFind ) ), nIndex ) // faz a rolagem do texto oMemo:Change() nSTART := nIndex + Len( Trim( cFind ) )// para continuar a pesquisa ELSEIF lNew MsgStop( "A palavra: " + cFind + " não foi localizada", "Find" ) oMemo:SetSel( 0, 0 ) nStart := 1 ELSE MsgStop( "Nenhuma outra ocorrência foi encontrada", "Find" ) nIndex := nStart - Len( Trim( cFind ) ) oMemo:SetPos( nIndex - 1, nIndex ) // posiciona ENDIF RETURN( .T. ) FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) FUNCTION xSetFocus( oObj ) LOCAL _oWnd := oObj:oWnd, _oTempo := "" DEFINE TIMER _oTempo INTERVAL 10 OF _oWnd ; ACTION ( oObj:SetFocus(), _oTempo:End() ) ACTIVATE TIMER _oTempo RETURN( .T. ) // FIN / END

MUDAR UM CAMPO DO XBROWSE QUANDO É .T. OU .F.? Por exemplo: em CUSTOMER.DBF, tem o CAMPO> MARRIED -> .T./.F. Como MUDAR para SIM ou NÃO ou trocar por uma BITMAP YES ou NO? Discussão aqui: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44476&sid=41bd3e2a00488b531126cecd9b8bbcff&start=15#p269861 Gracias. Regards, saludos.

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