Jmsilva

Error: Unresolved external '_dv_memcpy' referenced from C:\ROOT\SQLRDD\LIB\SQLRDD.LIB|sqlrdd1
Error: Unresolved external 'utime(const char *, utimbuf *)' referenced from C:\ROOT\XHB10274_BCC760\LIB\HBZIP.LIB|zipplatform
0 Files, 0 Warnings, 3 Errors
Compile time: 0.00s   Link time: 1.29s   Total time: 1.35s
 

Bom Dia, alguem se habilita, versão nova xHB 10274 e BCC760

3 horas atrás, emotta disse:

- clonar repositório - c:\git clone https://github.com/ronpinkas/xharbour.git

- instalar visual studio Community - https://visualstudio.microsoft.com/pt-br/downloads/
- instalar apenas DESENVOLVIMENTO PARA DESKTOP COM C++

- compilar com comandos abaixo:

cd c:\xharbour
set XBUILD_VC8=YES
set HB_DIR_ADS=c:\acesdk\acesdk
make_vc all && cd c:\xharbour\xHarbourBuilder\xHarbour-Builder && xbldfull.bat -all   

Por gentileza, pode esclarecer esta path, o que precisa estar instalado ?

Aparentemente a cada dialog que cria, ele gera código em html no método oDlg: HTML () que pode ser visualizado na twebview(). Longe de aplicabilidade em app comercial.

 samples\FiveDbu.prg usando o novo samples\buildhmt.bat, clique com o botão direito na janela principal
e ative a opção "WebApp", vá para "localhost" no seu navegador e você verá o FWH aplicativo
rodando na web. Este é um trabalho em andamento, mas queríamos mostrar esse recurso que está sendo desenvolvido
dentro do FWH para todos os aplicativos FWH. Você precisa ter paciência, pois precisamos do seu feedback para concluí-lo, mas isso abre
possibilidades incríveis que você verá em breve.
 samples\webapp.prg mostra o novo conceito de aplicativo de escritório para aplicativo web que estamos implementando em FWH.
Este é um trabalho em andamento, não está listado para produção, mas por favor construya webapp.prg e clique diretamente no diálogo
que você obtém e verá como FWH constrói um diálogo de aplicativo da web usando um diálogo de escritório. O próximo passo
será usar a nova classe TWebSocketServer para funcionar na web. Por favor, mantenha todo o progresso desta revolução.

Parece interessante....

Pelo que pesquisei,  aparentemente a SQLRDD tem erro na função Dbusearea, mais especificamente SR_WORKAREA:SQLOPENAREA quando usado com banco PostgreSQL. Com os demais bancos funcionam bem.

Olá, tenho um APP que roda sem problemas MySQL e SqlServer, estou fazendo teste no POSTGRESQL. Porém ao usar a função Dbusearea, não abre a tabela e não gera erro neterr(). Porém conectou e criou todas as tabelas. Alguém que usa ou já usou PGS com SQLRDD passou por problemas parecido?

Estou usando:https://uolhost.uol.com.br/banco-de-dados

JMSILVA 

19 horas atrás, oliveiros disse:

Oi, bom dia! 

Explica melhor a demanda, por favor. Vc precisa colocar a quantidade de dias entre as datas dtcalc1 e dtcalc2, isso? 

SELECT p.dtcalc1 AS data, SUM( IF( TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) = 0, 1,  TIMESTAMPDIFF(DAY, p.dtcalc1, p.dtcalc2) )  )  AS dias FROM process AS p GROUP BY p.dtcalc1;

Testa essa Query.

O resultado será:

03/06/2023 - 2;

04/06/2023 - 3;

06/06/2023 - 2;

Não entendi na sua demanda dia 05/06/2023 - 1;

Atenciosamente,

Oliveiros Junior

 

 

Olá, obrigado vou testar. Mas com relação aos resultados são:

Dia 03 = 1 ref. Id 1

Dia 04 = 3 ref. Id 1,2 e 3

Dia 05 = 1 ref Id 3

Dia 06 = 2 ref id 4 e 5

Dia 07 = 0

Espero ter respondido.

Considerando a tabela 'process' com campos id,dtcalc1 e dtcalc2.
Pesquisa feita ente 01/06/2023 e 07/06/2023

id    -    dtcalc1          -  dtcalc2              resultado em dias   
1          03/06/2023      05/06/2023       2 dias
2          04/06/2023      05/06/2023       1 dia
3          04/06/2023      06/06/2023       2 dia
4          06/06/2023      07/06/2023       1 dia
5          06/06/2023      06/06/2023       0 dia excessão

* Excessão : como as datas são iguais seria 0 dia, mas deve contar como um quando for iguais
* para os demais caso, o dia  deve estar  entre (  dtcalc1 >= e dtcalc2  <  )

Resultado esperado
01/06 = 0
02/06 = 0
03/06 = 1
04/06 = 3
05/06 = 1
06/06 = 2
07/06 = 0

Atualmente faço For..Next  com Select count(*) , porem se for 30 dias, são 30 requisições...queria mudar para uma única.

att. JMSILVA 

Fast report é vendido pela Xailer. É uma lib para harbour/xharbour. Demo pode wer baixando para testes. Frx.exe no link abaixo.

https://www.ozs.es/wp/fastreport/

4 horas atrás, sunset disse:

