[delphi-br] Nota Fiscal Paulista

2010-06-24 Por tôpico adauri_jr 
Estou gerando a nf paulista, mas o programa da receita nem reconhece o arquivo 
uso delphi 7, a baixo a minha funcao para gerar o arquivo.
Sera que alguem pode me ajudar ? 

Obrigado

procedure TFRM_SIS8011.Processa;
var TipFre: String;
Tot20, Tot30, Tot40, Tot50, Tot60: Integer;
F: TextFile;
begin
  AssignFile(F,'C:\NF.TXT');
  Rewrite(F);
  Write(F, #239+#187+#191 );

  Tot20 := 0;
  Tot30 := 0;
  Tot40 := 0;
  Tot50 := 0;
  Tot60 := 0;

  FRM_DATMOD.Query.Close;
  FRM_DATMOD.Query.SQL.Clear;
  FRM_DATMOD.Query.SQL.Add( 'SELECT COUNT( * ) AS TOTAL FROM FATGER G, CADCLI C 
WHERE G.CLI_CODIGO = C.CLI_CODIGO' );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_DATVEN BETWEEN ' + FormataData( 
edDATINI.Text ) + ' AND ' + FormataData( edDATFIN.Text ) );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_ESPDOC = ' + QuotedStr( 'NF' ) );
  FRM_DATMOD.Query.SQL.Add( 'AND G.EXC_DATEXC IS NULL' );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_TIPONF = ' + QuotedStr( 'VE' ) );
  FRM_DATMOD.Query.SQL.Add( 'ORDER BY G.FTG_DATVEN' );
  FRM_DATMOD.Query.Open;

  Pro.Visible  := True;
  Pro.MaxValue := FRM_DATMOD.Query.FieldByName( 'TOTAL' ).AsInteger;
  Pro.Progress := 0;

  FRM_DATMOD.Query.Close;
  FRM_DATMOD.Query.SQL.Clear;
  FRM_DATMOD.Query.SQL.Add( 'SELECT * FROM FATGER G, CADCLI C, CADTRA TRA WHERE 
G.CLI_CODIGO = C.CLI_CODIGO' );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_DATVEN BETWEEN ' + FormataData( 
edDATINI.Text ) + ' AND ' + FormataData( edDATFIN.Text ) );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_ESPDOC = ' + QuotedStr( 'NF' ) );
  FRM_DATMOD.Query.SQL.Add( 'AND G.EXC_DATEXC IS NULL' );
  FRM_DATMOD.Query.SQL.Add( 'AND G.FTG_TIPONF = ' + QuotedStr( 'VE' ) );
  FRM_DATMOD.Query.SQL.Add( 'AND G.TRA_CODIGO = TRA.TRA_CODIGO' );
  FRM_DATMOD.Query.SQL.Add( 'ORDER BY G.FTG_DATVEN' );
  FRM_DATMOD.Query.Open;

  Writeln( F, UTF8Encode( '10'+'|'+
  '1,00'+'|'+
  StrZero( TiraCaracter( PegaFil( 'FIL_C_G_C_' ) ), 14 
)+'|'+
  FormatDateTime( 'DD/MM/', StrToDate( 
edDATINI.Text ) )+'|'+
  FormatDateTime( 'DD/MM/', StrToDate( 
edDATFIN.Text ) ) ) );

  While Not FRM_DATMOD.Query.Eof Do
  Begin
Writeln( F, UTF8Encode( '20'+'|'+
'I'+ '|' +
''+'|'+
NomeCfop( FRM_DATMOD.Query.FieldByName( 
'CFO_CODIG1' ).AsString )+'|'+
'1'+'|'+
FRM_DATMOD.Query.FieldByName( 'FTG_CODIGO' 
).AsString+'|'+
FormatDateTime( 'DD/MM/', 
FRM_DATMOD.Query.FieldByName( 'FTG_DATVEN' ).AsDateTime ) + ' ' + 
FormatDateTime( 'HH:MM:SS', FRM_DATMOD.Query.FieldByName( 'FTG_HORVEN' 
).AsDateTime )+'|'+
''+'|'+
'1'+'|'+
FRM_DATMOD.Query.FieldByName( 'CFO_CODIG1' 
).AsString+'|'+
''+'|'+
''+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_C_G_C_' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_DESCRI' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_ENDERE' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_NUMERO' ).AsString )+'|'+
''+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_BAIRRO' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_CIDADE' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_ESTADO' ).AsString )+'|'+
TiraCaracter( FRM_DATMOD.Query.FieldByName( 
'CLI_C_E_P_' ).AsString )+'|'+
'BRASIL'+'|'+
''+'|'+
'' ) );
Inc( Tot20 );

