Jackita

Aos amigos que retornaram a mensagem, entrarei em contato brevemente. estou em SP a negócios, e retornarei para RN na quarta-feira. Obrigado pelo retorno. Jackita - RN

Olá, pessoal, como vão? Eu gostaria de saber se existem programadores Harbour / xHarbour que utilizem FWH aqui no Nordeste. Acontece que eu adquiri um excelente pacote com sistemas feitos em xH + FWH, estou colocando-os no mercado, mas antes preciso de alguém que faça manutenção nesses fontes. Os softwares de que falo são excelentes, com acabamento de primeira, e o estilo de trabalho do programador é de primeiro mundo, super organizado e com uso intenso de classes. Se existir, por favor, se comunique, para que possamos entrar em entendimentos. Proponho um vínculo empregatício, mas aceitaria também qualquer parceria de forma responsável. Jackeline Natal - RN

Olá, pessoal, como vão? Eu gostaria de saber se existem programadores Harbour / xHarbour que utilizem FWH aqui no Nordeste. Acontece que eu adquiri um excelente pacote com sistemas feitos em xH + FWH, estou colocando-os no mercado, mas antes preciso de alguém que faça manutenção nesses fontes. Os softwares de que falo são excelentes, com acabamento de primeira, e o estilo de trabalho do programador é de primeiro mundo, super organizado e com uso intenso de classes. Se existir, por favor, se comunique, para que possamos entrar em entendimentos. Proponho um vínculo empregatício, mas aceitaria também qualquer parceria de forma responsável. Jackeline Natal - RN

Olá, pessoal, como vão? Eu gostaria de saber se existem programadores Harbour / xHarbour que utilizem FWH aqui no Nordeste. Acontece que eu adquiri um excelente pacote com sistemas feitos em xH + FWH, estou colocando-os no mercado, mas antes preciso de alguém que faça manutenção nesses fontes. Os softwares de que falo são excelentes, com acabamento de primeira, e o estilo de trabalho do programador é de primeiro mundo, super organizado e com uso intenso de classes. Se existir, por favor, se comunique, para que possamos entrar em entendimentos. Proponho um vínculo empregatício, mas aceitaria também qualquer parceria de forma responsável. Jackeline Natal - RN

Verifique se existe algum objeto que vc redefine sem passar o numero do ID. Qdo criamos um recurso sem passar o ID, a fw cria um automaticamente (getnewid(), eu acho). Esse id pode conflitar. Vc pode passar o codigo pra gente olhar? Jackeline

No começo do ano o Edvaldo-SP me enviou um demo de um sistema que fazia a leitura e escrita de arquivo XLS perfeitamente. Também fazia a geração de arquivo PDF. Se vc conseguir contato com ele, certaemnte ele o ajudará. Jackeline

Oi, Marcelo. A forma que eu sugiro eh atraves do uso de um timer, pois assim a dialog nao precisaria ser fechada, bastando apenas dar um refresh no objeto. A gente pode tentar desenvolver ess ideia atraves dos exemplos do diretorio SAMPLES e da propria classe Window.prg. Jackeline - RN

Manoel, a explicacao do seu erro eh um pouco complexa, mas vou tentar te ajudar: while nCtr <= nGet @ nCtr * 11, 10 say aCap[ nCtr ] of oDlg pixel @ nCtr * 11, 10 + len( aCap[ nCtr ] ) get aGet[ nCtr ] of oDlg pixel nCtr ++ enddo Quando o pre-processador processa o comando @SAY ou @GET, ele transforma o nome da variavel num bloco, do tipo: {|x| iif(pcount()==0, aGet[ nCtr ], aGet[ nCtr ] := x)}. Veja que o bloco de codigo faz referencia a aGet[ nCtr ], não a aGet[ 1 ] ou aGet[ 2 ], que eh o que vc precisa. Quando vc sai do laço DO WHILE, o valor de nCt eh 3. Portanto, o bloco de codigo tenta acessar o elemento 3 da matriz. Para resolver esse problema, use assim: function TelaRapida( aCap, aGet ) local oDlg local oFnt local nGet := len( aGet ) local nCtr := 1 define font oFnt name "MS Sans Serif" size 8, 0 define dialog oDlg size 400, 300 font oFnt oDlg:lHelpIcon := .f. while nCtr <= nGet DefineGet( aCap, aGet, oDlg, nCtr++ ) enddo @ 135, 10 button "Confirmar" size 35, 10 action oDlg:End() of oDlg pixel @ 135, 50 button "Cancelar" size 35, 10 action oDlg:End() of oDlg pixel activate dialog oDlg center oFnt:end() return nil STATIC FUNCTION DefineGet( aCap, aGet, oDlg, nCtr ) @ nCtr * 11, 10 say aCap[ nCtr ] of oDlg pixel @ nCtr * 11, 10 + len( aCap[ nCtr ] ) get aGet[ nCtr ] of oDlg pixel RETURN NIL Isso fará com que o valor da variavel nCtr, na funcao DefineGet() corresponda ao indice da matriz que se deseja, e que nao se altera porque a variavel eh LOCAL. Espero que tenha conseguido me explicar. Jackeline - RN

Caro Marcelo, eu estranhei a declaração de sua variável, pois no meu ponto de vista deveria ser: cVar := { || DB_250('E') } Eval( cVar ) Dessa forma eu tenho certeza que funciona. Ou vc poderia declarar, no inicio do prg, ANTES de qualquer comando executável: EXTERNAL DB_250() Jackeline

Existe algum participante dessa lista que resida ou trabalhe aqui pelo Nordeste? Seria interessante se pudessemos nos conhecer, para formar uma comunidade mais forte, e trocar experiências. Jackeline - RN

Companheiros, bom dia. Eu preciso simular o recurso auto-completar dentro de minha aplicação. Vcs, sabem, aquele que o usuário vai digitando e vai aparecendo um texto que já existia dentro do sistema, pra facilitar a digitação. Isso será usado em um sistema onde o cliente deverá digitar o nome de um funcionário. Quando ele começar a digitar o nome, o objeto GET vai se preenchendo com o nome que tiver semelhança e estiver presente no arquivo de funcionarios. Eu utilizo FWH 2.5, xHarbour, TSButton e TSBrowse. Jackeline - RN

Edite o fonte tGet.prg, que está no diretório \Fivewin\source\classes. Lá, nos métodos New e Redefine vc encontra os pontos onde são inicializados os valores das cores. Coloque as novas cores apropriadas. Depois vc pode recompilar o tGet.prg e adicionar na lib, usando o Tlib.exe, ou pode simplesmente anexar o referido fonte no seu projeto, assim a sua fw continuará original. Jackeline

Evandro, como eu faço para postar em "Dicas"? Jackeline

Obrigada a todos. Eu resolvi o meu problema usando a classe tOleAuto. O resultado foi exatamente o que eu procurava, uma planilha excel com SUMs, SUBTOTALs, etc... Jackeline - RN

E ainda pode ficar melhor... Vc tb pode utilizar a função MsgMeter, que passa como parametros o recurso da mensagem, do meter, do diálogo e uma variavel para vc controlar "DO WHILE !lEnd". Quando vc clicar o botão CANCELAR da janela criada, o seu loop se encerra. Se vc quiser, me mande o seu código que eu implemento isso pra vc. Jackeline