toya

Versão 2.00 do SaoTome (Terminal de Consulta de Preços com Voz) http://www.toyanet.com.br toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Se interessar aos demais... http://www.sefaz.rs.gov.br/SEF_root/DWN/Default.asp?origem=sefaz Localize Cadastros e Tabelas... toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper...

Bom dia... Minha sugestão é que envies o vosso arquivo gerado para analise ( toyasis@yahoo.com.br ) toya Ahora en la version 5.8 toyasis@yahoo.com.br http://www.toyanet.com.br FWH 8.03+PellesC+xHarbour.org 1.1.0 FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Clippeiro por opção, Fivewiner por amor ao Clipper... Editado por - toya on 09/05/2008 08:58:00

Ale, como ja te falei... faço o seguinte nas migraçoes: Ativo o FireBird, abro o .GDB via FireBird e exporto para .DBF via Exportizer Pro... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Careço do auxilio de pelo menos uns 3 colegas, especialmente de SP ou envolvidos com a CAT-52/SP para testarem um pequeno aplicativo que elaborei para a geração da Chave Privada e da Assinatura Digital (Registro tipo EAD) utilizando o OpenSSl. Tal aplicativo será disponibilizado gratuitamente à Comunidade Clippeira-Fivewin através do sub-projeto toyaOpen/Projeto tuareg da toyaNET. Os interessados em colaborar favor enviar e-mail para toyasis@yahoo.com.br assunto: TESTE CAT-52/SP-EAD http://www.toyanet.com.br/cat52sp/fwhcat52.jpg toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 16/04/2008 07:33:33 Editado por - toya on 16/04/2008 07:34:52

Careço do auxilio de pelo menos uns 3 colegas, especialmente de SP ou envolvidos com a CAT-52/SP para testarem um pequeno aplicativo que elaborei para a geração da Chave Privada e da Assinatura Digital (Registro tipo EAD) utilizando o OpenSSl. Tal aplicativo será disponibilizado gratuitamente à Comunidade Clippeira-Fivewin através do sub-projeto toyaOpen/Projeto tuareg da toyaNET. Os interessados em colaborar favor enviar e-mail para toyasis@yahoo.com.br assunto: TESTE CAT-52/SP-EAD http://www.toyanet.com.br/cat52sp/fwhcat52.jpg toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say) Editado por - toya on 16/04/2008 07:33:33 Editado por - toya on 16/04/2008 07:34:52

Dorneles, sugiro dares uma analisada na vossa TDosPrn(), pois, em algumas "versoes" que rodam por ai tem um ::cFormFeed na METHOD EndPage() CLASS TDosPrn toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Kleyton, o Kapiaba esta correto. Assim funcionam os demos que te enviei... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Marcio, este controle podes elaborar via programação. Qualquer duvida me envie via e-mail como estas elaborando o cabeçalho do vosso relatorio... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Evandro, mui grato pelos elogios... Mas é que tive bons mestres, tu fostes um deles... Para gerar o box tente algo assim: cBox:='' cBox+='{c=2;box=0, 0,11340,1080}'+CRLF cBox+='{c=2;box=0,1140,11340,14660}'+CRLF id=code>id=code>toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Veja aqui a receita do bolo: <?xml version="1.0" encoding="ISO-8859-1" ?> xmlns:sngpc="urn:sngpc-schema" targetNamespace="urn:sngpc-schema" elementFormDefault="qualified"> id=code>id=code>toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Sergio, desculpe... mas se informares qual a versão que usas fica mais facil te orientar.. toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Deduzo que estejas usando SqlLib... Veja se da pra te orientares por este: //////////////////////////////////////////////////////////////////////////////// // toya - 17/03/2008 //////////////////////////////////////////////////////////////////////////////// function AltStruSql( cTabela, aCampos, aCamposNovos ) local cCampo:='' local x:=0, nPos:=0 cCampo:='sql_rowid' for x=1 to len( aCampos ) if upper( alltrim( aCampos[x,1] ) )='SQL_ROWID' cCampo:=upper( alltrim( aCampos[x-1,1] ) ) nPos:=x-1 exit endif next for x=1 to len( aCamposNovos ) if ascan( aCampos, aCamposNovos[x,1] )>0 SQL EXECUTE 'ALTER TABLE '+cTabela+' MODIFY COLUMN '+aCamposNovos[x,1]+' '+aCamposNovos[x,2] else SQL EXECUTE 'ALTER TABLE '+cTabela+' ADD '+aCamposNovos[x,1]+' '+aCamposNovos[x,2]+' AFTER '+cCampo cCampo:=aCamposNovos[x,1] endif next return nil toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Me adicione no MSN.. Estou on-line... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Em http://www.toyanet.com.br/rotinas.php baixe tempo.zip e veja se pode te ajudar... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