FRM_DATMOD.Query1.Close;
FRM_DATMOD.Query1.SQL.Clear;
FRM_DATMOD.Query1.SQL.Add( 'SELECT * FROM FATDET F, CADPRO P' );
FRM_DATMOD.Query1.SQL.Add( 'WHERE F.FTG_CODIGO = ' + QuotedStr( 
FRM_DATMOD.Query.FieldByName( 'FTG_CODIGO' ).AsString ) );
FRM_DATMOD.Query1.SQL.Add( '  AND F.FTG_ESPDOC = ' + QuotedStr( 
FRM_DATMOD.Query.FieldByName( 'FTG_ESPDOC' ).AsString ) );
FRM_DATMOD.Query1.SQL.Add( '  AND F.FIL_CODIGO = ' + QuotedStr( 
FRM_DATMOD.Query.FieldByName( 'FIL_CODIGO' ).AsString ) );
FRM_DATMOD.Query1.SQL.Add( '  AND F.PRO_CODIGO = P.PRO_CODIGO' );
FRM_DATMOD.Query1.Open;
While Not FRM_DATMOD.Query1.Eof Do
Begin
  Writeln( F, UTF8Encode( '30'+'|'+
  TiraCaracter( FRM_DATMOD.Query1.FieldByName( 
'PRO_CODIGO' ).AsString )+'|'+
  TiraCaracter( FRM_DATMOD.Query1.FieldByName( 
'FTD_ITEESP' ).AsString )+'|'+
  ''+'|'+
  TiraCaracter(

[delphi-br] Editar clientdataset após applyupdates

2010-06-24 Por tôpico Alisson 

Tem algum jeito de editar um registro no clientdataset depois de dar o 
applyupdates? Sempre que tento fazer isso sempre dá a mensagem Record not 
found or changed by another user. Então eu tenho que fechar o clientdataset e 
fazer a consulta novamente.

[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RE: [delphi-br] Edit ar clientdataset apó s applyupdates

2010-06-24 Por tôpico Rubem Nascimento da Rocha 

Foram definidos corretamente os campos que são chave nesse ClientDataSet?

Sds.
 
 To: delphi-br@yahoogrupos.com.br
 From: alss...@yahoo.com.br
 Date: Thu, 24 Jun 2010 11:30:00 -0300
 Subject: [delphi-br] Editar clientdataset após applyupdates
 
 
 Tem algum jeito de editar um registro no clientdataset depois de dar o 
 applyupdates? Sempre que tento fazer isso sempre dá a mensagem Record not 
 found or changed by another user. Então eu tenho que fechar o clientdataset 
 e fazer a consulta novamente.
  
_
O INTERNET EXPLORER 8 TE AJUDA A FICAR PROTEGIDO DE FRAUDES NA WEB. LEIA MAIS 
AQUI.
http://www.microsoft.com/brasil/windows/internet-explorer/features/dicas.aspx?tabid=1catid=1WT.mc_id=1589

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Editar clientdataset após applyupd ates

2010-06-24 Por tôpico Walter Chagas (Bol) 
Na verdade seu CDS deve estar com algum problema de configuração e não está 
gravando o registro corretamente.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


- Original Message - 
From: Alisson alss...@yahoo.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 24, 2010 11:30 AM
Subject: [delphi-br] Editar clientdataset após applyupdates



Tem algum jeito de editar um registro no clientdataset depois de dar o 
applyupdates? Sempre que tento fazer isso sempre dá a mensagem Record not 
found or changed by another user. Então eu tenho que fechar o clientdataset 
e fazer a consulta novamente.

[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Editar clientdataset após applyupd ates

2010-06-24 Por tôpico Alisson 
Quais configurações devo fazer? Não deu certo as configurações citadas nesse 
link: http://br.dir.groups.yahoo.com/group/delphi-br/message/194836




- Original Message - 
From: Walter Chagas (Bol) wchag...@bol.com.br
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 24, 2010 11:43 AM
Subject: Re: [delphi-br] Editar clientdataset após applyupdates


 Na verdade seu CDS deve estar com algum problema de configuração e não 
 está
 gravando o registro corretamente.

 []s

__
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] CDS Delphi 2006

2010-06-24 Por tôpico Gildenor - Autogere Informática 
Caro Lucas,

Fornece mais informacoes pra nois ai, vai!!!

Esta usando Datasnap?
Mostra o SQL
Ja Debugou?
Em que momento dá o erro?
Mostra codigo onde vc ta fazendo esta proeza...

Att,

-- 
Gildenor Teixeira
Autogere - Sistemas de Automação e Gestão
61 9985-9008

Uma idéia realmente boa é simples, inesperada e relevante. (Nadja
Schnetzler)

Em 24 de junho de 2010 10:21, Lucas Rampim lucasram...@yahoo.com.brescreveu:



 Bom dia!

 Estou dando uma select com um SQL Query e armazenando os dados em um CDS
 para geração de relatórios que me retorna uma quantidade grande de
 registros(+/- 4 registros). O meu problema é que a minha aplicação não
 completa a operação e dá um erro Out of Memory.

 Alguém sabe me dizer se existe um limite de registros que o CDS suporta? Ou
 se existe algum outro problema?

 Obrigado

 Lucas Rafael Rampin
 Programador

 Não tente trilhar um caminho estabelecido. Ao contrário, vá para onde não
 há caminho algum e deixe seu rastro.
 (Johnnie Walker)

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Desenvolver para Windows CE

2010-06-24 Por tôpico Carlos 
Walter

Muito obrigado pela explanação. Vou segui-las.

Carlos

Em 24/06/2010 16:50, Walter Chagas (Bol) escreveu:

 Se for o Windows CE não dotNET, existem algumas ferramentas freeware 
 aí pela WEB mas todas são em C e limitadissimas.

 Fora elas, voce pode procurar pelo Microsoft Embeded Visual Tools que 
 é gratúito e tem módulos ou em VB ou em C para programar. O problema é 
 que estas ferramentas já são muito antigas e não sei se no site da 
 Microsoft ainda acha elas. Caso não as ache lá, voce terá que 
 procura-las na web. Eu trabalhei muito com o Embeded VB e se voce 
 souber programar em VB, vai ser barbada. O que eu não sei é se voce 
 acharia o SQL Server pra Windows CE ainda. Quando este sistema 
 operacional estava saíndo de circulação, o Embeded SQL Server estava 
 surgindo.

 Agora só lembre-se que programar em portateis requer respeito as 
 limitações do equipamento.

 Outra alternativa é voce baixar o Windows Mobile e trocar o sistema 
 operacional do portatil. Aí voce pode usar o Visual Studio mais recente.

 []s


 Walter Alves Chagas Junior
 Belo Horizonte - MG - Brazil
 wchag...@bol.com.br mailto:wchagasj%40bol.com.br
 http://delphitocorporerm.blogspot.com/
 http://twitter.com/wchagas
 MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
 SKYPE: WalterChagasJr

 - Original Message -
 From: Carlos
 To: Delphi-BR
 Sent: Thursday, June 24, 2010 4:34 PM
 Subject: [delphi-br] Desenvolver para Windows CE

 Pessoal

 Recebi um HP Jornada 520, com Windows CE, funcionando.

 Nunca desenvolvi para Windows CE, não sei por onde começar. Não tenho
 enormes planos para ele, mas gostaria de saber como fazer.

 Qual pacote de desenvolvimento deve ser usado? Se possível free.

 Muito obrigado.

 Carlos
 ListDBF
 http://www.superdownloads.com.br/download/59/listdbf/

 [As partes desta mensagem que não continham texto foram removidas]

  !-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family: 
 Arial; margin: 10px 0; padding: 0 10px; } #ygrp-mkp hr { border: 1px 
 solid #d8d8d8; } #ygrp-mkp #hd { color: #628c2a; font-size: 85%; 
 font-weight: 700; line-height: 122%; margin: 10px 0; } #ygrp-mkp #ads 
 { margin-bottom: 10px; } #ygrp-mkp .ad { padding: 0 0; } #ygrp-mkp .ad 
 a { color: #ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc { 
 font-family: Arial; } #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px; 
 font-weight: 700; font-size: 78%; line-height: 122%; } #ygrp-sponsor 
 #ygrp-lc .ad { margin-bottom: 10px; padding: 0 0; } a { color: 
 #1e66ae; } #actions { font-family: Verdana; font-size: 11px; padding: 
 10px 0; } #activity { background-color: #e0ecee; float: left; 
 font-family: Verdana; font-size: 10px; padding: 10px; } #activity span 
 { font-weight: 700; } #activity span:first-child { text-transform: 
 uppercase; } #activity span a { color: #5085b6; text-decoration: none; 
 } #activity span span { color: #ff7900; } #activity span .underline { 
 text-decoration: underline; } .attach { clear: both; display: table; 
 font-family: Arial; font-size: 12px; padding: 10px 0; width: 400px; } 
 .attach div a { text-decoration: none; } .attach img { border: none; 
 padding-right: 5px; } .attach label { display: block; margin-bottom: 
 5px; } .attach label a { text-decoration: none; } blockquote { margin: 
 0 0 0 4px; } .bold { font-family: Arial; font-size: 13px; font-weight: 
 700; } .bold a { text-decoration: none; } dd.last p a { font-family: 
 Verdana; font-weight: 700; } dd.last p span { margin-right: 10px; 
 font-family: Verdana; font-weight: 700; } dd.last p span.yshortcuts { 
 margin-right: 0; } div.attach-table div div a { text-decoration: none; 
 } div.attach-table { width: 400px; } div.file-title a, div.file-title 
 a:active, div.file-title a:hover, div.file-title a:visited { 
 text-decoration: none; } div.photo-title a, div.photo-title a:active, 
 div.photo-title a:hover, div.photo-title a:visited { text-decoration: 
 none; } div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family: 
 Verdana; font-size: 10px; font-weight: normal; } .green { color: 
 #628c2a; } .MsoNormal { margin: 0 0 0 0; } o { font-size: 0; } #photos 
 div { float: left; width: 72px; } #photos div div { border: 1px solid 
 #66; height: 62px; overflow: hidden; width: 62px; } #photos div 
 label { color: #66; font-size: 10px; overflow: hidden; text-align: 
 center; white-space: nowrap; width: 64px; } #reco-category { 
 font-size: 77%; } #reco-desc { font-size: 77%; } .replbq { margin: 
 4px; } #ygrp-actbar div a:first-child { /* border-right: 0px solid 
 #000;*/ margin-right: 2px; padding-right: 5px; } #ygrp-mlmsg { 
 font-size: 13px; font-family: Arial, helvetica,clean, sans-serif; 
 *font-size: small; *font: x-small; } #ygrp-mlmsg table { font-size: 
 inherit; font: 100%; } #ygrp-mlmsg select, input, textarea { font: 99% 
 Arial, Helvetica, clean, sans-serif; } #ygrp-mlmsg pre, code { 
 font:115% monospace; *font-size:100%; } #ygrp-mlmsg * { line-height: 
 1.22em; } #ygrp-mlmsg #logo {

