SHARK

Realmente o problema é um PAGE sem ENDPAGE. Tomei a liberdade de alterar seus códigos para que funcione. Procure onde tem "by shark" e saberás o que deve modificar no seu fonte original ok? SharkAbraços! lin := 8 // by shark nPg := 00 linl = 0 linc = 0 lEndPage := .F. // by shark lNewPage := .T. // by shark //page ************************************************************** do while .t. IF lEndPage // by shark lEndPage := .F. lNewPage := .T. oPrn:Box( linl, 030, linl+50, 930, open) oPrn:say( linl+30, 030, "Sistema 32 Bits CP-80 Versão.: 5.0 MYSQL xHABOUR BCC582", oFont2) oPrn:say( linl+30, 570, "Usuário:"+alltrim(nusu), oFont2) endpage ENDIF if lNewPage // by shark lin > 56 lNewPage := .F. // by shark page npg++ oPrn:Box( 020, 020, 190, 940, open) oPrn:Say( 040, 030, "Data:"+dtoc(date()), oFont ) oPrn:Say( 040, 400, alltrim(nemp), oFont ) oPrn:Say( 040, 790, "Pagina:"+trans(nPg,"99999"), oFont) oPrn:Say( 070, 030, "Arquivados por vendedor", oFont) oPrn:Say( 070, 790, "HORA : "+time(), oFont) oPrn:Say( 100, 030, "Periodo..:"+dtoc(dt1)+" ate "+dtoc(dt2), oFont) oPrn:Box( 130, 030, 180, 930, open) oPrn:Say( 160, 030, "Vendedor Arquivado Eletro:(Arquivado) Moto:(Arquivado) Carro:(Arquivado)",oFont2) * 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 * 1 2 3 4 5 6 7 8 9 10 11 12 lin = 8 linl = 210 pas = 't' endif *vasco if cance = 'A' cancetotal++ endif if cance = 'A' bol = bol + 1 bol1 = bol1 + 1 venda = venda + 1 if npart = '60' carven = carven + 1 crg = cadcl elseif npart = '48' motven = motven + 1 crg = cadcl elseif npart = '24' .or. npart = '36' eleven = eleven + 1 crg = cadcl else eleven = eleven + 1 crg = cadcl endif endif skip if cfuini # codfu if venda > 0 oPrn:say(@ linl, 030, substr(nfu,1,35), oFont2) oPrn:say(@ linl, 370, trans(venda,'99,999'), oFont2) vendag = vendag + venda oPrn:say(@ linl, 530, trans(eleven,'99,999'), oFont2) elevg = elevg + eleven elefg = elefg + eleefe oPrn:say(@ linl, 660, trans(motven,'99,999'), oFont2) motvg = motvg + motven motfg = motfg + motefe oPrn:say(@ linl, 800, trans(carven,'99,999'), oFont2) carvg = carvg + carven carfg = carfg + carefe lin++ linl = linl + 25 endif cfuini = codfu impini = 0 cfu = codfu nfu = nomfu meta = comis bol = 0 venda = 0 eleven = 0 eleefe = 0 motven = 0 motefe = 0 carven = 0 carefe = 0 efet = 0 cancetotal = 0 endif if lin > 56 // by shark lEndPage := .T. // by shark // by shark //oPrn:Box( linl, 030, linl+50, 930, open) //oPrn:say( linl+30, 030, "Sistema 32 Bits CP-80 Versão.: 5.0 MYSQL xHABOUR BCC582", oFont2) //oPrn:say( linl+30, 570, "Usuário:"+alltrim(nusu), oFont2) //endpage endif if eof() IF lEndPage // by shark oPrn:Box( linl, 030, linl+50, 930, open) oPrn:say( linl+30, 030, "Sistema 32 Bits CP-80 Versão.: 5.0 MYSQL xHABOUR BCC582", oFont2) oPrn:say( linl+30, 570, "Usuário:"+alltrim(nusu), oFont2) endpage page npg++ oPrn:Box( 020, 020, 190, 940, open) oPrn:Say( 040, 030, "Data:"+dtoc(date()), oFont ) oPrn:Say( 040, 400, alltrim(nemp), oFont ) oPrn:Say( 040, 790, "Pagina:"+trans(nPg,"99999"), oFont) oPrn:Say( 070, 030, "Arquivados por vendedor", oFont) oPrn:Say( 070, 790, "HORA : "+time(), oFont) oPrn:Say( 100, 030, "Periodo..:"+dtoc(dt1)+" ate "+dtoc(dt2), oFont) oPrn:Box( 130, 030, 180, 930, open) oPrn:Say( 160, 030, "Vendedor Arquivado Eletro:(Arquivado) Moto:(Arquivado) Carro:(Arquivado)",oFont2) * 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 * 1 2 3 4 5 6 7 8 9 10 11 12 lin = 8 linl = 210 lEndPage := .F. ENDIF linl = linl + 25 oPrn:Box( linl, 030, linl+50, 930, open) oPrn:say(@ linl, 030, "Totais:", oFont2) oPrn:say(@ linl, 370, trans(vendag,'99,999'), oFont2) oPrn:say(@ linl, 530, trans(elevg,'99,999'), oFont2) oPrn:say(@ linl, 660, trans(motvg,'99,999'), oFont2) oPrn:say(@ linl, 800, trans(carvg,'99,999'), oFont2) linl = linl + 25 oPrn:say( linl+30, 030, "Sistema 32 Bits CP-80 Versão.: 5.0 MYSQL xHABOUR BCC582", oFont2) oPrn:say( linl+30, 570, "Usuário:"+alltrim(nusu), oFont2) IF !lEndPage // by shark endpage ENDIF exit endif enddo endprint oFont:end() oFont2:end() close retarqui return Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Peço-te desculpas Sr. Cleiton por usar o termo "doido" tempo em que esclareço-te que para mim "doido" significa inteligente, ousado, admirável entre outros adjetivos apreciáveis. Quando referi-me a ti como "doido" usei este termo em tom de elogio e não pejorativo como compreendestes. "Acho que tú é doido" quer dizer: "Creio que és alguém que ousa fazer o que jamais antes fora tentado". Sinceras desculpas... Fui indelicado ao usar termos que para mim são comuns contigo já que sequer possuímos qualquer intimidade. Afim de reparar esta má impressão e respondendo a sua pergunta que é o tópico em questão o windows possui o comando NETSH o qual pertmite modificar uma série de configurações e parametros da interface LAN. Verifique no prompt de comando (CMD) executando NETSH /? SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Olha o tanto que estou preocupado... Editado por - SHARK on 04/06/2010 10:29:15

