Re: [delphi-br] FASTREPORT
coloque a programação dentro de um item de programação da banda masterdata1 como por exemplo Selecione um memo1(Tfrxmemo), da um F11 para abrir a janela de eventos e coloque sua programação no evento onafterdata e faça o teste! valeu! rod Em Fri, 07 May 2010 08:19:12 -0300, joao_jma joao_...@itelefonica.com.br escreveu: Estou desenvolvendo DANFE utilizando o fastReport... Preciso que a banda rodapé de página apareça apenas na primeira página, mas não estou conseguindo. Coloquei um comando Visible := False na banda rodapé caso seja página maior que 1. Porém a banda some na segunda página, mas os itens do DANFE q estão no master data não vão até o final da página, eles param onde começaria supostamente a banda rodapé agora invisível e fica akele espaço branco. Se alguém puder ajudar... Antecipo meus agradecimentos []'s João Amorim [As partes desta mensagem que não continham texto foram removidas] -- Rod [ Rádio BRgospel ] - Um novo jeito de se ouvir rádio
Re: [delphi-br] windows 2008 com Terminal service e Quick Report + D7
Ola Tenta fazer o seguinte: pro TS nao perder a conexao com a impressora local matricial, faça esse bat e coloque no menu iniciar - inicializar: printer.bat net use lpt1 /delete net use lpt1 \\192.168.10.154\epson onde voce define o ip ou a porta do terminal remoto (\\TS01\Impressora) Tambem deixe este bat na area de trabalho (atalho) caso ocorra novamente. Abraços Rod Em Mon, 22 Feb 2010 10:13:07 -0300, Pedro Vagner Rossi phrossi2...@yahoo.com.br escreveu: Olá a todos Pessoal, nao sei se o problema esta no meu sistema, mas vou explicar o que está acontecendo Tenho um cliente que recentemente instalou um server2008 e esta utilizando terminal services para acessar a base remota. Eles usam improssoras locais e o TS redireciona a impressão para local. Acontece que eles tem 2 impressoras na sala de vendas, 1 matricial e 1 jato de tinta. Todos imprimem so na matricial (por questao de custo),mas as vz o TS redireciona a impressão para a Jato de tinta mesmo que o pedido tenha sido feito para a matricial, e a partir dai aquela maquina so consegue imprimir na jato de tinta, mesmo que solicite na matricial. Isso so para quando o cliente fecha a secão do TS e entra novamente.Como nao fui eu quem intalei o Server 2008 nem configurei o TS, entreiem contado com a pessoa que o fez, e ele disse que nunca aconteceu issocom as instalações dele e que ele nao sabe como solucionar. Acontece que o cliente agora esta falando que ja que o fornecedor que instalou o server + TS disse que isso nunca aconteceu com ele, que entao o problema esta no meu sistema.. Jogar a batata quente nos outros é fácil Mas vamos lá. Será que existe alguma possibilidade que que o Quick report + D7 esteja danto algum problema? Esse mesmo sistema era antes sem TS numa estação windos XP via TCP/IP e nunca deu problema, agora o que eu posso fazer? Alguem pode me ajudar? Atenciosamente Pedro V Rossi. [As partes desta mensagem que não continham texto foram removidas] -- Rod [ Rádio BRgospel ] - Você ligado no Som dos Céus [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas XML
'].NextSibling;
{OUTRO REU}
NodeReus := NodePartes.ChildNodes['partes'];
NodeReus.ChildNodes['parte'].ChildValues['cpf_cnpj']:='111';
NodeReus.ChildNodes['parte'].ChildValues['nome']:='CARLOS DA SILVA
PEREIRA';
NodeReus.ChildNodes['parte'].ChildValues['rg']:='1542184';
NodeReus.ChildNodes['parte'].ChildValues['rguf']:='PR';
NodeReus.ChildNodes['parte'].ChildValues['tipoJuridico']:='F';
NodeReus.ChildNodes['parte'].ChildValues['tipoParte']:='PAS';
memo1.Lines.Text := xml.GetText;
end;
finally
FreeAndNil(xmldoc2);
end;
end;
--
Rod
http://www.radiobrgospel.com Você conectado com o som do Céu!
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Re: Módulo 97 base 10 (norma iso 7064)
Aos amigos e colaboradores da lista: Agradeço pelas informações e críticas a respeito. Primeiro, quando recorremos a lista, é porque já fizemos uma varredura nos googles e yahoos da vida. Segundo, o objetivo não é ctrl+c ctrl+v, e sim, resolver o problema aqui proposto pelos desenvolvedores da lista e adequar a solução com nossa realidade, pois como todos sabem, tempo é dinheiro e o prazo é curto. E finalizando, para os amigos que passam pelo mesmo problema de prazo de entrega da solução, entrem em contato para que eu passe o exemplo por e-mail. Lembrando que o objetivo do CNJ é que seja gerado os dois dígitos verificadores, depois validar se o número está correto, e o objetivo da lista é colaborar uns com os outros. Abraço a todos Rod Em Thu, 17 Dec 2009 10:52:38 -0200, Robson - GMail aguiar...@gmail.com escreveu: Apoiado, vamos expulsar esse membro da lista, kkk -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Limpar todos os e dits de uma só vez!
Olá Jefferson Olhe esta função que uso há alguns anos: procedure LimparCampos(Fm : TForm); var i : Integer; begin try for i := 0 to Fm.ComponentCount - 1 do Begin if Fm.Components[i] is TCustomEdit then (Fm.Components[i] as TCustomEdit).Clear; if Fm.Components[i] is TLabeledEdit then (Fm.Components[i] as TLabeledEdit).Clear; if Fm.Components[i] is TRzListView then (Fm.Components[i] as TRzListView).Clear; if Fm.Components[i] is TRzEdit then (Fm.Components[i] as TRzEdit).Clear; if Fm.Components[i] is TRzNumericEdit then (Fm.Components[i] as TRzNumericEdit).Clear; End; except end; End; Você pode chamar da seguinte forma: LimparCampos(Self); Abraços Rod Em Thu, 17 Dec 2009 09:49:47 -0200, Jefferson Eduardo je.del...@yahoo.com.br escreveu: Pessoal, bom dia! Tenho um programa no delphi e quando clico no botão salvar, ele limpa os dados no edit.text e insere no banco, porém, para limpar estou fazendo desse jeito no código: EdtCep.Text:=' '; EdtBairro.Text:=' '; EdtCidade.Text:=' '; EdtTelfixo.Text:=' '; Existe alguma outra forma de limpar tudo isto de uma só vez, para diminuir o meu código? grato, Jefferson __ 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] -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Módulo 97 bas e 10 (norma iso 7064)
Agradeço a todos pela colaboração! Descobri uma função pronta num site francês e outro em chinês, e esse alg. é feito também pelos bancos (dígito verificador do boleto). Um grande abraço a todos Rod Em Tue, 15 Dec 2009 20:53:19 -0200, Fellipe Henrique felli...@gmail.com escreveu: Bom, acredito que se não é pra ajudar, melhor não responder... do que dizer asneiras por aí.. Att. 2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br O google, o Yahoo e o Altavista com certeza tem.. []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: rod rodli...@ymail.com rodlinux%40ymail.com To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, December 15, 2009 2:33 PM Subject: [delphi-br] Módulo 97 base 10 (norma iso 7064) Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas] -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Módulo 9 7 base 10 (norma iso 7064)
Valeu Rubem!
Vou testar o código aqui!
Abraços
Rod
Em Wed, 16 Dec 2009 14:14:14 -0200, Rubem Rocha
rubem.ro...@dtmanaus.com.br escreveu:
Com base no documento mencionado, escrevi as seguintes funções em Object
Pascal.
function CalculaMod97(NumeroProcesso: longint; Ano, OrgaoJTR,
OrigemProcesso: word): string;
var
resto1, resto2: longint;
valor1, valor2, valor3: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) Mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
'00';
Result := Format('%2.2d', [98 - (valor3 Mod 97)]);
end;
function ValidaMod97(NumeroProcesso: longint; Digito: Byte; Ano,
OrgaoJTR,
OrigemProcesso: word): boolean;
var
resto1, resto2: longint;
valor1, valor2, valor2: string;
begin
valor1 := Format('%7.7d', [NumeroProcesso]);
resto1 := StrToInt64(valor1) mod 97;
valor2 := Format('%2.2d', [resto1]) + Format('%4.4d', [Ano]) +
Format('%3.3d', [OrgaoJTR]);
resto2 := StrToInt64(valor2) mod 97;
valor3 := Format('%2.2d', [resto2]) + Format('%4.4d', [OrigemProcesso]) +
Format('%2.2d', [Digito]);
Result := (valor3 Mod 97 = 1);
end;
Façam suas validações e, depois, postem suas impressões na lista para
saber
se estas funções podem ser usadas em nossos aplicativos Delphi.
Sds.
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Ricardo César Cardoso
Enviada em: quarta-feira, 16 de dezembro de 2009 09:51
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Olha... sinceramente não vi nenhuma asneira por aí não... O único
problema é
que não existe implementação em Delphi ainda para o algoritmo proposto
pela
norma.
A documentação e exemplos que achei são para Java, VB e PL/SQL. Mas
perdendo
um pouco de tempo, e lendo este documento [1] acredito que seja possível
chegar a alguma coisa em Delphi.
[1] -
http://monoceros.cnj.gov.br/portalcnj/images/numerao_nica_de_processos_nos_e
stados/digito_de_verificacao_justica_em_numeros_do_cnj_15122008.pdf
Atte,
Ricardo.
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/12/09, Fellipe Henrique felli...@gmail.com
mailto:fellipeh%40gmail.com escreveu:
De: Fellipe Henrique felli...@gmail.com mailto:fellipeh%40gmail.com
Assunto: Re: [delphi-br] Módulo 97 base 10 (norma iso 7064)
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Data: Terça-feira, 15 de Dezembro de 2009, 20:53
Bom, acredito que se não é pra
ajudar, melhor não responder... do que dizer
asneiras por aí..
Att.
2009/12/15 Walter Chagas (Bol) wchag...@bol.com.br
mailto:wchagasj%40bol.com.br
O google, o Yahoo e o Altavista com certeza tem..
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br mailto:wchagasj%40bol.com.br
wchagasj%40bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com mailto:whitesockets%40hotmail.com
whitesockets%40hotmail.com
SKYPE: WalterChagasJr
- Original Message -
From: rod rodli...@ymail.com mailto:rodlinux%40ymail.com
rodlinux%40ymail.com
To: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
delphi-br%40yahoogrupos.com.br
Sent: Tuesday, December 15, 2009 2:33 PM
Subject: [delphi-br] Módulo 97 base 10 (norma iso
7064)
Olá a todos
Trabalho com sistema jurídico de distribuição de
processos judiciais e o
CNJ determinou que fosse gerado um único número por
processo, através de
uma combinação de valores, calculando o dígito
verificador através do alg.
Módulo 97 base 10 (norma iso 7064).
Alguém tem essa função para Delphi?
Grato
Rodrigo
[As partes desta mensagem que não continham texto
foram removidas]
-- _
T.·.F.·.A.·.
Fellipe Henrique
--
CAMPANHA POR UMA INTERNET SEGURA
Proteja o endereço de seus amigos como estou protegendo o
seu. Ao enviar
mensagens use SEMPRE o Cco (cópia oculta).
Assim TODOS os endereços estarão preservados. E, claro,
antes de encaminhar
um e-mail, delete todas as informações que apareçam no
corpo do e-mail e que
possam ser usadas por hackers.
###
[As partes desta mensagem que não continham texto foram
removidas]
-- FAVOR REMOVER ESTA PARTE AO RESPONDER
ESTA MENSAGEM
Links do Yahoo! Grupos
[delphi-br] Módulo 97 base 10 (norma iso 7064)
Olá a todos Trabalho com sistema jurídico de distribuição de processos judiciais e o CNJ determinou que fosse gerado um único número por processo, através de uma combinação de valores, calculando o dígito verificador através do alg. Módulo 97 base 10 (norma iso 7064). Alguém tem essa função para Delphi? Grato Rodrigo [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] MariaDB SQL
http://askmonty.org/wiki/index.php/MariaDB Como a Marca Mysql está registrada na Sun, o cara responsável pelo engine colocou o nome da filha mais nova dele, maria. Assim como o firebird é um filho do Interbase, MariaDB é um projeto paralelo do MySql. abraços Em Mon, 07 Dec 2009 11:17:03 -0200, Evandro Siqueira vans...@gmail.com escreveu: Eh cara, acho que tu tá viajando na maionese... botaram maconha no teu café da manhã, foi??? Oh louco!!! O Nome da menina é MARIA das Graças... Cara... eu acho que tu tá precisando de umas férias... tá muito estressado!!! -- Rod http://www.radiobrgospel.com Você conectado com o som do Céu! -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Re: migrar para Delphi 2010
Cardosi, valeu pelas informações!
Creio que vou esperar mais um tempo ainda, esperar amadurecer o projeto ou
ainda uma posição da Embarcadero.
obrigado a todos!
Rod
Em Thu, 08 Oct 2009 15:56:14 -0300, cardoso_acb cardoso_...@yahoo.com.br
escreveu:
Oi Rod,
Estou convertendo as minhas aplicações de 2007 para 2010.
O compilador reclamou dos tipos incompativeis Char e AnsiChar e eu fui
mudando para AnsiChar(variavel char).
Os tipos TbookMark passaram para TBytes, mudei os tratamentos.
Em tempo de execucao, deu erro nos tipos de campos strings, mudei tudo
que era TStringField para TWideStringField (Funcionou, mas não sei se é
o mais apropriado);
Eu usava RxLib, não tem mais para 2010, foi integrado no Jedi. Instalei
o Jedi e mudei tudo que era TRxCurrency para TJvCalcEdit,
TRxDBLookupCombo para TJvDBLookupCombo, TRxLabel para TJvLabel, etc.
(Quando baixei o Jedi (JVCL338CompleteJCL201-Build3449) o TCalcEdit tava
dando exception violation em tempo de projeto quando abria o form.
Baixei todos os fontes do projeto pelo SVN (quase 1 GB), compilei e
reinstalei. Foi quando funcionou.
Fiz estas alterações de tipo de classe, com um utilitario para mudar
todos os .PAS e .DFM da pasta tipo TRxCurrency para TJvCalcEdit por
exemplo.
Ainda estou com problema nos campos Memo das tabelas. Uso Firebird 2.0,
quando faço: MinhaVarString:=xx.FieldByName('campoMemo').asString ou
.asWideString, ou .asAnsiString, vem uma string com qualquer coisa,
menos o que deveria. Tipo ? %$#$%#%$%$#%$%$@
Ainda não está 100% testado. Por hora foram os problema que encontrei.
Se alguem puder me ajudar eu agradeço.
sds.
--- Em delphi-br@yahoogrupos.com.br, Andreano Lanusse
andreano.lanu...@... escreveu
Rod,
Você tem que fazer isso em situações muita específicas, exemplo:
manipulanção de tamanho de strings em bytes ou acesso direto a API do
Windows.
Se este não é o seu caso, você não terá problema.
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br] On Behalf Of rod
Sent: Monday, October 05, 2009 12:24 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] migrar para Delphi 2010
Boa tarde a todos!
Alguém já conseguiu migrar de algum delphi =2007 para 2010?
Sei que tem que trocar de string para AnsiString, mas, alguém conseguiu
com sucesso?
Atenciosamente
Rod
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
CONFIDENTIALITY NOTICE: This email message is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized review, use, disclosure or distribution
is prohibited. If you are not the intended recipient, please contact
the sender by reply email and destroy all copies of the original
message.
--
Usando o revolucionário cliente de e-mail do Opera:
http://www.opera.com/mail/
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Página Zerada no fast report
Experimente Página [Page#] de [TotalPages#] abraços Rod Em Tue, 06 Oct 2009 08:43:34 -0300, Guilherme Ventura de Souza ventur...@gmail.com escreveu: Pessoal, alguém aí já passou por isso, o código para mostrar a numeração de página que estou usando eh o seguinte: Página [Page] de [TotalPages] Porém quando gero o relatório ele me retorna Página 1 de 0 por exemplo =/ Talvez tenha alguma coisa a ver com o fato de que eu quero recomeçar a contagem de página a cada novo grupo que aparecer no relatório. Alguma sugestão? Abraços Att, Guilherme Ventura de Souza MSN: ventur...@hotmail.com http://venturalp.kinghost.net [As partes desta mensagem que não continham texto foram removidas] -- Usando o revolucionário cliente de e-mail do Opera: http://www.opera.com/mail/ -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] integrando bases de dados
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
//teste esse ou o outro
winexec (PAnsiChar('\cicero\diauni\project1.exe' +chave) ,sw_normal);
winexec (PAnsiString('\cicero\diauni\project1.exe' +chave) ,sw_normal);
end;
Em Mon, 05 Oct 2009 17:43:53 -0300, Fios e Cabos
cic...@fiosecabos.ind.br escreveu:
Alguem pode me dar uma ajuda ...
To me batendo com isso um monte e não consigo ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
Não consigo fazer o Delphi 7 entender que a chave é uma variável
Se eu substituir manualmente o termo +chave pelo numero de algum registro
... tudo funciona perfeitamente mas preciso que o sistema capture
automaticamente o numero da cada registro.
Help
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Fios e Cabos
Enviada em: domingo, 4 de outubro de 2009 23:52
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olha o código que estou tentando ...
procedure TF_Clientes.Button1Click(Sender: TObject);
var
chave : string;
begin
chave := f_clientes.RzDBEdit3.text;
winexec ('\cicero\diauni\project1.exe' +chave ,sw_normal);
end;
desde já obrigado pela ajuda
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 - 0xx(47) 9191.6226
www.fiosecabos.ind.br http://fiosecabos.ind.br/ -
cic...@fiosecabos.ind.br mailto:cicero%40fiosecabos.ind.br
P Antes de imprimir, pense em sua responsabilidade e compromisso com o
MEIO
AMBIENTE!
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 Claudiney - Listas
Enviada em: domingo, 4 de outubro de 2009 00:08
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: RES: [delphi-br] integrando bases de dados
Olá Cícero.
Neste caso os dois são projetos diferentes, executáveis diferentes,
conexões
diferentes ao banco de dados. Não vejo uma forma de comunicação direta
entre
os dois. A única maneira que vejo é você passar na linha de comando, como
parâmetro na hora da chamada do Project1, o registro que você selecionou
no
Project e lá no Project1 você buscar esse registro. Não vejo outra saída.
Tipo:
No momento da chamada no project você usar: project1.exe chavedoregistro
(ex: project1.exe 1534)
No Project um quando abrir fazer o select pra buscar o registro, algo
como:
cdsTabela.CommandText := ‘Select * from tabela where chave = ‘ +
paramStr(1);
ou
qryTabela.Sql := ‘Select * from tabela where chave = ‘ + paramStr(1);
ou posicionar a tabela:
Locate('chave', paramStr(1), [loPartialKey]);
ParamStr(1) retorna para você o primeiro parâmetro passado na linha de
comando.
ParamStr(2) retorna o segundo e assim por diante.
ParamStr(0) retorna o nome do executável chamado.
Pode ser que assim você resolva. Não conheço outra maneira, mas pode ser
que
alguém da lista conheça.
Um abraço
_
Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
http://www.n2solutions.com.br/ www.n2solutions.com.br
http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
http://www.studion2.com.br/ www.studion2.com.br
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 Fios e Cabos
Enviada em: sábado, 3 de outubro de 2009 22:43
Para: delphi-br@yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] integrando bases de dados
Minha duvida é a sgte tenho um Project.exe que chama outro modulo
projec1.exe ...
Como posso fazer para um form do project1 acessar uma base de dados com o
ponteiro definido no Project.
Ou seja ... kero abrir o form do project1 no registro definido pelo
Project
Tudo está funcionando ... porém qdo abro o sistema 2 ele está no primeiro
registro do banco ...
Obrigado
FIOS E CABOS ENGENHARIA LTDA
CÍCERO FERNANDES
ENGENHEIRO ELETRICISTA E DE SEGURANÇA DO TRABALHO
CREA-SC 27.958-0
0xx(47) 3521-2988 -
[delphi-br] migrar para Delphi 2010
Boa tarde a todos! Alguém já conseguiu migrar de algum delphi =2007 para 2010? Sei que tem que trocar de string para AnsiString, mas, alguém conseguiu com sucesso? Atenciosamente Rod -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Gravar uma data em branco no firebird
faça uma validação, e se a data for em branco, salve como Nulo
if (date '') then
dm.qyrecbto.FieldByName('UPGTO').AsDateTime := Date
else
dm.qyrecbto.FieldByName('UPGTO').value := null;
Em Mon, 28 Sep 2009 14:45:48 -0300, auriston.delphi
auriston.del...@yahoo.com.br escreveu:
Salve Delphianos.
No comando dm.qyrecbto.FieldByName('UPGTO').AsDateTime := Date, preciso
trocar a funcao Date por uma data em branco, é possivel efetuar este
processo ?
Uso D7+Firebird+IBX
at
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Importar XML e exportar o arquivo para EXCEL
Sim, este componente: Advanced Import Component v3.1.0.7 Full Source http://www.ccrun.com/view.asp?id=254 Advanced Export Component v4.1.0.7 http://www.ccrun.com/view.asp?id=204 Antes de compilar e instalar, entre na pasta languages de cada um deles, escolha PortugueseBR e clique nos dois bats pra deixar o sistema em português. insira no form o componente QExport4Dialog e também o QImportWizard. Em Fri, 25 Sep 2009 11:30:17 -0300, Marcelo Moacir Florindo marceloflori...@gmail.com escreveu: Colegas, Tenho um arquivo em XML (este arquivo poderá ser qualquer coisa, não tendo um padrão único, este exportador deverá pegar qualquer arquivo xml e converter) preciso que seja convertido em um excel. Estive olhando o xmltransform, existe algum compoente que faça isto? Não poderei usar o XMLMapper, pois como informado, não sei qual arquivo o usuário irá converter. Muito obrigado a todos, -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] aspas no firebird
o firebird não reconhece valoes como aspas dupla ,
mas você poderia fazer isso também:
qryConsultas.close;
qryConsultas.sql.clear;
qryConsultas.sql.add('select * from clientes where cliente=
'+QuotedStr('sim')+')');
qryConsultas.open;
ou ainda:
qryConsultas.close;
qryConsultas.sql.clear;
qryConsultas.sql.add('select * from clientes where cliente= '''SIM);
qryConsultas.open;
valeu!
Em Mon, 14 Sep 2009 11:19:13 -0300, felipe govoni
govoni.fel...@gmail.com escreveu:
bom dia
estou com um problema no firebird 2.1
ao realizar uma consulta simples:
qryConsultas.close;
qryConsultas.sql.clear;
qryConsultas.sql.add('select * from clientes where cliente= sim');
qryConsultas.open;
gera um erro dizendo que o campo 'sim' nao foi encontrado, para resolver
o
problema
preciso usar com parametro:
qryConsultas.close;
qryConsultas.sql.clear;
qryConsultas.sql.add('select * from clientes where cliente= :tipo');
qryConsultas.parambyname('tipo').value := 'sim';
qryConsultas.open;
desta maneira funciona mas gostaria de saber por que isso aconteceu.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