RES: [delphi-br] CDS Delphi 2006

2010-06-24 Por tôpico -:- Analucia Vardanega -:- 
Oi Lucas,

 

Olha, posso até estar falando besteira, mas isso aí tá me cheirando erro no
comando SQL.

Vc já executou ele fora da aplicação pra ver se retorna tudo certinho?

 

Analucia Vardanega

Analista/Programadora

 

Stemmann Indústria e Comércio Ltda

Porto Feliz - SP

PABX: +55 (15) 3261-9190

 http://www.stemmann.com.br www.stemmann.com.br

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Lucas Rampim
Enviada em: quinta-feira, 24 de junho de 2010 10:22
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] CDS Delphi 2006

 

  

Bom dia!

Estou dando uma select com um SQL Query e armazenando os dados em um CDS
para geração de relatórios que me retorna uma quantidade grande de
registros(+/- 4 registros). O meu problema é que a minha aplicação não
completa a operação e dá um erro Out of Memory.

Alguém sabe me dizer se existe um limite de registros que o CDS suporta? Ou
se existe algum outro problema?

Obrigado

Lucas Rafael Rampin
Programador

Não tente trilhar um caminho estabelecido. Ao contrário, vá para onde não
há caminho algum e deixe seu rastro.
(Johnnie Walker)

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Pedido de ajuda com o Zeos e SQLITE

