Luisão

Os comandos @ ficam no fivewin.ch (#xcommand transformam os comandos em objetos), ou seja, é para ser problema de versão do FW. Abra o seu arquivo fivewin.ch e veja como está o LABEL! -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

E porque não usar direto ShowCursor(nOp), sem precisar criar uma função própria ? Esse SysRefresh deve ser opcional! -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Não é sexta ainda, mas achei essa muito boa -- Numa fazenda moravam um casal e seus três filhos. Um dia a mulher acordou, olhou pela janela e viu que a única vaquinha que eles tinham estava morta. A mulher ficou desesperada. E agora como iam alimentar a família? A vaquinha era o único bem que tinham. Deprimida, a mulher se suicidou. Quando o marido acordou e viu a mulher e a vaquinha morta, ele não agüentou e teve um ataque cardíaco fulminante. Enorme drama familiar…. O filho mais velho acordou e, vendo a situação, tomou uma decisão drástica: foi até o rio para se afogar. Quando chegou no rio, deu de cara com uma sereia, que falou toda dengosa: - Eu sei o que aconteceu com a sua família… mas se você transar comigo cinco vezes seguidas, eu trago todo mundo de volta. O cara mandou ver. Mas só aguentou quatro vezes…. na quinta ele broxou. A sereia ficou puta e o jogou no rio, onde ele morreu afogado. Então outro irmão acordou e foi até o rio atrás do irmão mais velho e também se deparou com a sereia. Esta, após verificar a maior juventude do rapaz, disse-lhe, languidamente: - Se você transar comigo sete vezes seguidas, eu trago toda sua família de volta à vida. O cara mandou ver, mas na sexta transada ele não aguentou e broxou…. A sereia, revoltada, afogou ele no rio. Então, foi a vez do irmão caçula, com quinze anos. Ele foi até o rio e encontrou a sereia, com cara de insatisfeita… - Olha aqui rapazinho, se você transar comigo dez vezes , eu trago todo mundo de volta, propôs a sereia. - Dez vezes? - Sim, você topa? O caçula concordou:- Sim senhora, eu topo…. mas desde que você cumpra a sua parte adiantado… A sereia, já desapontada com o desempenho anterior dos membros da família, argumentou: - Ué…. mas como assim ? vamos transar, depois eu ressuscito eles. - Hmmmm… mas… e se você não aguentar e morrer que nem a vaquinha? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Dá uma olhada na função GetDrivers aqui: http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=15942 Você monta uma array e usa ela para verificar =) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Dentro do seu WHILE ARQFUN->(!EOF()), várias vezes você faz SELE 100, DBSKIP e DBSETORDER, deve estar nesses trechos o problema. E outra coisa, testar se uma data é vazia é mais correto usar EMPTY(ARQFUN->DATADEMIS) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