Peço sinceras desculpas a quem sentiu-se ofendido. Mas na bôa? Parece até piada tamanha importância que foi dada aos meus desabafos. Este tópico não é meu e apenas exerci meu direito garantido e constuticional da liberdade de expressão. Não há aqui qualquer tipo de disputa envolvida e acho que o silêncio daqueles que me acham arrogante ou sem escrúpulos seria a melhor forma de lidar com pessoas como eu, já que se reservam ao direito de classificar-me como tal. Todo problema é do tamanho da importância que se dá a ele. Se este fórum fosse da Igreja Universal certamente eu não utilizaria dos mesmos termos para expressar minha satisfação extrema ao comtemplar a atitude de nosso colega Lailton que cedeu seu trabalho certamente exaustivo para beneficiar toda a comunidade. Mencionaram "raiva", nem imagino baseados em quê, e deixo aqui registrada a confissão que esta palavra nunca fez parte de meu ser. Acho que aqueles que perdem seu tempo dando importância aos meus "xingamentos" ao ponto de dizer que até mulheres frequentam este fórum.... kkkkkkkk... Essa não aguentei. Tô quase mijando nas calças de rir... Gente, sério mesmo... É preciso parar de criticar pessoas como o Lailton, que tentam melhorar as coisas pra gente. Parece que aqui tem um monte de doido que ao invés de utilizar o fórum como fonte de pesquisa e aprendizado utilizam-no como um parque de diversões para fazer disputinhas e auto afirmar-se. São mesmo sem dúvida alguma completos idiotas pessoas capazes de detonar meu amigo Lailton por cobrar R$50,00 pela classe que ele trabalhou e desenvolveu com dificuldades, pedindo ajuda aqui e ali. Vocês que perdem tempo respondendo e aquecendo tópicos inúteis como sempre fazem deveriam criar vergonha e parar de "encher o saco" dos outros. Procurem ao menos entender que alguém como eu quando toma uma atitude como esta é porque tem algum fundamento incontestável. O Lailton sempre foi injustiçado aqui e pouco reconhecido por seus esforços. Pra quem se lembra o cara dedicou um tempão na RibbonBar e sofreu várias críticas. Logo em seguida a mesma classe foi introduzida no FiveWin e nenhum reconhecimento a ele foi dado. Após longos anos, nos quais quem desejava um visual melhor para seus softwares, tinha que utilizar a lib do Sr. Vagner, que ao meu ver, foi o único capaz, por um longo período, a disponibilizar recursos visuais mais ousados, somos premiados com o empenho de Lailton que dedica-se, nem faço idéia com que objetivo, em proporcionar novidades neste aspecto e me vem um monte de "babacas" que vivem em função do CTRL+C e CTRL+V implicar e mal dizê-lo. Gente... Este texto deve estar imenso e na verdade, sequer creio que perdi meu tempo digitando tudo isso. Finalizarei, então, afirmando que não retiro qualquer palavra que escrevi e que mantenho minha posição. Se o moderador deste fórum julgar que minhas palavras devem ser apagadas e levadas ao vento eu sinceramente afirmo que "pouco se me dá". SharkNãoEstouNemAí. SharkProblemaDeQuemNãoGostou. SharkNãoUsemTSkin. rsrsrsrsrsrsrsrs SharkContinuemUsandoTDosPrn. SharkC4exploda-se. Ps.: Viram a novidade na home do site fivewin do Brasil? Lançaram a versão 10.1 do FiveWin e mais novidade ainda é que morreu o Michael Jackson.... rsrsrsrsrsrsrsrsrsrs Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Estou ansioso pra ver no que isto vai dar... Espero que a tonelada de idiotas copiadores de códigos que se dizem "os caras" deste fórum não ousem usar a TSkin. Uai?... Quando era o Lailton que ralava pra criar um visual decente um monte de imbecil metia o pau... E agora ? Só porque o mesmo conceito será nativo do FW é bem vindo? Quem sabe, sabe. Quem não sabe bate palma. Silêncio... Lailton passando. Eu costumo desperdir-me com SharkAbraços mas desta vez despedirei-me orgulhosamente com: SharkPauNoCuDosIdiotas! SharkFoda-seQuemSeAcha! SharkNãoSeMetaComProgramadoresDeVerdade! e SharkMorraFDP´sQueSóSabemUsarCtrl+CeCtrl+V! Silêncio.... Lailton passando... Vista a carapuça aquele que julgar que a ele serve. Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Acho que tú é doido.... rsrsrsrsrsrsrsrs SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Também interessei-me pelo wxWeb. Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