2010-06-24 Por tôpico psdias2 
Olá, a todos !

Sou iniciante com o Zeos e o SQLite.

a) Instalei o Zeos 6.6 no Delphi 7, e consegui criar um pequeno cadastro,
usando um BD FireBird.  Esse programa de teste funcionou bem
em uma máquina com Windows 2000, em outra com Windows XP e uma
terceira com Windows 7.

b) Como preciso usar o SQLite, converti o mesmo programinha acima
para acessar um BD (do SQLite 3).  Esse programinha rodou bem
na máquina Windows 2000 (que eu uso para programar com o Delphi 7 e o Zeos).

Porém, ao rodar o programinha para a máquina com XP e para a máquina com
Windows 7, aparece a seguinte mensagem:

SQL ERROR: LIBRARY ROUTINE CALLED OUT OF SEQUENCE.

A DLL SQLite3.DLL está na mesma pasta do executável (e funcionou bem na 
máquina com Windows 2000).

Na máquina com XP, tentei copiar a SQLite3.DLL para C:\WINDOWS\SYSTEM32, 
mas o erro
continua o mesmo.

Solicito ajuda daqueles que têm experiência com Zeos/Delphi 7/SQLite.  
Para não incomodar o restante
dos usuários da lista com perguntas muito básicas, peço licença a quem 
puder ajudar, para que eu
entre em contato em private, se for o caso.