link: http://www.toyanet.com.br toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Novo exemplo de Gradiente e outras dicas... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Novo exemplo de Gradiente e outras dicas... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Como simular a saliencia, usando PellesC: http://www.toyanet.com.br/toyahelp/help01.jpg toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Usei o PellesC toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Ola Supi... Trata-se da CAT-52/SP de 06/06/2007... Para efetures testes de validação tens que se cadastrar em http://www.nfp.fazenda.sp.gov.br/ na opcao Acesso ao Sistema toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Luiz, qual a versao do FWH estás utilizando para testar ? Em tempo... me inclua aí no MSN... toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Eu utilizo assim: ... win_exec( 'copy mfpc52.ini mp_pc52.ini' ) ... //////////////////////////////////////////////////////////////////////////////// // //////////////////////////////////////////////////////////////////////////////// function Win_exec( cComando ) local cExecute:=GetEnv( 'COMSPEC' ) + ' /C ' if WinExec( 'start '+alltrim( cComando ), 0 ) < 32 // Tenta executar com START, se retorno < 32 WinExec( cExecute+alltrim( cComando ), 0 ) // é Win 2000 ou superior, executa com CMD.EXE endif return nil '> ... win_exec( 'copy mfpc52.ini mp_pc52.ini' ) ... //////////////////////////////////////////////////////////////////////////////// // //////////////////////////////////////////////////////////////////////////////// function Win_exec( cComando ) local cExecute:=GetEnv( 'COMSPEC' ) + ' /C ' if WinExec( 'start '+alltrim( cComando ), 0 ) < 32 // Tenta executar com START, se retorno < 32 WinExec( cExecute+alltrim( cComando ), 0 ) // é Win 2000 ou superior, executa com CMD.EXE endif return nil toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Veja em Novidades na http://www.toyanet.com.br/ toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)

Com o exemplo abaixo eu retiro "todos" os chr(12)... ... TxtFile( 'arquivox.prn', strtran( memoread( 'arquivo.prn' ), chr(12), '' ), .t. ) ... /////////////////////////////////////////////////////////////////////////////// // toya /////////////////////////////////////////////////////////////////////////////// function TxtFile( cFileName, aInfo, lCriaNovo ) local hFile, cLine:=dtoc( date() ) + " " + time() + ": ", n:=0 DEFAULT lCriaNovo:=.f. if valtype( aInfo )=='C' cLine:=aInfo else cLine:='' for n=1 to len( aInfo ) cLine+=cValToChar( aInfo[ n ] ) + ' ' next cLine+=CRLF endif if lCriaNovo fclose( ferase( cFileName ) ) endif if !file( cFileName ) fclose( fcreate( cFileName ) ) endif if( ( hFile:=fopen( cFileName, FO_WRITE ) )!=-1 ) fseek( hFile, 0, FS_END ) fwrite( hFile, cLine, len( cLine ) ) fclose( hFile ) endif return nil id=code>id=code>toya (Ahora en la version 5.8) toyasis@yahoo.com.br http://www.toyanet.com.br FWH 2.6+PellesC+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib - Rpv FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E+Rpv Linux 2.4.29 - Slack 10.1 - (No@Say)