RES: [delphi-br] Componente ou Solução para Contro le de Usuário.
Disponibilizei a versão 2.18A do UserControl no endereço abaixo: http://www.upshare.me/files/hQRQel1282304804/UserControl2.18a.rar.html Não sei ainda se existe uma versão mais nova. Mas veja se esta lhe ajuda. Trabalho com UserControl a muito tempo e não tenho o que me queixar dele. Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marciano Venter Enviada em: quinta-feira, 19 de agosto de 2010 17:04 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Componente ou Solução para Controle de Usuário. Boa tarde pessoal, estou procurando um componente bom pra controle de acesso dos usuarios, eu utilizada o UserControl, mas o site está fora do ar a um tempinho e não tenho o arquivo, estou procurando pelos arquivos dele ou por outra opção. Alguma sugestão ? Atenciosamente, -- Marciano Venter Email: venter.marci...@gmail.com mailto:venter.marciano%40gmail.com Celular: (51) 9672 6093 venter.marci...@gmail.com mailto:venter.marciano%40gmail.com marcianoven...@hotmail.com mailto:marcianoventer%40hotmail.com [image: Twitter] http://www.twitter.com/ventermarciano@ventermarciano [image: Facebook]http://www.facebook.com/profile.php?id=10304177338 http://www.facebook.com/profile.php?id=10304177338ref=profile ref=profile Marciano Venter [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Importação ignora 1ª linha do a rquivo
Seguindo o conselho do colega Dirlei postei o código no pastebin.
http://pastebin.com/f46svY5b
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 13:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo
Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.
--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com
Em 23 de julho de 2010 10:11, Ralp Alves Bezerra ral...@gmail.comescreveu:
Nobres colegas,
Recentemente tive um problema com a importação de um arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
consegui sanar o problema.
A importação foi realizada. Porém, fazendo uma analise mais detalhada,
notei que primeira linha do arquivo nunca é importada. Fica sempre
faltando o primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
poder me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress,
FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText := fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados := lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar := '';
lQtde := lLinhaDados.Count;
if lCampos = 0 then
lCampos := lQtde
else if lQtde lCampos then
raise Exception.CreateFmt(
'Quantidade de campos das linhas de dados é variável.' +
sLineBreak + sLineBreak +
sLinhaDados +
sLineBreak + sLineBreak +
'(%d %d).', [lQtde, lCampos])
else
fDadosTratados.Add(sLinhaDados);
lArquivo.Delete(0);
end;
finally
lLinhaDados.Free;
end;
finally
lArquivo.Free;
end;
end;
end;
constructor TfrmSIMNE.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
PrepararDados;
AnalisarArquivo;
CriarDataSet;
end;
destructor TfrmSIMNE.Destroy;
begin
LiberarDados;
inherited Destroy;
end;
procedure TfrmSIMNE.LiberarDados;
begin
if Assigned(fDadosTratados) then
fDadosTratados.Free;
if Assigned(fCdsDadosTratados) then
begin
fCdsDadosTratados.Close;
fCdsDadosTratados.Free;
end;
end;
procedure TfrmSIMNE.PrepararDados;
begin
fDadosTratados := TStringList.Create
end;
procedure TfrmSIMNE.btImportarClick(Sender: TObject);
begin
DM.cds_SIM601.Open;
Try
DM.cds_SIM601.DisableControls;
fCdsDadosTratados.First;
fCdsDadosTratados.DisableControls;
Barra.Position:=0;
Barra.Max:=fCdsDadosTratados.RecordCount;
while not fCdsDadosTratados.Eof do
Begin
DM.cds_SIM601.Insert;
DM.cds_SIM601.fieldbyname('Numero_NE').AsString
:=fCdsDadosTratados.Fields[6].AsString;
DM.cds_SIM601.fieldbyname('NP_Numero_Sub_Empenho').AsString
RES: [delphi-br] Importação ignora 1ª linha do a rquivo
Pois é Rubem, desculpe por não citar seu nome. Foram tantas as pessoas que
tentaram ajudar que as vezes cometemos estes deslizes.
Já no caso da importação, aqui realmente ele não reconhece a primeira linha
do arquivo. Será que é por causa da extensão (.DCD)? Este é o padrão
utilizado pelo tribunal aqui do Ceará.
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Rocha
Enviada em: sexta-feira, 23 de julho de 2010 15:21
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Importação ignora 1ª linha do arquivo
Prioridade: Alta
Analisei o fonte (que por sinal, fui eu que implementei inicialmente) e até
rodei ele com um arquivo de exemplo que o Ralp mandou para mim na época. Não
vi nada de anormal. Ele sempre pega todas as linhas do texto.
Sds.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
[mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
] Em
nome de Dirlei Dionísio
Enviada em: sexta-feira, 23 de julho de 2010 12:19
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Importação ignora 1ª linha do arquivo
Ler código dentro de email é terrível. Se vc colocar o código no Pastebin (
http://pastebin.com) vai nos ajudar a te ajudar.
--
Dirlei Dionísio
Novo artigo: // Não comente seu código
http://MaisQueBomCodigo.blogspot.com
Em 23 de julho de 2010 10:11, Ralp Alves Bezerra ral...@gmail.com
mailto:ralprd%40gmail.com escreveu:
Nobres colegas,
Recentemente tive um problema com a importação de um arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter,
consegui
sanar o problema.
A importação foi realizada. Porém, fazendo uma analise mais detalhada,
notei
que primeira linha do arquivo nunca é importada. Fica sempre faltando o
primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos nobres colegas
poder
me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText := fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados := lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar := '';
lQtde := lLinhaDados.Count;
if lCampos = 0 then
lCampos := lQtde
else if lQtde lCampos then
raise Exception.CreateFmt(
'Quantidade de campos das linhas de dados é variável.' +
sLineBreak + sLineBreak +
sLinhaDados +
sLineBreak + sLineBreak +
'(%d %d).', [lQtde, lCampos])
else
fDadosTratados.Add(sLinhaDados);
lArquivo.Delete(0);
end;
finally
lLinhaDados.Free;
end;
finally
lArquivo.Free;
end;
end;
end;
constructor TfrmSIMNE.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
PrepararDados;
AnalisarArquivo;
CriarDataSet;
end;
destructor
[delphi-br] Importação ignora 1ª linha do arquivo
Nobres colegas,
Recentemente tive um problema com a importação de um arquivo.
Com a ajuda dos nobres colegas e o envio de um exemplo pelo Walter, consegui
sanar o problema.
A importação foi realizada. Porém, fazendo uma analise mais detalhada, notei
que primeira linha do arquivo nunca é importada. Fica sempre faltando o
primeiro registro do arquivo.
Estou postando abaixo o código utilizado. Se alguns dos nobres colegas poder
me ajudar fico grato.
Abraço.
unit ufAnaliseDados;
interface
uses
Classes, Forms, DB, Controls, Grids, DBGrids, DBClient, DBXpress, FMTBcd,
DBXAutoInc, Provider, SqlExpr, RXCtrls, RXDBCtrl, Buttons, ExtCtrls,
XiPanel, Dialogs, JvDialogs, XiProgressBar;
type
TfrmSIMNE = class(TForm)
XiPanel1: TXiPanel;
btImportar: TSpeedButton;
dbgDados: TDBGrid;
DBGrid1: TDBGrid;
srcDados: TDataSource;
JvOpenDialog1: TJvOpenDialog;
Barra: TXiProgressBar;
procedure btImportarClick(Sender: TObject);
private
fDadosTratados: TStringList;
fCdsDadosTratados: TClientDataSet;
procedure PrepararDados;
procedure AnalisarArquivo;
procedure CriarDataSet;
procedure LiberarDados;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
var
frmSIMNE: TfrmSIMNE;
implementation
uses SysUtils, uDM, uImportaProcesso;
{$R *.dfm}
{ TfrmAnaliseDados }
procedure TfrmSIMNE.CriarDataSet;
var
i: integer;
lLinhaDados: TStringList;
begin
{ Cria o ClientDataSet }
fCdsDadosTratados := TClientDataSet.Create(Self);
{ Define os campos que o ClientDataSet terá }
with fCdsDadosTratados.FieldDefs do
for i := 1 to 16 do
Add(Format('Campo%2.2d', [i]), ftString, 40);
{ Cria o ClientDataset com os campos definidos }
fCdsDadosTratados.CreateDataSet;
{ Preenche o ClientDataSet com os dados tratados }
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
lLinhaDados.QuoteChar := '';
while fDadosTratados.Count 0 do
begin
fCdsDadosTratados.Append;
lLinhaDados.DelimitedText := fDadosTratados[0];
for i := 0 to 15 do
fCdsDadosTratados.Fields[i].AsString := lLinhaDados[i];
fDadosTratados.Delete(0);
end;
finally
lLinhaDados.Free;
end;
{ Vincula o ClientDataSet ao DataSource associado ao DBGrid }
srcDados.DataSet := fCdsDadosTratados;
end;
procedure TfrmSIMNE.AnalisarArquivo;
var
lQtde, lCampos: integer;
lArquivo, lLinhaDados: TStringList;
sLinhaDados: string;
begin
If JvOpenDialog1.Execute then
Begin
lArquivo := TStringList.Create;
try
lArquivo.LoadFromFile(JvOpenDialog1.FileName);
lCampos := 0;
lLinhaDados := TStringList.Create;
try
lLinhaDados.Delimiter := ',';
while lArquivo.Count 0 do
begin
sLinhaDados := lArquivo[0];
lLinhaDados.DelimitedText := sLinhaDados;
lLinhaDados.QuoteChar := '';
lQtde := lLinhaDados.Count;
if lCampos = 0 then
lCampos := lQtde
else if lQtde lCampos then
raise Exception.CreateFmt(
'Quantidade de campos das linhas de dados é variável.' +
sLineBreak + sLineBreak +
sLinhaDados +
sLineBreak + sLineBreak +
'(%d %d).', [lQtde, lCampos])
else
fDadosTratados.Add(sLinhaDados);
lArquivo.Delete(0);
end;
finally
lLinhaDados.Free;
end;
finally
lArquivo.Free;
end;
end;
end;
constructor TfrmSIMNE.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
PrepararDados;
AnalisarArquivo;
CriarDataSet;
end;
destructor TfrmSIMNE.Destroy;
begin
LiberarDados;
inherited Destroy;
end;
procedure TfrmSIMNE.LiberarDados;
begin
if Assigned(fDadosTratados) then
fDadosTratados.Free;
if Assigned(fCdsDadosTratados) then
begin
fCdsDadosTratados.Close;
fCdsDadosTratados.Free;
end;
end;
procedure TfrmSIMNE.PrepararDados;
begin
fDadosTratados := TStringList.Create
end;
procedure TfrmSIMNE.btImportarClick(Sender: TObject);
begin
DM.cds_SIM601.Open;
Try
DM.cds_SIM601.DisableControls;
fCdsDadosTratados.First;
fCdsDadosTratados.DisableControls;
Barra.Position:=0;
Barra.Max:=fCdsDadosTratados.RecordCount;
while not fCdsDadosTratados.Eof do
Begin
DM.cds_SIM601.Insert;
DM.cds_SIM601.fieldbyname('Numero_NE').AsString
:=fCdsDadosTratados.Fields[6].AsString;
DM.cds_SIM601.fieldbyname('NP_Numero_Sub_Empenho').AsString
:=fCdsDadosTratados.Fields[7].AsString;
DM.cds_SIM601.fieldbyname('NP_Numero_NP').AsString
:=fCdsDadosTratados.Fields[8].AsString;
DM.cds_SIM601.fieldbyname('NP_Data_Ref_Doc').AsString
RES: RES: [delphi-br] Importação de Arquivo
O que ocorre é que dentro deste arquivo existem campos em branco. Ex.: 100,,098 Eis umas das dificuldades. Abraço. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Dionísio Enviada em: terça-feira, 13 de julho de 2010 22:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo É só parsear o conteúdo byte a byte pra identificar o que está dentro de aspas duplas. Se for encontrada uma aspa dupla, você sabe que até que uma outra aspa dupla seja encontrada, uma eventual vírgula fará parte do dado. -- Dirlei Dionísio Novo artigo: 5 dicas para aproveitar sua inteligência e criatividade http://MaisQueBomCodigo.blogspot.com Em 13 de julho de 2010 21:06, Marcelo leite_rom...@yahoo.com.br escreveu: Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,00 03,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br mailto: delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br From: ral...@gmail.com ralprd%40gmail.com mailto:ralprd%40gmail.comralprd%2540gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,00 03,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,00 03,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,00 03,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,00 03,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,00 03,2 ,006,,33903900,100,00 Já vasculhei
RES: RES: [delphi-br] Importação de Arquivo
O problema é que os campos tem tamanhos variados, não teria como eu dar um copy. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Wagne®_Fix Enviada em: terça-feira, 13 de julho de 2010 16:26 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Eu uso COPY, as pessoas podem achar complicado mas eu me dou muito bem... Tem um cliente meu que importa mais ou menos uns 1000 dados diários para o Banco e nunca deu problema... AssignFile(arq,g); Reset ( arq ); ReadLn ( arq, linha ); Tot := 0; AuxTot := 0; while not Eof ( arq ) do begin AuxLinha := ''; AuxPed := ''; AuxChassi := ''; AuxLinha := Copy(linha,53,1); AuxPed := Copy(linha,1,10); AuxChassi := Copy(linha,51,10); end; De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM: ocid=WLCRM: Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []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: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []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: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER
RES: RES: [delphi-br] Importação de Arquivo
Ok Walter, vou testar aqui e posto o resultado. Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Daniel Azevedo Enviada em: terça-feira, 13 de julho de 2010 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo A rotina q te mandei faz justamente isso, ignora as virgulas pega a Aspas + a virgula , para identificar o final do campo valido quero dizer... foi esta a intenção mais a noite vou estar com o delphi e posso fazer a rotina funcionar caso ela nao tenha funcionado se ate la nao tiver resolvido eu monto uma e ja faço os testes e te entrego funfando Walter Chagas (Bol) escreveu: é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Desculpe Daniel, troquei o seu nome pelo do Walter. Não sei o que houve aqui em meu micro. Meu outlook parou de funcionar e não consigo recuperar minhas mensagens. Poderia me enviar novamente a rotina? Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Daniel Azevedo Enviada em: terça-feira, 13 de julho de 2010 17:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo A rotina q te mandei faz justamente isso, ignora as virgulas pega a Aspas + a virgula , para identificar o final do campo valido quero dizer... foi esta a intenção mais a noite vou estar com o delphi e posso fazer a rotina funcionar caso ela nao tenha funcionado se ate la nao tiver resolvido eu monto uma e ja faço os testes e te entrego funfando Walter Chagas (Bol) escreveu: é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ Informa磯 do ESET Smart Security, vers㯠da vacina 5276 (20100713) __ A mensagem foi verificada pelo ESET Smart Security. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PEDRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
Com certeza, agora acho que vai dar certo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Walter Chagas (Bol) Enviada em: quarta-feira, 14 de julho de 2010 09:40 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo Esse txt daí foi osso viu... []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: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 9:06 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []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: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []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: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum
RES: RES: [delphi-br] Importação de Arquivo
mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Importação de Arquivo
O arquivo original http://www.grupog2gestao.com.br/NE201005.txt De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 11:00 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Cara, me manda um exemplo de arquivo TXT nesse formato. Penso que não seja tão cabeludo esse problema pra resolver. Vou montar um exemplo de análise de texto nesse formato, mostrando o conteúdo em um DBGrid. Tenho certeza que isso não é dilema ou paradoxo tão complexo pra ser resolvido. Se estiver como você que necessita, eu posto o exemplo na área de arquivos da lista pro povo todo ver que isso é simples de resolver. Sds. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quarta-feira, 14 de julho de 2010 05:56 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Pois é, este formato esta me deixando louco aqui. Existem os valores do tipo float que também possuem as vírgulas e não são delimitados por aspas duplas. “100”,10.200,25,”098” Existem campos em branco “100”,””,10.200,25,”098” Esta sendo um grande dilema. Abraço. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Marcelo Enviada em: terça-feira, 13 de julho de 2010 21:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Res: RES: [delphi-br] Importação de Arquivo Ta certo Walter , não me atentei que tinha campos sem as aspas duplas como separação. Já trabalhei comarquivos txt parecido com este mas todos os campos vinham separados por aspas duplas. Agora este caso tem que analisar um pouco. De: sWalter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 18:06:16 Assunto: Re: RES: [delphi-br] Importação de Arquivo Não não não não. Da forma como você está propondo, voce supoe que entre os valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais
RES: RES: RES: [delphi-br] Importação de Arquivo
valores do tipo String (que são delimitados por aspas duplas) pode vir apenas um valor float. Mas e se vier dois ou mais na sequência?? Veja o caso abaixo: 601,029,2.010,98,1.011,32,01,20100517,17,05,20,10,04,122,0003,2 ,002,,33901400,130.00 como ficaria este caso? []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:29 PM Subject: Res: RES: [delphi-br] Importação de Arquivo tem que trocar a aspa dupla junta Walter, ai não tem enigma , pois nos valores decimais não será substituida. Ai ele terá um separador padrão o ponto e virgula. depois fica facil. De: Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 17:09:01 Assunto: Re: RES: [delphi-br] Importação de Arquivo é mas e a virgula dos valores decimais?? É um enigma essa parada daí. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br mailto:wchagasj%40bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com mailto:whitesockets%40hotmail.com SKYPE: WalterChagasJr - Original Message - From: Marcelo To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, July 13, 2010 5:04 PM Subject: Res: RES: [delphi-br] Importação de Arquivo Já pensou em dar um StringReplace nas , trocando por ; ai voce teria um separador padrão ai facaria muito mais facil de trabalhar De: Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 13 de Julho de 2010 16:09:57 Assunto: RES: [delphi-br] Importação de Arquivo Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves _ ACESSE SEUS EMAILS DE QUALQUER LUGAR PELO SEU CELULAR. CLIQUE E VEJA COMO FAZER ISSO. http://celular.windowslive.com.br/hotmail.asp?produto=Hotmailutm_source=Liv e_Hotmailutm_medium
RES: RES: [delphi-br] Importação de Arquivo (Res olvido)
Gostaria de agradecer a todos na lista que se despuseram a sanar minha dúvida. O exemplo que o Rubem Rocha enviou serviu como uma luva. Gostaria de agradecer também ao nobres colegas Daniel Azevedo, Fabricio Colombo, Jean Barreiros, Walter Chagas, Marcos Douglas e a todos que de alguma maneira me ajudaram em mais esta empreitada. Muito obrigado, Abraço a todos. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Rocha Enviada em: quarta-feira, 14 de julho de 2010 14:01 Para: delphi-br@yahoogrupos.com.br Assunto: RES: RES: [delphi-br] Importação de Arquivo Prioridade: Alta Mandei um exemplo pro Ralp que mostra o uso de TStringList para importação de arquivos, abordando o uso das propriedades QuoteChar, DelimitedText e Delimiter. Sds. -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Fabricio Colombo Enviada em: quarta-feira, 14 de julho de 2010 09:23 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo var vList: TStringList; begin vList := TStringList.Create; try vList.Delimiter := ','; vList.DelimitedText := SuaLinha; Memo1.Lines.Assign(vList); finally vList.Free; end; Quando utiliza o DelimitedText, ele respeita o conteúdo contido entre aspas duplas, e agora que os decimas estão com ponto, vai funcionar perfeitamente. Em 14 de julho de 2010 10:03, Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com escreveu: Depois de muito quebrar a cabeça aqui, solicitei a geração de um novo arquivo para importação. E para minha surpresa, os valores não mais tinham as casas decimais com vírgula e sim ponto. Acredito que possa ter ocorrido um erro na geração do arquivo anterior. Esta é uma das linhas de várias dentro do arquivo. 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,O,Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010.,11400.00,250.00,11150.00,,,0,,0,F,7,777,PE DRO ROGERIO MORAIS,RUA PROFESSOR NICACIO, S/N CENTRO,00883663126,6257,BELA CRUZ,CE,0,,,01192619366 Os valores agora não tem mais vírgulas nas casas decimais. Porém, no histórico:Valor que se empenha p/ fazer face as despesas com Concessao de 01(uma) diaria para ir a Fortaleza tratar de Convenios e Recursos Federais na Sede da APRECE, no periodo de 14/05/2010. existe a utilização de vírgulas. Sendo assim, não posso converter as vírgulas para ponto e vírgula. Outro caso, é a existência de campos em branco: BELA CRUZ,CE,0,,,01192619366. Como devo proceder a partir de agora? Abraços. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Marcos Douglas Enviada em: quarta-feira, 14 de julho de 2010 09:22 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Importação de Arquivo 2010/7/14 Walter Chagas (Bol) wchag...@bol.com.br mailto:wchagasj%40bol.com.br wchagasj%40bol.com.brmailto: wchagasj%40bol.com.br wchagasj%2540bol.com.br : Ruben, torno a questionar. E se tiver dois valores float na sequencia? Lembre-se que os valores float não vem entre aspas. Li todos os emails desta thread e gostaria de fazer um comentário. Se não há um padrão[1] no arquivo então, conceitualmente, este arquivo está errado e não pode ser lido com 100% de certeza, ou seja, algo deverá ser interpretado da melhor forma possível, caso o sistema encontre uma anomalia. [1] Alguns conceitos utilizados em muitos arquivos textos formatados: - cada coluna tem um número determinado de caracteres - delimitador único para cada coluna: os arquivos csv são exemplos, mas quando há vírgulas dentro de um dado, este é quotado com aspas. - prefixos para cada tipo de informação: uma letra, simbolo, etc - prefixo+sufixo que delimitam uma informação: ex é uma sequencia de caracteres como [[informação]] - etc. Abraço, MD. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Importação de Arquivo
Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Importação de Arquivo
Não estou conseguindo montar uma rotina para pegar os dados contidos dentro das aspas duplas e delimitadas por vírgula. Existe um campo no formato 100.000,00 que também contém vírgulas em seu conteúdo. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: terça-feira, 13 de julho de 2010 15:54 Para: delphi-br Assunto: RE: [delphi-br] Importação de Arquivo Prioridade: Alta Qual é exatamente a sua dificuldade? Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: ral...@gmail.com mailto:ralprd%40gmail.com Date: Tue, 13 Jul 2010 15:50:44 -0300 Subject: [delphi-br] Importação de Arquivo Nobres colegas, estou tentando importar para o meu banco de dados um arquivo no formato txt com o formato abaixo: 601,029,201000,02,01,20100512,12050002,201005,04,122,0003,2 ,002,,33901400,100.000,00 601,029,201000,02,01,20100517,17050003,201005,04,122,0003,2 ,002,,33901400,130.00 601,029,201000,02,01,20100517,17050004,201005,04,122,0003,2 ,002,,33901400,1.000,00 601,029,201000,02,01,20100524,24050005,201005,04,122,0003,2 ,003,,33903000,10.000,00 601,029,201000,03,01,20100503,03050009,201005,04,122,0003,2 ,006,,33903900,100,00 Já vasculhei a net e até o momento ainda não consegui nenhum êxito. Algum dos nobres colegas já efetuou este tipo de importação com um arquivo neste formato? Estou utilizando Delphi 7/Firebird 2.1 Grato. Ralp Alves __ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2 http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM: Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Zoom em EDBimage
Nobres colegas, Recentemente peguei na internet um exemplo de como aplicar zoom em um componente EDBImage. Coloquei um ScrollBox e dentro dele, coloquei o componente EDBImage. No incremento e decremento do zoom estou utilizando o seguinte código: Botão incremento: EDBImage1.Width :=EDBImage1.Width+10; EDBImage1.Height:=EDBImage1.Height+10; Botão decremento: EDBImage1.Width :=EDBImage1.Width-10; EDBImage1.Height:=EDBImage1.Height-10; Porém, nada ocorre com a imagem. Algum dos nobres colegas que já implementou uma função deste tipo ou que possa me dar um dica de como faze-lo eu ficaria muito grato. Abraço. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Miniaturas em Delphi/Firebird
Valeu Fabricio, vou testar o exemplo e posto aqui o resultado. Em 26 de junho de 2010 18:50, Fabricio Colombo fabricio.colombo@gmail.com escreveu: Aqui mostra uma forma de redimensionar a imagem http://delphi.about.com/od/graphics/a/resize_image.htm Em 26 de junho de 2010 10:27, Ralp Alves Bezerra ral...@gmail.com escreveu: Nobre colegas, Estou precisando montar um form onde ao clicar em um número de processo as imagens possam ser mostradas em miniaturas (thumbmails) do lado direito da tela. Tenho uma tabela com todos os processos gravados e outra com as imagens destes processos ligadas pelo código do processo (são várias imagens para cada processo). Ex. Processo 11 ao clicar neste processo, o mesmo exibir todas as imagens relativas ao mesmo; 22 ao clicar neste processo, o mesmo exibir todas as imagens relativas ao mesmo; E assim por diante. Desde já agradeço a atenção. Ralp Alves [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 -- Grupo G2 Tecnologia Sistemas Ralp Alves Bezerra Diretor de Tecnologia Av. 13 de Maio, 853 - 2º andar Bairro de Fátima - 60.040-530 Fortaleza - Ceará - Brasil (85) 3257-6662 / 8872.4325 / 9215.2100 / 9600.9796 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Miniaturas em Delphi/Firebird
Nobre colegas, Estou precisando montar um form onde ao clicar em um número de processo as imagens possam ser mostradas em miniaturas (thumbmails) do lado direito da tela. Tenho uma tabela com todos os processos gravados e outra com as imagens destes processos ligadas pelo código do processo (são várias imagens para cada processo). Ex. Processo 11 ao clicar neste processo, o mesmo exibir todas as imagens relativas ao mesmo; 22 ao clicar neste processo, o mesmo exibir todas as imagens relativas ao mesmo; E assim por diante. Desde já agradeço a atenção. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: [OFF] Aniversário do Bruno Lichot
Desejo a você um feliz aniversário!!! Abraço. Ralp Alves De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de jeanpapa10 Enviada em: quinta-feira, 10 de junho de 2010 13:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: [OFF] Aniversário do Bruno Lichot Também deixo aqui as minhas felicitações ao Bruno, continue seguindo este caminho que você está trilhando muito bem. PARABÉNS ! De: Jean Alysson --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Adriano Santos asrsan...@... escreveu Ae, Hoje é o grande dia. 30 anos de honestidade, comprometimento, garra, luta. Ae Brother, sou seu fã cara. Muita paz, alegria, sucesso, luz, saúde e vixi, tudo que o cara lá de cima te mandar. Forte abraço -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [off topic] PHP ou Java?
Venho aqui mais uma vez solicitar a opinião dos nobres colegas. Já trabalho há alguns anos com delphi e não pretendo larga-lo tão cedo. Porém, aqui em nossa empresa surgiu à necessidade de migrar um de nossos sistemas que é desk para a web. (sistema de gestão escolar com controle de merenda escolar e outros). Minha dúvida seria qual a linguagem mais adequada a ser utilizada? PHP ou Java? Espero contar com a sugestão dos nobres colegas. Abraço. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [off topic] PHP ou Java?
Mais uma vez, gostaria de agradecer aos nobres colegas da lista por tirar mais esta dúvida. Após muita conversa aqui na empresa, decidimos pela utilização do PHP para a migração e desenvolvimento de nosso sistema. Abraço a todos. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Paradox X Firebird
Aqui na empresa eu utilizei o ESF Database Migration da EasyFrom. É uma ferramenta muito boa, pois faz o serviço todo sozinho. http://www.easyfrom.net/ Abraço. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Richardson Freddo Enviada em: quinta-feira, 6 de maio de 2010 17:39 Para: Grupo Assunto: [delphi-br] Paradox X Firebird Pessoal. Tenho um sistema que usa Paradox.. preciso migrar para Firebird .. Qual a forma mais rapida e pratica de fazer isso? Tem algum programa que me ajuda ou vou ter que criar as tabelas tudo de novo? E os dados? Como faço para migra-los tambem? Aguardo. Obrigado. Richardson Marcelo Freddo. msn: freddodp...@hotmail.com mailto:freddodpvat%40hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [ESPRESSAO REG. NCM - CAMPO TELEFONE]
Caro Márcio, não sei bem se é isso que deseja, mas de uma olhada.
http://docs.google.com/viewer?a=v
http://docs.google.com/viewer?a=vq=cache:AMRpUDKVYUQJ:nf-eletronica.com/bl
og/%3Fdl_id%3D68+validar+telefone+NCM+delphihl=pt-BRpid=blsrcid=ADGEESjCB
lUQJCE_bSJi31lMJWhWhkA7v8YFTN0SiY4vBiBBeexe-6rm5rV591AmjstOIk7mc3AkraETSUP4E
9x0j0erY0Xi0XiF_Oy9H4S3x8dRGnwL9Vw6SGZ3ozxSwCOybWBqFsBQsig=AHIEtbQ5hAI6RzgK
XnJlBrxNzc2dakxpmg
q=cache:AMRpUDKVYUQJ:nf-eletronica.com/blog/%3Fdl_id%3D68+validar+telefone+
NCM+delphihl=pt-BRpid=blsrcid=ADGEESjCBlUQJCE_bSJi31lMJWhWhkA7v8YFTN0SiY4
vBiBBeexe-6rm5rV591AmjstOIk7mc3AkraETSUP4E9x0j0erY0Xi0XiF_Oy9H4S3x8dRGnwL9Vw
6SGZ3ozxSwCOybWBqFsBQsig=AHIEtbQ5hAI6RzgKXnJlBrxNzc2dakxpmg
Tem este outro também:
http://nf-eletronica.com/blog/?cat=9
Abraço.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Marcio
Enviada em: quinta-feira, 6 de maio de 2010 12:04
Para: Recipient list suppressed
Assunto: [delphi-br] [ESPRESSAO REG. NCM - CAMPO TELEFONE]
Pessoal alguem sabe explicar como funciona o campo telefone
conforme expressao regular.
estou tentando fazer uma funcao para validar o fone e o NCM.
em delphi.
alguem tem uma ideia como ??
xs:element name=fone
xs:pattern value=[0-9]{1,11}/
/xs:element
xs:pattern value=[0-9]{6,14}/
NCM
xs:pattern value=[0-9]{2}|[0][1-9]{7}|[1-9][0-9]{7}/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Resolvido função findfirst
Pois é Alexandre, essa era a minha dúvida se traria a ordem de acordo com a
da pasta.
Era justamente o que queria
Caso resolvido!
Obrigado a todos!
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Alexandre
Enviada em: sexta-feira, 9 de abril de 2010 15:58
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] função findfirst
boa tarde,
não sei se é isso que você quis dizer, mas...
a ordem que o FindFirst tras os arquivos é a ordem em que foram gravados no
diretório. Para ordenar, grave os arquivos num stringlist e use a
propriedade de ordenação do mesmo.
Depois faça o loop no StringList e obterá o resultado desejado.
Alexandre
Em 8 de abril de 2010 08:16, Ralp Alves Bezerra ral...@gmail.com escreveu:
Bom dia nobres colegas.
Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar
no
banco firebird.
if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then
begin
repeat
DM.cds_TCM_A.Insert;
dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name);
//Incrementa número da página
Inc(Pag);
//Grava Número da página
DM.cds_TCM_APAGINA.Text :=IntToStr(Pag);
//Grava nome do arquivo
DM.cds_TCM_ANOME_ARQUIVO.Text
:=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg';
//Grava Caminho do Arquivo
DM.cds_TCM_ACAMINHO.Text :=Dir;
//Grava sigla do documento
DM.cds_TCM_ASIGLA_DOCUMENTO.Text
:=DM.cds_TCMSIGLA_DOCUMENTO.Text;
//Grava Codigo entidade
DM.cds_TCM_ACODIGO_ENTIDADE.Text
:=DM.cds_TCMCODIGO_ENTIDADE.Text;
//Grava Cod. Unid. Administrativa
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA.
Text;
//Grava Exercicio
DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text;
//Grava Unidade Gestora
DM.cds_TCM_AUNIDADE_GESTORA.Text
:=DM.cds_TCMUNIDADE_GESTORA.Text;
//Grava Nome Documento
DM.cds_TCM_ANOME_DOCUMENTO.Text
:=DM.cds_TCMNOME_DOCUMENTO.Text;
//Informa se arquivo foi digitalizado
DM.cds_TCM_ADIGITAL.Text :='1';
//Informa o anexo do demonstrativo
DM.cds_TCM_AANEXOS.Text
:=frmDigitalizaTCM.DBText5.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(0)
until FindNext(Arq) 0;
FindClose(Arq);
end;
Porém, quando vou verificar a seqüência da pasta com a importação dos
arquivos no banco firebird, noto que alguns arquivos saem da ordem
correta.
Será que a rotina acima está correta? Alguém poderia me dar uma dica?
Estou utilizando Firebird 2.1 e Delphi 7.
Abraços.
Ralp Alves
[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
[delphi-br] função findfirst
Bom dia nobres colegas.
Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no
banco firebird.
if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then
begin
repeat
DM.cds_TCM_A.Insert;
dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name);
//Incrementa número da página
Inc(Pag);
//Grava Número da página
DM.cds_TCM_APAGINA.Text :=IntToStr(Pag);
//Grava nome do arquivo
DM.cds_TCM_ANOME_ARQUIVO.Text
:=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg';
//Grava Caminho do Arquivo
DM.cds_TCM_ACAMINHO.Text:=Dir;
//Grava sigla do documento
DM.cds_TCM_ASIGLA_DOCUMENTO.Text
:=DM.cds_TCMSIGLA_DOCUMENTO.Text;
//Grava Codigo entidade
DM.cds_TCM_ACODIGO_ENTIDADE.Text
:=DM.cds_TCMCODIGO_ENTIDADE.Text;
//Grava Cod. Unid. Administrativa
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA.
Text;
//Grava Exercicio
DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text;
//Grava Unidade Gestora
DM.cds_TCM_AUNIDADE_GESTORA.Text
:=DM.cds_TCMUNIDADE_GESTORA.Text;
//Grava Nome Documento
DM.cds_TCM_ANOME_DOCUMENTO.Text
:=DM.cds_TCMNOME_DOCUMENTO.Text;
//Informa se arquivo foi digitalizado
DM.cds_TCM_ADIGITAL.Text:='1';
//Informa o anexo do demonstrativo
DM.cds_TCM_AANEXOS.Text
:=frmDigitalizaTCM.DBText5.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(0)
until FindNext(Arq) 0;
FindClose(Arq);
end;
Porém, quando vou verificar a seqüência da pasta com a importação dos
arquivos no banco firebird, noto que alguns arquivos saem da ordem correta.
Será que a rotina acima está correta? Alguém poderia me dar uma dica?
Estou utilizando Firebird 2.1 e Delphi 7.
Abraços.
Ralp Alves
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gravar arquivos de uma pasta no banco firebird
Bom dia nobres colegas, Venho mais uma vez solicitar a ajuda de vocês. Estou precisando gravar todos os arquivos jpeg contidos em uma determinada pasta no Windows no banco de dados firebird. O campo tipo blob já está criado e gravando normalmente através da digitalização padrão (scanner). Porém, também preciso desta função para pegar todos os arquivos de uma pasta e salvar diretamente no banco. Já procurei na net, porém, não consegui uma rotina que pudesse efetuar o trabalho que estou precisando. Estou utilizando Delphi 7 e Firebird 2.1. Abraço. Ralp Alves Bezerra [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] (resolvido) Problema com firebird
Pois é. Estava faltando somente este pequeno detalhe. Coisas de iniciante do firebird. Obrigado pela dica De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Vinicius Santos Enviada em: terça-feira, 23 de março de 2010 12:27 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problema com firebird Em 22/03/2010 10:07, Ralp Alves Bezerra escreveu: Nobres colegas, estou tendo o seguinte problema em minhas tabelas. 1 - Ao incluir em minha tabela utilizando FOR, a inclusão e processada normalmente. Porém, quando entro no ibexpert e tento excluir me aparece o erro de há pelo menos um registro com os mesmos valores: Cannot delete record! There is at least one record with same fields values! Sua tabela tem chave primária ? [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [DICA] Site com várias dicas De lphi
Muito bom! Já está nos favoritos De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Silvio Clecio Enviada em: segunda-feira, 22 de março de 2010 04:22 Para: destinatarios-nao-revelados: Assunto: [delphi-br] [DICA] Site com várias dicas Delphi Link ditero: http://www.delphicorner.f9.co.uk/art_index.htm Aprecie ;) -- []'s Silvio Clécio -- programmer ObjectPascal - http://silvioprog.com.br -- Grupo Lazarus-BR no Google - http://groups.google.com/group/lazarus-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com firebird
Nobres colegas, estou tendo o seguinte problema em minhas tabelas. 1 - Ao incluir em minha tabela utilizando FOR, a inclusão e processada normalmente. Porém, quando entro no ibexpert e tento excluir me aparece o erro de há pelo menos um registro com os mesmos valores: Cannot delete record! There is at least one record with same fields values! No caso aqui, os valores realmente tem que ser duplicados, mudando somente o campo MD5, imagem e folha. 2 - Quando incluo um novo registro e também tento excluir, desta vez aparece esta outra mensagem: Error Message: violation of FOREIGN KEY constraint . violation of FOREIGN KEY constraint FK_TCM_ARQUIVOS_1 on table TCM_ARQUIVOS. Foreign key references are present for the record. O que pode ser este erro? Utilizo Delphi 7 e Firebird 2.1 Abraços. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Duplicar registro no firebird
Pois é, já havia feito desta maneira mas continua não gravando em banco.
Estou fazendo desta forma:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
end;
finally
DM.cds_TCM_A.ApplyUpdates(0);
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Abraços.
Ralp Alves
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: sexta-feira, 12 de março de 2010 16:01
Para: delphi-br
Assunto: RE: [delphi-br] Duplicar registro no firebird
Prioridade: Alta
Faça o posto para cada registro criado, e ao final use ApplyUdpates(0). Com
ApplyUpdates(-1), se houverem erros, os mesmos não serão notificados à
aplicação.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: ral...@gmail.com mailto:ralprd%40gmail.com
Date: Fri, 12 Mar 2010 07:20:01 -0300
Subject: [delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
__
Não deixe rastros ao navegar na Internet. Instale Grátis o Internet Explorer
8 agora.
http://go.microsoft.com/?linkid=9707132
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duplicar registro no firebird
Bom dia.
Venho mais uma vez, pedir a ajuda dos nobres colegas.
Tenho um sistema em Delphi 7 e Firebird 2.1 para digitalização de documentos
com duas tabelas devidamente ligadas (master detail).
Existe um campo chamado QtdPag (Edit) onde o usuário vai informar a
quantidade de documentos a digitalizar.
Com base nesta quantidade digitada, queria que fosse gravado em banco a
quantidade de registros informado no campo QtdPag.
Na verdade, os registros seriam duplicados e salvos em banco de acordo com a
quantidade informada.
Estou tentando desta maneira abaixo:
procedure TfrmDigitalizaTCM.AdvGlassButton1Click(Sender: TObject);
begin
btnSalvarTCM.Click;
DM.cds_TCM_A.Open;
Try
For Docs := 1 to StrToInt(QtdPag.Text) do
begin
DM.cds_TCM_A.Insert;
DM.cds_TCM_ACODIGO_ENTIDADE.Text:=CodMunicipio.Text;
DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DBText1.Caption;
DM.cds_TCM_ASIGLA_DOCUMENTO.Text:=TipoDoc.Text;
DM.cds_TCM_AEXERCICIO.Text:=DBEdit1.Text;
DM.cds_TCM_AUNIDADE_GESTORA.Text:=DBText2.Caption;
DM.cds_TCM_A.Post;
DM.cds_TCM_A.ApplyUpdates(-1);
end;
finally
ShowMessage('Inicie a digitalização de '+QtdPag.Text+' página(s) do
documento:'+#13+''+RxDBLookupCombo1.Text+'');
end;
end;
Porém, se informar 5 no campo QtdPag é mostrado no dbgrid os 5 registros,
mas no banco é gravado somente 1 registro.
Como poderia resolver este problema?
Abraços.
Ralp Alves Bezerra
[As partes desta mensagem que não continham texto foram removidas]
(Resolvido) RES: [delphi-br] importar arquivo com qualificador de texto
Bom dia, Desculpe pela demora na resposta. Consegui resolver utilizando o StringReplace. Tratei o arquivo antes e depois fiz a importação normalmente. Gostaria de agradecer a atenção e as dicas de todos. Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Dirlei Enviada em: sexta-feira, 5 de março de 2010 11:44 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] importar arquivo com qualificador de texto Ralph, Para retirar as aspas, você pode utilizar: StringReplace(linha do arquivo, '', '', [rfReplaceAll]); Para fazer split dos valores separados por vírgula, você pode utilizar uma função que fiz para isso. Disponibilizei em: http://pastebin.com/ZfAGxK5i (use à vontade, mas mantenha a atribuição). Dirlei. Ralp Alves Bezerra escreveu: Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] importar arquivo com qualificador de texto
Nobres colegas, Estou tentando importar um arquivo texto no seguinte formato: 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 601,029,200900,01,01,20091201,01120001,200912,01,031 Porém, esbarrei no qualificador de texto (aspas). Como poderia fazer a importação deste arquivo delimitado por vírgula e com as aspas? Alguém já efetuou este processo ou tem alguma idéia de como devo proceder? Já dei uma olhada no velho amigo Google e não consegui nada. Estou utilizando delphi7 e firebird 2.1. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pasta scanner
Vou tentar desta maneira e ver se consigo resolver por aqui. Abraços a todos e obrigado pelas dicas. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de NextCorp Enviada em: segunda-feira, 22 de fevereiro de 2010 15:44 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Caro colega Se entendi bem, neste caso, basta vc configurar no programa que gerencia o scanner uma pasta default para que sempre salve as imagens nesta pasta, pois, geralmente, veem junto com o hardware um programa para vc gerencia-lo. Atenciosamente Washington André Muller da silva ### NextCorp Informática Ltda www.nextcorp.com.br nextc...@nextcorp.com.br mailto:nextcorp%40nextcorp.com.br 0xx-(51)-3037-6605 ### From: Ralp Alves Bezerra Sent: Monday, February 22, 2010 1:59 PM To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Subject: RES: [delphi-br] Pasta scanner E o seguinte, minha aplicação já executa a digitalização normalmente salvando em banco ok através do TAcquireImage. A questão e que foi comprado um scanner que faz a digitalização em alta velocidade (Avision). O que eu preciso fazer é informar ao scanner em que pasta o mesmo deve digitalizar as imagens e após a digitalização, farei a importação destas imagens para o sistema e gravarei no firebird 2.1. Será que isso é possível? Devido ao custo elevado do equipamento, o mesmo será utilizado em 2 setores distintos, por isso preciso configurar antes da digitalização qual seria a pasta de digitalização das imagens. Abraços. Ralp Alves -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:33 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, Você está usando algum componente para scannear a imagem ? Como você está abrindo o aplicativo ? Pelo Delphi, se estiver usando um componente, basta informar o caminho que deseja. Informe mais a sua situação para que possamos ajuda-lo. Abraços. Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com escreveu: Está rotina irei utilizar para fazer a carga dos arquivos. O que eu queria saber é como configurar a pasta na qual o scanner vai digitalizar as imagens. Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao scanner a pasta que o mesmo deverá digitalizar as imagens. Abraço -Mensagem original- De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, se estiver usando o OpenDialog faça como abaixo: var dlg: TOpenDialog; ... dlg := TOpenDialog.Create(Self); // podia ser dlg := TOpenDialog.Create(nil); try dlg.DefaultExt := 'jpeg'; dlg.Filter := ' Arquivo http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/# http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/ de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*'; dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist]; dlg.Title := 'Diretório das Imagens'; dlg.InitialDir := ExtractFilePath(Application.ExeName); if dlg.Execute then begin // dlg.FileName tem o nome do arquivo end; finally dlg.Free; end; Espero ter ajudado. Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra ral...@gmail.com mailto:ralprd%40gmail.com ralprd%40gmail.comescreveu: Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista. Teria uma maneira via Delphi de configurar a pasta em que as imagens serão digitalizadas. Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar as imagens. As imagens serão digitalizadas em um scanner de alta velocidade e após a digitalização serão importadas para o meu sistema pegando as imagens na pasta que configurei. Estou utilizando Delphi 7 e Firebird 2.1. Agradeço desde já e abraço a todos. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com mailto:jericssonsup%40gmail.com jericssonsup%40gmail.com jericsson...@jericsson.com.br mailto:jericssonsup%40jericsson.com.br jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem
[delphi-br] Pasta scanner
Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista. Teria uma maneira via Delphi de configurar a pasta em que as imagens serão digitalizadas. Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar as imagens. As imagens serão digitalizadas em um scanner de alta velocidade e após a digitalização serão importadas para o meu sistema pegando as imagens na pasta que configurei. Estou utilizando Delphi 7 e Firebird 2.1. Agradeço desde já e abraço a todos. Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pasta scanner
Está rotina irei utilizar para fazer a carga dos arquivos. O que eu queria saber é como configurar a pasta na qual o scanner vai digitalizar as imagens. Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao scanner a pasta que o mesmo deverá digitalizar as imagens. Abraço -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, se estiver usando o OpenDialog faça como abaixo: var dlg: TOpenDialog; ... dlg := TOpenDialog.Create(Self); // podia ser dlg := TOpenDialog.Create(nil); try dlg.DefaultExt := 'jpeg'; dlg.Filter := ' Arquivo http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/# de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*'; dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist]; dlg.Title := 'Diretório das Imagens'; dlg.InitialDir := ExtractFilePath(Application.ExeName); if dlg.Execute then begin // dlg.FileName tem o nome do arquivo end; finally dlg.Free; end; Espero ter ajudado. Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra ral...@gmail.comescreveu: Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista. Teria uma maneira via Delphi de configurar a pasta em que as imagens serão digitalizadas. Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar as imagens. As imagens serão digitalizadas em um scanner de alta velocidade e após a digitalização serão importadas para o meu sistema pegando as imagens na pasta que configurei. Estou utilizando Delphi 7 e Firebird 2.1. Agradeço desde já e abraço a todos. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
RES: [delphi-br] Pasta scanner
E o seguinte, minha aplicação já executa a digitalização normalmente salvando em banco ok através do TAcquireImage. A questão e que foi comprado um scanner que faz a digitalização em alta velocidade (Avision). O que eu preciso fazer é informar ao scanner em que pasta o mesmo deve digitalizar as imagens e após a digitalização, farei a importação destas imagens para o sistema e gravarei no firebird 2.1. Será que isso é possível? Devido ao custo elevado do equipamento, o mesmo será utilizado em 2 setores distintos, por isso preciso configurar antes da digitalização qual seria a pasta de digitalização das imagens. Abraços. Ralp Alves -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, Você está usando algum componente para scannear a imagem ? Como você está abrindo o aplicativo ? Pelo Delphi, se estiver usando um componente, basta informar o caminho que deseja. Informe mais a sua situação para que possamos ajuda-lo. Abraços. Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra ral...@gmail.comescreveu: Está rotina irei utilizar para fazer a carga dos arquivos. O que eu queria saber é como configurar a pasta na qual o scanner vai digitalizar as imagens. Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao scanner a pasta que o mesmo deverá digitalizar as imagens. Abraço -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, se estiver usando o OpenDialog faça como abaixo: var dlg: TOpenDialog; ... dlg := TOpenDialog.Create(Self); // podia ser dlg := TOpenDialog.Create(nil); try dlg.DefaultExt := 'jpeg'; dlg.Filter := ' Arquivo http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/# de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*'; dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist]; dlg.Title := 'Diretório das Imagens'; dlg.InitialDir := ExtractFilePath(Application.ExeName); if dlg.Execute then begin // dlg.FileName tem o nome do arquivo end; finally dlg.Free; end; Espero ter ajudado. Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.comescreveu: Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista. Teria uma maneira via Delphi de configurar a pasta em que as imagens serão digitalizadas. Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar as imagens. As imagens serão digitalizadas em um scanner de alta velocidade e após a digitalização serão importadas para o meu sistema pegando as imagens na pasta que configurei. Estou utilizando Delphi 7 e Firebird 2.1. Agradeço desde já e abraço a todos. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericsson...@jericsson.com.br jericssonsup%40jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com __ Information from ESET NOD32 Antivirus, version of virus signature database 4887 (20100222) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com
RES: [delphi-br] Pasta scanner
Vou testar aqui e posto o resultado. Obrigado -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 14:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, Então a solução que eu te dou é verificar na Registry do Windows em qual chave está a pasta setada pela última abertura do Scanner. Assim vou poderá através do delphi controlar essa chave de registro. Creio que assim poderá resolver o seu problema. Eu consegui fazendo isso através da minha aplicação, onde o problema do scanner poderia também ser executado, então pela chamada do executável eu forçava a gravação do caminho na chave de registro do scanner que na época era o Logitech. Uma dica é entrar através do aplicativo do scanner e verificar o caminho que ele grava e qual a chave utilizada. Espero que resolva, Em 22 de fevereiro de 2010 13:59, Ralp Alves Bezerra ral...@gmail.comescreveu: E o seguinte, minha aplicação já executa a digitalização normalmente salvando em banco ok através do TAcquireImage. A questão e que foi comprado um scanner que faz a digitalização em alta velocidade (Avision). O que eu preciso fazer é informar ao scanner em que pasta o mesmo deve digitalizar as imagens e após a digitalização, farei a importação destas imagens para o sistema e gravarei no firebird 2.1. Será que isso é possível? Devido ao custo elevado do equipamento, o mesmo será utilizado em 2 setores distintos, por isso preciso configurar antes da digitalização qual seria a pasta de digitalização das imagens. Abraços. Ralp Alves -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:33 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, Você está usando algum componente para scannear a imagem ? Como você está abrindo o aplicativo ? Pelo Delphi, se estiver usando um componente, basta informar o caminho que deseja. Informe mais a sua situação para que possamos ajuda-lo. Abraços. Em 22 de fevereiro de 2010 13:28, Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.comescreveu: Está rotina irei utilizar para fazer a carga dos arquivos. O que eu queria saber é como configurar a pasta na qual o scanner vai digitalizar as imagens. Ex. Assim que iniciar minha aplicação, automaticamente seria informado ao scanner a pasta que o mesmo deverá digitalizar as imagens. Abraço -Mensagem original- De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: segunda-feira, 22 de fevereiro de 2010 13:12 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.brdelphi-br% 40yahoogrupos.com.br Assunto: Re: [delphi-br] Pasta scanner Ralp, se estiver usando o OpenDialog faça como abaixo: var dlg: TOpenDialog; ... dlg := TOpenDialog.Create(Self); // podia ser dlg := TOpenDialog.Create(nil); try dlg.DefaultExt := 'jpeg'; dlg.Filter := ' Arquivo http://www.forumweb.com.br/foruns/index.php?/topic/31985-criar-opendialog/# de Imagem (*.jpeg)|*.jpeg|Todos os arquivos (*.*)|*.*'; dlg.Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist]; dlg.Title := 'Diretório das Imagens'; dlg.InitialDir := ExtractFilePath(Application.ExeName); if dlg.Execute then begin // dlg.FileName tem o nome do arquivo end; finally dlg.Free; end; Espero ter ajudado. Em 22 de fevereiro de 2010 07:54, Ralp Alves Bezerra ral...@gmail.com ralprd%40gmail.com ralprd%40gmail.comescreveu: Bom dia nobre colegas, estou com uma dúvida e mais uma vez recorro a lista. Teria uma maneira via Delphi de configurar a pasta em que as imagens serão digitalizadas. Ex.: Ao abrir meu sistema o mesmo já configurar a pasta que desejo salvar as imagens. As imagens serão digitalizadas em um scanner de alta velocidade e após a digitalização serão importadas para o meu sistema pegando as imagens na pasta que configurei. Estou utilizando Delphi 7 e Firebird 2.1. Agradeço desde já e abraço a todos. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] -- Grato, Jorge Ericsson S. Pinheiros Ericsson Sistemas e Soluções (61) 3244-4748 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericssonsup%40gmail.com jericssonsup% 40gmail.com jericsson...@jericsson.com.br jericssonsup%40jericsson.com.brjericssonsup% 40jericsson.com.br skype:jericsson Brasília - DF
RES: [delphi-br] OFF Topic - Férias
Boas férias e um feliz ano! ___ Grupo G2 G2 Tecnologia Ralp Alves Bezerra Diretor de Tecnologia Av. 13 de Maio, 853 - 2º andar Sl. 204 Bairro de Fátima - 60.040-530 Fortaleza - Ceará - Brasil (85) 3257-6662 / 8872.4325 / 9215.2100 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Evandro Siqueira Enviada em: terça-feira, 22 de dezembro de 2009 11:59 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] OFF Topic - Férias Bom dia pessoal, Estou avisando aos colegas que estou de férias a partir de hoje retornando no dia 05/10. Aproveito para desejar a todos um feliz natal e um ano novo repleto de realizações. Felicidade a todos e até 2010, se Deus assim desejar!!! -- []s. Evandro Siqueira Programador de Sistemas Lessentiel Lingerie (79) 3254-5511 Ramal 218 skype: evandro.lessentiel -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
RES: [delphi-br] Investimento necessário para abrir uma software-house
Jhosef, não sei se é bem isso que você deseja, mas nestes links tem algumas matérias bem interessantes sobre o assunto. http://fernandopassaia.wordpress.com/ http://fernandopassaia.wordpress.com/ http://fernandopassaia.wordpress.com/2009/05/07/dando-valor-ao-seu-trabalho / http://fernandopassaia.wordpress.com/2009/05/07/dando-valor-ao-seu-trabalho/ http://www.frihost.com/forums/vt-75304.html Abraços. __ Grupo G2 Tecnologia Av. 13 de Maio, 853 - 2º andar Sl. 204 Bairro de Fátima - 60.040-530 Fortaleza - Ceará - Brasil (85) 3257-6662 / 8872.4325 / 9215.2100 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jhosef Marks Enviada em: segunda-feira, 7 de dezembro de 2009 14:40 Para: lista-del...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br; n...@yahoogrupos.com.br Assunto: [delphi-br] Investimento necessário para abrir uma software-house Boa tarde povo, Qual o investimento minimo atualmente para montar uma software-house? Suponhamos que eu já tenha um software comercial, quanto um suposto sócio teria que investir para que nossa empresa fosse estruturada, registrada e apta a entrar no mercado? Teriamos o seguinte time no inicio: 1 pessoa para a area tecnica com muita experiencia (sócio dono do produto) 1 pessoa para parte comercial com muita experiencia na área administrativa (sócio investidor) 1 estagiario para suporte (contratado) Aqui eu conto com 3 máquinas (1 para desenvolvimento com o Delphi original e tudo certinho). Digamos que a empresa já tenha um software para por no mercado. Att, Jhosef Marks de Carvalho Blog: http://www.jhosefmarks.com.br Jesus está voltando E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e buscar a minha face e se converter dos seus maus caminhos, então eu ouvirei dos céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) Sent from Joinville, SC, Brazil [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Desenvolver software 64 bits com Delphi
Concordo plenamente com sua colocação, se ficarmos sem tomar um a atitude, isso vai ocorrer sempre. __ Grupo G2 Tecnologia Av. 13 de Maio, 853 - 2º andar Sl. 204 Bairro de Fátima - 60.040-530 Fortaleza - Ceará - Brasil (85) 3257-6662 / 8872.4325 / 9215.2100 De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de felipe govoni Enviada em: quarta-feira, 2 de dezembro de 2009 11:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Desenvolver software 64 bits com Delphi não gosto de participar dessas discussões mas vou dar minha opinião, aqui na lista pressupõe -se que todos compraram uma licença do delphi e se não reclamarmos nunca vai ser corrigido o problema, temos aqui na lista a presença de 2 integrantes da embarcadero (me corrijam se estiver errado), e se nos unirmos talvez sejamos ouvidos. acho um absurdo investir em uma ferramenta e os bugs so serem corrigidos em uma nova versão e esta versão ser paga (sei que o upgrade é mais barato), nos meus softwares sempre que encontro um erro causado por mim tento corrigir e caso seja necessário lanço uma nova versão gratuita para corrigir os erros. não quero gerar mais polemica mas temos que exigir nossos direitos de consumidor, paguei 2.868,00 pela minha licença do RAD Studio 2007 e não quer o investir mais dinheiro para corrigir bugs (no meu caso são bugs simples mas encomodam), paguei e quero que funcione corretamente, alguem ja compro um carro e a revendedora disse que o ar condicionado estava com defeito e so seria corrigido no proximo modelo pois o ar é algo simples? pensem nisso. -- Felipe Govoni - GOVONI Sistemas Fone 8472-8718 www.govoni.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: [OFF-TOPIC] - Trabalho de Faculdade - Smartphone
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Marcos Enviada em: quarta-feira, 21 de outubro de 2009 11:20 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Re: [OFF-TOPIC] - Trabalho de Faculdade - Smartphone Luiz, põe seu email aqui, se não todo mundo que responder para a lista, o email vai para todo mundo, ai vai gerar trafego de informação na lista a toa. Abs, Marcos --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br , Luis Lopes luisalbertolo...@... escreveu Bom dia, pessoal! Desculpe pelo off. Estou desenvolvendo um artigo, como trabalho de faculdade, sobre smartphone. Tenho um questionário para ser respondido por usuários de smartphone. Não é necessário se identificar. Quem tiver disponibilidade para me ajudar, ficarei muito agradecido. 1 - Idade __ Abaixo de 20 anos __ De 20 a 30 anos _x_ De 30 a 40 anos __ De 40 a 50 anos __ Acima de 50 anos 2 - Qual a marca do seu smartphone? __ Motorola __ Nokia __ Blackberry _x_ Sansumg __ iPhone __ LG __ Outro. Qual? 3 - Qual o sistema operacional do seu smartphone? __ Android _x_ Windows Mobile __ Blackberry __ Symbyan __ Mac OS __ Palm OS __ Outro. Qual? 4 - Além do uso para fazer ligações, qual maior utilidade tem o seu smartphone para você? _x_ Agenda de contatos _x_ Agenda de compromissos _x_ Chat (msn) _x_ Anotações _x_ Troca de e-Mails __ Coletor de dados (vendas) _x_ Navegar internet __ Outro. Qual? 5 - Qual o browser usado no seu smartphone? __ Firefox Mozila _x_ Safari __ Opera __ I.E. __ Chrome __ Outro. Qual? 6 - A maior parte do uso do seu smartphome para fins: _x_ Pessoais _x_ Profissionais 7 - Qual o seu nível de satisfação com seu smartphone? __ Muito satisfeito _x_ Satisfeito __ Pouco Satisfeito __ Indiferente Luis Alberto P. Lopes Desenvolvimento de Sistemas Belo Horizonte - Minas Gerais __ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] [OFF-TOPIC] Minha aplicaç ão - AppEngine - Teste
Ficou show de bola! De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Moacir - GMail Enviada em: terça-feira, 7 de julho de 2009 18:09 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF-TOPIC] Minha aplicação - AppEngine - Teste Boa !!! Parabens.. Paulo Coutinho escreveu: Olá a todos, Terminei a versão RC1 da minha aplicação na AppEngine com GWT, jQuery e Flash. Quem tiver webcam e puder testar por favor. http://brfotolog.appspot.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Informe total de registros no label - Paradox
Label.Caption:=IntToStr((SuaTabela.RecordCount) Espero que seja isso. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de nillgolv Enviada em: quinta-feira, 2 de julho de 2009 20:21 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Informe total de registros no label - Paradox Preciso deixar um Label no form principal com informação do total de registros de uma tabela em paradox. Que sempre atualize após editar alguns registros. Grato. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi - Parado x - Como setar valor padrão para DBLookupComboBox?
Se deseja mudar o DBLookupComboBox1 em tempo de execução, você pode fazer desta maneira: DBLookupComboBox1.LookupField :='Locacao'; DBLookupComboBox1:='Locacao'; DBLookupComboBox1 :=d.ds_Locacao; Inclusive utilizando várias tabelas em um mesmo DBLookupComboBox1 Para zerar faça assim DBLookupComboBox1.LookupSource := nil; DBLookupComboBox1.LookupField :=''; DBLookupComboBox1.LookupDisplay:=''; Espero que seja isso, De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Leodinei Bielak Enviada em: quarta-feira, 1 de julho de 2009 00:20 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi - Paradox - Como setar valor padrão para DBLookupComboBox? Você tem que setar no dataset o valor, no OnNewRecord ou coisa assim. 2009/6/25 mtarantjr mtaran...@hotmail.com mailto:mtarantjr%40hotmail.com : Tentei com DBLookupComboBox1.KeyValue:= 1; Essa dica eu peguei na net mas passa por ele, seta o valor mas não aparece no form, preciso que apareça a opção no componente. Alguns indicam ItemIndex, porém é confusão porque esta propriedade existe no dbcombobox apenas. Alguma dica? P.S. Fucei em tudo pela net e não encontrei solução. Achei que essa fosse mais simples. Valeu. -- Leodinei Bielak http://leodinei.blogspot.com/ The whole point of getting things done is knowing what to leave undone. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componente edbImage com dbExpress
Bom dia! Estou utilizando o código abaixo juntamente com o componente
edbImage para salvar uma imagem no firebird 2.1 com dbexpress e Delphi 7:
procedure TfrmAuxiliar.SpeedButton1Click(Sender: TObject);
begin
if application.messagebox('Incluir Bandeira?',
'Bandeira',mb_yesno)=idyes then
begin
if (opdFoto.execute) then
d.cds_Estado.Edit;
dbiFoto.Picture.LoadFromFile(opdFoto.FileName);
d.cds_Estado.Post;
d.cds_Estado.ApplyUpdates(0)
end;
end;
Ao verificar no ibExpert, a imagem esta gravada. Porém, quando mando mostrar
os dados no dbgrid com a função abaixo a imagem não aparece.
Queria que, ao clicar em um registro no dbgrid a imagem fosse mostrada no
componente edbimage ou dbImagem.
Screen.Cursor:=crSqlWait;
//Mostra Estado dbGrid
With d.cds_Estado do
Begin
d.cds_Estado.Close;
CommandText:='Select * from Aux_Estado order by Abreviacao';
d.cds_Estado.Open;
dbGrid3.SetFocus
end;
Screen.Cursor:=crDefault;
O que poderia ser?
Grato
Ralp Alves
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema com fortes report
Poucos dias atrás, coloquei aqui no grupo uma dúvida sobre os campos RLDbText não mostrarem os dados de uma pesquisa feita através de uma query. No mesmo dia, o amigo Jorley me enviou esta mesnagem: Amigo, o fortes tem um bug que as vezes perde o Data Source no Report ou nos RLDbText ou algum componente do relatório que usa o data source do nada! Isso aconteceu comigo somente no delphi 7. Para solucionar isso eu atribuí no beforePrint do report o datasource utilizado nos componentes do report! Por isso que o seu relatório aparecia os dados e do nada não apareceu mais! Se eu não fui claro na resposta posta novamente que tento ajudar de outra forma. Abraços! Segui a dica dele e meu relatório voltou a funcionar normalmente. No evento BeforePrint do formulário fiz o instanciamento de todos os componentes RLDText com o datasource de minha pesquisa. Será este um bug no Fortes Report? Visto que minha aplicação funcionava normalmente e de uma hora para outra parou. Abraços a todos. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com fortes report
Bom dia!
Estou tendo um problemão aqui para gerar um relatório com o fortes report.
Tenho uma query e um datasource ligado a query para efetuar a pesquisa
conforme abaixo:
If Radio1.ItemIndex=12 then // Turma da Escola
Begin
With qrPesqAluno do
Begin
Close;
Sql.Clear;
Sql.Add('Select * From Alunos');
If All.Checked=False then
Begin
Sql.Add('Where CodigoDaEscola=:CodEsc and');
Sql.Add('Status in (1,7,8) and');
Sql.Add('TipoDeEnsinoD=:TE and');
Sql.Add('TurmaD=:TR and');
Sql.Add('SerieD=:SE and');
Sql.Add('TurnoD=:TU');
Sql.Add('Order By Nome');
ParamByName('CodEsc').Value:=rxdbLookupCombo9.Text;
ParamByName('TE').Value:=rxdbLookupCombo21.Text;
ParamByName('TR').Value:=rxdbLookupCombo12.Text;
ParamByName('SE').Value:=rxdbLookupCombo13.Text;
ParamByName('TU').Value:=rxdbLookupCombo14.Text;
end else begin
Sql.Add('Where TipoDeEnsinoD=:TE and');
Sql.Add('TurmaD=:TR and');
Sql.Add('SerieD=:SE and');
Sql.Add('TurnoD=:TU');
Sql.Add('Order By Nome');
ParamByName('TE').Value:=rxdbLookupCombo21.Text;
ParamByName('TR').Value:=rxdbLookupCombo12.Text;
ParamByName('SE').Value:=rxdbLookupCombo13.Text;
ParamByName('TU').Value:=rxdbLookupCombo14.Text;
end;
Open;
end;
if qrPesqAluno.IsEmpty Then ShowMessage('Registro não encontrado!')
end;
No fortes report tenho um trlrReport ligado ao datasource da query com as
seguintes bandas: btHeader, btDetail com todos os campos devidamente ligados
ao ds e btFooter.
Efetuo minha pesquisa normalmente. Os dados são mostrados no dbgrid. Porém,
quando mando fazer a impressão do relatório, os campos detail não retornam
os dados de minha pesquisa (ficam tudo em branco).
Utilizo o código abaixo para a chamada do relatório:
Try
Application.CreateForm(tprnAlunoGeral, prnAlunoGeral);
prnAlunoGeral.frAlunoGeral.PreviewModal
Finally
prnAlunoGeral.Free
end;
O mais estranho, é que funcionava normalmente e de uma hora para outra
começou a dar este problema.
Estou para ficar louco aqui e até agora não consegui uma resolução.
Se alguém já passou por isso ou puder me dar uma dica de como resolver isso
fico muito grato.
Obs.: Utilizo para este projeto Delphi7 e paradox.
Abraços.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com FortesReport
Aconteceu aqui comigo, um problema muito interessante: Possuo uma consulta em sql ligada a um DataSource. Efetuo a pesquisa normalmente e a mesma é mostrada em um dbGrid. No meu formulário, tenho um trlReport devidamente ligado ao DS da pesquisa. Porém, quando mando imprimir através do PreviewModal, os registros do Detail simplesmente não aparecem. O pior é que funcionava perfeitamente. Ontem quando fui gerar o relatório começou o problema. Já pesquisei na net e não consegui uma resolução. Alguém já passou por isto? Abraços. Obs.: Utilizo Delphi 7, FortesReport 3.23 e tabelas paradox. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema ao gravar com MasterDetail
Nobres colegas, tenho uma tabela máster devidamente ligada a uma tabela detalhe feita no ibExpert. Ocorre é que, quando clico no botão novo da tabela Master, preencho alguns dados ok! Porém, quando preciso inserir registro na tabela detalhe e mando salvar o mesmo não é gravado. Notei que, quando faço o cadastro na tabela Master salvo e faço a pesquisa do mesmo e mando incluir na tabela detalhe o registro e gravado. Estou utilizando SQLDataSet+DataSetProvider+ClientDataSet+DataSource com Firebird 2.1 e Delphi 7. Botão Novo da tabela Master: d.cds_Servidor.Close; d.cds_Servidor.Open; dbEdit2.SetFocus; d.cds_Servidor.Append; Botão Salvar da tabela Master: d.cds_Servidor.Post; d.cds_Servidor.ApplyUpdates(0); d.cds_Servidor.Close; Botão Novo da tabela Detalhe: d.cds_Cargo.Close; d.cds_Cargo.Open; dbEdit39.SetFocus; d.cds_Cargo.Append; d.cds_CargoCODSERV.Text:=dbEdit1.Text; Botão Salvar da tabela Detalhe: d.cds_Cargo.Post; d.cds_Cargo.ApplyUpdates(0); d.cds_Cargo.Close; O que será que pode estar acontecendo? Desde já agradeço a atenção. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gravar imagem com edbimage no firebird
Bom dia! Estou utilizando o código abaixo juntamente com o componente
edbImage para salvar uma imagem no firebird 2.1 com dbexpress e Delphi 7:
procedure TfrmAuxiliar.SpeedButton1Click(Sender: TObject);
begin
if application.messagebox('Incluir Bandeira?',
'Bandeira',mb_yesno)=idyes then
begin
if (opdFoto.execute) then
d.cds_Estado.Edit;
dbiFoto.Picture.LoadFromFile(opdFoto.FileName);
d.cds_Estado.Post;
d.cds_Estado.ApplyUpdates(0)
end;
end;
Aparentemente, parece que a imagem é gravada. Porém, quando mando mostrar os
dados no dbgrid com a função abaixo a imagem não aparece.
Screen.Cursor:=crSqlWait;
//Mostra Estado dbGrid
With d.cds_Estado do
Begin
d.cds_Estado.Close;
CommandText:='Select * from Aux_Estado order by Abreviacao';
d.cds_Estado.Open;
dbGrid3.SetFocus
end;
Screen.Cursor:=crDefault;
Olhando no ibexpert, o campo parece estar preenchido mas na aplicação ele
não aparece.
O que poderia ser?
Grato
Ralp Alves
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gravar imagem com edbimage no firebird
No caso, não e para mostrar no dbgrid. Eu tenho o componente edbimage na aplicação, o que queria é ao clicar em um registro no dbgrid ele mostrasse a imagem no componente. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jackson Gomes - ToolsComps Enviada em: quinta-feira, 21 de maio de 2009 12:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gravar imagem com edbimage no firebird Aparentemente, parece que a imagem é gravada. Porém, quando mando mostrar os dados no dbgrid com a função abaixo a imagem não aparece. DBGrid padrão não mostra imagem. O ideal é vc colocar um TDBImage do lado do DBGrid para mostrar isso. Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br mailto:devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Gravar imagem no firebird com edbimage
Bom dia! Estou utilizando o código abaixo juntamente com o componente
edbImage para salvar uma imagem no firebird 2.1 com dbexpress e Delphi 7:
procedure TfrmAuxiliar.SpeedButton1Click(Sender: TObject);
begin
if application.messagebox('Incluir Bandeira?',
'Bandeira',mb_yesno)=idyes then
begin
if (opdFoto.execute) then
d.cds_Estado.Edit;
dbiFoto.Picture.LoadFromFile(opdFoto.FileName);
d.cds_Estado.Post;
d.cds_Estado.ApplyUpdates(0)
end;
end;
Aparentemente, parece que a imagem é gravada. Porém, quando mando mostrar os
dados no dbgrid com a função abaixo a imagem não aparece.
Ao clicar em um registro do dbgrid me mostrasse a imagem no componente no
edbimage.
Screen.Cursor:=crSqlWait;
//Mostra Estado dbGrid
With d.cds_Estado do
Begin
d.cds_Estado.Close;
CommandText:='Select * from Aux_Estado order by Abreviacao';
d.cds_Estado.Open;
dbGrid3.SetFocus
end;
Screen.Cursor:=crDefault;
Olhando no ibexpert, o campo parece estar preenchido mas na aplicação ele
não aparece.
O que poderia ser?
Grato
Ralp Alves
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gravar imagem no firebird com edbimage
Desculpe, mais o que fiz foi reformular a minha dúvida, pois estavam pensando que queria mostrar uma imagem no dbgrid e não é este o caso. Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Jackson Gomes - ToolsComps Enviada em: quinta-feira, 21 de maio de 2009 15:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Gravar imagem no firebird com edbimage pra quê mandar a mesma pergunta de novo? já mandou, já responderam, poderia esperar mais ao invés de poluir a lista e outras listas de Delphi com a mesma pergunta repetida... Jackson Gomes ToolsComps - Controle de Usuários para Desenvolvedores CodeGear Web Site: http://www.toolsandcomps.com Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps e-mail: jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com Fone: 27 3389 1138 - 8811 0324 -- http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc -- Devhost - Webhost para desenvolvedores Delphi http://www.devhost.com.br devh...@devhost.com.br mailto:devhost%40devhost.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] firebird+dbexpress+imagem
Nobres Colegas, estou tendo problemas em gravar imagens em um banco
firebird.
Meu campo está definido como blob subtype 0
Estou usando SqlDataSet + DataSetProvider + ClientDataSet + DataSource com
Delphi 7 e Firebird 2.1
Estou tentando utilizar a seguinte rotina com dbImage e OpenPictureDialog:
d.cds.Estado.Append;
if application.messagebox('Incluir Bandeira?',
'Bandeira',mb_yesno)=idyes then
begin
if (opdFoto.execute) then
dbiFoto.Picture.LoadFromFile( opdFoto.FileName );
d.cds_Estado.Post;
d.cds_Estado.ApplyUpdates(0)
end;
Porém, está dando o seguinte erro:
Error reading channel (erro lendo canal)
Quanto ao BlobType dos componentes SqlDataSet e ClientDataSet, qual seria a
melhor opção?
Grato.
Ralp Alves Bezerra
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Inclusão em firebird
Nobres colegas, estou tendo um problema aqui com um sistema em firebird que estou desenvolvendo, e o seguinte: Montei o banco todo e fiz o acesso através do dbExpress utilizando SqlDataSet + DataSetProvider + ClientDataSet + DataSource com Firebird 2.1 e Delphi 7. Porém, na hora em que vou cadastrar um registro ao clicar em novo entro com os dados necessários, até ai tudo bem. O problema ocorre quando clico em salvar, me aparece a mensagem abaixo: Não é possível localizar o registro. Nenhuma chave foi especificada. O que poderia ser? Gratos. Ralp Alves Bezerra [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Inclusão em firebird
Eu Já havia feito isso, porém me é retornada a mensagem: Registro alterado por outro usuário. Engraçado que no primeiro sistema que fiz em firebird, não houve problema algum. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Alisson Enviada em: quarta-feira, 13 de maio de 2009 15:29 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Inclusão em firebird Você colocou pfInKey na propriedade ProviderFlag do campo chave? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Off - Programador Free Lancer para Fortaleza/CE
A vaga seria somente para pessoas residentes em Fortaleza/CE De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Clovito Enviada em: quinta-feira, 7 de maio de 2009 15:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Off - Programador Free Lancer para Fortaleza/CE Estaria interessado. Disposto a viajar. Trabalho com D7 Clovis clovito.ferre...@itelefonica.com.br mailto:clovito.ferreira%40itelefonica.com.br msn clovito.ferre...@hotmail.com mailto:clovito.ferreira%40hotmail.com - Original Message - From: ralpboleto To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Tuesday, May 05, 2009 11:30 AM Subject: [delphi-br] Off - Programador Free Lancer para Fortaleza/CE Estou precisando de um programador free lancer para implementar cupom fiscal em um sistema comercial em minha loja e também ficar dando a manutenção no sistema. Interessados ligar para (85) 3293-1692 ou 8814.3914, falar com Anderson. Tenho todos os fontes do sistema. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvida com SQL - Resolvido
Gostaria de agradecer ao nobre colega Orlando que me ajudou com uma pesquisa em SQl que não estava dando certo. Não respondi antes pois tive que fazer uma cirurgia em meu punho e fiquei vários dias de molho. Abraços a todos e em especial ao colega Orlando, pela ajuda e tempo a mim dispensados. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Dúvida com consulta SQL
Como já disse em um post anterior, já estou trabalhando com o firebird em minhas aplicações. O problema e que assumi este sistema de outro programador e o mesmo já roda a mais de 4 anos e é em paradox. Em breve estarei migrando este sistema para o firebird. No caso do problema na consulta, é que ocorre de o usuário dar 2 entradas por mês em uma nota fiscal (tabela Entradas) para determinado produto e 100 saídas (tabela Saídas) para este mesmo produto. O que queria fazer seria o seguinte, juntar as duas tabelas e gerar um relatório produto por produto que me retornasse o produto, as entradas, as saídas, e o saldo do mesmo ex: Produto as entradasas saídas o saldo Cebola 100 99 1 Macarrão200 2000 Arroz300 25050 Etc. E estou tendo esta dificuldade em realizar esta pesquisa. Abraços De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de marcelo Enviada em: quinta-feira, 9 de abril de 2009 20:18 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Dúvida com consulta SQL Da uma estudada sobre inner join, basicamente seria select *.cs, *.ce from cardápio_saida cs inner join cardápio_entrada CE (on codProd.cs = codProd.ce) where data between dataini and datafim, este select retornara todos os itens das tabelas conforme o período determinado entre dataini e datafim. Agora este negocio de paradox meu corre longe conselho de amigo eh muito instável corrompe índice direto. Vai de firebird que vc não se arrependera De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Ralp Alves Bezerra Enviada em: quinta-feira, 9 de abril de 2009 07:16 Para: delphi...@yahoogrupos. com. br Assunto: [delphi-br] Dúvida com consulta SQL Nobres colegas, Estou tendo uma certa dificuldade em realizar um consulta juntando 2 tabelas diferentes. Tenho uma tabela chamada Cardapio_Saida (onde ficam armazenadas todas as saídas) com os seguinte campos: CodProd Produto Quantidade Fornecedor Data E outra chamada Entradas (onde ficam armazenadas todas as entradas) com os seguinte campos: CodProduto Produto Quantidade Data Com a consulta abaixo, consegui puxar todas as saídas: SELECT distinct Produto as Produto, CodProduto as Codigo, Unidade as Unid, PesoUnitario as Peso, Quantidade as Quantidade, RazaoSocial as Escola, CodGuia as Guia, CodCardapio as Cardapio, Data as Data, Fornecedor FROM Cardapio_Saida GROUP BY Produto, RazaoSocial, quantidade, Unidade, PesoUnitario, CodProduto, CodGuia, CodCardapio, Data, fornecedor ORDER BY Produto, RazaoSocial Estou precisando gerar um relatório entre um período de datas que me informe a quantidade de entradas e saídas por produto. Tipo: Produto Entradas Saídas Saldo em estoque Será que algum dos colegas poderia me dar uma dica? Estou utilizando Delphi 7 e Paradox. Abraços. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida com consulta SQL
Nobres colegas, Estou tendo uma certa dificuldade em realizar um consulta juntando 2 tabelas diferentes. Tenho uma tabela chamada Cardapio_Saida (onde ficam armazenadas todas as saídas) com os seguinte campos: CodProd Produto Quantidade Fornecedor Data E outra chamada Entradas (onde ficam armazenadas todas as entradas) com os seguinte campos: CodProduto Produto Quantidade Data Com a consulta abaixo, consegui puxar todas as saídas: SELECT distinct Produto as Produto, CodProduto as Codigo, Unidade as Unid, PesoUnitario as Peso, Quantidade as Quantidade, RazaoSocial as Escola, CodGuia as Guia, CodCardapio as Cardapio, Data as Data, Fornecedor FROM Cardapio_Saida GROUP BY Produto, RazaoSocial, quantidade, Unidade, PesoUnitario, CodProduto, CodGuia, CodCardapio, Data, fornecedor ORDER BY Produto, RazaoSocial Estou precisando gerar um relatório entre um período de datas que me informe a quantidade de entradas e saídas por produto. Tipo: Produto Entradas Saídas Saldo em estoque Será que algum dos colegas poderia me dar uma dica? Estou utilizando Delphi 7 e Paradox. Abraços. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Trabalhar com Muitos Labels
Coloque desta maneira: ao invés de TblTabelaValor.String; coloque TblTabelaValor.AsString; Abraços De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Infogil Enviada em: sábado, 28 de março de 2009 12:58 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Trabalhar com Muitos Labels Pessoal estou querendo passar valores de uma coluna para vários Labels.Captions que tenho em um formulários A minha tentativa é o seguinte: TblTabela.First; contador := 0; while not TblTabela.Eof do begin contador := contador + 1; label[contador].caption := TblTabelaValor.String; TblTabela.Next; end; Está dando erro nessa parte do Código -- label[contador].caption := TblTabelaValor.String; Nota: O Numero de Registro da Coluna é Igual a quantidade de labels certo da Colaboração desde já agradeço -- -- No virus found in this outgoing message. Checked by AVG - www.avg.com Version: 8.0.238 / Virus Database: 270.11.31/2028 - Release Date: 03/28/09 07:16:00 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problema ao criar SP
Nobres colegas, estou tentando criar esta SP no ibexpert mais não estou conseguindo. -- STATEMENT -- CREATE PROCEDURE SP_GEN_OUTRO_CURSO_ID RETURNS (ID INTEGER) AS BEGIN ID = GEN_ID(, 1); SUSPEND; END -- ERROR MESSAGE -- Invalid token. Dynamic SQL Error. SQL error code = -104. Token unknown - line 5, column 15. ,. O campo esta como chave primaria e inteiro. Alguém tem alguma idéia do que seja? Abraços. Obs.: Estou usando Firebird 2.0 juntamente com o ibExpert [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Qual o melhor componente de re latório...
Utilizo o FortesReport a alguns anos e estou muito satisfeito com o mesmo. E o melhor que é free! Ralp Alves De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Hudson Dias Enviada em: quarta-feira, 18 de fevereiro de 2009 21:46 Ralp Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Qual o melhor componente de relatório... Pra mim o Fast Report... - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Wednesday, February 18, 2009 9:38 PM Subject: Re: RES: [delphi-br] Qual o melhor componente de relatório... Ora... qual o problema? Por que tem que existir O MELHOR ? Pra algum boçal ficar contando vantagem? Todos os componentes tem seus prós e contras. Alguns são melhores para determinadas aplicaçãoes, outros não. Aqui na empresa uns consultores quase fizeram a gente gastar uma grana com componente de relatório para no final fazer relatórios para impressoras matriciais. Foi só perguntar se não conheciam pelo menos o VDOPrint que todo mundo saiu pela tangente. Programei com Clipper por algum tempo e achava produtivo. Mas isso há uns 15 anos atrás. Hoje não é, para mim. Mas para alguém pode ser. Tem gente que usa (e muito bem, diga-se de passagem) o velho COBOL e não quer nem saber de trocar. Vou falar que o Cobol é ruim? Que o Clipper é ruim? Se ainda tem desenvolvedor trabalhando até hoje, é por que existe mercado e porque ainda há quem se sinta produtivo com essas ferramentas. []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 18/2/09, Vitor D. vredesredsys...@yahoo.com.br mailto:vredesredsystem%40yahoo.com.br escreveu: De: Vitor D. vredesredsys...@yahoo.com.br mailto:vredesredsystem%40yahoo.com.br Assunto: RES: [delphi-br] Qual o melhor componente de relatório... Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Data: Quarta-feira, 18 de Fevereiro de 2009, 17:34 Lá vem esse papo de novo... Tem gente que acha produtivo trabalhar em Clipper... Vai ver no que dá... _ De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em nome de Ricardo César Cardoso Enviada em: quarta-feira, 18 de fevereiro de 2009 17:01 Para: delphi...@yahoogrup os.com.br Assunto: Re: [delphi-br] Qual o melhor componente de relatório... Sinceramente, o melhor componente de relatório é aquele onde vc se sente mais a vontade para trabalhar, conseqüentemente você acaba sendo mais produtivo. []'s Ricardo. _ _ _ _ _ _ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca http://br.maisbusca dos.yahoo. com dos.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com RxDBLookupCombo
Nobres colegas, Estou com um pequeno problema com o componente RxDBLookupCombo Tenho um ComboBox (chamo de Radio1) onde defino os tipos de pesquisas e um RxDBLookupCombo (Chamo de Criterio) onde os critérios da pesquisa serão mostrados. dm.dsProdSecao e dm.dsTipoEmb são duas tabelas distintas e são usadas para alimentar os dados dentro do sistema (tabelas auxiliares). No evento OnClick do ComboBox (Radio1) chamo as instruções abaixo: If Radio1.ItemIndex=0 then //Grupo Produto Begin Criterio.LookupField :='SECAO'; Criterio.LookupDisplay:='SECAO'; Criterio.LookupSource :=dm.dsProdSecao; Criterio.SetFocus end; If Radio1.ItemIndex=1 then //Tipo Embalagem Begin Criterio.LookupField :='TipoEmbalagem'; Criterio.LookupDisplay:='TipoEmbalagem'; Criterio.LookupSource :=dm.dsTipoEmb; end; A primeira funciona normalmente (ItemIindex=0), mas quando clico na segunda opção (ItemIindex=1) me é retornado o erro de que o campo não existe. Como faria para limpar a informação do LookupSource da pesquisa anterior para que o mesmo possa receber os dados da próxima pesquisa quando clicar no meu tipo de pesquisa? Gratos. Ralp Alves Bezerra [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Problemas com RxDBLookupCombo
Muito obrigado José, era isso mesmo! Havia tentado: Criterio.LookupField :=''; Criterio.LookupDisplay:=''; Sem levar em consideração o LookupSource. Valeu! De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de JB Enviada em: quinta-feira, 19 de fevereiro de 2009 14:01 Ralp Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Problemas com RxDBLookupCombo Criterio.LookupSource := nil; Criterio.LookupField :=''; Criterio.LookupDisplay:=''; f Radio1.ItemIndex=0 then ... -- José Benedito Software Developer +55 19 8116-7826 msn: jb_holam...@hotmail.com mailto:jb_holambra%40hotmail.com skype:jb.sologix [As partes desta mensagem que não continham texto foram removidas]
RES: RES: [delphi-br] Não arredondar valores
Por incrível que pareça realmente estava fazendo isso. De tanto quebrar a cabeça aqui, sai um pouco para arejar e entre uma cerveja e outra me veio este erro primário. Coisas da vida. Valeu Emanuel. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Coutinho - Yahoo Enviada em: sábado, 31 de janeiro de 2009 12:24 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Não arredondar valores Ralph O que acha que acontece quando vc tipa um campo AS INTEGER? AS INTEGER = COMO INTEIRO Você deveria colocar como Ascurrency, para aproximar automaticamente em 2 casas decimais, ou como asfloat... Não acredito que vc está fazendo isso! Sds Emanuel Coutinho! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Não arredondar valores
Bom dia nobres colegas. Estou com uma dúvida aqui e talvez vocês possam me ajudar. Tenho aqui um sistema desenvolvido em Delphi 7 e utilizando tabelas paradox. (sistema bem simples) Tem uma rotina que faz a retirada das mercadorias do estoque (saídas). Neste caso, tenho um produto com 100 unidades em estoque e o valor de saída e 10,5. Porém ao processar a referida saída, o valor que fica informado no estoque é 90 e não 89,5. Como procedo para que os valores não sofram nenhum tipo de arredondamento? Gratos pela atenção. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Não arredondar valores
Caro Emanuel, O campo esta como numérico no banco e no Field em EditFormat e DisplayFormat coloco a mascara ###,##0.00 Mas os valores estão sendo arredondados Ex. 100-13,8=86,2 mas o valor retornado é 86 arredondado e por ai vai. Abraços. De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Coutinho - Yahoo Enviada em: sábado, 31 de janeiro de 2009 09:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Não arredondar valores Ralph, O que vc está relatando parece que seu campo de quantidade é inteiro. Programei com Pdox anos a fio, e isso nunca aconteceu, usando os campos do tipo correto. Verifique se em algum lugar, não está calculando uma saída com campo que aceite casas decimais, em cima de um campo inteiro... O Paradox não faz arredondamentos para inteiro, se o campo não foi inteiro. Na pios das hipóteses, aredonda para a quantidade de casas decimais que vc definiu para um campo que aceite casas decimais... /Sds __ Emanuel Coutinho Salvador-Ba-Brasil [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Não arredondar valores
Esta é a rotina que faz a subtração do estoque //PROCESSA SAIDA DO ESTOQUE dm.tbProduto.IndexName:='indCodProduto'; dm.tbCardapioR.First; while (not dm.tbCardapioR.eof) do begin strProduto :=dm.tbCardapioRCodProduto.Asstring; lngTotalRecebido:=dm.tbCardapioRQuantidade.AsInteger; //Pega o valor que vai ser retirado do estoque que pode ser Ex.: 13,2 if (dm.tbProduto.FindKey([strProduto])) then begin dm.tbProduto.Edit; dm.tbProdutoEstoque.AsInteger:= dm.tbProdutoEstoque.AsInteger-lngTotalRecebido; //Aqui acontece o arredondamento indesejado ao subtrair do estoque dm.tbProduto.Post; end; dm.tbCardapioR.Next; end; dm.tbProduto.IndexName:=''; De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Ralp Alves Bezerra Enviada em: sábado, 31 de janeiro de 2009 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Não arredondar valores Caro Emanuel, O campo esta como numérico no banco e no Field em EditFormat e DisplayFormat coloco a mascara ###,##0.00 Mas os valores estão sendo arredondados Ex. 100-13,8=86,2 mas o valor retornado é 86 arredondado e por ai vai. Abraços. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ] Em nome de Coutinho - Yahoo Enviada em: sábado, 31 de janeiro de 2009 09:06 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Não arredondar valores Ralph, O que vc está relatando parece que seu campo de quantidade é inteiro. Programei com Pdox anos a fio, e isso nunca aconteceu, usando os campos do tipo correto. Verifique se em algum lugar, não está calculando uma saída com campo que aceite casas decimais, em cima de um campo inteiro... O Paradox não faz arredondamentos para inteiro, se o campo não foi inteiro. Na pios das hipóteses, aredonda para a quantidade de casas decimais que vc definiu para um campo que aceite casas decimais... /Sds __ Emanuel Coutinho Salvador-Ba-Brasil [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WinExec
Nobres colegas, estou com o seguinte problema:
Estou tentando imprimir um arquivo de texto criado previamente com a
seguinte função:
WinExec('NotePad.exe /p c:\'+frmVendas.NumVenda.text+'.txt', 0);
porem, esta me retornando a seguinte mensagem:
[Error] Rotina.pas(5292): Incompatible types: 'String' and 'PAnsiChar'
Algúem poderia me dar uma luz a cerca de como imprimir o arquivo?
Ps.: Estou utilizando Delphi 7
Abraços a todos e obrigado!
Ralp Alves Bezerra
Re: Res: [delphi-br] WinExec
Muito obrigado Willian, funcionou perfeitamente.
Valeu! ;-)
Willian Jhonnes Lara dos Santos escreveu:
Olá Ralp...
Use a seguinte sintaxe:
WinExec(PChar('NotePad. exe /p c:\'+frmVendas. NumVenda. text+'.txt'), 0);
Ou seja, converta sua String o tipo PAnsiChar na passagem do parâmetro...
---
Att.:
Willian Jhonnes L. dos Santos
Analista/Desenvolvedor Object/Free Pascal
[EMAIL PROTECTED] mailto:willianjhonnes%40yahoo.com.br
---
Seja livre. Use Linux.
Grupo de Usuários GNU/Linux de São José dos Pinhais
Linux user number 449753
---
Powered by Slackware Linux 12.0
Kernel 2.6.21.5-custom
---
- Mensagem original
De: Ralp Alves Bezerra [EMAIL PROTECTED]
mailto:ralp%40rdsistemas.eti.br
Para: DELPHI BR delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Enviadas: Segunda-feira, 25 de Agosto de 2008 14:10:28
Assunto: [delphi-br] WinExec
Nobres colegas, estou com o seguinte problema:
Estou tentando imprimir um arquivo de texto criado previamente com a
seguinte função:
WinExec('NotePad. exe /p c:\'+frmVendas. NumVenda. text+'.txt' , 0);
porem, esta me retornando a seguinte mensagem:
[Error] Rotina.pas(5292) : Incompatible types: 'String' and 'PAnsiChar'
Algúem poderia me dar uma luz a cerca de como imprimir o arquivo?
Ps.: Estou utilizando Delphi 7
Abraços a todos e obrigado!
Ralp Alves Bezerra
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a
sua cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Preciso de freelancer para o Ceará
Urgente! Precisamos de programador para dar suporte a sistema comercial desenvolvido em delphi 7 e tabelas paradox. Não é necessário experiência. Todos os fontes do sistema se encontram na empresa. Favor entrar em contato diretamente com a empresa no fone informado. Remuneração a combinar. 85 3334-2333 CIBEPE Móveis e Eletrodomesticos - Cascavel - Ceará Contatos: Teixeira
[delphi-br] Rolagem ScrollBox
Nobres Colegas, Em meu form tenho o componente ScrollBox. Minha dúvida é a seguinte: como faço para que meu forme role utilizando o scroll do mouse? Estou utilizando Delphi 7 Desde já Agradeço. Abraços. Ralp Alves
Re: [delphi-br] Rolagem ScrollBox
Estou utilizando o código abaixo mas o form não rola: procedure TfrmCadBenef.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); Var msg: Cardinal; code: Cardinal; i, n: Integer; begin If WindowFromPoint( mouse.Cursorpos ) = scrollbox1.Handle Then Begin Handled := true; If ssShift In Shift Then msg := WM_HSCROLL Else msg := WM_VSCROLL; If WheelDelta 0 Then code := SB_LINEDOWN Else code := SB_LINEUP; n:= Mouse.WheelScrollLines; For i:= 1 to n Do scrollbox1.Perform( msg, code, 0 ); scrollbox1.Perform( msg, SB_ENDSCROLL, 0 ); End; end; Teria alguma dica? Abraços. Ralp Ricardo César Cardoso escreveu: Será que não dá pra adaptar essa dica aqui pra tua necessidade? [ http://www.swissdelphicenter.ch/torry/printcode.php?id=2142 ] Atte, Ricardo. Ralp Alves Bezerra [EMAIL PROTECTED] escreveu: Nobres Colegas, Em meu form tenho o componente ScrollBox. Minha dúvida é a seguinte: como faço para que meu forme role utilizando o scroll do mouse? Estou utilizando Delphi 7 Desde já Agradeço. Abraços. Ralp Alves _ - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] ScrollBox
Estou utilizando o código abaixo mas o form não rola: procedure TfrmCadBenef.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); Var msg: Cardinal; code: Cardinal; i, n: Integer; begin If WindowFromPoint( mouse.Cursorpos ) = scrollbox1.Handle Then Begin Handled := true; If ssShift In Shift Then msg := WM_HSCROLL Else msg := WM_VSCROLL; If WheelDelta 0 Then code := SB_LINEDOWN Else code := SB_LINEUP; n:= Mouse.WheelScrollLines; For i:= 1 to n Do scrollbox1.Perform( msg, code, 0 ); scrollbox1.Perform( msg, SB_ENDSCROLL, 0 ); End; end; Teriam alguma dica? Abraços. Ralp Alves
[delphi-br] Ajuda com pesquisa
Nobres colegas,
Este é meu primeiro projeto utilizando o firebird e estou muito
satisfeito com o mesmo.
Tenho a seguinte dúvida: Tenho 2 tabelas Servidor e Funcao (onde grava o
nome da escola que o professor leciona e sua funcao na escola) como abaixo:
Tabela Servidor
Professor 1
Professor 2
professor 3 etc
Tabela Funcao
Funcao 1
Funcao 2
Funcao 3 etc
Ocorre que, o Professor 1 leciona em 3 escolas diferentes com a mesma
funcao (portuques por exemplo).
Preciso fazer um select que me retorne a relação de professores por
função. O que ocorre é o seguinte, quando faço meu select se o professor
leciona em 3 escolas diferentes o mesmo é repetido 3 vezes. Preciso que
retorne somente uma vez de acordo com a matéria selecionada.
Já tentei distinct e não deu certo. Abaixo segue meu select:
//Professor por Cargo
If Combo.ItemIndex=35 then
Begin
With dm.cds_Servidor do
Begin
dm.cds_Servidor.Close;
dm.cds_Depende.Close;
dm.cds_SitFunc.Close;
CommandText:='Select A.*, B.* from Servidor A, Sit_Funcional B
where '+
'A.ID_CodServ=B.ID_CodServ and B.Cargo=:id_Cargo';
Params.ParamByName('id_Cargo').AsString := Busca1.Text;
dm.cds_Depende.Open;
dm.cds_Servidor.open;
dm.cds_SitFunc.Open;
end;
If dm.cds_Servidor.RecordCount=0 then ShowMessage('Registro não
Encontrado! Verifique as entradas digitadas.')
end;
Utilizo Firebird 2 e delphi 7.
Talvez, não tenha me espressado corretamente. Vou tentar exemplificar
melhor abaixo:
O que ocorre, é que na tabela de servidores existem os dados do
professor e na tabela Sit_Func os locais onde o professor leciona.
Sendo que um mesmo professor leciona em até 4 escolas diferentes.
O que queria retornar, seria a relação nominal de professores que
lecionam uma matéria específica sem que seja repetido.
O que ocorre agora é que se pedir uma relação de professores por
matéria, minha sql retorna uma duplicidade, isso é, se o professor
leciona português em 3 escolas diferentes me retorna o nome do professor
duplicado 3 vezes.
Abraços.
Ralp Alves Bezerra
[delphi-br] Ajuda com pesquisa
Nobres colegas,
Este é meu primeiro projeto utilizando o firebird e estou muito
satisfeito com o mesmo.
Tenho a seguinte dúvida: Tenho 2 tabelas Servidor e Funcao (onde grava o
nome da escola que o professor leciona e sua funcao na escola) como abaixo:
Tabela Servidor
Professor 1
Professor 2
professor 3 etc
Tabela Funcao
Funcao 1
Funcao 2
Funcao 3 etc
Ocorre que, o Professor 1 leciona em 3 escolas diferentes com a mesma
funcao (portuques por exemplo).
Preciso fazer um select que me retorne a relação de professores por
função. O que ocorre é o seguinte, quando faço meu select se o professor
leciona em 3 escolas diferentes o mesmo é repetido 3 vezes. Preciso que
retorne somente uma vez de acordo com a matéria selecionada.
Já tentei distinct e não deu certo. Abaixo segue meu select:
//Professor por Cargo
If Combo.ItemIndex=35 then
Begin
With dm.cds_Servidor do
Begin
dm.cds_Servidor.Close;
dm.cds_Depende.Close;
dm.cds_SitFunc.Close;
CommandText:='Select A.*, B.* from Servidor A, Sit_Funcional B
where '+
'A.ID_CodServ=B.ID_CodServ and B.Cargo=:id_Cargo';
Params.ParamByName('id_Cargo').AsString := Busca1.Text;
dm.cds_Depende.Open;
dm.cds_Servidor.open;
dm.cds_SitFunc.Open;
end;
If dm.cds_Servidor.RecordCount=0 then ShowMessage('Registro não
Encontrado! Verifique as entradas digitadas.')
end;
Utilizo Firebird 2 e delphi 7.
Abraços.
Ralp Alves Bezerra
[delphi-br] FIltrar dados no fastreport
Nobres colegas,
Estou montando um relatório em fastreport e não estou conseguindo
efetuar o filtro de dados.
Tenho um componente Table um frxDBDataset e frxReport, onde o frxReport
esta ligado ao tfrxDBDataset e este ligado ao tTable.
Para testar efetuei um filtro comum
Table1.Filter:='Codigo='+QuotedStr(Edit1.Text) e apliquei o filtro.
Porém quando mando visualizar o relatório são listados todos os registro
da base.
Estou efetuando a chamado do relatório desta maneira:
frxReport1.Clear;
frxReport1.LoadFromFile('C:\Projetos\AdmEsc\Fontes\CrossTab\Ata.fr3');
frxReport1.ShowReport;
Alguem poderia me dar uma dica de como efetuar esta pesquisa.
Ps.: Utilizo Delphi7, Paradox e FastReport 4.3
Abraços.
Ralp Alves
Re: [delphi-br] FIltrar dados no fastreport
Já fiz isso é continua não filtrando. Fiz um outro teste e coloquei um
dbgrid.
No dbgrid aparecem somente os registros filtrados mas quando ativo o
relatório aparecem todos os registros.
Eduardo Silva dos Santos escreveu:
Se ta mostrando tudo é pq nao ta filtrando..
tente assim:
Table1.Filter:= 'Codigo=' + Edit1.Text;
Table1.Filtered := True;
Em 06/03/08, Ralp Alves Bezerra [EMAIL PROTECTED] escreveu:
Nobres colegas,
Estou montando um relatório em fastreport e não estou conseguindo
efetuar o filtro de dados.
Tenho um componente Table um frxDBDataset e frxReport, onde o frxReport
esta ligado ao tfrxDBDataset e este ligado ao tTable.
Para testar efetuei um filtro comum
Table1.Filter:='Codigo='+QuotedStr(Edit1.Text) e apliquei o filtro.
Porém quando mando visualizar o relatório são listados todos os registro
da base.
Estou efetuando a chamado do relatório desta maneira:
frxReport1.Clear;
frxReport1.LoadFromFile('C:\Projetos\AdmEsc\Fontes\CrossTab\Ata.fr3');
frxReport1.ShowReport;
Alguem poderia me dar uma dica de como efetuar esta pesquisa.
Ps.: Utilizo Delphi7, Paradox e FastReport 4.3
Abraços.
Ralp Alves
Re: [delphi-br] FIltrar dados no fastreport
Ajustei como informado mais ainda continua abrindo todos os registros.
Eduardo Silva dos Santos escreveu:
Ok, faça o seguinte, veja o frxDBDataset e configure as propriedades
RangeBegin = rbCurrent e RangeEnd = reCurrent
antes de mudas essas propriedades, coloqueo dbgrid e veja se ao fechar o
preview todos os dados estão sendo exibidos..
ou seja.. se o preview da removendo o filtro.
Em 06/03/08, Ralp Alves Bezerra [EMAIL PROTECTED] escreveu:
Já fiz isso é continua não filtrando. Fiz um outro teste e coloquei um
dbgrid.
No dbgrid aparecem somente os registros filtrados mas quando ativo o
relatório aparecem todos os registros.
Eduardo Silva dos Santos escreveu:
Se ta mostrando tudo é pq nao ta filtrando..
tente assim:
Table1.Filter:= 'Codigo=' + Edit1.Text;
Table1.Filtered := True;
Em 06/03/08, Ralp Alves Bezerra [EMAIL
PROTECTED]rdsistemas%40baydenet.com.br
escreveu:
Nobres colegas,
Estou montando um relatório em fastreport e não estou conseguindo
efetuar o filtro de dados.
Tenho um componente Table um frxDBDataset e frxReport, onde o frxReport
esta ligado ao tfrxDBDataset e este ligado ao tTable.
Para testar efetuei um filtro comum
Table1.Filter:='Codigo='+QuotedStr(Edit1.Text) e apliquei o filtro.
Porém quando mando visualizar o relatório são listados todos os
registro
da base.
Estou efetuando a chamado do relatório desta maneira:
frxReport1.Clear;
frxReport1.LoadFromFile('C:\Projetos\AdmEsc\Fontes\CrossTab\Ata.fr3');
frxReport1.ShowReport;
Alguem poderia me dar uma dica de como efetuar esta pesquisa.
Ps.: Utilizo Delphi7, Paradox e FastReport 4.3
Abraços.
Ralp Alves
Re: [delphi-br] Ata de Resultados
Caro Duarte, No meu caso todas as informações estão contidas na mesma tabela, sendo que para cada materia, nota, etc, o nome do aluno se repete. A pesquisa teria que ser feita em apenas uma tabela que contém todos os dados necessários. Abraços. Alessandro DUARTE de Moraes escreveu: Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ata de Resultados
Esta é a questão! como faria esta seleção para que tudo fique em uma unica linha a cada aluno? Abraços. Alessandro DUARTE de Moraes escreveu: Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que tens ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 8:56 AM Subject: Re: [delphi-br] Ata de Resultados Caro Duarte, No meu caso todas as informações estão contidas na mesma tabela, sendo que para cada materia, nota, etc, o nome do aluno se repete. A pesquisa teria que ser feita em apenas uma tabela que contém todos os dados necessários. Abraços. Alessandro DUARTE de Moraes escreveu: Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47ce8f66190531624252042 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ata de Resultados
Obrigado Duarte vou testar a sua dica e retorno. Abraços. Alessandro DUARTE de Moraes escreveu: Você tem certeza que leu o que eu escrevi Cara, o que queres fazer é um CrossTab ... tem uma outra Thread que fala sobre isso. A solução que te passei é uma forma de não precisar fazer o CrossTab. Le e interpreta o que te passei anteriormente ... eu já fiz algo similar ao que tu precisas utilizando essa técnica que te mandei. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 10:30 AM Subject: Re: [delphi-br] Ata de Resultados Esta é a questão! como faria esta seleção para que tudo fique em uma unica linha a cada aluno? Abraços. Alessandro DUARTE de Moraes escreveu: Ok, então vc pode partir para uma SQL simples, usando apenas a tabela que tens ... Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: delphi-br@yahoogrupos.com.br Sent: Wednesday, March 05, 2008 8:56 AM Subject: Re: [delphi-br] Ata de Resultados Caro Duarte, No meu caso todas as informações estão contidas na mesma tabela, sendo que para cada materia, nota, etc, o nome do aluno se repete. A pesquisa teria que ser feita em apenas uma tabela que contém todos os dados necessários. Abraços. Alessandro DUARTE de Moraes escreveu: Cara, pelo que entendi estás precisando é um resultado final com as colunas: NomeDoAluno, NotaMateria1, NotaMateria2, ... Bem, uma forma prática no teu caso é o conceito de Group By no FortesReport. Primeiro precisas fazer uma SQL que retorne todas as notas de todos os alunos com todas as matérias possíveis, e aí vem uma pergunta: todos os alunos da Ata possuem notas em todas as matérias? Caso sim, então segue lendo, caso contrário me avisa que daí a query precisa ser diferente da proposta. Buenos, a query seria mais ou menos assim: SELECT aluno.nome, materia.nome, avaliacao.nota FROM aluno LEFT JOIN avaliacao ON (avaliacao.aluno_id=aluno.id) LEFT JOIN materia ON (materia.id=avaliacao.materia_id) WHERE avaliacao.ano=2007 and avaliacao.mes=10 ORDER BY aluno.nome, materia.nome Tudo bem, agora que vem o truque. Monte o relatório com um agrupamento por aluno. No rodapé desse grupo, crie caixas de texto para receberem as notas de todas as matérias possíveis, isto é, se o máximo de matérias são 10, então crie 10 caixas de texto. (salientando, são caixas de texto ... recebem qualquer coisa que a gente quiser). Daí a tua linha de detalhe não vai imprimir nada ... isso mesmo, não imprime nada - heigth = 0 mesmo, mas no OnBeforePrint você vai preencher as caixas de texto do rodapé com o valor das notas. Creio que isso resolve. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br - Original Message - From: Ralp Alves Bezerra To: Delphi BR Sent: Tuesday, March 04, 2008 6:29 PM Subject: [delphi-br] Ata de Resultados Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues 10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,47cdbf4713481480512716 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem
[delphi-br] Ata de Resultados
Nobres Colegas, Venho mais uma vez pedir a ajuda dos nobres colegas para poder resolver uma dúvida que me ocorre: Tenho um sistema em paradox para administração escolar rodando, estou precisando gerar a ata de resultados finais para o mesmo, porém, estou com um problema que ainda não consegui resolver. Tenho uma tabela onde ficam registradas todas as informações de notas e matérias do alunos. Ex.: Nome Matéria Nota - Maria da silva Portugues10 Maria da Silva Matemática 08 Maria da Silva Inglês 09 Maria da Silva Física 08 e assim por diante com todos os alunos da turma. Se existirem 10 matérias o nome do aluno se repete as mesmas 10 vezes. Como faria para gerar uma segunda tabela ou outra maneira de poder gerar ata de resultados finais com o tipo de tabela que possuo? Nesta sistema estou utilizando Delphi 7, Paradox e FortesReport, mas a dica poderia ser também em QR se caso fosse mais prático. Desde já agradeço a ajuda. Abraços. Ralp Alves Bezerra
[delphi-br] UserControl
Nobres colegas, Coloquei em meu projeto o componente usercontrol para controle de acesso. Em minha máquina roda normalmente, porém, na máquina do cliente ocorre o seguinte erro: Exceção EDatabaseError no módulo RDCadServ em 000A1DF1. unsuccessful metadata update Table UCCADPERM already exists alguem saberia que erro é este? PS.: Utilizo Delphi 7/Firebird 2.0.3.12981-1/dbExpress Desde já agradeço a atenção. Abraços Ralp Alves
[delphi-br] UserControl
Nobres colegas, Coloquei em meu projeto o componente usercontrol para controle de acesso. Em minha máquina roda normalmente, porém, na máquina do cliente ocorre o seguinte erro: Exceção EDatabaseError no módulo RDCadServ em 000A1DF1. unsuccessful metadata update Table UCCADPERM already exists alguem saberia que erro é este? PS.: Utilizo Delphi 7/Firebird 2.0.3.12981-1/dbExpress Desde já agradeço a atenção. Abraços Ralp Alves
[delphi-br] Site de componentes
Salve nobres Colegas, Estou repassando o endereço de uma site que conta com milhares de componentes para delphi e outras plataformas de desenvolvimento: http://www.vclcomponents.com Existem componentes de todos os tipos possíveis, entre grátis e pagos. Espero que ajude nossos nobres colegas. Abraços. Ralp Alves
[delphi-br] Dúvida com query
Nobres colegas,
Preciso listar em uma consulta os alunos que tenham o status igual a 1,
7 e 8 somente. Porém a consulta não retorna os dados solicitados.
Já tentei trocar a linha:
Sql.Add('Status=1 and Status=7 and Status=8 and');
por :
Sql.Add('Status=1 or Status=7 or Status=8 and'); mas não funciona.
Alguém poderia me dar uma luz.
Grato
estou com uma dúvida nesta consulta abaixo:
If Radio1.ItemIndex=12 then // Turma da Escola
Begin
With qrPesqAluno do
Begin
Close;
Sql.Clear;
Sql.Add('Select * From Alunos');
If All.Checked=False then
Begin
Sql.Add('Where CodigoDaEscola=:CodEsc and');
Sql.Add('Status=1 and Status=7 and Status=8 and');
dúvida nesta linha
Sql.Add('TipoDeEnsinoD=:TE and');
Sql.Add('TurmaD=:TR and');
Sql.Add('SerieD=:SE and');
Sql.Add('TurnoD=:TU');
Sql.Add('Order By Nome');
ParamByName('CodEsc').Value:=rxdbLookupCombo9.Text;
ParamByName('TE').Value:=rxdbLookupCombo21.Text;
ParamByName('TR').Value:=rxdbLookupCombo12.Text;
ParamByName('SE').Value:=rxdbLookupCombo13.Text;
ParamByName('TU').Value:=rxdbLookupCombo14.Text;
end else begin
Sql.Add('Where TipoDeEnsinoD=:TE and');
Sql.Add('TurmaD=:TR and');
Sql.Add('SerieD=:SE and');
Sql.Add('TurnoD=:TU');
Sql.Add('Order By Nome');
ParamByName('TE').Value:=rxdbLookupCombo21.Text;
ParamByName('TR').Value:=rxdbLookupCombo12.Text;
ParamByName('SE').Value:=rxdbLookupCombo13.Text;
ParamByName('TU').Value:=rxdbLookupCombo14.Text;
end;
Open
end;
if qrPesqAluno.IsEmpty Then ShowMessage('Registro não encontrado!')
end;
[delphi-br] Pessoa para suporte CE
Boa noite nobres colegas, A certo tempo, desenvolvi um sistema para uma empresa em Cascavel/CE que tem duas lojas de móveis e eletrodomésticos em delphi 6 e paradox. Por questão de tempo, não estou podendo mais efetuar o suporte nas duas lojas. Caso algum do colegas more nas proximidades de Cascavel/CE ou até mesmo em Fortaleza e queira continuar dando suporte á empresa, entre em contato comigo em pvt que passo os contatos da mesma. Os códigos fonte já estaõ na empresa e a pessoa que vier a dar suporte terá acesso aos mesmos, podendo ate migrar para firebird ou banco de preferência. Abraços a todos. Ralp Alves Bezerra RD Sistemas [EMAIL PROTECTED]
[delphi-br] Impressão
Gostaria de agradecer a todos os colegas que contribuiram com minha dúvida sobre como obter a lista de impressoras e salva-las no banco. O problema foi resolvido. Abraços.
[delphi-br] Impressoras
Nobres colegas, estou precisando pegar a relação de impressoras instaladas em um determinado micro e mostra-las em um dbgrid. Tentei a rotina abaixo, porém, as impressoras aparecem na mesma linha no dbgrid. with Printer do begin BeginDoc; tbImpressora.Append; tbImpressoraImpressoraModelo.Text:=Printer.Printers.Text; tbImpressora.Post; EndDoc; end; Ex.: HP Deskjet F300 series HP Deskjet 3425 series gostaria que tivesse uma quebra de linha a cada impressora encontrada. Ex.: HP Deskjet F300 series HP Deskjet 3425 series Estou utilzando delphi7 e paradox Abraços.
Re: [delphi-br] Re: Dúvida no FortesReport - Resolvido
Muito obrigado nobre colega, o problema foi resolvido. Abraços Carlos escreveu: Boa noite! Você tem que setar o valor do campo da Query ou Table. ex.: if (dmCadastro.cdsCadastroID.Value = 1) then RLDBText10.Font.Color := clRed else RLDBText10.Font.Color := clBlue; Fraterno abraço. Carlos --- Em delphi-br@yahoogrupos.com.br, Ralp Alves Bezerra [EMAIL PROTECTED] escreveu Estou tentando desta maneira No evento beforeprint do fortesreport coloquei assim: if RLDBText10.Caption = '01' then RLDBText10.Font.Color := clRed else RLDBText10.Font.Color := clBlack; So que não coloca em vermelho somente os iniciados com 01. Quando dou preview pela primeira vez não acontece nada, mas quando cancelo e mando dar um preview novamente todos os campos ficam em vermelho. Alguém tem uma ideia. Abraços.
[delphi-br] Dúvida no Fortes Report
Nobres Colegas, estou com a seguinte questão: Como procedo para mudar a cor de um campo impresso no fortes report de acordo com a situação do mesmo. Ex. Se o campo for true queria que a cor do campo impresso ficasse vermelho. Desde já agradeço atenção Ralp Alves
[delphi-br] Dúvida no FortesReport
Estou tentando desta maneira No evento beforeprint do fortesreport coloquei assim: if RLDBText10.Caption = '01' then RLDBText10.Font.Color := clRed else RLDBText10.Font.Color := clBlack; So que não coloca em vermelho somente os iniciados com 01. Quando dou preview pela primeira vez não acontece nada, mas quando cancelo e mando dar um preview novamente todos os campos ficam em vermelho. Alguém tem uma ideia. Abraços.
Re: RES: [delphi-br] Me dêem uma mão! ( aprendiz)
Na rxlib tem um componente que faz o que deseja Sérgio T. Uetanabaro escreveu: E não se esqueça do Application.ProcessMesssages após cada sleep... CREDO!!! Acho q tem outros métodos para isso. procure por componentes que façam isso de uma forma mais elegante. []´s Sergio _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Régis Bender Enviada em: terça-feira, 27 de março de 2007 09:38 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Me dêem uma mão! (aprendiz) Faz um while e usa um delay sds Bender Desenvolvimento de Sistemas e Serviços Contábeis (Régis) (51) 98470699 Novo Hamburgo/RS MSN: [EMAIL PROTECTED] mailto:regissk8%40terra.com.br com.br - Original Message - From: werelli To: curso_delphi_ mailto:curso_delphi_iniciante%40yahoogrupos.com.br [EMAIL PROTECTED] ; DELPHI_TOTAL ; LISTA_DELPHI Sent: Tuesday, March 27, 2007 9:34 AM Subject: [delphi-br] Me dêem uma mão! (aprendiz) Olá pessoal! Me ajudem por favor, inseri um label numa aplicação e quero que o texto apareça nele num evento(click botão) letra por letra, como se fosse uma animação tipo assim: bom dia apareça primeiro o B logo em seguida o O e assim por diante, têm como? Outra coisa, iseri uma image no mesmo componente e quero que ela fique invisivel até um envento acontecer, acontecendo o envento (click) ela apareçe. Como implemento os dois casos, conto com vocês! Attenciosamente, werelli __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger http://br.messenger.yahoo.com/ .yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail -- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 26/03/2007 / Versão: 5.1.00/4992 Proteja o seu e-mail Terra: http://mail. http://mail.terra.com.br/ terra.com.br/ -- Internal Virus Database is out-of-date. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.7/711 - Release Date: 5/3/2007 09:41 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Percentual em consulta sql
Boa noite Nobres!
Estou efetuando uma pesquisa através da query abaixo:
If Radio1.ItemIndex=0 then // Codigo Escola
Begin
With Query1 do
Begin
Close;
Sql.Clear;
Sql.Add('Select Distinct(CodigoDaEscola) as Código,
Count(CodigoDaEscola) as Qtd from Alunos');
Sql.Add('Group by CodigoDaEscola Order By CodigoDaEscola');
Open
end;
if Query1.IsEmpty Then ShowMessage('Registro não encontrado!')
end;
Onde a mesma me retorna 2 colunas: Código e Qtd.
A dúvida é seguinte: Como faço para incluir uma terceira coluna contendo
o percentual de acordo com o campo Qtd via sql.
Desde já agradeço
[delphi-br] Chart Series
Caros Colegas, como faço para mudar um tipo de gráfico em tempo de execução? Estou usando o componente qrChart e gostaria de poder fazer com que o usuário escolha o tipo de gráfico que deseja imprimir, tipo Pie, Point, Line, etc. Obrigado e abraços a todos Ralp Alves [As partes desta mensagem que não continham texto foram removidas]
