Luisão

Sim Samir, eu acompanho também o fórum de classificados, mas é que os links do Kapiaba são todas ofertas de emprego antigas, por isso que comentei, só pra descontrair. Agora, sobre programador bom conheço muitos... mas desses dá pra contar no dedo quem já ouviu falar em fivewin, hauahuhaua. Tem pouco programador para a nossa linguagem, pois não é tendência de mercado. Acho que é meio raro uma pessoa pensar assim "Qual linguagem devo estudar esse ano ...? Já sei, fivewin!!!" -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Mercado de trabalho para programadores Fivewin está fervendo hein ? Um anúncio de 2007, outro de 2009... uma vaga a cada 2 anos mais ou menos -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

É então, pelo link do Kapiaba dá pra ver que é bug mesmo, alguma coisa na atualização de versão ficou faltando. Você pode alterar a xBrowse como foi sugerido aqui: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=22473&p=119775&hilit=Error+BASE%2F1004+Class%3A+%27NIL%27+has+no+exported+method%3A+NLASTKEY#p120000 Para isso é bom você copiar o xbrowse.prg para a pasta do seu projeto, alterar a cópia e então adicioná-la ao projeto para ser compilada juntamente com os outros PRGs. -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Veja na linha 11000 da xBrowse, provavelmente ele está chamando nLasKey do objeto Listbox associado à coluna que você digitou. Verifique também as diferenças de listbox.prg dessa versão sua com a versão que usava antes e que não dava erro. Pode ser que tenha havido algum problema na atualição da classe, vai saber. -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

O complicado de se usar esses tablets com android é que o processador geralmente é ARM e WinXP é feito para x86/x64, arquitetura Intel. Não que não dê certo, no fim acho que até tem como, mas não seria o melhor meio (acredito eu). Sobre envio de arquivos para FTP, se alguém quiser posso ajudar, posso fazer um app para android que você configura o acesso FTP e tenta enviar um arquivo. -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

2) Android usando seu SDK no eclipse e desenvolvendo em Java. Windows Phone usando seu SDK no Visual Studio e desenvolvendo em C#. São 2 opções. Ou ainda fazer em PHP e poder acessar de qualquer dispositivo com acesso a internet. Custo e tempo ? Depende de como vai realizar a conversão. Vai alocar funcionário seu ? Você mesmo irá aprender e converter ? Vai terceirizar ? Depende muito do projeto também... uma pessoa para converter um programa de fivewin para outra linguagem tem que entender bem de ambas linguagens. Desse modo você ganha em tempo, mas o custo é mais elevado. Acho que já tem várias pessoas aqui migrando aos poucos de plataforma de desenvolvimento, pelo que leio, PHP já está sendo bastante utilizado -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

2 meios de copiar o código. 1 - Clique em responder com citação e copie o código. 2 - Cole no writer do Open Office -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Tenta IF GetLastError() == EG_NOFUNC Talvez dê certo... -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story Editado por - Luisão on 02/04/2012 11:57:00

Na empresa aqui fazemos programas xHabour Console e depois acessamos o programa via Telnet pelo coletor. Para nós funciona bem, só não sei como foi feita a configuração do coletor e do servidor, porque isso ficou como responsabilidade do setor de infra. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Essa coluna não fica visível ao abrir a tela, certo ? Parece que a xBrowse tem um problema mesmo, as colunas que ficam escondidas acabam tendo o mesmo size das que aparecem. Tente verificar, essa coluna que você colocou até 500 mas não mudou de tamanho está com a mesma largura de alguma das colunas que aparecem na tela. Acredito que seja isso. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

aFiles:= Directory(caminho) Retorna uma array onde cada linha representa um arquivo e a coluna 1 é o seu nome. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Olhando no manual achei isso. :SetUserDataSet(, , , ,, , ) "Googlando" achei isso: http://groups.google.com/group/fastreport_for_x_harbour/browse_thread/thread/a34eeee1e28be71a?pli=1 Mas sei lá, será que não compensa fazer isso antes de chamar o relatório ? ps.: O nome do tópico era outro, não era ? -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Loop ? Geralmente em FOR ou WHILE, quando um registro não satisfaz uma condição para ser impresso, [faço dbskip] e LOOP para voltar ao começo do laço de repetição. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Com SQLLIB usando DBUSEAREA fica normal, pelo que me lembro. Algumas dicas: O MySQL usa os índices automaticamente, para saber se ele realmente está usando um índice numa query sua, coloque um Explain no ínicio e veja o resultado. Por exemplo: Se no seu programa você faz Select * From tabelaCEP Order By uf, execute no MySQL Workbench Explain Select * From tabelaCEP Order By uf que isso poderá te dar mais informações sobre sua query. Aqui eu uso a SQLLIB e quando faço abertura via DBUSEAREA, tem um SQL PACKET SIZE que você pode alterar (veja na documentação). Isso pode ajudar. Se estiver fazendo USE SQL, você pode optar por colocar um Limit ao final, por exemplo: Select * From tabelaCEP Order By uf Limit 1000, desse modo, apenas os 1000 primeiros registros serão retornados. Mais uma dica, ao invés de utilizar Select *, tente na medida do possível trocar o * pelos campos que você precisa. Se sua tabela tem 70 campos mas só vai exibir 5 para o usuário, faça Select somente desses 5 campos. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Pelo que vi na classe, o disable faz lActive:= .F. e o enable faz lActive:= .T., então tecnicamente, não era para dar errado o teste. Poste seu código se possível, pode ser algum detalhe que passou despercebido. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

