RES: [delphi-br]Itabyte®-Importar do Ex cel p/ Delphi - Obrigado
[EMAIL PROTECTED]
Mas só posso conectar a noite porque aqui na telemont isto dá paredão :)
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de MarcioCC©
Enviada em: quarta-feira, 24 de maio de 2006 10:47
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado
Blz .. muito obrigado !!! cara por acaso se tem msn se tiver tem como me
passar??
JESUS TE AMA !!!
- Original Message -
From: Walter Alves Chagas Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, May 23, 2006 11:54 AM
Subject: RES: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado
Estou postando aqui uma rotina completa Marcio. Não preocupa em fazer ela
rodar não porque vai dar um monte de erro, mas presta atenção na sequencia
de código que começa com o comentario // Começa a coleta de dados dos
valores das atividades da planília e vai até o // para pular coluna de
valor do serviço, é neste intervalo que eu pego os dados da planilha que
deve estar em formato texto separado por tabulações.
procedure TfmpNumPedido.btnImportClick(Sender: TObject);
const
// CMEDICAOMATERIAL = '2.1.14';
// CMEDICAOSERVICO = '2.1.09';
CMEDICAOMATERIAL = '2.1.17';
CMEDICAOSERVICO = '2.1.16';
// CMEDICAOMATERIAL = '2.1.14';
// CMEDICAOSERVICO = '2.1.09';
CFATURAMENTOMATERIAL = '2.1.17';
CFATURAMENTOSERVICO = '2.1.16';
var
fb : file of byte;
fi, fo, fr : textfile;
line,
preco,
DadNumMedicao,
DadNumNota,
DadNumItem,
DadNumPedido,
DadPedItem,
DadPedValor,
BackupName,
strLocate,
strSelMov,
strMov,
fname : string;
(*$IFDEF DEBUG*)
LinhaLog: String;
(*$ENDIF*)
nprod, nrejected, nerror,
iLenghtLine, i, j: integer;
idmov : integer;
done : boolean;
qryItensMov,
qryMov, qrySelMov, qryLocate : TQuery;
begin
if eFileName.Text = '' then
begin
MessageDlg('Você deverá selecionar um arquivo para proceder com a
importação', mtError, [mbOk], 0);
eFileName.Setfocus;
Exit;
end;
btnAbort.Visible := True;
btnImport.Visible := False;
DecimalSeparator := '.';
ProgressBarImport.Min := 0;
ProgressBarImport.Max := 0;
ProgressBarImport.Position := 1;
codfilial := Param.Filial;
StopProcess := False;
(*$IFDEF DEBUG*)
assignfile(f, 'c:\temp\tstimpnumpedido.txt');
rewrite(f);
writeln(f, 'Numero de pedidos importados');
writeln(f, 'Data da importação: ' + DateToStr(Now));
writeln(f,'');
(*$ENDIF*)
try
ProgressBarImport.position := 0;
assignfile(fb, eFileName.text);
FileMode := 0;
reset(fb);
ProgressBarImport.max := FileSize(fb);
closefile(fb);
except
Exit;
end;
try
assignfile(fi, eFileName.text);
{$i-} Reset(fi); {$i+}
if ioresult 0 then
begin
MessageDlg('Erro ao abrir arquivo ' + eFileName.text + 'Erro: ' +
Exception(exceptobject).message, mtError, [mbOk], 0);
exit;
end;
fmpNumPedido.Caption := 'Importanto arquivo ' + eFileName.text;
CombStatusPlan.Enabled := False;
chkMedicaoesFat.Enabled := False;
fname := eFileName.text;
i := length(fname);
while (i 1) and (fname[i] '.') do
dec(i);
fname := copy(fname, 1, i);
// and SERIE = 'MD'
if iStatusPlan = 0 then
begin
strLocate := 'select CAMPOLIVRE2 from TMOV where CODFILIAL =
:CODFILIAL and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' +
CMEDICAOSERVICO + ',' + CMEDICAOMATERIAL + ') and SERIE = MD and
NUMEROMOV = :NUMEROMOV';
if chkMedicaoesFat.Checked then
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL
and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' + CMEDICAOSERVICO + ',' +
CMEDICAOMATERIAL + ') and SERIE = MD and NUMEROMOV = :NUMEROMOV and
STATUS = F'
else
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL
and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' + CMEDICAOSERVICO + ',' +
CMEDICAOMATERIAL + ') and SERIE = MD and NUMEROMOV = :NUMEROMOV and
STATUS = A';
end
else
begin
strLocate := 'select CAMPOLIVRE2 from TMOV where CODFILIAL =
:CODFILIAL and CODCOLIGADA = :CODCOLIGADA and CODTMV in (2.2.01, 2.2.15)
and SERIE in (U, 1) and NUMEROMOV = :NUMEROMOV';
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL and
CODCOLIGADA = :CODCOLIGADA and CODTMV in (2.2.01, 2.2.15) and SERIE in
(U, 1) and NUMEROMOV = :NUMEROMOV and STATUS = F';
end;
qryLocate := TQuery.Create(nil);
qryLocate.DatabaseName := CorporeRM.DatabaseName;
qryLocate.sql.Clear;
qryLocate.sql.Add(strLocate);
qryLocate.Prepare;
qrySelMov := TQuery.Create(nil);
qrySelMov.DatabaseName := CorporeRM.DatabaseName;
qrySelMov.sql.Clear;
qrySelMov.sql.Add(strSelMov);
qrySelMov.Prepare;
qryMov := TQuery.Create(nil);
qryMov.DatabaseName := CorporeRM.DatabaseName;
qryMov.sql.Clear;
if iStatusPlan = 0 then
qryMov.sql.Add('update TMOV set CAMPOLIVRE2 = :NUMPEDIDO where SERIE =
MD and CODFILIAL = :CODFILIAL and CODCOLIGADA
RES: [delphi-br]Itabyte®-Importar do Ex cel p/ Delphi - Obrigado
Isto daí só rola mesmo via Proxy. Delphi? Nunca vi nada neste sentido []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de MarcioCC© Enviada em: terça-feira, 23 de maio de 2006 10:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado Se você puder me enviar agradeça muito , outra pergunta : Por acaso se sabe como faço via delphi para bloquear o msn e alguns sites da net como orkut, playboy , sex e tal ?? JESUS TE AMA !!! - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, May 22, 2006 11:01 AM Subject: RES: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado Marcio, eu faço muito disto aqui mas eu converto a planílha primeiro pra TXT separado por tabulações. Se o exemplo servir eu te passo ele. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de MarcioCC© Enviada em: segunda-feira, 22 de maio de 2006 09:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado Bom dia como você fez para fazer a importaçao do excel para o banco?? Daria para enviar o exemplo ..obrigado!!! JESUS TE AMA !!! - Original Message - From: Nesio Messias [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, May 19, 2006 11:09 AM Subject: Re: [delphi-br] Importar do Excel p/ Delphi - Obrigado Valeu pessoal deu certoobrigado... __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
RES: [delphi-br]Itabyte®-Importar do Ex cel p/ Delphi - Obrigado
Estou postando aqui uma rotina completa Marcio. Não preocupa em fazer ela
rodar não porque vai dar um monte de erro, mas presta atenção na sequencia
de código que começa com o comentario // Começa a coleta de dados dos
valores das atividades da planília e vai até o // para pular coluna de
valor do serviço, é neste intervalo que eu pego os dados da planilha que
deve estar em formato texto separado por tabulações.
procedure TfmpNumPedido.btnImportClick(Sender: TObject);
const
// CMEDICAOMATERIAL = '2.1.14';
// CMEDICAOSERVICO = '2.1.09';
CMEDICAOMATERIAL = '2.1.17';
CMEDICAOSERVICO = '2.1.16';
// CMEDICAOMATERIAL = '2.1.14';
// CMEDICAOSERVICO = '2.1.09';
CFATURAMENTOMATERIAL = '2.1.17';
CFATURAMENTOSERVICO = '2.1.16';
var
fb : file of byte;
fi, fo, fr : textfile;
line,
preco,
DadNumMedicao,
DadNumNota,
DadNumItem,
DadNumPedido,
DadPedItem,
DadPedValor,
BackupName,
strLocate,
strSelMov,
strMov,
fname : string;
(*$IFDEF DEBUG*)
LinhaLog: String;
(*$ENDIF*)
nprod, nrejected, nerror,
iLenghtLine, i, j: integer;
idmov : integer;
done : boolean;
qryItensMov,
qryMov, qrySelMov, qryLocate : TQuery;
begin
if eFileName.Text = '' then
begin
MessageDlg('Você deverá selecionar um arquivo para proceder com a
importação', mtError, [mbOk], 0);
eFileName.Setfocus;
Exit;
end;
btnAbort.Visible := True;
btnImport.Visible := False;
DecimalSeparator := '.';
ProgressBarImport.Min := 0;
ProgressBarImport.Max := 0;
ProgressBarImport.Position := 1;
codfilial := Param.Filial;
StopProcess := False;
(*$IFDEF DEBUG*)
assignfile(f, 'c:\temp\tstimpnumpedido.txt');
rewrite(f);
writeln(f, 'Numero de pedidos importados');
writeln(f, 'Data da importação: ' + DateToStr(Now));
writeln(f,'');
(*$ENDIF*)
try
ProgressBarImport.position := 0;
assignfile(fb, eFileName.text);
FileMode := 0;
reset(fb);
ProgressBarImport.max := FileSize(fb);
closefile(fb);
except
Exit;
end;
try
assignfile(fi, eFileName.text);
{$i-} Reset(fi); {$i+}
if ioresult 0 then
begin
MessageDlg('Erro ao abrir arquivo ' + eFileName.text + 'Erro: ' +
Exception(exceptobject).message, mtError, [mbOk], 0);
exit;
end;
fmpNumPedido.Caption := 'Importanto arquivo ' + eFileName.text;
CombStatusPlan.Enabled := False;
chkMedicaoesFat.Enabled := False;
fname := eFileName.text;
i := length(fname);
while (i 1) and (fname[i] '.') do
dec(i);
fname := copy(fname, 1, i);
// and SERIE = 'MD'
if iStatusPlan = 0 then
begin
strLocate := 'select CAMPOLIVRE2 from TMOV where CODFILIAL =
:CODFILIAL and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' +
CMEDICAOSERVICO + ',' + CMEDICAOMATERIAL + ') and SERIE = MD and
NUMEROMOV = :NUMEROMOV';
if chkMedicaoesFat.Checked then
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL
and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' + CMEDICAOSERVICO + ',' +
CMEDICAOMATERIAL + ') and SERIE = MD and NUMEROMOV = :NUMEROMOV and
STATUS = F'
else
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL
and CODCOLIGADA = :CODCOLIGADA and CODTMV in (' + CMEDICAOSERVICO + ',' +
CMEDICAOMATERIAL + ') and SERIE = MD and NUMEROMOV = :NUMEROMOV and
STATUS = A';
end
else
begin
strLocate := 'select CAMPOLIVRE2 from TMOV where CODFILIAL =
:CODFILIAL and CODCOLIGADA = :CODCOLIGADA and CODTMV in (2.2.01, 2.2.15)
and SERIE in (U, 1) and NUMEROMOV = :NUMEROMOV';
strSelMov := 'select IDMOV from TMOV where CODFILIAL = :CODFILIAL and
CODCOLIGADA = :CODCOLIGADA and CODTMV in (2.2.01, 2.2.15) and SERIE in
(U, 1) and NUMEROMOV = :NUMEROMOV and STATUS = F';
end;
qryLocate := TQuery.Create(nil);
qryLocate.DatabaseName := CorporeRM.DatabaseName;
qryLocate.sql.Clear;
qryLocate.sql.Add(strLocate);
qryLocate.Prepare;
qrySelMov := TQuery.Create(nil);
qrySelMov.DatabaseName := CorporeRM.DatabaseName;
qrySelMov.sql.Clear;
qrySelMov.sql.Add(strSelMov);
qrySelMov.Prepare;
qryMov := TQuery.Create(nil);
qryMov.DatabaseName := CorporeRM.DatabaseName;
qryMov.sql.Clear;
if iStatusPlan = 0 then
qryMov.sql.Add('update TMOV set CAMPOLIVRE2 = :NUMPEDIDO where SERIE =
MD and CODFILIAL = :CODFILIAL and CODCOLIGADA = :CODCOLIGADA and IDMOV =
:IDMOV')
else
qryMov.sql.Add('update TMOV set CAMPOLIVRE2 = :NUMPEDIDO where SERIE
in (U, 1) and CODFILIAL = :CODFILIAL and CODCOLIGADA = :CODCOLIGADA and
IDMOV = :IDMOV');
qryMov.Prepare;
qryItensMov := TQuery.Create(nil);
qryItensMov.DatabaseName := CorporeRM.DatabaseName;
qryItensMov.sql.Clear;
qryItensMov.sql.Add('update TITMMOV set CAMPOLIVRE = :ITEM where
NUMEROSEQUENCIAL = :NUMEROSEQMOV and CODCOLIGADA = :CODCOLIGADA and IDMOV =
:IDMOV');
qryItensMov.Prepare;
readln(fi, line);
// Começa a coleta de dados dos valores das atividades da planília
while (not done) and (not Eof(fi)) and (not StopProcess) do
begin
readln(fi, line);
iLenghtLine := length(Line);
if (line '') then
begin
i := 0;
j := 0;
DadNumMedicao := '';
DadNumNota := '';
DadNumItem := '';
DadNumPedido := '';
DadPedItem := '';
preco := '';
DadPedValor :=
RES: [delphi-br]Itabyte®-Importar do Ex cel p/ Delphi - Obrigado
Marcio, eu faço muito disto aqui mas eu converto a planílha primeiro pra TXT separado por tabulações. Se o exemplo servir eu te passo ele. []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de MarcioCC© Enviada em: segunda-feira, 22 de maio de 2006 09:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br]Itabyte®-Importar do Excel p/ Delphi - Obrigado Bom dia como você fez para fazer a importaçao do excel para o banco?? Daria para enviar o exemplo ..obrigado!!! JESUS TE AMA !!! - Original Message - From: Nesio Messias [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Friday, May 19, 2006 11:09 AM Subject: Re: [delphi-br] Importar do Excel p/ Delphi - Obrigado Valeu pessoal deu certoobrigado... __ 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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