O erro não e recorrente, e apos 2 ou 3horas de uso e em maquinas mais fracas, em maquinas mais robustas as mesmas telas e rotinas rodam sem problema, por isso não acho que seja diretamente no .RES e não uso DLL para as telas, sempre edito todas pelo PELLES.

 

Procuro quem para adquirir um novo FW? talvez o conjunto a obra seja o problema.

Gilmer@fivewin.com.br

5 minutos atrás, kapiaba disse:

Com WORKSHOP.exe the best, eu faço como eu quiser.

Abs.

 

Regards, saludos.

Sim. Assim como qq outro editor de recursos, porém, entendi que a dúvida paira sobre codificação sem o uso de recursos.

Faço assim:

DEFINE DIALOG oDlg SIZE 360,180 PIXEL TITLE  "Radio Vertical/Horizontal"

   @ 04,10 RADIO nNivel PIXEL PROMPT "&Teste 1", "&Teste 2" OF oDlg
   @ 04,50 RADIO oRad Var nNivel PIXEL PROMPT "&Teste 3", "teste 4" OF oDlg  

   @ 6, 19 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED;
            ON INIT oRad:aItems[2]:Move(8,200,,,.T.) // @ 04 (2*4=8) dobro da linha

Olá jovem, caso vc use dll, e se a dll foi gerada pelo Pelles C, você precisa verificar se tem algum objeto do "user control" no resource dialog. Este objeto geralmente é o causador. Se não usa dll e nem oPelles desconsidere esta ajuda.

Se for objeto poste para sugerir uma opção que resolva.

STRUCTURE oVar    
.    MEMBER oFtp
     MEMBER lOpen     INIT .F.
     MEMBER cDir      INIT "Repos"
     MEMBER cPassword INIT "123456"
     MEMBER cUSBStick INIT "ftp://nome_do_usuario_ftp:senha@localhost"
   ENDSTRUCTURE

Faltou criar a variavel oFtp

Tenta assim:

Sr_cDbValue(ctod(''))

Olá pessoal!

Contratei serviço da uol host banco de dados R$ 4,99. O preço é atrativo: https://uolhost.uol.com.br/banco-de-dados

Fiz a conexão via SQLRDD funcionou perfeitamente a conexão, porém a cada 2 minutos fica inativo e a conexão é finalizada !

Isto é ruim em um cadastro qualquer que por demorar um tempo superior, então fui verificar no servidor da uol e constatei que a variável global "wait_timeout" está configurada para 120 segundos, exatamente o tempo que a conexão é finalizada. Destarte, abri um chamado na UOL, e me responderam que o valor não pode ser alterado. E minha credenciais tbm não permite que eu faça.

Para resolver o problema, usei classe TIMER em um intervalo inferior aos 2 minutos para executar um "commit" no banco e interromper a ociosidade de  minutos.

Aparentemente está funcionando, vou aguardar os testes! 

Gostaria de saber dos senhores se teria alguma outra forma para resolver isso ? Se alguém já passou por esta situação ?

Servidor é o Mysql 5.6

grato !

JMSilva

9 horas atrás, emotta disse:

Eu não falei para recriar a roda, o que eu disse é para criar uma classe para facilitar o uso e nessa classe usar uma PDF.LIB para gerar PDF, também pode ser essa HARUPDF (que eu já vi mas nunca usei).

Sobre a printer.prg gerar PDF ela até gera, mas não da maneira correta. Ela simplesmente converte os wmf gerados na impressão para paginas PDF. Por este motivo que o PDF fica grande.

Eu tomei essa decisão que sugeri a mais de 20 anos atrás e vejo que foi uma excelente alternativa, que me ajudou muito quando desenvolvi o sistema web em outra linguagem e utilizo a geração dos relatórios ainda em xHarbour e gerando PDF (e excel) na web.

Estou sugerindo o que deu certo pra mim, o que não significa que não existam outras alternativas boas também. Mas no meu caso foi o que deu muito certo, então é o que eu recomendo.

 

Parabéns, entendi sua solução, mas não conheço. Por isso se não for pedir muito um simples exemplo com poucas linhas será de grande valia. Grato e parabéns pela solução.

As demais conheço e minha opinião para cada uma delas. 

45 minutos atrás, emotta disse:

se vai começar algo novo eu sugiro vc criar uma classe própria para interfacear o uso de uma PDF.LIB e gerar os relatórios em PDF.

Tem exemplo com pdf.lib ?

Fastreport

Na Sqlrdd a forma correta é a seguinte: 

Vendas->(Sr_SetFilter("a.dtvenda= "+SqlString(dDtvenda)), Sr_DbRefresh(),DbGotop())

If venda->(OrdKeyCount()) = 0

   ? "Nenhum registro foi encontrado"

Endif

Alias->(xbrowse())

Internamente SqlRdd monta seguinte comando sql que vc pode conferir se ativar recurso com Sr_StartTrace()

select a.* From vendas a where a.dtvenda = '9999-99-99' order by (chave indice selecionado)

Vc ainda pode usar o dbsetfilter() para manipular os dados da requisição acima.

Se vc estiver fechado com algum botão, coloca obtn:lcancel := .t.

1 hora atrás, edutraini disse:

Boa tarde

Eu uso locaweb e estou muito satisfeito

vc pega um servidor linux 

 

Obrigado!

https://uolhost.uol.com.br/banco-de-dados

Alguém já usou?

Amigos, caso alguém que usa serviço de banco de dados on line com sucesso sem perrengue, peço que me indique por gentileza Grato !

Já testou

 hb_FileExists(cFile)