É mesmo, tinha um Where. As vezes esqueço que trabalhamos com o servidor configurado sem ser case sensitive. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

IF TABLE(cDB+'.'+cTable) não rola. Essa função cTabName do AUX foi você quem fez, mas acho que faltou usar um cTableName para tratar o case. De qualquer forma, já resolvi. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Isso deve resolver dData:= (dData-DAY(dData))+32 dData-= DAY(dData) RETURN dData id=code>id=code>-- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Veja se ajuda: LOCAL oVCT LOCAL nOpc:= 0 LOCAL WDIAS:= 0 LOCAL WDTBA:= DATE() LOCAL dDATA:= CTOD("") VDIALOG(@oVCT,01,01,14,40,MODULO+"-"+FUNCAO) @ 01.0,05.0 SAY "Data Base:" OF oVCT @ 01.0,10.0 GET WDTBA PICT "@D" OF oVCT VALID WDTBA >= DATE() @ 03.0,01.0 SAY "Gerar vencimentos a cada" OF oVCT @ 03.0,11.0 GET WDIAS PICT "99" OF oVCT VALID WDIAS > 0 @ 03.0,13.0 SAY AnsiToOem("Dia(s)") OF oVCT @ 03.0,27.5 BUTTON "OK" SIZE 15,cALTBUT OF oVCT ACTION ( nOpc:= 1, oVCT:END() ) @ 04.0,01.0 SAY "Gerar vencimentos todo dia" OF oVCT @ 04.0,11.0 GET WDIAS PICT "99" OF oVCT VALID WDIAS > 0 .AND. WDIAS < 32 @ 04.0,13.0 SAY AnsiToOem("do Mês") OF oVCT @ 04.0,27.5 BUTTON "OK" SIZE 15,cALTBUT OF oVCT ACTION ( nOpc:= 2, oVCT:END() ) @ 06.0,10.5 BUTTON "Sair" SIZE cLarBut,cALTBUT OF oVCT ACTION oVCT:END() CANCEL ACTIVATE DIALOG oVCT CENTERED IF nOpc == 0 RETURN ENDIF // WPARC é uma array que vem de fora, você pode adaptar, // colocar na tela acima o numero de parcelas e fazer: // WPARC:= ARRAY(numerodeparcelas,3) FOR WX = 1 TO LEN(WPARC) IF nOpc == 1 WDTBA+= WDIAS ELSE nMes:= Month(WDTBA)+1 nAno:= Year(WDTBA) IF nMes == 13 nMes:= 1 nAno++ ENDIF dDATA:= CTOD("01/"+STRZERO(nMes,2)+"/"+STRZERO(nAno,4)) IF WDIAS > DAY(LASTDAY(dDATA)) dDATA:= LASTDAY(dDATA) ELSE dDATA:= CTOD(STRZERO(WDIAS,2)+"/"+STRZERO(nMes,2)+"/"+STRZERO(nAno,4)) ENDIF WDTBA:= dDATA ENDIF WPARC[WX,02]:= WDTBA NEXT RETURN id=code>id=code>-- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

É então, achei que só assim funcionaria mesmo, é como está no manual. Mas resolvi perguntar para ter certeza. Para não ter que criar outra conexão, fiz uma função que faz sqlArray("Show tables from "+cdatabase) e aí testo se a tabela que quero saber está ou não nessa array. Ficou melhor para o que eu precisava fazer. Mas obrigado mesmo assim -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Essa dúvida é para o Vailton, mas se mais alguém souber responder, agradeço A função Table(tabela) só verifica o database que estou atualmente conectado ? Por exemplo, tenho o db1 e db2 e me conectei no início do programa passando o db1 como parâmetro. Mas em determinado momento, gostaria de verificar se uma tabelaY existe em db2, mas usando Table("db2.tabelaY") não dá certo né ? Vai sempre retornar false mesmo ? O certo é criar outra conexão passado o db2 e então verificar se a tabela existe passando o id da conexão como parâmetro para a função, certo ? Obrigado! -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

Essa dúvida é para o Vailton, mas se mais alguém souber responder, agradeço A função Table(tabela) só verifica o database que estou atualmente conectado ? Por exemplo, tenho o db1 e db2 e me conectei no início do programa passando o db1 como parâmetro. Mas em determinado momento, gostaria de verificar se uma tabelaY existe em db2, mas usando Table("db2.tabelaY") não dá certo né ? Vai sempre retornar false mesmo ? O certo é criar outra conexão passado o db2 e então verificar se a tabela existe passando o id da conexão como parâmetro para a função, certo ? Obrigado! -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY When I'm sad, I stop being sad and be awesome instead. True Story

FROM "GetDriveTypeA" LIB "kernel32.dll" id=code>id=code>-- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Está usando qual porta ? 25 ou 587 ? Não é para dar problema nessas. Está usando conexão segura (SSL) ? Se não estiver, passe a usar e teste novamente. -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY

Só para descontrair -- Luis Fernando Jr. (Luisão) FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY