joaosolution

Boa tarde Você vai acessar o MySql como? SqlLib,SQLRDD, ADORDD nativo xHarbour? Existem várias formas de acesso e da mesma forma vários exemplos diferentes.... Att João Bosco

Bom dia Utilizo a classe Display.prg do William de Brito Adami do forum internacional. Em cada Activate dialog ON INIT Display() e altera de acordo com a resolução. Você deve criar as telas em uma resolução padrão e a classe altera de acordo com a resolução da tela do usuário. João Bosco

Boa tarde Sugiro a você criar uma tabela a parte para registro dos arquivos, pois com o passar do tempo os Select´s com este campo irão ficar lentos. No meu caso tinha uma tabela clientes, criei outra tabela com código do cliente e arquivo. E sempre que preciso executar uma consulta uso select ... where codcli=xxx Att João Bosco

Bom dia Fiz o teste aqui e com 60000 funções demora 33 Segundos para carregar o programa. 6 prgs com 10000 funções cada. Default da compilação /n. Att João Bosco

Bom dia Não entendi muito bem mas vamos lá. De onde vem os resultados T_ACERTOS, T_NAO_ACERTO e T_PONTUACAO? Att João Bosco

Bom dia Com o comando: show table status Apresenta uma coluna Rows. Att João Bosco

João Sim Tenho uma Window principal do Sistema MDI e depois todas as novas Window que abro, são como MDICHILD. Att João Bosco

João Bom dia Uma Window com Listbox Maximizada ocupando a tela completamente. Quando abro uma outra window para cadastro, código e nome. A Window anterior do listbox deixa de ficar maximizada. Att João Bosco

Boa tarde Tenho um Sistema com janelas MDICHILD, abro uma Window MAXIMIZED e outras não maximizadas. Esta ocorrendo que quando abro uma que não é maximizada, a maximizada fica em janela. Tem como evitar este conflito entre as Janelas? João Bosco

Rogerio Com a função ADIR você consegue o tamanho do arquivo. https://vivaclipper.wordpress.com/2012/11/01/adir-function/ Att João Bosco

João Xamarin não é linguagem é um ambiente de integração para desenvolvimento para celular, utilizando C#, com Visual Studio. Att João Bosco

Marcio Bom dia Trabalho com dois modelos, um meia folha e outro dois recibos em uma folha. Att João Bosco

Tiago Não serão todos os comando de DBFCDX que irão funcionar diretamente com SQLRDD, a migração de uma RDD para outra nos exige adaptação ao novo RDD, desta forma alguns comandos de consulta e filtros eu tive que alterar. Outra coisa importante também é a questão de performance, pois utilizando comandos SQL o sistema fica mais rápido. Ex: cSql:=" SELECT Cod,Descricao,Valor From TabelaProd Where cod Between 101 and 119" SR_BeginTransaction() Try oSql := SR_GetConnection() Use (cSql) Alias "TabProd" NEW SHARED VIA "SQLRDD" Sr_CommitTransaction() Catch oErro SR_RollBackTransaction() // Retira texto com código do erro cError := Memoline(oErro:Description,100,2) // Grava LOG MemoWrit("error.log",pSql+CRLF+cError) //Trata códigos de erro If Alltrim(Left(cError,At("-",cError)-1)) == "42S22" MsgAlert("Nome de campos errado verifique!","Atenção") Else Throw( oErro ) Endif End Att João Bosco

Edu Boa tarde Acredito que você deseja usar o Splitter. Na pasta FW\samples\testspl1,FW\samples\testspl2,FW\samples\testspl3,FW\samples\testspl4,FW\samples\testspl5,FW\samples\testspl6, Att João Bosco

Tiago Boa tarde Não seria melhor alterar a pesquisa para USE SQL com o filtro desejado? Att João Bosco

Boas tarde! Quente e chuvosa!! E animada como sempre! Seleta e torresmo na alta. Abraços João Bosco

Alexandre Bom dia Acredito que seja o exemplo testxbr6.prg da pasta samples. Att João Bosco

Acessosoft? Você já tentou converter para hexadecimal antes de gravar strtohex () depois para recuperar a informação do BD hextostr() Att João Bosco

Acessosoft? Não seria oCbx:oGet:GetText() para pegar o conteúdo digitado? Att João Bosco

Infosys? Você vai comercializar esta ferramenta? Att João Bosco

Pablo O RDD gera automaticamente datetime, para alterar isso vc terá que criar as tabelas manualmente usando create table do sql. Utilizo os campos datetime sem problema e converto as datas sem considerar o time. Function DateToSQL(dDate) Local cRet :="" cRet:= "'"+Alltrim(StrZero(Year(dDate),4))+"-"+Alltrim(StrZero(Month(dDate),2))+"-"+Alltrim(StrZero(Day(dDate),2))+"'" If Empty(dDate) cRet:= "0000-00-00" Endif Return cRet Att João Bosco

Se quiser mando minha foto pra vc colocar ai...

Boa tarde. Eu coloquei. Att João Bosco

* Este módulo demonstra um servidor de descoberta UDP simples * * Se você executar algum serviço na rede (ex., Hbnetio), você precisa * Conheça o endereço IP do servidor e configure o cliente para se conectar a este * endereço. UDPDS ajuda o cliente a encontrar o endereço do servidor (ou endereços * de vários servidores) na rede local. UDPDS deve ser executado em * paralelo ao servidor real (ex., hbnetio). Parte do servidor de UDPDS usa * threads, portanto, ele deve ser compilado no modo MT. Att João Bosco

Bom dia Fiz o teste na pasta \FWH1206\samples\testimg.prg e funcionou o copy do clipboard e o save sem problemas. Uso a versão FiveWIn 12.06 BCC 5.8.2 e xHarbour 1.2.1 Att João Bosco