citação: CLASS Grid FROM TXBrowse METHOD new( dialogo) CONSTRUCTOR ENDCLASS *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* METHOD new( dialogo) CLASS Grid *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=* super:New( dialogo ) return self ... //::dialogo é a janela definida anteriormente. Não Funciona id=red> ::browse := grid():New( ::dialogo ) ::browse:CreateFromResource( 103 ) Funciona id=green> ::browse := TXBrowse():New( ::dialogo ) ::browse:CreateFromResource( 103 ) id=code>id=code>Alguem sabe o que tem de errado? da erro de Dialog não Existe. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. id=quote>id=quote>Você disse que usando TXBrowse funciona mas usando grid não, porque na verdade você está instanciando um objeto da classe TXBrowse. A classe grid não existe, por isso não funciona. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Ah tá, você quer a senha, agora que vi. Aí já não sei se é possível, se for possível recuperar isso via API, sinal que o Windows não é seguro, não concorda ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Já tentou usar NetName(.T.) ? Se passar .F. como parâmetro, você consegue o nome da máquina -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Que linguagem vai usar ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Mobile e Web vai crescer muito ainda, é que no Brasil a internet é um lixo, então usar a "nuvem" para aplicações pesadas ainda não é viável. Quanto a linguagens JAVA - Android, Playbook, Desktop, Web. Objective C - iOS (iPhone, iPod, iPad). C# - Windows e Windows Phone. O bom do Java é que você consegue usar em tudo quanto é lugar e fica mais fácil de integrar os serviços =) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Microsoft demorou muito para entrar no mercado de mobile. Windows Mobile (antes da versão 7) é muito ruim comparado com iOS e Android. Nokia não abriu mão do Symbian, não quiseram adotar o android e as vendas estão caindo. Já afirmaram que estão apostando todas as fichas na parceria Nokia+Windows com os Windows Phones. A RIM lançou o playbook com sistema próprio para concorrer com os tablets Android e iPads. Estão numa fase ruim pois para chamarem desenvolvedores para a plataforma, criaram uma espécie de Emulador de android no playbook, para que desenvolvedores Android pudessem converter suas aplicações para rodar diretamente no tablet da RIM. Resultado ? Estavam dando de graça playbooks para quem enviasse aplicativos (eu enviei 2, mas esqueci de remover o ícone do android e assinei o pacote com a chave de testes, se arrumar esses detalhes acho que ganho um). Esse é um resumo do mundo de smpartphones/tablets. Só citei isso por causa do comentário do Luiz. Sinceramente, acho muito difícil o Windows Phone ganhar de iOS e Android hoje em dia. Talvez quando o Windows 8 for lançado oficialmente, dependendo da integração que ele tiver com a nuvem e com o mobile, aí acho que o cenário muda. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Busca rápida: Parece que é um editor de texto/código-fonte e tem uma classe para isso no FW (no tópico que você postou) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Aqui sempre usamos @SAY também... mas essa tela sua aí tá muito bonita =) Imagina isso com um MySQL então! huahuahuahua Bom, pra finalizar (de novo), se nunca trabalhou com MySQL, instale e faça alguns testes, te garanto que não vai se arrepender. É por isso que eu e o ECO defendemos SGBD, ele remove várias preocupações nossas, porque um programa deve se ajustar aos seus dados e não os dados se ajustarem ao programa. Aqui temos também vários sistemas separados que usam arquivos compartilhados, o que aumenta a dor de cabeça na hora de verificar abertura de arquivos e índices, coisa que com MySQL não temos que nos preocupar. Fora que com MySQL conseguimos já, com sucesso, colocar partes do sistema online, rodando do browser sem ter que ficar dependendo de libs de terceiros que somem e nunca mais dão notícia -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

citação: citação:Hummm, agora lembrei de uma prática que pode corromper índices fácil fácil. Editar os registros de um DBF diretamente pelo DBU, sem abrir índices. ECO, alguma coisa contra "Uninho 1.0 original" ? Bom, para finalizar, obrigado pelas dicas Vagner, eu li um post seu antigo dizendo os motivos da corrupção e acho que um deles ocorre aqui as vezes, que é o caso de não abrir todos os índices (acontece, infelizmente). Mas não pense que somos mal programadores, se conhecesse nossa equipe você iria ver que somos bons, de verdade. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY id=quote>id=quote>Hehehe Com certeza eu sei que são bons programadores, vcs usam @ Say para programar Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>Sarcasmo ou você usa @SAY também ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Hummm, agora lembrei de uma prática que pode corromper índices fácil fácil. Editar os registros de um DBF diretamente pelo DBU, sem abrir índices. ECO, alguma coisa contra "Uninho 1.0 original" ? Bom, para finalizar, obrigado pelas dicas Vagner, eu li um post seu antigo dizendo os motivos da corrupção e acho que um deles ocorre aqui as vezes, que é o caso de não abrir todos os índices (acontece, infelizmente). Mas não pense que somos mal programadores, se conhecesse nossa equipe você iria ver que somos bons, de verdade. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Hehehe, você deve ter trabalhado com DBF mais tempo que eu tenho de vida Mas brincadeiras a parte, bom, esse lance de índices corrompidos não pode ocorrer por conta de falha na rede ou então usuário interrompendo processamentos finalizando o programa pelo gerenciador de tarefas ? Sobre o DBF em específico, desde quando entrei na empresa existem erros de índices corrompidos (não porque eu entrei, já existiam antes =P), então devo ter aprendido da forma errada, hehehehe... Você disse que o DBF tá vivo até hoje, mas faz tempo que ele não sai da cama então, nem tá mais andando para acompanhar o resto, hauhauhaua. Bom, de qualquer forma, eu só uso sistema de dados baseado em arquivos quando não tem outra escolha (aqui na empresa temos muitos sistemas em DBF, não dá pra converter tudo). E sobre a "tarefa" que propus, fiquei curioso, queria ver um exemplo, se possível. Clientes, Pedidos, Plano de Pagamento, Produtos e Itens do Pedido são tabelas diferentes, o OrdScope() resolveria isso ? Me desculpe, é que nunca usei o OrdScope (não que me lembre, hauhauhauA) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

