mateus_patrick

Hola a todos: Les invitamos a todos los interesados a nuestro primer Open House fuera de la ciudad de México. Un Openhouse es una reunión de usuarios para intercambiar conocimientos y ver lo que nosotros y otros programadores de xHarbour están haciendo con el producto. La fecha: 03 Octubre 2009 La hora: 9:00 am hasta las 18:00 hrs. Lugar: Hotel Crown Plaza Guadalajara (Frente a Plaza del Sol) Costo: 460.00 pesos por persona (IVA incluido, incluye la comida del día), me hubiera gustado que fuese gratuito, pero como no tenemos oficinas en Guadalajara, hemos tenido que alquilar un salón del hotel. Temas a tratar: Advantage Database Server 9.1 Interfaces gráficas para xHarobur: Xailer 2.0 y Visual xHarbour. Desarrollo para Internet con ADS y xHarbour Desarrollo de aplicaciones Web con Xailer, FiveWin y xHarbour Reportes con FastReports con ADS y xHarbour Cada uno de los asistentes recibirán: 1) Una copia impresa de nuestro manual de ADS para (x)Harbour 2) Una licencia SDK de Advantage Database Server para 2 usuarios y para cualquier sistema operativo (Windows, Linux y Novell) con servidor de internet y servidor de replicación incluido (Valor comercial $360.00 USD) 3) Un ejemplar del libro "Advantage Database Server, a Developers Guide" de Cary Jensen y Loy Anderson (valor comercial $ 40.00 USD). Tenemos muy pocos lugares disponibles, (y ahora sí es en serio, cuando la gente viene a nuestros Open House en nuestras oficinas, si viene mas gente ponemos mas sillas, en el Hotel no podemos hacer eso.) Si desean mas información por favor pónganse en contacto conmigo: info@ciber-tec.com tel. 01 55 5560 0168 Evento patrociando por Sybase iAnywhere. Saludos Rene Flores http://www.ciber-tec.com id=code>id=code>Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Hola a todos: Les invitamos a todos los interesados a nuestro primer Open House fuera de la ciudad de México. Un Openhouse es una reunión de usuarios para intercambiar conocimientos y ver lo que nosotros y otros programadores de xHarbour están haciendo con el producto. La fecha: 03 Octubre 2009 La hora: 9:00 am hasta las 18:00 hrs. Lugar: Hotel Crown Plaza Guadalajara (Frente a Plaza del Sol) Costo: 460.00 pesos por persona (IVA incluido, incluye la comida del día), me hubiera gustado que fuese gratuito, pero como no tenemos oficinas en Guadalajara, hemos tenido que alquilar un salón del hotel. Temas a tratar: Advantage Database Server 9.1 Interfaces gráficas para xHarobur: Xailer 2.0 y Visual xHarbour. Desarrollo para Internet con ADS y xHarbour Desarrollo de aplicaciones Web con Xailer, FiveWin y xHarbour Reportes con FastReports con ADS y xHarbour Cada uno de los asistentes recibirán: 1) Una copia impresa de nuestro manual de ADS para (x)Harbour 2) Una licencia SDK de Advantage Database Server para 2 usuarios y para cualquier sistema operativo (Windows, Linux y Novell) con servidor de internet y servidor de replicación incluido (Valor comercial $360.00 USD) 3) Un ejemplar del libro "Advantage Database Server, a Developers Guide" de Cary Jensen y Loy Anderson (valor comercial $ 40.00 USD). Tenemos muy pocos lugares disponibles, (y ahora sí es en serio, cuando la gente viene a nuestros Open House en nuestras oficinas, si viene mas gente ponemos mas sillas, en el Hotel no podemos hacer eso.) Si desean mas información por favor pónganse en contacto conmigo: info@ciber-tec.com tel. 01 55 5560 0168 Evento patrociando por Sybase iAnywhere. Saludos Rene Flores http://www.ciber-tec.com id=code>id=code>Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Tenho o prazer de anunciar que desenvolveu a primeira versão de trabalho do ViaNEMO nossa proposta Harbour Framework. Antes de continuar, gostaríamos de esclarecer que ViaNEMO será um produto de código aberto distribuído sob licença. Temos, assim, contribuir para o projeto e do porto e junte-se a iniciativa de código aberto. Tendo dito isto para a frente muito brevemente, algumas de suas características: ViaNemo nos permite desenvolver aplicações em Windows 32bit/64bit, além do Windows Mobile, e todos usando a mesma ferramenta. Graças ao seu design, no futuro, pode saltar para outros sistemas operacionais como o Mac OSX ou Linux. Nós antecipamos que Harbor ViaNEMO pode compilar aplicações escritas para GUI outros. De momento não temos apoio FiveWin começou por ser o mais conhecido. No final do ano prevemos ViaNEMO é maduro o suficiente para a adopção, pela nossa parte, como a nossa nova ferramenta de desenvolvimento no início de 2010. Nós não decidimos quando e como publicado. Mais tarde vou postar mais informações. Texto original : http://blog.viaopen.com/es/vianemo-new-gui-for-harbour/ Traduzido por Google Translator. Atenciosamente, Farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Tenho o prazer de anunciar que desenvolveu a primeira versão de trabalho do ViaNEMO nossa proposta Harbour Framework. Antes de continuar, gostaríamos de esclarecer que ViaNEMO será um produto de código aberto distribuído sob licença. Temos, assim, contribuir para o projeto e do porto e junte-se a iniciativa de código aberto. Tendo dito isto para a frente muito brevemente, algumas de suas características: ViaNemo nos permite desenvolver aplicações em Windows 32bit/64bit, além do Windows Mobile, e todos usando a mesma ferramenta. Graças ao seu design, no futuro, pode saltar para outros sistemas operacionais como o Mac OSX ou Linux. Nós antecipamos que Harbor ViaNEMO pode compilar aplicações escritas para GUI outros. De momento não temos apoio FiveWin começou por ser o mais conhecido. No final do ano prevemos ViaNEMO é maduro o suficiente para a adopção, pela nossa parte, como a nossa nova ferramenta de desenvolvimento no início de 2010. Nós não decidimos quando e como publicado. Mais tarde vou postar mais informações. Texto original : http://blog.viaopen.com/es/vianemo-new-gui-for-harbour/ Traduzido por Google Translator. Atenciosamente, Farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

