-
Posts
718 -
Joined
-
Last visited
-
Days Won
14
Everything posted by Jmsilva
-
O uso da clausula "Valid" em determinado "Get"! Digamos que o dado digitado não foi validado, estão o "focu" fica preso no Get em questão. Em um botão "Sair" com o método oDlg:End() ou oWnd:End() é barrado pelo valid e não fecha. Porém no "X" (fechar) da janela fecha sem fazer a verificação. Alguém saberia me dizer qual o método é usado no "X" da Janela, ou sabe como fechar uma janela nesta situação. JMSilva
-
Acrescente! oBrw:aCols[3]:SetCheck()
-
Sugestão seria implementar o uso meter ou progress....durante o processamento
-
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
-HB32 Error occurred at: 07/07/2018, 19:44:02 Error description: Error BASE/1123 Argument error: HB_HHASKEY Args: [ 1] = N 1 [ 2] = C installed Application =========== Path and name: C:\Users\Silva\Documents\Xailer\Projects\Gdrive.exe (32 bits) Size: 3,956,224 bytes Compiler version: Harbour 3.2.0dev (r1603082110) FiveWin version: FWH 17.05 C compiler version: Borland/Embarcadero C++ 7.0 (32-bit) Windows version: 6.2, Build 9200 Stack Calls =========== Called from: => HB_HHASKEY( 0 ) Called from: .\source\internal\TGOOGLE.PRG => TGDRIVE:GETTOKENS( 371 ) Called from: .\source\internal\TGOOGLE.PRG => TGDRIVE:ACTIVATE( 224 ) Called from: gd.prg => UPLOADMYFILE( 70 ) Called from: gd.prg => MAIN( 37 ) -xHarbour Error: 'C:\ROOT\GOOGLE\VERSAO_20180707\GOOGLE32.LIB' contains invalid OMF record, type 0x21 (possibly COFF) Obrigado! -
Pessoal! Gostaria de criar uma função no Pelles C com o nome "NameShow()" que retornasse o palavra "Harbour" (somente o código), sei usar Pelles, será criado uma DLL. Após no Harbour, quero no inicio do meu PRG, fazer a chamada da função NameShow() e mostrar palavra "Harbour". Func Main() set resource to "xxx.dll" Msgstop(NameShow()) set resource to Return nil Obrigado!
-
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
----------------------------- xHarbour Error Log ------------------------------ Date...............: 09/06/2018 Time...............: 00:26:51 Application name...: C:\Users\Silva\Documents\Xailer\Projects\Gdrive.exe Workstation name...: ASUS Available memory...: 2097151 Current disk.......: C Current directory..: Users\Silva\Documents\Xailer\Projects Free disk space....: 391642374144 Operating system...: Windows 8 6.2.9200 xHarbour version...: xHarbour 1.2.3 Intl. (SimpLex) (Build 20180311) xHarbour built on..: Mar 11 2018 14:25:00 C/C++ compiler.....: Borland/Embarcadero C++ 7.3 (32-bit) Multi Threading....: NO VM Optimization....: 1 Current Area ......:1 -------------------- Internal Error Handling Information --------------------- Subsystem Call ....: BASE System Code .......: 1123 Default Status ....: .F. Description .......: Argument error Operation .........: HHASKEY Arguments .........: [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed Involved File .....: Dos Error Code ....: 0 Trace Through: ---------------- HHASKEY : 0 in Module: TGDRIVE:GETTOKENS : 371 in Module: .\source\internal\TGOOGLE.PRG TGDRIVE:ACTIVATE : 226 in Module: .\source\internal\TGOOGLE.PRG UPLOADMYFILE : 70 in Module: gd.prg MAIN : 37 in Module: gd.prg ############################## Video Screen Dump ############################## +--------------------------------------------------------------------------------+ |Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: | | 1 [ 2] = Type: C Val: installed) (Quit) | |Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: | | 1 [ 2] = Type: C Val: installed) | | | |Error at ...: HHASKEY(0) in Module: | |Called from : TGDRIVE:GETTOKENS(371) in Module: .\source\internal\TGOOGLE.PRG | |Called from : TGDRIVE:ACTIVATE(226) in Module: .\source\internal\TGOOGLE.PRG | |Called from : UPLOADMYFILE(70) in Module: gd.prg | |Called from : MAIN(37) in Module: gd.prg | com uso dalib GOOGLEMX.LIBn apresenta: Linking: Gdrive.exe... Error: 'C:\USERS\SILVA\DOWNLOADS\GOOGLE (2)\GOOGLEMX.LIB' contains invalid OMF record, type 0x21 (possibly COFF) 0 Files, 0 Warnings, 1 Errors Compile time: 0.00s Link time: 0.38s Total time: 0.38s -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Linha 70: lSw := oDrive:Activate() Subsystem Call ....: BASE System Code .......: 1123 Default Status ....: .F. Description .......: Argument error Operation .........: HHASKEY Arguments .........: [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed Involved File .....: Dos Error Code ....: 0 Trace Through: ---------------- HHASKEY : 0 in Module: TGDRIVE:GETTOKENS : 371 in Module: .\source\internal\TGOOGLE.PRG TGDRIVE:ACTIVATE : 226 in Module: .\source\internal\TGOOGLE.PRG UPLOADMYFILE : 70 in Module: gd.prg MAIN : 37 in Module: gd.prg ############################## Video Screen Dump ############################## Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed) (Quit) Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed) Error at ...: HHASKEY(0) in Module: Called from : TGDRIVE:GETTOKENS(371) in Module: .\source\internal\TGOOGLE.PRG Called from : TGDRIVE:ACTIVATE(226) in Module: .\source\internal\TGOOGLE.PRG Called from : UPLOADMYFILE(70) in Module: gd.prg Called from : MAIN(37) in Module: gd.prg -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Compiling: gd.prg... Linking: Gdrive.exe... 1 Files, 0 Warnings, 0 Errors Compile time: 6.22s Link time: 13.55s Total time: 19.78s Compilou e criou o executável!! Ao executar: -------------------- Internal Error Handling Information --------------------- Subsystem Call ....: BASE System Code .......: 1123 Default Status ....: .F. Description .......: Argument error Operation .........: HHASKEY Arguments .........: [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed Involved File .....: Dos Error Code ....: 0 Trace Through: ---------------- HHASKEY : 0 in Module: TGDRIVE:GETTOKENS : 371 in Module: .\source\internal\TGOOGLE.PRG TGDRIVE:ACTIVATE : 226 in Module: .\source\internal\TGOOGLE.PRG UPLOADMYFILE : 70 in Module: gd.prg MAIN : 37 in Module: gd.prg ############################## Video Screen Dump ############################## Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed) (Quit) Error BASE/1123 Argument error: HHASKEY Arguments: ( [ 1] = Type: N Val: 1 [ 2] = Type: C Val: installed) Error at ...: HHASKEY(0) in Module: | Called from : TGDRIVE:GETTOKENS(371) in Module: .\source\internal\TGOOGLE.PRG | Called from : TGDRIVE:ACTIVATE(226) in Module: .\source\internal\TGOOGLE.PRG | Called from : UPLOADMYFILE(70) in Module: gd.prg | Linha 70 do arquivo gd.prg lSw := oDrive:Activate() -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Compiling: gd.prg... Linking: Gdrive.exe... Error: Unresolved external '_HB_FUN_HB_DEFAULT' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX (3).LIB|APIGFUNC Error: Unable to perform link 1 Files, 0 Warnings, 2 Errors Compile time: 1.59s Link time: 4.49s Total time: 6.08s Fiz um teste e verifiquei que as funções Default() e HB_Default() funcionam perfeitamente no Harbour 3.2. Já no xHarbour funciona somente a Default() Portanto, Sr. Poderá usar somente a função DEFAULT() no projeto Google.lib que vai atender a ambas linguagens. Ok! -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Linking: Gdrive.exe... Error: Unresolved external '_HB_FUN_HB_DEFAULTVALUE' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX (2).LIB|APIGFUNC Error: Unable to perform link 0 Files, 0 Warnings, 2 Errors Compile time: 0.00s Link time: 3.98s Total time: 4.00s -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Compiling: gd.prg... Linking: Gdrive.exe... Error: Unresolved external '_HB_FUN_HB_DEFAULTVALUE' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX (1).LIB|APIGFUNC Error: Unresolved external '_HB_FUN_HB_MEMOREAD' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX (1).LIB|TGOOGLE Error: Unable to perform link 1 Files, 0 Warnings, 3 Errors Compile time: 1.79s Link time: 3.02s Total time: 4.82s No xHarbour, Default() e MemoRead(). Obrigado! -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Linking: Gdrive.exe... Error: Unresolved external '_HB_FUN___HBEXTERN__HBSSL__' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX.LIB|TGOOGLE Error: Unresolved external '_HB_FUN_HB_MEMOREAD' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX.LIB|APIGFUNC Error: Unresolved external '_HB_FUN_HB_DEFAULTVALUE' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX.LIB|APIGFUNC Error: Unresolved external '_HB_FUN_HB_HHASKEY' referenced from C:\USERS\SILVA\DOWNLOADS\GOOGLEX.LIB|TGDRIVE Error: Unable to perform link 0 Files, 0 Warnings, 5 Errors Compile time: 0.00s Link time: 1.66s Total time: 1.66s -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
-Segundo CNavarro pretende disponibilizar para xHarbour, não conheço quanto a outras possibilidades para xhb via código. Como sugestão pode fazer exe no HB32, e através do comando RUN no xHarbour invocar o exe para enviar o arquivo. -
Valeu Eric, o problema não está FB, acessei pelo ISQL.exe e executei o mesmo comando que apresenta erro, foi executado com sucesso! - Uso a versão 3.0; -Banco foi criado pelo sistema (Via Harbour) -erro de 9 dígitos não entendi... Possivelmente seria a lib que está com problemas.....
-
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Só funciona com o Harbour. -
Veja o exemplo FW, \FWH\samples\winpop4.prg, se ajuda.
-
Pessoal! Tenho uma tabela com 40 campos, porém não consigo usar comando SELECT para selecionar mais de 32 campos ao mesmo tempo, exceto com coringa (*). veja a linha abaixo: cSql := "Select campo1,campo2.....campo33 From cliente;" oQry := FBQuery( ::pConn, cSql, ::nDialect ) // O resultado é erro -204 cSql := "Select * From cliente;" oQry := FBQuery( ::pConn, cSql, ::nDialect ) //O resultado correto trás as 40 colunas da tabela Para resolver isso, tive que quebrar em dois comandos "Select", um com 32 e o outro com os restantes dos campos. Em outros bancos (mysql, postgree) funciona corretamente o comando com mais de 32 campos. Resumo: - Select * From funciona corretamente - Select com até 32 campos funciona corretamente - Select com 33 campos apresenta o erro -204 - Select com mais de 33 campos apresenta o erro -104 Alguém que usa ou já usou FIREBIRD tem uma solução? Obrigado!
-
Veja se ajuda: Function Main() Local dDTINI := Date() Local dDTFIM := Date()+1 Local cHRINI := "17:01:23" Local cHRFIM := "00:05:01" Local aX := F_DifHr(dDTINI,dDTFIM,cHRINI,cHRFIM) MsgInfo(StrZero(aX[1,1],2)+" - Dias"+HB_Eol()+; StrZero(aX[2,1],2)+" - Horas"+HB_Eol()+; StrZero(aX[3,1],2)+" - Minutos"+HB_Eol()+; StrZero(aX[4,1],2)+" - Segundos","Cálculo de Horas") Return nil **======================================================= Function F_DifHr(dDTINI,dDTFIM,cHRINI,cHRFIM) **======================================================= LOCAL nTOTSEG,nCT,nCONSTANT,nTEMP,aVETRET[4,2] nTOTSEG := (dDTFIM - dDTINI) * 86400 + ; VAL(cHRFIM) * 3600 + ; VAL(SUBSTR(cHRFIM,AT(':', cHRFIM)+1,2)) * 60 + ; IF(RAT(':', cHRFIM) == AT(':', cHRFIM), 0, ; VAL(SUBSTR(cHRFIM,RAT(':', cHRFIM)+1))) - ; VAL(cHRINI) * 3600 - ; VAL(SUBSTR(cHRINI,AT(':', cHRINI)+1,2)) * 60 - ; IF(RAT(':', cHRINI) == AT(':', cHRINI), 0, ; VAL(SUBSTR(cHRINI,RAT(':', cHRINI)+1))) nTEMP := nTOTSEG FOR nCT = 1 to 4 nCONSTANT := IF(nCT == 1, 86400, IF(nCT == 2, 3600, IF( nCT == 3, 60, 1))) aVETRET[nCT,1] := INT(nTEMP/nCONSTANT) aVETRET[nCT,2] := nTOTSEG / nCONSTANT nTEMP -= aVETRET[nCT,1] * nCONSTANT NEXT Return aVETRET
-
Qual nome da classe usado em variável lógica o EDITVARS
Jmsilva replied to Jmsilva's topic in Programação
https://drive.google.com/file/d/15c9-JjD_UXhmuqG8CdKYi8HtgZ82PjR3/view?usp=sharing Veja a imagem... -
Olá, Bom Dia! Alguém sabe me dizer como conseguir o efeito usado pelo EDITVARS para variável lógica. Vide código abaixo: #include "fivewin.ch" //----------------------------------------------------------------------------// function Main() local lOFF := .F., lON := .T. EDITVARS lOFF, lON PROMPTS "Desligado","Ligado" return nil
-
Edu, não sei se vc já resolveu, veja se ajuda! - Detalhe fiz mas não testei ainda...não tenho o excel instalado! #include "FiveWin.ch" Function main() Ler_planXLS("c:\temp\exemplo.xls") return nil function Ler_planXLS(cFile) Local oBook,i,aVet,oExcel,oSheet oExcel := CreateObject("Excel.Application") oBook := oExcel:Workbooks:Open( cFile ) //oBook := oExcel:Workbooks:Add() oSheet := oBook:Worksheets( 1 ) //planilhas For i = 1 To oExcel:Sheets:Count() //oBook:Sheets:Count aVet := oBook:Sheets(i):Name //oSheet:Name Next XBrowse(aVet) Return nil Este site pode te ajudar: https://msdn.microsoft.com/en-us/VBA/Excel-VBA/articles/xlfileformat-enumeration-excel
-
Poder ser alias, coloque antes do seek a função select("nomedoaliasdbf")
-
Valer a pena vale, mas não me lembro do grau de dificuldade.
-
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
Sim, resolvido! Obrigado. Apenas como sugestão, seria legal o tratamento referente ao parâmetro HB_HHASKEY para evitar o bug e informar o usuário. Uma vez que a classe faz leitura de arquivo e pode ocorrer diversos problemas. -
Rotina para gravar backup Google Drive - Resolvido
Jmsilva replied to Jmsilva's topic in Programação
@cnavarro Valeu! resolvido. Obrigado! Error description: Error BASE/1123 Argument error: HB_HHASKEY Called from: => HB_HHASKEY( 0 ) Called from: .\source\internal\TGOOGLE.PRG => TGMAIL:GETTOKENS( 346 ) Called from: .\source\internal\TGOOGLE.PRG => TGMAIL:ACTIVATE( 206 ) Called from: Gmail.prg => GMAIL0( 591 ) Called from: Gmail.prg => (b)WEBBTTS( 224 ) Abraço! JMSilva