Grato pela atenção de todos !
Paulo

Re: [delphi-br] Pedido de ajuda com o Zeos e SQLITE

2010-06-24 Por tôpico Dirlei Dionísio 
Paulo,

Não uso o Zeos para acessar Sqlite, mas acabei de fazer um teste e funcionou
sem problemas no Windows XP.

Vou mandar para o seu email pessoal o programa de teste que fiz para você
testar

--
Dirlei Dionísio
http://MaisQueBomCodigo.blogspot.com


Em 24 de junho de 2010 18:09, psdias2 psdi...@yahoo.com.br escreveu:



 Olá, a todos !

 Sou iniciante com o Zeos e o SQLite.

 a) Instalei o Zeos 6.6 no Delphi 7, e consegui criar um pequeno cadastro,
 usando um BD FireBird. Esse programa de teste funcionou bem
 em uma máquina com Windows 2000, em outra com Windows XP e uma
 terceira com Windows 7.

 b) Como preciso usar o SQLite, converti o mesmo programinha acima
 para acessar um BD (do SQLite 3). Esse programinha rodou bem
 na máquina Windows 2000 (que eu uso para programar com o Delphi 7 e o
 Zeos).

 Porém, ao rodar o programinha para a máquina com XP e para a máquina com
 Windows 7, aparece a seguinte mensagem:

 SQL ERROR: LIBRARY ROUTINE CALLED OUT OF SEQUENCE.

 A DLL SQLite3.DLL está na mesma pasta do executável (e funcionou bem na
 máquina com Windows 2000).

 Na máquina com XP, tentei copiar a SQLite3.DLL para C:\WINDOWS\SYSTEM32,
 mas o erro
 continua o mesmo.

 Solicito ajuda daqueles que têm experiência com Zeos/Delphi 7/SQLite.
 Para não incomodar o restante
 dos usuários da lista com perguntas muito básicas, peço licença a quem
 puder ajudar, para que eu
 entre em contato em private, se for o caso.

 Grato pela atenção de todos !
 Paulo

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Desenvolver para Windows CE

2010-06-24 Por tôpico Rafael Jorge 
baixa o lazarus.
depois cata na net laxarus + arm.
baixa o plugin pro copilador.
desenvolva normalmente usando pascal no lazarus e pronto.
tem um site que mostra como fazer isso é um blog de um professor nao sei o
que.
ai vc programa pra wince usando pascal e aproveitando tudo que vc sabe.

t+