CarreiraAnalistas de Sistemas são regulamentados James Della Valle, de INFO Online Sexta-feira, 21 de agosto de 2009 - 14h57 - Getty Images SÃO PAULO – A comissão de Constituição, Justiça e Cidadania (CCJ) aprovou a proposta que regulamenta o exercício da profissão de analista de sistema. Segundo a Agência Senado, a proposta, conhecida como PLS 607/07, de autoria do senador Expedito Júnior (PR-RO), deve seguir para a análise da Comissão de Assuntos Sociais, em decisão terminativa. Leia também: Como manter seu emprego em tempos de crise (20/08/2009) Somente profissionais com diploma superior em Análise de Sistemas, Ciência da Computação ou Processamento de Dados poderão exercer a profissão, de acordo com o substitutivo aprovado pela Comissão de Ciência, Tecnologia, Inovação, Comunicação e Informática (CCT). A proposta diz que cabe ao profissional "a responsabilidade técnica por projetos e sistemas para processamento de dados, informática e automação, assim como a emissão de laudos, relatórios ou pareceres técnicos". Outra profissão citada é a de técnico de informática, que poderá ser exercida por por pessoas que tenham diploma de ensino médio com curso técnico em Informática ou de Programação de Computadores. Fonte : http://info.abril.com.br/noticias/carreira/analistas-de-sistemas-estao-regulamentados-21082009-25.shl Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

