Não funcionaria será, clicar com o direito do mouse no atalho ir em
Compatibilidade e rodar como vista, xp?
Sei lá, pode ser...
Use o comando Format, parece com o do C, C++... mas ainda não é bom como
o deles... já dá para quebrar um galho...
http://www.delphibasics.co.uk/RTL.asp?Name=Format
Sugiro esta:
HeidiSQL:
http://www.heidisql.com/
Não precisa dar o .Post para dar o .ApplyUpdates...
quando der o .ApplyUpdate ele já dá o .Post em tudo que for necessário...
e outra, se vc der um .ApplyUpdate e não alterou nada ele simplesmente
não vai fazer nada...
Sabes a diferença do Post e ApplyUpdate?
Post confirma somente no Client, ou
Vá até o formulário, clique com o direito e View As Text
com isso vai editar o .dfm...
remova todos os inherited que acha que estão atrapalhando...
Pressione Ctrl + F12 compile e responda oq aconteceu...
Vlw!
Consegui!
No evento OnBeforeUpdateRecord do provider...
OnBeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS:
TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean);
Ele envia o DeltaDS com as alterações feitas e o UpdateKind para saber
se update, insert ou delete...
Bom dia,
Tem algum jeito de quando executar um ApplyUpdates em um
TClientDataSet ao invés dele gravar direto no banco com Insert, Update e
Delete, eu interceptar isso e gravar por meio de uma procedure do banco?
Obrigado.
Chave:= Copy(NFe.NotasFiscais.Items[i].NFe.infNFe.ID, 4);
Numero:= NFe.NotasFiscais.Items[i].NFe.Ide.cNF;
Serie:= NFe.NotasFiscais.Items[i].NFe.Ide.serie;
Em 19/01/2010 08:20, Dimas Bolognani escreveu:
Preciso capturar o numero da NFE e chave gerada. Como faço?
Tenta colocar um AS
order by c.data_cot desc) AS VALOR_MOEDA
e coloca no Provider para não utiliza QuotedChar... faz esse teste e
responde oque ocorreu.
Em 19/01/2010 12:07, Huander escreveu:
Pessoal tenho um sqldataset onde eu faço uma SQL do seguinte modelo:
select R.RECEB_COD,
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http://www.systempro.com.br/(54) 3321-5888
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens
Não precisa, passa o Próprio...
AbaterValor(cdsParcela, valor);
AbaterValor(qryParcela, valor);
assim funciona...
Pois, ambos, TClientDataSet e TQuery... descendem de TDataSet... então
eles são TDataSet tbm..
Em 18/01/2010 14:41, pcedisi escreveu:
Obrigado Marcelo!
Como faço para passar
Existem algumas variaveis no SysUtils que servem para isso...
{separador de milhar }thousandseparator:='.';
{separador de decimal}decimalseparator:=',';
Não é bem PROGRAMAR... é só fazer interfaces gráficas... mas já ajuda...
Em 23/12/2009 00:00, EmbarcaDelphi escreveu:
Só a título de curiosidade.
Deseja fazer um programa complexo sem precisar digitar nenhum linha de
comando?
É o que promete fazer este programa. Navegando pela internet eu
Application.ShowHint*:= False;*
Isso?
procedure LimpaEdit(comp: TComponent);
var
i: TComponent;
c: TComponent;
begin
for i:=0 to comp.ComponentCount - 1 do
begin
c:=comp.Components[i];
if (c is TEdit) then
(c as TEdit).Text:=''
else begin
LimpaEdit(c);
end;
end;
end;
Porque você não deixa a sql no TSQLDataSet e altera os Parâmetros no
ClientDataSet?
Vai fucionar igual ao que está fazendo, só que a SQL ficaria no
TSQLDataSet, e não precisa do parametro poAllowCommandText, que acho até
que serve para outra coisa, e não isso...
Darkzad escreveu:
Olá
Isso não é seguro! NUNCA concatene na SQL... se ele estiver nulo o
asstring dele vai trazer '' então token unknow =) ...
Continue usando os parametros. só troca a sql de lugar... como falei
antes...
Alisson Yahoo escreveu:
Verifique se DBGrid1.Fields[0].AsInteger não está nulo. Tente
].AsInteger não está nulo e tem dado na tabela.
Se eu adicionar o comando :
ClientDataset.Close;
ClientDataset.Open;
Ele dá o erro 'Dynamic SQL Error SQL error code =-104 Unexpected end of
command - line1, column51'
Muito estranho isso.
Valeu
Marcelo Luiz Onhate escreveu:
Isso não é
Pelo oque eu sei ele não trabalha com transações... Para trabalhar com
transaçõesno MySql deve-se utilizar o InnoDB.
felipe govoni escreveu:
boa tarde
vi o post do colega silvio sobre esse bd mas nunca tinha ouvido falar,
li no
site
que ele é baseado no mysql, mas ele é confiavel?
O delphi que está usando não interessa... interessa o banco, exemplo o
mysql pode fazer select em outro banco mesmo quando estou conectado em
outro... O firebird não garanto que faça isso...
Fios e Cabos escreveu:
Estou tentando fazer um select em duas tabelas que salvei em bancos de
Nosa que troxa! É o nome dela!
EmbarcaDelphi escreveu:
Que nome? Essa porcaria de nome não leva a nada, a não ser que você seja
religioso! Maria tem muitas, tem até um nome de um demônio que se chama
Maria...
Não vamos colocar religião numa lista de programação, acho que até na
regra
Cara, só te dou uma dica, NUNCA concatene parametros em sql, faça o
teste... aonde você concatena parametros
vá no componente que concatenou e digite ' e manda executar a sql...
adivinha oque vai acontecer...
Sempre passe parâmetros... asssim:
dm.cdsCliente.CommandText:='Select * from
update produto set
desc=
'linha1
linha2'
where pro_cod=1
não precisa digitar o caracter de enter, basta somente abrir uma aspa
digitar o texto com enter e tudo e só fim fechar a aspa...
Alisson Yahoo escreveu:
Sílvio, acho que você não entendeu. Eu estou tentando fazer isso
diretamente
Tenta AnsiiUpperCase
Tenta
sAux:=FormatFloat('0',1234);
ShowMessage(sAux);
{Classe para exibição de Mensagens Informativas durante a execução de algum
processo.
Exemplo:
var fMsg: TInfoMessage;
begin
fMsg:=TInfoMessage.Create(Self,'Primeira Mensagem...');
ou
fMsg:=TInfoMessage.Create(Self);
...
fMesg.Text:='Segunda
é igual:
SETLENGTH(vetor, 20,20,40...);
Rodrigo Bevilacqua Marcondes escreveu:
Olá Rubem,
Eu sei criar um vetor dinâmico assim :
e alocar dinâmico
usando
SETLENGTH(vetor, 20);
mas para matriz não consegui fazer dinâmico.
Não consigo enviar arquivo...
então segue o código direto mesmo... aheuaheua
Tenta usar esta classe que fiz para exibir mensagens durante processos
longos...
{Classe para exibição de Mensagens Informativas durante a execução de
algum processo.
Exemplo:
var fMsg: TInfoMessage;
begin
exite em StGridCellClick,
quando efaço assim:
StGrid.OnCellClick := CClick_Ex;
ele apaga o evento anterior.
Desde já agradeço
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc
Valeu! =)
ajama_1 escreveu:
Muito Obrigado Marcelo, deu certo, parabéns, solução simples e criativa.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
Assim você guarda a referência de todos os objetos criados em uma lista...
var list: TList;
begin
list:=TList.Create;
//N Vezes...
list.add(TeuObjeto.Create);
end;
André escreveu:
Boa tarde.
Existe alguma forma de por exemplo.
Em tempo de execução, criar uma variável com a
Como estão os seus ProviderFlags?
Marcelo Moacir Florindo escreveu:
Colegas,
Eu tenho na query master:
select * from funcionario
where codigo=:codigo
no detalhe:
SELECT f.*,d.nome
FROM funcionario_professor f
INNER JOIN disciplina d ON (d.codigo=f.codigoMateria)
where
Usa o containing que é mais fácil.
a não ser que seja um like assim algumacoisa%ou %algumacoisa
porque se for %algumacoisa% usa containing e não se stressa com upper.
sql :='select * from TB_PRODUTO where NOME_PROD containing'+edtBusca.Text;
DMBusca.qVenda.Close;
Usa o containing que é mais fácil.
a não ser que seja um like assim algumacoisa%ou %algumacoisa
porque se for %algumacoisa% usa containing e não se stressa com upper.
sql :='select * from TB_PRODUTO where NOME_PROD containing'+edtBusca.Text;
DMBusca.qVenda.Close;
Bom dia,
Amigo, esta pergunta vai muito do projeto do seu banco, como ele está
modelado...
Mas respondendo sobre o GROUP BY, faz assim exemplo.
select substring(CNPJ from 1 for 8) as cnpj from Clientes c group by 1
Faça um group by no índice da coluna selecionada.
Leandro - Grupos escreveu:
/dm.qyrecbto.FieldByName('UPGTO').Clear;/
auriston.delphi 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
oq seria isso, não o record em si, mas para que serve e como funciona
aquele case dentro do record...
XXX = packed record
case Integer of
0: (A, B: Byte);
1: (Bytes: array [0..1] of Byte);
end;
Está dando .Open ou .ExecSQL?
oq seria isso, não o record em si, mas para que serve e como funciona
aquele case dentro do record...
XXX = packed record
case Integer of
0: (A, B: Byte);
1: (Bytes: array [0..1] of Byte);
end;
been swept by Sophos Anti-virus for the presence of
computer viruses.
***
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc
with TNomeDaClasse.Create(nil) do
begin
Show;
end;
ou aind
var
form: TNomeDaClasse;
begin
form := TNomeDaClasse.Create(nil);
form.Show;
end;
Aquele nil pode ser o form pai, ou qualquer outro que possa ser o
Owner (proprietário) desse form que vai abrir, ou nil mesmo se ele é
http://acbr.sourceforge.net/drupal/?q=node/36
Filippe Info escreveu:
Bom dia a todos,
Hoje a empresa que trabalho ainda não esta enquadrada para envio da NFe.
Porem estou recebendo todas de meus fornecedores o arquivos XML.
Eu gostaria de montar um programa para abrir o XML da NFe, pois
Se você não utilizar a variavel após a atribuição ela será ignorada.
Acho que isso é feito durante a compilação ainda...
Alisson Yahoo escreveu:
Pessoal, tenho uma rotina onde atribuo valores a variáveis do tipo Real:
Linha 1: rValItem := QualquerCoisa;
Linha 2: rPercICMS :=
! +Buscados
http://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc
alguma ferramenta no Delphi para isso?
--
José Mário Silva Guedes
Analista Programador Delphi
[As partes desta mensagem que não continham texto foram removidas]
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc
as configurações regionais do windows mas eu nao
queria fazer isso...
Aguardo...
Flw..
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http
Fone 8472-8718
www.govoni.com.br
[As partes desta mensagem que não continham texto foram removidas]
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
clientdataset?
grata.
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http://www.systempro.com.br/(54) 3321-5888
procedure Teste;
var sData: AnsiString;
dtData: TDateTime;
iMes, iAno: Integer
begin
// Se esse DBDataEdit tiver uma proprietade tipo .Text ou .Caption é só
atribuir para sData e ta feito.
// Tem que usar DateUtils, mas é só ir em cima de MonthOf ou YearOf e
teclar Ctrl+Shift+A...
//
://br.maisbuscados.yahoo.com http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
--
*/System – Soluções em Sistemas de Informação
/*/Marcelo Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http://www.systempro.com.br/(54) 3321-5888
--
FAVOR REMOVER ESTA PARTE AO RESPONDER
Luiz Onhate
Departamento de Desenvolvimento/
marc...@systempro.com.br mailto:marc...@systempro.com.br
www.systempro.com.br
http://www.systempro.com.br/(54) 3321-5888
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas
Alguém sabe como fazer um TFrame ficar com o fundo transparente?
Obs.: Tem rodar em Kylix também.
Como faço para um TFrame ficar com o fundo Transparente?
Obs.: Tem que rodar em Windows(Delphi) e Linux(Kylix).
%40yahoogrupos.com.br] Em
nome de Marcelo Luiz Onhate
Enviada em: quinta-feira, 3 de setembro de 2009 13:00
Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
Assunto: [delphi-br] TFrame Transparente
Como faço para um TFrame ficar com o fundo Transparente?
Obs.: Tem que rodar em Windows
Trabalha no Create dele.
*
constructor Create(AOwner: TComponent); override;
*Provavelmente se arrastou para um form o AOwner que vai vir é o próprio
form, então:
constructor Create(AOwner: TComponent);
begin
if AOwner is TForm then
begin
with AOwner as TForm do
begin
Quando da um Free um TList ele já faz o loop fazendo o free nos itens.
Para fazer um GROUP BY... nos campos que vai fazer beleza, mas nos
outros vc vai ter que fazer algo do tipo SUM(), AVG()... Senão não vai
rolar.
E outra dos unions teem que ser igual.
Exemplo:
SELECT CONTRATO,
ALBUM,
avg(DATA),
VENCIMENTO,
58 matches
Mail list logo