Manoel Marinho
Membros-
Posts
289 -
Joined
-
Last visited
-
Days Won
1
Everything posted by Manoel Marinho
-
Alguém tem uma função pronta em xHarbour (funcionando) para integração com a API do Whatsapp ? Se tiver interesse em vender, mandar proposta no privado. Obrigado.
-
Erro tentando compilar WHATSAPP.PRG da pasta \fwh\samples Type: C >>>xhb.exe -o"whatsapp.c" -m -n -p -q -gc0 -I"C:\fwh2307\include" -I"C:\FWH2307\include" -I"C:\xHBCOM1703\include" -I"C:\xHBCOM1703\include\w32" "whatsapp.prg"<<< xHarbour 1.2.3 Intl. (SimpLex) (Build 20170312) Copyright 1999-2017, http://www.xharbour.org http://www.harbour-project.org/ Generating object output to 'whatsapp.obj'... Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"C:\fwh2307\lib" -LIBPATH:"" -LIBPATH:"C:\FWH2307\lib" -LIBPATH:"C:\xHBCOM1703\Lib" -LIBPATH:"C:\xHBCOM1703\c_lib" -LIBPATH:"C:\xHBCOM1703\c_lib\win" "whatsapp.obj" "C:\fwh2307\lib\FiveHCM.lib" "C:\fwh2307\lib\FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"whatsapp.exe"<<< xLINK: fatal error: No argument specified with option /LIBPATH. Type: C >>>Couldn't build: whatsapp.exe<<< Type: C >>>TMAKEPROJECT<<< ype: C >>>TMAKEPROJECT:REFRESH<<< Type: N >>> 1415<<<
-
Nesse site tem exemplos para criar essas opções que você citou ?
-
Recebi de um colega as funções abaixo para integração com a API Whatsapp. Mais nem sei como fazer as chamadas. Alguém pode ajudar ? ****************************************************************************** * Programa ....: UTILIZAR A API WORD SYSTEM * Autor .......: Amaury ******************************************************************************/ #INCLUDE "Hbclass.ch" #INCLUDE "hbcompat.ch" #INCLUDE "hbxml.ch" #DEFINE httpGet 1 #DEFINE httpPost 2 ******************************************************************************** Function EnviarMsg(sInstancia,sToken,sContato,sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-text" LOCAL aData := '' LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb //-- monta o parametro aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + "}" oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') TRY //-- envia oWeb:Send( aData ) //-- retorno aRetorno := oWeb:ResponseText() //-- json hb_jsondecode( aRetorno, @hHash ) CATCH ; END Return(NIL) ******************************************************************************** Function EnviarDoc(sInstancia,sToken,sContato, sMsg) ******************************************************************************* LOCAL sURL := "http://api.wordmensagens.com.br/send-doc" LOCAL aData := {} LOCAL aRetorno := '' LOCAL hHash := HASH() LOCAL oWeb aData := "{" + 'instance =>' + sInstancia + ',' + 'to =>' + sContato + ',' + 'token =>' + stoken + ',' + 'message =>' + ALLTRIM(sMsg) + ',' + 'url =>' + sURL + "}" TRY oWeb := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' ) CATCH oWeb := CreateObject( 'MSXML2.XMLHTTP' ) END oWeb:Open( 'POST', sURL , .F. ) oWeb:setRequestHeader('Content-Type' , 'application/json; charset=utf-8') hb_jsonEncode( aRetorno , @hHash ) TRY oWeb:Send( aData ) CATCH ; END Return(NIL)
-
O link está abrindo o site https://apontafacil.com.br/
-
Obrigado a todos pelas respostas. Vou baixar o Harbour 3.2 e fazer alguns testes.
-
Alguém já migrou de xHarbour (comercial) para Harbour 3.0 (free) ? Tem muitas alterações de código ?
-
Error(6) Deleting enhanced metafile (RESOLVIDO)
Manoel Marinho replied to oribeiro's topic in Programação
Ok vou dar uma olhada no \SAMPLES\REPORT\ *.PRG Obrigado. -
Error(6) Deleting enhanced metafile (RESOLVIDO)
Manoel Marinho replied to oribeiro's topic in Programação
Para não ficar muito extenso, segue abaixo apenas o código que gera o relatório. REPORT oRpt ; CAPTION "Visualização de Relatório" ; TITLE Centra3( dtoc( dDataProc ), "FLUXO DE CAIXA", "Folha: " + strzero( oRpt:nPage, 3 ), 100 ), ; upper( alltrim( NomeMes( dDataProc ) ) ) + "/" + right( dtoc( dDataProc ), 4 ) ; PREVIEW FONT oFnt GROUP oGroup on dtos( FLUXO2->DATAVENC ) HEADER "" FOOTER F_FOOTER( FLUXO2->DATAVENC ) COLUMN TITLE "Vencimentos" DATA if( FLUXO2->PRIMEIRO, COL_DAT( FLUXO2->DATAVENC ), space( 10 ) ) COLUMN TITLE "Cliente/Fornecedor" DATA padr( FLUXO2->CLIFOR, 40 ) COLUMN TITLE "Histórico" DATA padr( FLUXO2->HIST, 40 ) COLUMN TITLE "Recebimentos" DATA COL_REC( FLUXO2->DATAVENC, FLUXO2->VALORREC ) picture "@E 999,999,999.99" total COLUMN TITLE "Pagamentos" DATA COL_PAG( FLUXO2->DATAVENC, FLUXO2->VALORPAG ) picture "@E 999,999,999.99" total COLUMN TITLE "Saldos" DATA nSALDODIA + FLUXO2->SALDO picture "@E 999,999,999.99" end REPORT oRpt:lPageTotal := .F. oRpt:cGrandTotal := "TOTAL:" ACTIVATE REPORT oRpt ; on STARTGROUP( oRpt:NewLine(), oGroup:Stabilize() ) ; on CHANGE ( nSALDODIA += FLUXO2->VALORREC - FLUXO2->VALORPAG, nSALDODIA += FLUXO->VALORREC - FLUXO->VALORPAG ) -
Alguém ???
-
A mensagem (Error(6) Deleting enhanced metafile) também está aparecendo em relatórios criados com REPORT, que não tem ENDPAGE nem ENDPRINT. Alguém sabe como resolver ? Tem algumas postagens indicando que pode ser um ENDPRINT sem o ENDPAGE, mas isso só se aplica a relatórios criados com PRINT correto ?
-
Error(6) Deleting enhanced metafile (RESOLVIDO)
Manoel Marinho replied to oribeiro's topic in Programação
Essa mensagem (Error(6) Deleting enhanced metafile) também está aparecendo em relatórios criados com REPORT, que não tem ENDPAGE nem ENDPRINT. Alguém sabe como resolver ? -
Depois de mais de 2 anos apanhando, linkei a ADS.LIB do xHarbour Comercial versão 2009 e funcionou.
-
Eu uso o xHarbour Comercial.
-
Não tem jeito, acho que é alguma alteração na classe LISTBOX que não reconhece mais o RDD ADSCDX. Segue o PRG alterado e o executável. http://www.mspe.com.br/files/downloads/testeads.zip
-
A classe do Giovany é fantástica. Mas não tenho a menor condição de adaptar meus fontes para usar. Seria um trabalho de meses, talvez anos. É um ERP enorme com milhares de programas.
-
Segue também o exe mais as dlls http://www.mspe.com.br/files/downloads/testeads.zip
-
Tá difícil !!! Tenta esse link com o arquivo zipado: http://www.mspe.com.br/files/downloads/xhbzipdll.zip
-
Segue link para baixar a DLL http://www.mspe.com.br/files/downloads/xhbzipdll.dll
-
Link para baixar o PRG já compilado: http://www.mspe.com.br/files/downloads/testeads.zip
-
Sim, uso o ADS Server e ainda não consegui fazer o LISTBOX funcionar com versões mais recentes do FIVEWIN, por isso nos clientes que usam o ADS Server compilo com xHarbour Comercial + FiveWin 0911.
-
Mais uma vez, obrigado a todos que responderam. Está desabilitando os botões que eu queria com o comando: bBtn := RPrevUserBtns( { || .F. } ) O motivo de desabilitar os botões é que nunca funcionou a conversão para Word e PDF.
-
Obrigado a todos que responderam.