O mais estranho deste tópico é que quem fez a pergunta foi o mesmo que deu a resposta.... rsrsrsrsrs Se o problema ocorreu após o SevenMizer é sinal que o próprio o ocasiona. Uso Windows Seven em alguns de meus PC´s e este problema não ocorre. Note que tanto o SevenMizer quanto o VistaMizer ocasionam problemas não só em aplicações FW como em outras. O uso destes tipos de recursos de aparência para windows é questionável e problemático em amplas situações. Não recomende o uso destes recursos nos computadores de seus clientes por questões profissionais. Se deseja obter o visual do Windows 7 recomende a instalação e uso do próprio. SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Baixem os dois arquivos que o Vagner disponibilizou os links. Ambos são necessários. Note que o arquivo chs.zip contém arquivos necessários e devem ser colocados na mesma pasta dos arquivos da VLIB porém numa pasta chamada CHS ou INCLUDE. Abra o arquivo TVGET.PRG e note que há uma chamada de #include na pasta ..\..\Chs\VGet.Ch . Você deve editar esta linha apontando para a pasta onde baixou o arquivo CHS.ZIP e assim deve ser feito com os demais PRG´s que fazem a mesma referência. SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Eu também já notei lentidão ao usar redes wirelles. Bom eu saber que não fui o único. SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