citação: citação:Quando tenho que fazer programa em DBF dá até um desânimo... Acho que fiz um só esse ano, que eu me lembro (ainda bem ^^) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY id=quote>id=quote>Eu trabalho com o Dbf, desde o primeiro, e não vejo desvantagens nele, tanto é que ele está ativo até hoje Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>Oloco Vagner, não vê desvantagens ? Você já usou algum tipo de SGBD né ? (espero que sim ) Não to falando que DBF não serve para nada, mas fazer um programa em DBF e outro em SQL, não tem nem comparação. Você mesmo disse, índices corrompidos. O problema que o Erciley teve agora não aconteceria com MySQL. DBF tem índices, mas não tem chave primária (não que eu saiba), então para evitar código repetido o que você deve fazer ? Verificar se ele já existe no arquivo via programação. DBF não tem chave estrangeira (de novo, não que eu saiba, nunca usei). Fora milhões de outras funcionalidades que só um SGBD pode oferecer (controle de permissões, por exemplo). Sério, sua opinião aqui no fórum é uma das que eu mais levo a sério (pois pelas suas postagens vejo que você entende muito dos assuntos que você opina), mas não tem como comparar um SGBD com DBF. Não no cenário atual pelo menos. Com DBF, quanto tempo você levaria para me fazer um levantamento de todos os clientes que compraram em 2012 o produto X e qual foi a forma de pagamento desses pedidos ? Com SQL é rapidinho -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Quando tenho que fazer programa em DBF dá até um desânimo... Acho que fiz um só esse ano, que eu me lembro (ainda bem ^^) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

O arquivo na sua máquina, que ficou lento, tava aberto em modo exclusivo ou compartilhado ? Tenta inverter o modo de abertura e testar. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Tente ON CHANGE ( IF(VARFUN[50],OBJFUN[49]:ENABLE(),OBJFUN[49]:DISABLE()) ,OBJFUN[49]:Refresh() ) -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Obrigado Samir pela dica, é que eu não queria fazer uma função nova, só queria saber o porquê deste bug. (curiosidade de programador mesmo ) Você fez o teste ? É bugado mesmo né ? Será que todas as versões do xhb tem esse problema ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Declare A como local, por via das dúvidas. Poderia colocar também o trecho com a declaração da aAGENDA ? Faça isso: ? LEN(aAGENDA[nDIA,A]), ValType(aAGENDA[nDIA,A]) e nos diga o que está retornando. ps.: É nessas horas que aquela função da SQLLIB cairia bem, toString -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

aAGENDA[1,A] := REPLI("X",50) ? Len(aAGENDA[1,A]) // Aqui retorna 1 ? Acho que não hein! NEXT id=code>id=code>Mostre seu código, como está o LEN no seu código ?-- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Versão demo, mas mesmo assim bem completa. Em PDF e CHM - http://www.xharbour.com/xhdn/ -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Nesse seu exemplo você está alterando somente a linha 1, você está fazendo o FOR nas colunas. O que você quer fazer na verdade ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY