Jump to content
Fivewin Brasil

cendon

Membros
  • Posts

    587
  • Joined

  • Last visited

  • Days Won

    4

cendon last won the day on March 20 2021

cendon had the most liked content!

About cendon

  • Birthday 02/19/1959

Profile Information

  • Gender
    Male
  • Location
    Belo Horizonte

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

cendon's Achievements

Newbie

Newbie (1/14)

9

Reputation

  1. Obrigado meu amigo, funcionou 100%
  2. Bom dia srs! Preciso importar uma imagem para uma planilha de excel. existe alguma função que faça isso? Obrigado
  3. cendon

    Ler Json

    Bom dia Kapi, tudo bom? Vale amigo! Resolveu, só depois percebi que o xbrowse é multidimensional tem de clicar para aparecer os outros dados, rsrsr. Obrigado!
  4. cendon

    Ler Json

    Boa noite Srs, estou tentando ler um retorno em Json, não estou conseguindo. Tentei apenas converter com o hb_JSONDecode e mostrar no xbrowse tentei tbm ler uma tabela multidimensional tbm não obtive sucesso, algum santo para me dar uma ajuda? abaixo o fonte Function Aj_decode() local resultado, Aarray TEXT INTO resultado { "status": "success", "message": [ { "simpleDebitoPayment": { "id": "0000007112022", "payerName": "ALLYSON CIRINO PEREIRA DA SILVA", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 1452034680, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 33, "branch": "3476", "account": "2017801", "branchDigit": "2", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000007112022 Already Exists in 1185" } ] }, { "simpleDebitoPayment": { "id": "0000009112022", "payerName": "RAIKA LUANA FERREIRA MARTINS", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 11754817696, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 237, "branch": "3728", "account": "510767", "branchDigit": "1", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000009112022 Already Exists in 1185" } ] }, { "simpleDebitoPayment": { "id": "0000010112022", "payerName": "CLEITON HONORIO DE OLIVEIRA", "amount": 15.00, "scheduledDate": "2022-11-24T10:21:50.132", "payerDocument": 7825483936, "beneficiaryDocument": 13102672000150, "description": "DEBITO SEGURO", "bank": 341, "branch": "2776", "account": "23893", "branchDigit": "6", "accountDigit": "9" }, "valid": false, "errors": [ { "message": "P0001: Err284: Payment 0000010112022 Already Exists in 1185" } ] } ] } endtext x1 := hb_jsonDecode( resultado, @aArray ) IF aArray == nil MsgStop( "Erro ao retornar os dados. Tente novamente." ) RETURN NIL ENDIF xbrowse(Aarray) return
  5. rsrsrsr, É isso ai! Já tomei surra dos dois, fiquei com o xharbour. Funciona tudo e tem mais suporte, ou melhor mais amigos.
  6. http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=15501 O script é o mesmo, muda só as pastas de lib,include. Dê uma olhada no link
  7. @ECHO OFF CLS ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ECHO ³ FiveWin for XHarbour 17.7 - Agosto 2017 Harbour development power ³Ü ECHO ³ (c) FiveTech, 1993-2002 for Microsoft Windows 95/98/NT/2000/ME and XP ³Û ECHO ³ (c) Angelo Jos‚ Ferreira Cendon - BAT de Compilacao do VIDA ³Û ECHO ³ (c) Fev/2004 ³Û ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß set lib= rem set include= set obj= set bin= set fwdir=c:\fwh1804 set hdir=c:\xhb123 set bcdir=c:\bcc73 echo principal.obj + >> b32.bc echo a0101.obj + >> b32.bc echo a0102.obj + >> b32.bc echo c_broff.obj + >> b32.bc echo ftp.obj + >> b32.bc echo sendmail.obj + >> b32.bc echo printer.obj + >> b32.bc echo agenda.obj + >> b32.bc echo FUNCS.obj + >> b32.bc echo principal.obj >> b32.bc echo principal.exe >> b32.bc echo principal.map >> b32.bc echo %fwdir%\lib\Fivehx.lib %fwdir%\lib\FiveHC.lib %fwdir%\lib\libmysql.lib + >> b32.bc echo %fwdir%\lib\pgsql.lib %fwdir%\lib\libpq.lib + >> b32.bc echo %fwdir%\lib\libmysql.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtgui.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\dbffpt.lib + >> b32.bc echo %hdir%\lib\hbsix.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\codepage.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc echo %hdir%\lib\pcrepos.lib + >> b32.bc echo %hdir%\lib\ct.lib + >> b32.bc echo %hdir%\lib\zlib.lib + >> b32.bc echo %hdir%\lib\hbzip.lib + >> b32.bc echo %hdir%\lib\libmisc.lib + >> b32.bc echo %hdir%\lib\tip.lib + >> b32.bc echo %hdir%\lib\png.lib + >> b32.bc echo %hdir%\sqllib\lib\libmysql.lib + >> b32.bc echo %hdir%\sqllib\lib\sqllib_xHB_123_rev9961.lib + >> b32.bc rem echo %hdir%\lib\adordd.lib + >> b32.bc rem echo %hdir%\lib\usrrdd.lib + >> b32.bc rem echo %hdir%\lib\usrrddmt.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\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\shell32.lib, >> b32.bc rem echo %hdir%\lib\hbhpdf.lib + >> b32.bc rem echo %hdir%\lib\libharu.lib + >> b32.bc IF EXIST principal.res echo principal.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem if %GT% == gtwin %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\ilink32 -aa -Gn -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR rem if %GT% == gtgui %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc rem IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built * rem nuevo by Antoionio Linares - 16/05/2013 rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Application successfully built")(Window.close) rem mshta vbscript:CreateObject("SAPI.SpVoice").Speak("Programa construido com sucesso")(Window.close)
  8. https://www.receitaws.com.br/v1/cnpj/99999999999
  9. REDEFINE LISTBOX oValue VAR cValue FIELDS "","","","","","","","","","",""; HEADER "" ID 314 ; ON CHANGE ( "" ) ; ON DBLCLICK ( alterapg(aItems[oValue:nAt][1]),oValue:refresh() ) ; OF oFld1:aDialogs[2]; oValue:SetArray( aItems ) oValue:aHeaders := { "Mes Ref.","Dt.Venc.","Dt.Rec.","Valor Cob","Status","Ocor.","Pg.Comi","Valor Cor","Val.Comi","Condicao" } oValue:aColSizes := { 60, 70, 70, 60, 40, 30, 50, 60, 60, 60 } oValue:bLine := { || {aItems[oValue:nAt][1],aItems[oValue:nAt][2],aItems[oValue:nAt][3],aItems[oValue:nAt][4],aItems[oValue:nAt][5],aItems[oValue:nAt][6],aItems[oValue:nAt][7],aItems[oValue:nAt][8],aItems[oValue:nAt][9],aItems[oValue:nAt][10] } } oValue:nLineStyle := 0 oValue:nClrForeHead := RGB( 0, 0, 255 ) // Cor nos Headers - Cabe‡alhos oValue:nClrText := {|| iif(aItems[oValue:nAt][6]#"00", CLR_HRED,CLR_BLACK) } // cor da linha se condição aItems 6 = "00" oValue:nclrpane:={||iif(oValue:nAt % 2 <> 0, nrgb(230,230,230), nrgb( 190, 215, 190))} // Cor do fundo se par uma se impar outra
  10. Obrigado João! Vou dar uma pesquisada?
  11. boa tarde João! inicialmente estava pensando adordd, mas pelo que pesquisei sqlrdd é nativo, estou certo? Estou tendo dificuldade, em compilar, os exemplos que peguei usam TMysqlServer. Ai da um monte de erro
  12. Boa tarde Srs! Preciso da ajuda de vocês, estou convertendo um sistema antigo que usa DBF num servidor local, preciso acessar um banco de dados MySql que está em um servidor de nuvem. Alguém poderia postar alguns exemplos de como efetuar o acesso, pesquisar, incluir, alterar e excluir registros? Obrigado antecipado.
  13. faço assim e funciona com type=T x1=ADADOS[I,04] IF type("x1")#"U" if type("x1")="T" x1=subs(dtoc(x1),1,10) ---------------> pega a data com formato dd/mm/aaaa endif if type("x1")="N" repl dCRIACAO with str(x1,10) else repl dCRIACAO with x1 ENDIF endif move a célula antes para uma variável de memoria, depois testa
  14. Olá, o campo de data do Excel retorna campo tipo tempo (T) com o formato dd/mm/aa hh:mm:ss você tem de trata-la como string Para converte-la tem de pegar separado a data ctod(subs([celula_excel],1,8))
  15. Obrigado pelas respostas, principalmente o manual. A noite irei ler e fazer mais testes Um abraço a todos.
×
×
  • Create New...