CarreiraAnalistas de Sistemas são regulamentados James Della Valle, de INFO Online Sexta-feira, 21 de agosto de 2009 - 14h57 - Getty Images SÃO PAULO – A comissão de Constituição, Justiça e Cidadania (CCJ) aprovou a proposta que regulamenta o exercício da profissão de analista de sistema. Segundo a Agência Senado, a proposta, conhecida como PLS 607/07, de autoria do senador Expedito Júnior (PR-RO), deve seguir para a análise da Comissão de Assuntos Sociais, em decisão terminativa. Leia também: Como manter seu emprego em tempos de crise (20/08/2009) Somente profissionais com diploma superior em Análise de Sistemas, Ciência da Computação ou Processamento de Dados poderão exercer a profissão, de acordo com o substitutivo aprovado pela Comissão de Ciência, Tecnologia, Inovação, Comunicação e Informática (CCT). A proposta diz que cabe ao profissional "a responsabilidade técnica por projetos e sistemas para processamento de dados, informática e automação, assim como a emissão de laudos, relatórios ou pareceres técnicos". Outra profissão citada é a de técnico de informática, que poderá ser exercida por por pessoas que tenham diploma de ensino médio com curso técnico em Informática ou de Programação de Computadores. Fonte : http://info.abril.com.br/noticias/carreira/analistas-de-sistemas-estao-regulamentados-21082009-25.shl Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Obrigado Ângelo.. Ja tinha visto esta dica anteriormente inclusive postada por vc. http://www.fivewin.com.br/exibedicas.asp?id=670 Pelo jeito vou ter que criar um arquivo modelo com a imagem... Achei que teria como fazer isso de outra forma.. Mas com certeza nos dá uma noção para pensar em uma solução. Grato Farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

O arquivo .rtf já gerei.. Gostaria de visualizar o arquivo rtf sem depender de programas externos com recursos próprios do fivewin.. Quando terminasse de gerar o arquivo automaticamente visualizasse o arquivo na tela... Grato Farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com Editado por - mateus_patrick on 29/09/2008 15:39:21

Até que enfim!!! Espero que sirva de ajuda para os demais colegas. http://www.fivewin.com.br/exibedicas.asp?id=939 qq melhore favor me mandem.. agora é só montar o documento rtf através do relatório (set printer to texto.prn). ah está faltando inserir imagens no cabeçalho. abraços farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com Editado por - mateus_patrick on 29/09/2008 15:28:52

up! Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

seja bem vindo tedson... um bom seria dar uma lida nesses manuais.. http://www.fivewin.com.br/exibedicas.asp?id=616 http://www.fivewin.com.br/exibedicas.asp?id=161 testar os exemplos na pasta samples.. e caso não consiga entender sempre recorra ao fórum. tenho certeza que vários irão ajudá-lo, assim como tem feito comigo até então. sucesso. farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

mcoditem = "3*1234567890123" /////// verificar se a quantidade foi digitada... mp = at("*", mcoditem) if mp > 0 // quantidade * produto xQuant = alltrim(upper(left(mcoditem, mp-1))) mp2 = at(".", xQuant) // busca a posicao da virgula if at(",", xQuant) <> 0 msgalert( "Utilize o ponto (.) para separar a casa decimal.") fFocus("ocoditem") return (wret) endif if mp2 > 0 mInteiro = substr(xQuant, 1, mp2-1) mDecimal = substr(xQuant, mp2+1, len(xQuant)) // parte decimal mquant = mInteiro+"."+mDecimal // converter a quantidade para numerico mquant = val(mquant) else mquant = val(xQuant) endif oquant:varput(mquant) oquant:refresh() mcoditem = substr(mcoditem, mp+1, len(mcoditem)) endif /////// Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