citação:Wagner Fico triste com sua ausencia, perderemos muito pois tai uma grande pessoa. Não o conheci pessoalmente, mas foi ele quem muito me ajudou no inicio com Five la por meados de 2005. Contribui muito com o uso da Vget, inclusive mandei-lhe sugestoes e ideias que muitos hoje devem estar usando na vLib. Não cheguei a adquirir a vLib, mas a vGet a uso muitos. Fico feliz com seu ato, e ao mesmo tempo triste por um produto que acredito ser excelente, ter sido descontinuado. Amigo, espero que retorne logo e sucesso. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE id=quote>id=quote>Não concordo com o termo "descontinuado". Postar os fontes garante a continuidade do produto por aqueles que utilizam e sem pretenção de qualquer recompensa desenvolvem e disponibilizam novidades e correções. Parabéns ao Sr. Vagner pela iniciativa. Espero ser, mesmo apesar de não utilizar sua lib, um dos que contribuirá na utilização daqueles que a apreciam. Para todos que utilizam VLIB e necessitam de solução para migrá-la a uma versão mais recente do FW coloco-me à disposição no contato de msn shark_programador@hotmail.com . Já havia feito isto antes para vários colegas, porém com dificuldades por não possuir os fontes. Agora está bem mais fácil. SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Caro Robson, Se está migrando e só agora irá começar a fazer os relatórios te digo que chegou finalmente na pior parte do processo. Sofri bastante até compreender e decidir qual a melhor forma de definir como meu sistema que antes era em clipper iria imprimir usando xHarbour/FiveWin. Inicialmente sua questão é válida porém um pouco confusa. Quando declara que usa "PRINT" entendo que usa o comando "?" do clipper como abaixo: ?"teste de impressão" Outra questão confusa é: Se agora pode usar uma quantidade maior de fontes e estilos, por qual motivo pretende utilizar uma fonte que assemelha-se ao antigo método de condensado das impressoras matriciais "CHR(15)" ? Bem, entenda. Se não vai explorar os atuais recursos de impressão disponíveis então basicamente deve manter seus códigos em arquivos PRG´s que não contenham no início a declaração #include "fivewin.ch" e seu programa irá funcionar exatamente como antes quando era compilado com clipper. Simples assim. Mas se pretende utilizar recursos de impressão parecidos com os programas do windows então sua forma de programar irá mudar radicalmente. Produzindo um relatório, mesmo com o uso de uma fonte parecida com o CHR(15), ao imprimir numa impressora matricial a impressão será lenta como se estivesse imprimindo uma imagem. Não será aquela impressão rápida que conhecemos das impressoras matriciais enviadas por programas DOS. Em impressoras laser ou jato de tinta não haverá problemas, mas em matriciais a impressão utilizando fontes como a Courier New ou Lucida console irá destruir completamente a reputação de seus sistemas. Minhas recomendações: Mantenha seus PRG´s que produzem impressão sem nenhuma alteração e a forma de utilização será idêntica ao seu antigo sistema em clipper. Para isto basta colocar as rotinas de impressão em PRG´s que não contenham #include "fivewin.ch". Você não poderá usar recursos como o preview, impressão de bitmaps, gráficos, gerenciador de impressão do windows e outros. Se deseja utilizar recursos de impressão melhores você tem duas saídas: 1ª Fazer todos relatórios usando a classe TPrinter do Fivewin e informar aos seus clientes que seu sistema recomenda o uso somente de impressoras laser ou jato de tinta. 2ª Permitir que o seu cliente escolha que tipo de impressão deseja usar. Os dois tipos são EMF e RAW. A impressão EMF é a típica impressão dos programas windows e a impressão RAW é a impressão típica dos programas DOS. Desta forma você teria dois códigos para gerar o relatório. Caso o cliente escolha EMF você pode usar fontes, imagens, gráficos, linhas, preview e todo o resto porém este método é indicado somente para impressoras laser e jato de tinha. Caso seu cliente escolha EMF para uma impressora matricial aí é uma decisão exclusivamente dele e a lenta impressão será uma consequência desta escolha. Diferentemente do modo EMF, se o cliente escolher o modo RAW você deverá escrever um código fonte exatamente como fazia antigamente no clipper, porém, você deve imprimir o relatório para um arquivo texto temporário o que é facilmente realizado com o comando SET PRINTER TO arquivo.prn e em seguida utilizar a função do xharbour PRINTFILERAW( "Epson lx-300", "arquivo.prn") para enviar para a impressora. A função PRINTFILERAW apesar de usar o gerenciador de impressão do windows para enviar o documento faz com que a impressora se comporte como uma impressora matricial recebendo comandos como CHR(15), CHR(18) e os demais conhecidos. Assim sendo, você deve também permitir que o seu cliente após escolher o modo RAW escolha também qual padrão de códigos será utilizado, EPSON ou HP. Isto é necessário pois se a impressora for padrão EPSON o comando para ligar o condensado é CHR(15) mas se for padrão HP é CHR(27)+'(s16.67H' Note que usando a função PRINTFILERAW você deve especificar exatamente o nome da impressora que está instalada no windows seja ela uma impressora local, rede ou remota. Sempre tento expor esta questão da forma mais simples possível, mas percebo que é impossível e somente com demonstração prática a simplicidade do que escrevi acima pode ser absorvida. Penso, inclusive, em dispor de tempo para desenvolver um tutorial esclarecedor sobre esta questão e encerrar definitivamente esta questão que fez vários de nós buscar meios e recursos que para mim são apenas "quebra galhos" afim de sanar dúvidas relacionadas a impressão que aparentemente foram desprezadas e ignoradas pelos desenvolvedores do FiveWin forçando o uso de soluções de terceiros como DOSPRN, DOSUTIL, CRISTAL REPORT, FAST REPORT e outros. Encerrando meu longo argumento, afirmo-te. Não há necessidade de utilização de nenhum recurso extra como os acima citados pois o FiveWin e igualmente o xHarbour oferecem recursos de impressão satisfatórios. Utilizo estes meios e garanto que nada mais é necessário além do conhecimento sobre estas técnicas e coloco-me a disposição para ajudá-lo neste desafio. Adicione em seu MSN o contato shark_programador@hotmail.com SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Vailtom, Sua resposta a este tópico intrigou-me. Estou há tempos, sem êxito, pesquisando qual seria o melhor conjunto de soluções disponível e gostaria, se possível fosse, que detalhase, quais soluções utiliza. Caso este detalhamento, venha a ferir o objetivo deste fórum, envie-me através de e-mail. Especificamente gostaria de saber qual versão do Harbour utiliza e qual LIB de acesso a API do windows. Se possível for, detalhe, quais soluções indica para cada plataforma que relacionou em sua resposta acima. Para DESKTOP: Tal, tal e tal. Para WEB: Tal, tal e tal. Para MOBILE: Tal, tal e tal. Para LINUX: Tal, tal e tal. Aguardo ansiosamente por esta revelação. SharkAbraços. Ps.: Caso deseje enviar-me por e-mail favor enviar para shark_programador@hotmail.com Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Não entendo muito bem deste assunto mas reparou que a variável que está passando não é a mesma que acumula os comandos? Você acumula os comando em cConSql e está passando cComm SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/

Esta questão sempre cria polêmica. Na minha opinião, se você entender bem de SQL pode utilizar a classe TMySql do contrib do xharbour que é free. Se não entende de SQL o melhor é usar a SQLLIB que não é free mas fará com que seu banco SQL seja manipulado com os comando xbase comuns como USE, SEEK, REPLACE e outros. Como já foi dito pelo amigo, também existe a SQLRDD que faz o mesmo que a SQLLIB porém é um produto internacional e o suporte é inferior ao da SQLLIB desenvolvida pelo Vailton que está sempre presente neste fórum e certamente auxiliará você no que for preciso. Agora cabe a você decidir-se. SharkAbraços! Shark - FWH 8.09 / xharbour 1.1.0 / xMate 1.15 / Resource WorkShop http://www.superdownloads.com.br/download/41/programa-de-auto-escola-automax/