Em 24 de junho de 2010 17:00, Carlos crmacedo...@ig.com.br escreveu:



 Walter

 Muito obrigado pela explanação. Vou segui-las.

 Carlos

 Em 24/06/2010 16:50, Walter Chagas (Bol) escreveu:

 
  Se for o Windows CE não dotNET, existem algumas ferramentas freeware
  aí pela WEB mas todas são em C e limitadissimas.
 
  Fora elas, voce pode procurar pelo Microsoft Embeded Visual Tools que
  é gratúito e tem módulos ou em VB ou em C para programar. O problema é
  que estas ferramentas já são muito antigas e não sei se no site da
  Microsoft ainda acha elas. Caso não as ache lá, voce terá que
  procura-las na web. Eu trabalhei muito com o Embeded VB e se voce
  souber programar em VB, vai ser barbada. O que eu não sei é se voce
  acharia o SQL Server pra Windows CE ainda. Quando este sistema
  operacional estava saíndo de circulação, o Embeded SQL Server estava
  surgindo.
 
  Agora só lembre-se que programar em portateis requer respeito as
  limitações do equipamento.
 
  Outra alternativa é voce baixar o Windows Mobile e trocar o sistema
  operacional do portatil. Aí voce pode usar o Visual Studio mais recente.
 
  []s
 
 
  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br wchagasj%40bol.com.br mailto:
 wchagasj%40bol.com.br wchagasj%2540bol.com.br

  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto:
 whitesockets%40hotmail.com whitesockets%2540hotmail.com

  SKYPE: WalterChagasJr
 
  - Original Message -
  From: Carlos
  To: Delphi-BR
  Sent: Thursday, June 24, 2010 4:34 PM
  Subject: [delphi-br] Desenvolver para Windows CE
 
  Pessoal
 
  Recebi um HP Jornada 520, com Windows CE, funcionando.
 
  Nunca desenvolvi para Windows CE, não sei por onde começar. Não tenho
  enormes planos para ele, mas gostaria de saber como fazer.
 
  Qual pacote de desenvolvimento deve ser usado? Se possível free.
 
  Muito obrigado.
 
  Carlos
  ListDBF
  http://www.superdownloads.com.br/download/59/listdbf/
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  !-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family:
  Arial; margin: 10px 0; padding: 0 10px; } #ygrp-mkp hr { border: 1px
  solid #d8d8d8; } #ygrp-mkp #hd { color: #628c2a; font-size: 85%;
  font-weight: 700; line-height: 122%; margin: 10px 0; } #ygrp-mkp #ads
  { margin-bottom: 10px; } #ygrp-mkp .ad { padding: 0 0; } #ygrp-mkp .ad
  a { color: #ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc {
  font-family: Arial; } #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px;
  font-weight: 700; font-size: 78%; line-height: 122%; } #ygrp-sponsor
  #ygrp-lc .ad { margin-bottom: 10px; padding: 0 0; } a { color:
  #1e66ae; } #actions { font-family: Verdana; font-size: 11px; padding:
  10px 0; } #activity { background-color: #e0ecee; float: left;
  font-family: Verdana; font-size: 10px; padding: 10px; } #activity span
  { font-weight: 700; } #activity span:first-child { text-transform:
  uppercase; } #activity span a { color: #5085b6; text-decoration: none;
  } #activity span span { color: #ff7900; } #activity span .underline {
  text-decoration: underline; } .attach { clear: both; display: table;
  font-family: Arial; font-size: 12px; padding: 10px 0; width: 400px; }
  .attach div a { text-decoration: none; } .attach img { border: none;
  padding-right: 5px; } .attach label { display: block; margin-bottom:
  5px; } .attach label a { text-decoration: none; } blockquote { margin:
  0 0 0 4px; } .bold { font-family: Arial; font-size: 13px; font-weight:
  700; } .bold a { text-decoration: none; } dd.last p a { font-family:
  Verdana; font-weight: 700; } dd.last p span { margin-right: 10px;
  font-family: Verdana; font-weight: 700; } dd.last p span.yshortcuts {
  margin-right: 0; } div.attach-table div div a { text-decoration: none;
  } div.attach-table { width: 400px; } div.file-title a, div.file-title
  a:active, div.file-title a:hover, div.file-title a:visited {
  text-decoration: none; } div.photo-title a, div.photo-title a:active,
  div.photo-title a:hover, div.photo-title a:visited { text-decoration:
  none; } div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:
  Verdana; font-size: 10px; font-weight: normal; } .green { color:
  #628c2a; } .MsoNormal { margin: 0 0 0 0; } o { font-size: 0; } #photos
  div { float: left; width: 72px; } #photos div div { border: 1px solid
  #66; height: 62px; overflow: hidden; width: 62px; } #photos div
  label { color: #66; font-size: 10px; overflow: hidden; text-align:
  center; white-space: nowrap; width: 64px; } #reco-category {
  font-size: 77%; } #reco-desc { font-size: 77%; } .replbq

Re: [delphi-br] TPascalScript

2010-06-24 Por tôpico Fabricio Colombo 
No evento Compile fica assim

procedure TfrmScript.PSScriptCompile(Sender: TPSScript);
begin
AddRegisteredPTRVariable('qry_sql', 'TDataSet');
end;

e no execute fica assim

procedure TfrmScript.PSScriptExecute(Sender: TPSScript);
begin
   PSScript.SetPointerToData('DataSet', @qry_sql,
Compiler.FindNamedType('TDataSet'));
end;