No padrão EPL2 O comando D.. Temperatura de impressão. Este comando é usado para fixar a temperatura de impressão ou de contraste.Em geral, a temperatura depende da qualidade e tipo da midia (papel) sendo utilizada, ribbon, padrão de impressão e velocidade. set printer to lpt1 ? 'D7' // TEMPERATURA DE IMPRESSAO (ACIMA DE 15 DANIFICA) Onde o 7 é a temperatura... . . . set printer to abraços farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Olá colegas... Obrigado ao Kleyber por indicar a classe Tword. Já consegui algumas coisas.. Inserir imagens.. quebra de páginas. Os exemplos encontrados no fórum se restringem a preencher os campos de um documento pronto, tipo uma mala direta. Agora eu quero é converter um arquivo texto (set printer to relat.txt) para padrão word (doc, rtf), mas com alguns definições que irei passar neste arquivo texto, tais como: cor, fonte, tamanho, etc. Ex: LISTAGEM DE CLIENTES Gostaria com Fonte Arial, 20, Cor Azul, Negrito, Italico, Sublinhado. Tentei dessa forma e não consegui. DEFINE FONT oFont1 NAME 'Arial' SIZE 0, -12 OF oWord oWord:Say( 2, 45, 'Classe TWORD método Say. Mostra o texto numa caixa.', oFont1) Alguém poderia me ajudar ou sugerir alguma dica. Grato Farley Fwh 2.6/xHb 09950(Simplex)/PellesC (5.01)/MyMake/xDev(0.65) Email:farleyribeiro2006@gmail.com

Olá pessoal, Obtive sucesso em converter meus relatorios para rtf com esse fonte abaixo. set printer to listas.txt Txt2rtf( "listas.txt", 80 ) Só que gostaria melhorar isso, a fonte é única para todo o texto e o tamanho varia somente entre 80 colunas e 132 colunas... Utilizar cores em qualquer parte do texto... Utilizar qualquer fonte, tamanho, estilo... Inserir imagens... E visualizar no fivewin... pois demora processar/visualizar uma tabela de preços com 1000 paginas no WORD ou WORDVIEW. Conto com a ajuda de vcs... Acredito que servirá para outros colegas tb. Grato Farley function Txt2rtf( cArquivo, nColunas ) local cArqRtf, arq, arq_txt, cHandle local cCaractere := space( 01 ) local cLinha := space( 01 ) local lf := chr( 13 ) + chr( 10 ) // fs define o tamanho da fonte, para o Courier New é a metade // fs14 - fonte 7,0 - 136 colunas // fs23 - fonte 11,5 - 80 colunas // margl - margem esquerda // margr - margem direita // margt - margem superior // margb - margem inferior // criar um arquivo rtf com o mesmo nome cArqRtf := lower( left( cArquivo, len( cArquivo ) - 4 ) + ".rtf" ) cArqRtf := substr(time(),1,2)+substr(time(),4,2)+substr(time(),7,2)+".rtf" // End // acrescentar antes do texto os parâmetros rtf arq := fcreate( cArqRtf, 1 ) cHandle := "{\rtf1\ansi\ansicpg1252\deff0\deflang1046{\fonttbl{\f0\fmodern\fprq1\fcharset0 Courier New;}{\f1\fswiss\fcharset0 Arial;}}" + lf cHandle += "\margl284\margr505\margt505\margb505" + lf if nColunas == 136 cHandle += "{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\f0\fs14 " else cHandle += "{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\f0\fs23 " endif // End fwrite( arq, cHandle ) // Pega Linha por Linha do TXT e Transforma para RTF arq_txt := fopen( cArquivo, 0 ) while .t. cCaractere := space( 01 ) if fread( arq_txt, @cCaractere, 1 ) <> 1 exit endif if ( cCaractere ) = chr( 13 ) cLinha += "\par" + lf fwrite( arq, cLinha ) cLinha := space( 01 ) fseek( arq_txt, 1, 1 ) loop endif if cLinha = space( 01 ) cLinha := cCaractere else cLinha += cCaractere endif enddo // End cHandle := "}" fwrite( arq, cHandle ) fclose( arq ) fclose( arq_txt ) return( .T. ) id=code>id=code>Editado por - mateus_patrick on 03/09/2008 10:11:38 Editado por - mateus_patrick on 25/09/2008 14:45:37 Editado por - mateus_patrick on 25/09/2008 14:46:55