Re: [delphi-br] Re: XML SNGPC
me manda o seu email que eu te passo um arquivo dbf que eu tenho com essas informações fabiana - Original Message - From: Marco To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 23, 2007 10:07 AM Subject: [delphi-br] Re: XML SNGPC Fabiana, tudo bem ? Teria como voce me enviar o link do Guia da Farmacia ? Nao consegui encontra-lo no MS para pegar a lista dos registros dos medicamentos. Desde ja agradeço --- Em delphi-br@yahoogrupos.com.br, Fabiana [EMAIL PROTECTED] escreveu Marco, Eu desenvolvi o SNGPC tambem e peguei o numero do registro do medicamento no ministerio da saude pelo guia da farmacia alguns medicamentos não são todos possui essa informação Fabiana - Original Message - From: Marco To: delphi-br@yahoogrupos.com.br Sent: Tuesday, August 21, 2007 12:47 PM Subject: [delphi-br] XML SNGPC Pessoal, boa tarde ! Estou desenvolvendo o XML para o Sistema Nacional de Gerenciamento de Produtos Controlados, vi que um dos campos é o registro do medicamento no Ministerio da Saude, gostaria de saber fugindo um pouquinho do SNGPC se alguem sabe onde posso encontrar estes tais registros por que ja procurei no site do Ministerio da Saude (evidente), ANVISA e Google e nada de encontrar... O que eu quero é importar os registros para meu sistema como ja faço com os produtos,preços,principios ativos e etc da tabela ABCFARMA todo mes. Desde ja agradeço Marco Belo Horizonte/MG [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Duvida sobre SQL no Delphi
Carlos, Bom Dia
o codigo completo e esse aqui:
with DModulo.qryVendas do
begin
Close;
SQL.Clear;
SQL.Add('Select');
SQL.Add('VendasEspec.TipoRec as TipoRec,');
SQL.Add('VendasEspec.NumeroRec as NumeroRec,');
SQL.Add('VendasEspec.DataRec as DataRec,');
SQL.Add('VendasEspec.UFCRM as UFCRM,');
SQL.Add('VendasEspec.CRM as CRM,');
SQL.Add('VendasEspec.TipoCRM as TipoCRM,');
SQL.Add('VendasEspec.TipoDoc as TipoDoc,');
SQL.Add('VendasEspec.NumeroDoc as NumeroDoc,');
SQL.Add('VendasEspec.OrgaoExp as OrgaoExp,');
SQL.Add('VendasEspec.UFDoc as UFDoc,');
SQL.Add('VendasEspec.NomeComp as NomeComp,');
SQL.Add('VendasEspec.NomeMed as NomeMed,');
SQL.Add('VendasEspec.TipoOp as TipoOp,');
SQL.Add('VendasEspec.DescProd as DescProd,');
SQL.Add('VendasEspec.Quantidade as Quantidade,');
SQL.Add('VendasEspec.DataVenda as DataVenda,');
SQL.Add('VendasEspec.Lote as Lote,');
SQL.Add('VendasEspec.RegMs as RegMS');
SQL.Add('from');
SQL.Add('vendasEspec');
SQL.Add('UNION ALL');
SQL.Add('select');
SQL.Add('CAST('' AS Char(1)) as TipoRec,');
SQL.Add('CAST('' AS VarChar(15)) as NumeroRec,');
SQL.Add('CAST('' AS Date) as DataRec,');
SQL.Add('CAST('' AS Char(2)) as UFCRM,');
SQL.Add('CAST('' AS VarChar(10)) as CRM,');
SQL.Add('CAST('' AS Char(4)) as TipoCRM,');
SQL.Add('CAST('' AS Char(6)) as TipoDoc,');
SQL.Add('Clientes.Inscr_Est as NumeroDoc,');
SQL.Add('CAST('' AS Char(6)) as OrgaoExp,');
SQL.Add('CAST('' AS Char(2)) as UFDoc,');}
SQL.Add('Vendas.cliente as NomeComp,');
SQL.Add('CAST('' AS VarChar(50)) as NomeMed,');
SQL.Add('Vendas.operacao as TipoOp,');
SQL.Add('Vendas.DescProd as DescProd,');
SQL.Add('Vendas.quantidade as Quantidade,');
SQL.Add('Vendas.data as DataVenda,');
SQL.Add('Vendas.identifica as Lote,');
SQL.Add('Codforn.codfornec as RegMS');
SQL.Add('from');
SQL.Add('Vendas');
SQL.Add('LEFT JOIN');
SQL.Add('Clientes ON vendas.CGC = clientes.CGC');
SQL.Add('LEFT JOIN');
SQL.Add('Codforn ON vendas.codprod = codforn.codelf');
SQL.Add('where');
SQL.Add('(vendas.data = :pDataini1) and (vendas.data = :pDatafim1) and');
SQL.Add('(vendas.grupoProd = :pGrupo1) and (vendas.operacao = :tipoOp1) or');
SQL.Add('(vendas.data = :pDataini2) and (vendas.data = :pDatafim2) and');
SQL.Add('(vendas.grupoProd = :pGrupo2) and (vendas.operacao = :tipoOp2) or');
SQL.Add('(vendas.data = :pDataini3) and (vendas.data = :pDatafim3) and');
SQL.Add('(vendas.grupoProd = :pGrupo3) and (vendas.operacao = :tipoOp3) or');
SQL.Add('(vendas.data = :pDataini4) and (vendas.data = :pDatafim4) and');
SQL.Add('(vendas.grupoProd = :pGrupo4) and (vendas.operacao = :tipoOp4)');
SQL.Add('Order by');
SQL.Add('descprod,datavenda');
Params[0].AsDate:= dtpInicial.Date;
Params[1].AsDate:= dtpFinal.Date;
Params[2].AsString := '1';
Params[3].AsString := 'V';
Params[4].AsDate:= dtpInicial.Date;
Params[5].AsDate:= dtpFinal.Date;
Params[6].AsString := '2';
Params[7].AsString := 'V';
Params[8].AsDate:= dtpInicial.Date;
Params[9].AsDate:= dtpFinal.Date;
Params[10].AsString := '3';
Params[11].AsString := 'V';
Params[12].AsDate:= dtpInicial.Date;
Params[13].AsDate:= dtpFinal.Date;
Params[14].AsString := '4';
Params[15].AsString := 'V';
Open;
end;
estou usando o UNION pois os tem campos em uma tabela que tem na outra e
preciso fazer com os 2 se tornem um so campo.
Obrigado desde de já
Fabiana
- Original Message -
From: Carlos
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 27, 2007 7:35 PM
Subject: [delphi-br] Re: Duvida sobre SQL no Delphi
Boa noite.
se esta for a rotina que está tentando implantar, vc está apagando a
sentença Sql e não a está escrevendo novamente, pois quando dá um
qryvendas.sql.clear; vc apaga o conteudo da query.
logo vc deve fazer:
qryvendas.sql.close;
qryvendas.sql.clear;
qryvendas.sql.add(select nome_dos_campos from tabela(s));
qryvendas.sql.add(vendasespec.TipoRec as TipoRec);
se vc postou o código completo, creio que isto sana o problema. Tenta ai.
Mas pq vc está usando uma UNION e não um JOIN?
Fraterno abraço,
Carlos
--- Em delphi-br@yahoogrupos.com.br, Fabiana [EMAIL PROTECTED] escreveu
Boa Tarde pessoal
Estou fazendo uma query e estou usando um union e há alguns campos
que existem em uma tabela e na outra, pelo SQL eu estou usando CAST(''
as char(1)) as TipoRec) e funciona beleza, só que quando vou usar isso
do Delphi para passar as informações para o Tquery estou fazendo assim:
qryvendas.sql.close;
qryvendas.sql.clear;
qryvendas.sql.add(vendasespec.TipoRec as TipoRec);
coloco os outros campos desta tabela e depois
qryvendas.sql.add(Union);
qryvendas.sql.add(CAST('' as char(1)) as TipoRec);
coloco os outros campos desta tabela
qryvendas.sql.open;
só que quando vou executar aparece o erro de 'List index
Re: [delphi-br] Duvida sobre SQL no Delphi
José Ricardo, Bom Dia
Não funciona, se eu tento colocar espeço entre as aspas o Delphi mostra o erro
de 'missing operator semi color'...
Obrigado
Fabiana
- Original Message -
From: thevortex78
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 27, 2007 6:08 PM
Subject: RES: [delphi-br] Duvida sobre SQL no Delphi
Olá teta colocar um espaço entre as aspas. ' '
José Ricardo Aviles
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabiana
Enviada em: quarta-feira, 27 de junho de 2007 17:23
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Duvida sobre SQL no Delphi
Boa Tarde pessoal
Estou fazendo uma query e estou usando um union e há alguns campos que
existem em uma tabela e na outra, pelo SQL eu estou usando CAST('' as
char(1)) as TipoRec) e funciona beleza, só que quando vou usar isso do
Delphi para passar as informações para o Tquery estou fazendo assim:
qryvendas.sql.-close;
qryvendas.sql.-clear;
qryvendas.sql.-add(vendasespec.-TipoRec as TipoRec);
coloco os outros campos desta tabela e depois
qryvendas.sql.-add(Union)-;
qryvendas.sql.-add(CAST(-'' as char(1)) as TipoRec);
coloco os outros campos desta tabela
qryvendas.sql.-open;
só que quando vou executar aparece o erro de 'List index out of Bounds(0);
O que eu tenho que usar no lugar deste CAST já que no SQL ele funciona
criando o campo para mim vazio?
Obrigado desde de já
Fabiana
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.9.6/866 - Release Date: 25/06/2007
09:43
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.9.6/866 - Release Date: 25/06/2007
09:43
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Duvida sobre SQL no Delphi
Marcelo,
Não deu certo o Delphi diz que o campo é invalido quando uso o CAST da
forma que vc sugeriu colocando as ' ' pelo codigo asc.
Fabiana
- Original Message -
From: Marcelo - Kappesberg
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 28, 2007 9:18 AM
Subject: Re: [delphi-br] Re: Duvida sobre SQL no Delphi
Acho que o problema neste caso eh as aspas simples, jah que ela tambem eh
usada para carregar o SQL...
tente fazer assim:..
SQL.Add('CAST('+#34#34+' AS Char(1)) as TipoRec,');
o #34 eh o codigo asc das aspas simples...
Marcelo Hörlle
[EMAIL PROTECTED]
- Original Message -
From: Fabiana
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, June 28, 2007 8:53 AM
Subject: Re: [delphi-br] Re: Duvida sobre SQL no Delphi
Carlos, Bom Dia
o codigo completo e esse aqui:
with DModulo.qryVendas do
begin
Close;
SQL.Clear;
SQL.Add('Select');
SQL.Add('VendasEspec.TipoRec as TipoRec,');
SQL.Add('VendasEspec.NumeroRec as NumeroRec,');
SQL.Add('VendasEspec.DataRec as DataRec,');
SQL.Add('VendasEspec.UFCRM as UFCRM,');
SQL.Add('VendasEspec.CRM as CRM,');
SQL.Add('VendasEspec.TipoCRM as TipoCRM,');
SQL.Add('VendasEspec.TipoDoc as TipoDoc,');
SQL.Add('VendasEspec.NumeroDoc as NumeroDoc,');
SQL.Add('VendasEspec.OrgaoExp as OrgaoExp,');
SQL.Add('VendasEspec.UFDoc as UFDoc,');
SQL.Add('VendasEspec.NomeComp as NomeComp,');
SQL.Add('VendasEspec.NomeMed as NomeMed,');
SQL.Add('VendasEspec.TipoOp as TipoOp,');
SQL.Add('VendasEspec.DescProd as DescProd,');
SQL.Add('VendasEspec.Quantidade as Quantidade,');
SQL.Add('VendasEspec.DataVenda as DataVenda,');
SQL.Add('VendasEspec.Lote as Lote,');
SQL.Add('VendasEspec.RegMs as RegMS');
SQL.Add('from');
SQL.Add('vendasEspec');
SQL.Add('UNION ALL');
SQL.Add('select');
SQL.Add('CAST('' AS Char(1)) as TipoRec,');
SQL.Add('CAST('' AS VarChar(15)) as NumeroRec,');
SQL.Add('CAST('' AS Date) as DataRec,');
SQL.Add('CAST('' AS Char(2)) as UFCRM,');
SQL.Add('CAST('' AS VarChar(10)) as CRM,');
SQL.Add('CAST('' AS Char(4)) as TipoCRM,');
SQL.Add('CAST('' AS Char(6)) as TipoDoc,');
SQL.Add('Clientes.Inscr_Est as NumeroDoc,');
SQL.Add('CAST('' AS Char(6)) as OrgaoExp,');
SQL.Add('CAST('' AS Char(2)) as UFDoc,');}
SQL.Add('Vendas.cliente as NomeComp,');
SQL.Add('CAST('' AS VarChar(50)) as NomeMed,');
SQL.Add('Vendas.operacao as TipoOp,');
SQL.Add('Vendas.DescProd as DescProd,');
SQL.Add('Vendas.quantidade as Quantidade,');
SQL.Add('Vendas.data as DataVenda,');
SQL.Add('Vendas.identifica as Lote,');
SQL.Add('Codforn.codfornec as RegMS');
SQL.Add('from');
SQL.Add('Vendas');
SQL.Add('LEFT JOIN');
SQL.Add('Clientes ON vendas.CGC = clientes.CGC');
SQL.Add('LEFT JOIN');
SQL.Add('Codforn ON vendas.codprod = codforn.codelf');
SQL.Add('where');
SQL.Add('(vendas.data = :pDataini1) and (vendas.data = :pDatafim1) and');
SQL.Add('(vendas.grupoProd = :pGrupo1) and (vendas.operacao = :tipoOp1) or');
SQL.Add('(vendas.data = :pDataini2) and (vendas.data = :pDatafim2) and');
SQL.Add('(vendas.grupoProd = :pGrupo2) and (vendas.operacao = :tipoOp2) or');
SQL.Add('(vendas.data = :pDataini3) and (vendas.data = :pDatafim3) and');
SQL.Add('(vendas.grupoProd = :pGrupo3) and (vendas.operacao = :tipoOp3) or');
SQL.Add('(vendas.data = :pDataini4) and (vendas.data = :pDatafim4) and');
SQL.Add('(vendas.grupoProd = :pGrupo4) and (vendas.operacao = :tipoOp4)');
SQL.Add('Order by');
SQL.Add('descprod,datavenda');
Params[0].AsDate:= dtpInicial.Date;
Params[1].AsDate:= dtpFinal.Date;
Params[2].AsString := '1';
Params[3].AsString := 'V';
Params[4].AsDate:= dtpInicial.Date;
Params[5].AsDate:= dtpFinal.Date;
Params[6].AsString := '2';
Params[7].AsString := 'V';
Params[8].AsDate:= dtpInicial.Date;
Params[9].AsDate:= dtpFinal.Date;
Params[10].AsString := '3';
Params[11].AsString := 'V';
Params[12].AsDate:= dtpInicial.Date;
Params[13].AsDate:= dtpFinal.Date;
Params[14].AsString := '4';
Params[15].AsString := 'V';
Open;
end;
estou usando o UNION pois os tem campos em uma tabela que tem na outra e
preciso fazer com os 2 se tornem um so campo.
Obrigado desde de já
Fabiana
- Original Message -
From: Carlos
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, June 27, 2007 7:35 PM
Subject: [delphi-br] Re: Duvida sobre SQL no Delphi
Boa noite.
se esta for a rotina que está tentando implantar, vc está apagando a
sentença Sql e não a está escrevendo novamente, pois quando dá um
qryvendas.sql.clear; vc apaga o conteudo da query.
logo vc deve fazer:
qryvendas.sql.close;
qryvendas.sql.clear;
qryvendas.sql.add(select nome_dos_campos from tabela(s));
qryvendas.sql.add(vendasespec.TipoRec as TipoRec);
se vc postou o código completo, creio que isto sana o problema. Tenta ai.
Mas pq vc está usando uma UNION e não um JOIN?
Fraterno abraço,
Carlos
--- Em delphi-br
[delphi-br] Duvida sobre SQL no Delphi
Boa Tarde pessoal
Estou fazendo uma query e estou usando um union e há alguns campos que existem
em uma tabela e na outra, pelo SQL eu estou usando CAST('' as char(1)) as
TipoRec) e funciona beleza, só que quando vou usar isso do Delphi para passar
as informações para o Tquery estou fazendo assim:
qryvendas.sql.close;
qryvendas.sql.clear;
qryvendas.sql.add(vendasespec.TipoRec as TipoRec);
coloco os outros campos desta tabela e depois
qryvendas.sql.add(Union);
qryvendas.sql.add(CAST('' as char(1)) as TipoRec);
coloco os outros campos desta tabela
qryvendas.sql.open;
só que quando vou executar aparece o erro de 'List index out of Bounds(0);
O que eu tenho que usar no lugar deste CAST já que no SQL ele funciona criando
o campo para mim vazio?
Obrigado desde de já
Fabiana
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas sobre BDGrid
Bom Dia Pessoal!!! Gostaria de saber qual o evento do dbgrid que é disparado toda vez que o dbgrid sofre uma alteração em um dos seus campos Obrigado desde de já Fabiana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas dbgrid ligado a uma query
Boa Tarde Pessoal Estou com uma duvida tenho um DBGRID que esta ligado a uma query que faz um select com where entre 3 tabelas e preciso fazer uma alteração no DBGRID alterando os valores nessa query pois uso ela para gerar um XML mas não alterar a base de dados. Como faço isso? Obrigado desde de já Fabiana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] XML
Bom Dia, pessoal!!!
Estou criando um xml usando o TXMLDocument e estou usando o codigo abaixo para
isto:
XML := TXMLDocument.Create(nil);
with XML do
begin
Active := True;
Version := '1.0';
Encoding := 'ISO-8859-1';
AddChild('MensagemSNGPC','urn:sngpc-schema');
DocumentElement.AddChild('cabecalho');
DocumentElement.ChildNodes.Last.AddChild('cnpjEmissor').NodeValue :=
RemoveMascara (Dmodulo.tblEmpresaCGC.AsString);
DocumentElement.ChildNodes.Last.AddChild('cpfTransmissor').NodeValue
:= '72586648153';
DocumentElement.ChildNodes.Last.AddChild('dataInicio').NodeValue :=
DateToSystem(dtpInicial.Date);
DocumentElement.ChildNodes.Last.AddChild('dataFim').NodeValue :=
DateToSystem(dtpFinal.Date);
DocumentElement.AddChild('corpo');
DocumentElement.AddChild('medicamentos');
DocumentElement.AddChild('entradaMedicamentos');
DocumentElement.AddChild('notaFiscalEntradaMedicamentos');
For I := 1 to 5 do
begin
DocumentElement.ChildNodes.Last.AddChild('cnpjEmissor3').NodeValue
:= '1234';
next;
end;
que esta gerando o seguinte XML:
?xml version=1.0 encoding=ISO-8859-1 ?
- MensagemSNGPC xmlns=urn:sngpc-schema
- cabecalho
cnpjEmissor67527069000149/cnpjEmissor
cpfTransmissor72586648153/cpfTransmissor
dataInicio2007-06-08/dataInicio
dataFim2007-06-08/dataFim
/cabecalho
corpo /
medicamentos /
entradaMedicamentos /
- notaFiscalEntradaMedicamentos
cnpjEmissor31234/cnpjEmissor3
cnpjEmissor31234/cnpjEmissor3
cnpjEmissor31234/cnpjEmissor3
cnpjEmissor31234/cnpjEmissor3
cnpjEmissor31234/cnpjEmissor3
/notaFiscalEntradaMedicamentos
/MensagemSNGPC
Só que preciso que nas linhas onde estão escritos corpo, medicamentos,
entradaMedicamentos fiquem tambem com esse sinal de (-) ou seja um node só sem
informação dentro (um node dentro do outro) coisa que só consigo fazer se eu
coloco alguma informação entre elas como esta feito em NotaFiscalMedicamentos.
Queria uma ajuda para somente saber qual comando eu tenho que usar para
cria essa 3 linhas com o sinal de (-), pois o comando que estou usando não é o
correto.
Obrigada desde de já
Fabiana
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criação de XML no Delphi 7
Boa tarde pessoal!!! Estou com dificuldades em criar um xml no delphi usando o TXMLDocument e não consigo encontrar material disponivel na net explicando como se cria um xml usando esse componente, gostaria de pedir uma ajuda se alguem tem algum tutorial explicando como se faz ou se tem algum exemplo Obrigado desde de já Fabiana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas no envio de email usando o MAPIMESSAGE
Boa Tarde pessoal... Tenho um aplicativo que envia email usando o MAPI e estou tendando fazer com ele envio um email para mais de uma pessoa ao mesmo tempo mas não estou conseguindo ele mostra que vai enviar o email mas na hora que ele manda para o Outlook o Outlook não aceita o email ex: eu mando o seguinte email [EMAIL PROTECTED];[EMAIL PROTECTED] o outlook rejeita mas se eu venho no outlook e crio um email e coloco esses mesmo email ele envia sem problema... Alguem sabe o motivo deste erro? é alguma limitação do MAPI [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Copiar tabela
Estou trabalhando com banco de dados DBF pelo BDE. - Original Message - From: Alessandro DUARTE de Moraes To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 04, 2007 6:12 PM Subject: Re: [delphi-br] Copiar tabela Estás trabalhando com qual banco de dados? Caso ele suporte SQL, basta fazer: INSERT INTO tabela_destino SELECT * FROM tabela_origem; e se precisar zerar a tabela_origem: DELETE FROM tabela_origem; Agora, se estás usando DBF do dbase ... creio que mesmo assim vc consegue fazer via BDE. []'s - Original Message - From: Fabiana To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 04, 2007 2:53 PM Subject: [delphi-br] Copiar tabela Boa Tarde Gostaria primeiro de agradecer a ajuda sobre a duvida que esta tendo de como descubrir se uma tabela estava aberta. Agora a minha duvida é a seguinte: como faço para copiar uma tabela e jogar as informações em outra tabela? por exemplo: tenho uma uma tabela chamada produto.dbf e quero fazer uma copia desta tabela em determinada hora pelo meu aplicativo colocando as informações desta tabela em outra. Como faço isso? Obrigado desde de já Fabiana [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,459d4911917171952695358 [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 sobre tabelas
Bom Dia... Estou com um problema no meu aplicativo queria saber como faço para saber se a minha tabela está aberta ou fechada, pois se estiver aberta quero fecha-la. Obrigado Fabiana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Copiar tabela
Boa Tarde Gostaria primeiro de agradecer a ajuda sobre a duvida que esta tendo de como descubrir se uma tabela estava aberta. Agora a minha duvida é a seguinte: como faço para copiar uma tabela e jogar as informações em outra tabela? por exemplo: tenho uma uma tabela chamada produto.dbf e quero fazer uma copia desta tabela em determinada hora pelo meu aplicativo colocando as informações desta tabela em outra. Como faço isso? Obrigado desde de já Fabiana [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi e Intranet
Henrique, Uma dica para vc é se vc estiver usando Delphi 7 na palheta do RAVE tem um componente que se chama RVTenderPDF que gera PDF, agora da uma pesquisada na net que deve ter alguma explicação de como funciona esse componente pois sei que ele gera o PDF mas não sei como pois descobri isso em uma epoca que ia precisar gerar um relatorio em PDF mas que depois não foi mais necessario, então não entrei a fundo no funcionamento deste componente mas para começo acho que já da para te ajudar ate Fabiana - Original Message - From: Angelo Zanini Paim To: delphi-br@yahoogrupos.com.br Sent: Monday, December 11, 2006 3:05 PM Subject: [delphi-br] Delphi e Intranet Tudo bem pessoal... Tenho um programa em intranet com delphi e preciso criar relatórios para impressão. Pelo que lí sobre o assunto, uma das melhores formas de se fazer isso é criando um arquivo PDF. Meu problema é justamente esse. Alguém conhece alguma ferramenta gratuita para criar PDFs pelo delphi? Obrigado a todos. Henrique Angelo -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.432 / Virus Database: 268.15.15/581 - Release Date: 09/12/06 15:41 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WSDL com problema
Boa Tarde para todos, Estou desenvolvendo um aplicativo usando para acesso a farmacia popular por WSDL ja importei o WSDL vi as funções que existem nesse WSDL só que agora tenho uma função que preciso executar que se chama function executarSolicitacao(const in0: SolicitacaoDTO; const in1:UsuarioFarmaciaDTO): AutorizacaoDTO; stdcall; Nesta const SolicitaçãoDTO tenho que informar varias coisas como por exemplo CPF, CRM, UF, Data entre outras informações, num total de 8 informações diferentes que estão todas em um 8 edits diferentes ja que o usuario tem que digitar essas informações. Gostaria de saber como faço para jogar essas 8 informações dentro desta const SolicitacaoDTO e como faço para convertar um campo texto para TXSDateTime que é a definição para o campo data. Fabiana [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Criar Função
Boa tarde para todos... Como faço para criar uma função onde o paramentro seja do tipo objeto? Fabiana [As partes desta mensagem que não continham texto foram removidas]