Em 24 de junho de 2010 16:35, Murilo Cunha mcscu...@yahoo.com.br escreveu:



 Pessoal,

 Como eu faco para ligar meu TSQLQuery da aplicacao no TScriptPascal, da
 REMObjects??

 Tenho o seguinte:

 Um MEMO, onde digito o SCRIPTPASCAL, por exemplo:

 program Test;
 begin
 writeln( IntToStr( qry_sql.RecordCount ) );
 // qry_sql.Close;
 end.

 Em outro MEMO (na mesma tela) é exibido o resultado desta compilacao.
 Tenho tb um TSQLQuery ja ligado ao banco Oracle e funcionando - O nome
 dele é QRY1.
 Declarei uma variavel QRY_SQL no codigo do TPascalScript desta forma:

 procedure TfrmScript.PSScriptCompile(Sender: TPSScript);
 begin
 PSScript.AddRegisteredVariable('qry_sql', 'TDataSet');
 PSScript.SetVarToInstance('qry_sql', qry1 );
 end;

 Quando executo o codigo do PASCALSCRIPT da este erro:
 Compiling
 Compiled succesfully
 Could not call proc at 0.42

 Me parece que ele nao consegue achar o QRY1.
 Como fazer para ligar esta minha variavel declarada no TPascalScript ao
 meu componente no form??

 Obrigado
 MuriloCunha

 



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] REMObjects

2010-06-24 Por tôpico Fabricio Colombo 
Junto com o Pascal Script vem um programa Unit Importer onde você abre o
arquivo .pas e ele vai converter em um Plugin do PS. Vc adiciona esse plugin
na lista de plugins dele que vai começar a compilar.

Eu já fiz isso com a Unit DBClient, mais tive que remover varias coisas que
ele não conseguia converter.




Em 24 de junho de 2010 11:35, Murilo Cunha mcscu...@yahoo.com.br escreveu:



 Pessoal,

 Alguem tem algum exemplo de como eu uso o REMObjects (PascalScript)?
 Nao quero os exemplos que veem com a instalacao, estes nao tem o que eu
 quero.
 Gostaria de implementar consultas ao meu BD atraves do PascalScript.

 Por exemplo:
 CDS1.Close;
 CDS1.SQL.Text := 'SELECT * FROM FIRMAS';
 CDS1.OPEN;
 // Popular o MEMO com o resultado...

 E pegar estes dados em um MEMO.

 O problema é que nao sei colocar este TClientDataSet no PascalScript.

 Alguem manja de mexer com este componente??

 Obrigado
 MuriloCunha

 



