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 (1/14)
9
Reputation
-
Obrigado meu amigo, funcionou 100%
-
Bom dia srs! Preciso importar uma imagem para uma planilha de excel. existe alguma função que faça isso? Obrigado
-
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!
-
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
-
Alguem Tem SCRIPT De Compilação e Lincagem Para HARBOUR ??
cendon replied to edmandc's topic in Programação
rsrsrsr, É isso ai! Já tomei surra dos dois, fiquei com o xharbour. Funciona tudo e tem mais suporte, ou melhor mais amigos. -
Alguem Tem SCRIPT De Compilação e Lincagem Para HARBOUR ??
cendon replied to edmandc's topic in Programação
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 -
Alguem Tem SCRIPT De Compilação e Lincagem Para HARBOUR ??
cendon replied to edmandc's topic in Programação
@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) -
Marcos Souza reacted to a post in a topic: Criando arquivo Excel
-
https://www.receitaws.com.br/v1/cnpj/99999999999
-
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
-
Obrigado João! Vou dar uma pesquisada?
-
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
-
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.
-
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
-
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))
-
Obrigado pelas respostas, principalmente o manual. A noite irei ler e fazer mais testes Um abraço a todos.