[As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: [delphi-br] Desenvolver para Windows CE

2010-06-24 Por tôpico Walter Chagas (Bol) 
Nó

Que balaio de gato vei.

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


- Original Message - 
From: Rafael Jorge rafael.jo...@gmail.com
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 24, 2010 6:55 PM
Subject: Re: [delphi-br] Desenvolver para Windows CE


baixa o lazarus.
depois cata na net laxarus + arm.
baixa o plugin pro copilador.
desenvolva normalmente usando pascal no lazarus e pronto.
tem um site que mostra como fazer isso é um blog de um professor nao sei o
que.
ai vc programa pra wince usando pascal e aproveitando tudo que vc sabe.

t+

Em 24 de junho de 2010 17:00, Carlos crmacedo...@ig.com.br escreveu:



 Walter

 Muito obrigado pela explanação. Vou segui-las.

 Carlos

 Em 24/06/2010 16:50, Walter Chagas (Bol) escreveu:

 
  Se for o Windows CE não dotNET, existem algumas ferramentas freeware
  aí pela WEB mas todas são em C e limitadissimas.
 
  Fora elas, voce pode procurar pelo Microsoft Embeded Visual Tools que
  é gratúito e tem módulos ou em VB ou em C para programar. O problema é
  que estas ferramentas já são muito antigas e não sei se no site da
  Microsoft ainda acha elas. Caso não as ache lá, voce terá que
  procura-las na web. Eu trabalhei muito com o Embeded VB e se voce
  souber programar em VB, vai ser barbada. O que eu não sei é se voce
  acharia o SQL Server pra Windows CE ainda. Quando este sistema
  operacional estava saíndo de circulação, o Embeded SQL Server estava
  surgindo.
 
  Agora só lembre-se que programar em portateis requer respeito as
  limitações do equipamento.
 
  Outra alternativa é voce baixar o Windows Mobile e trocar o sistema
  operacional do portatil. Aí voce pode usar o Visual Studio mais recente.
 
  []s
 
 
  Walter Alves Chagas Junior
  Belo Horizonte - MG - Brazil
  wchag...@bol.com.br wchagasj%40bol.com.br mailto:
 wchagasj%40bol.com.br wchagasj%2540bol.com.br

  http://delphitocorporerm.blogspot.com/
  http://twitter.com/wchagas
  MSN: whitesock...@hotmail.com whitesockets%40hotmail.com mailto:
 whitesockets%40hotmail.com whitesockets%2540hotmail.com

  SKYPE: WalterChagasJr
 
  - Original Message -
  From: Carlos
  To: Delphi-BR
  Sent: Thursday, June 24, 2010 4:34 PM
  Subject: [delphi-br] Desenvolver para Windows CE
 
  Pessoal
 
  Recebi um HP Jornada 520, com Windows CE, funcionando.
 
  Nunca desenvolvi para Windows CE, não sei por onde começar. Não tenho
  enormes planos para ele, mas gostaria de saber como fazer.
 
  Qual pacote de desenvolvimento deve ser usado? Se possível free.
 
  Muito obrigado.
 
  Carlos
  ListDBF
  http://www.superdownloads.com.br/download/59/listdbf/
 
  [As partes desta mensagem que não continham texto foram removidas]
 
  !-- #ygrp-mkp { border: 1px solid #d8d8d8; font-family:
  Arial; margin: 10px 0; padding: 0 10px; } #ygrp-mkp hr { border: 1px
  solid #d8d8d8; } #ygrp-mkp #hd { color: #628c2a; font-size: 85%;
  font-weight: 700; line-height: 122%; margin: 10px 0; } #ygrp-mkp #ads
  { margin-bottom: 10px; } #ygrp-mkp .ad { padding: 0 0; } #ygrp-mkp .ad
  a { color: #ff; text-decoration: none; } #ygrp-sponsor #ygrp-lc {
  font-family: Arial; } #ygrp-sponsor #ygrp-lc #hd { margin: 10px 0px;
  font-weight: 700; font-size: 78%; line-height: 122%; } #ygrp-sponsor
  #ygrp-lc .ad { margin-bottom: 10px; padding: 0 0; } a { color:
  #1e66ae; } #actions { font-family: Verdana; font-size: 11px; padding:
  10px 0; } #activity { background-color: #e0ecee; float: left;
  font-family: Verdana; font-size: 10px; padding: 10px; } #activity span
  { font-weight: 700; } #activity span:first-child { text-transform:
  uppercase; } #activity span a { color: #5085b6; text-decoration: none;
  } #activity span span { color: #ff7900; } #activity span .underline {
  text-decoration: underline; } .attach { clear: both; display: table;
  font-family: Arial; font-size: 12px; padding: 10px 0; width: 400px; }
  .attach div a { text-decoration: none; } .attach img { border: none;
  padding-right: 5px; } .attach label { display: block; margin-bottom:
  5px; } .attach label a { text-decoration: none; } blockquote { margin:
  0 0 0 4px; } .bold { font-family: Arial; font-size: 13px; font-weight:
  700; } .bold a { text-decoration: none; } dd.last p a { font-family:
  Verdana; font-weight: 700; } dd.last p span { margin-right: 10px;
  font-family: Verdana; font-weight: 700; } dd.last p span.yshortcuts {
  margin-right: 0; } div.attach-table div div a { text-decoration: none;
  } div.attach-table { width: 400px; } div.file-title a, div.file-title
  a:active, div.file-title a:hover, div.file-title a:visited {
  text-decoration: none; } div.photo-title a, div.photo-title a:active,
  div.photo-title a:hover, div.photo-title a:visited { text-decoration:
  none; } div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts { font-family:
  Verdana; font-size: 10px; font-weight:

[delphi-br] Re: Desenvolver para Windows CE

2010-06-24 Por tôpico eric_developer 
Rafael,
acho que se refere ao Carlos, mais precisamente:
http://professorcarlos.blogspot.com/search/label/WinCE

Parece que o Lazarus é uma ótima opção, e não fica somente no WinCE:
http://wiki.lazarus.freepascal.org/Smartphone_Development

Eric Developer Systems
www.magaldi.eti.br


--- Em delphi-br@yahoogrupos.com.br, Rafael Jorge rafael.jo...@... escreveu

 baixa o lazarus.
 depois cata na net laxarus + arm.
 baixa o plugin pro copilador.
 desenvolva normalmente usando pascal no lazarus e pronto.
 tem um site que mostra como fazer isso é um blog de um professor nao sei o
 que.
 ai vc programa pra wince usando pascal e aproveitando tudo que vc sabe.
 
 t+