Re: [delphi-br] Data vazia
Marlon Primeiro que agradecer a você e aos outros colegas por tentar ajudar. Bem, eu havia pensado na opção2 que você mandou, mas eu queria ver se tinha um jeito mais simples. Estranha o null e o clear não funcionarem. Vou olhar a opção 1 também. Depois falo qual funcionou ! Marlon Tiedt [EMAIL PROTECTED] escreveu: Ricardo como você está fazendo SQL dinamico, voçê pode ou não colocar o campo no sql. Faça como a opção 2. A opção 1, é criar os parametros em tempo de execução. para isto faça assim: Declare variveis do tipo TParam e crie ele assim: _rparData1 := TParam.Create(dmpromo.SQLCpromo.Params, ptInput); _rparData1.Name := 'P_Data1'; _rparData2 := TParam.Create(dmpromo.SQLCpromo.Params, ptInput); _rparData2.Name := 'P_Data2'; []s, Marlon Opção 2 transacao.TransactionID :=1; transacao.IsolationLevel:=xilReadCommitted; dmpromo.SQLCpromo.StartTransaction(transacao); with dmpromo.SQLDataSet_promo do begin // with Close; CommandType:=ctQuery; CommandText:='Insert into clientes '+ '(idcliente,fantasia, razao,cnpj_cpf,rg_ie,tipo_cliente,tipo_logradouro, '+ 'endereco, numero, complemento, cep, bairro, cidade, uf, telefone, '+ 'celular, fax, email, nome_socio,dtnascimento_socio ,cpf_socio, rg_socio,'+ 'nome_socio2,dtnascimento_socio2,cpf_socio2, rg_socio2,'; // alterei aqui if ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then CommandText := CommandText + ' data_nascimento, '; CommandText := CommandText + ' login, data_cpu, contato,contratosocial_entregue,'+ 'cnpj_entregue,idramo,observacao,idvendedor,site,'+ 'nome_comprador1,nascimento_comprador1,cargo_comprador1,email_comprador1,'+ 'nome_comprador2,nascimento_comprador2,cargo_comprador2,email_comprador2,'+ 'data_cadastro,situacao_cliente, credito) '+ 'values (:xidcli,:xfanta, :xrazao, :xcnpj, :xrgie, :xtipocli, :xtipolog, '+ ':xend, :xnum, :xcompl, :xcep, :xbairro, :xcidade, :xuf, :xtel,'+ ':xcel, :xfax, :xemail, :xnmsocio1,:xdtsocio1 ,:xcpfsocio1, :xrgsocio1,'+ ':xnmsocio2,:xdtsocio2,:xcpfsocio2,:xrgsocio2,'+ // alterei aqui tb if ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then CommandText := CommandText + ':xdtnasc, '; CommandText := CommandText + ':xlogin,:xdtcpu, :xcontact,:xcontrato,:xcnpjentreg,:xidramo,:xobs,:xidvend,:xsite,'+ ':xnmcompra1,:xnasccompra1,:xcargo1,:xemailcomprador1,'+ ':xnmcompra2,:xnasccompra2,:xcargo2,:xemailcomprador2,'+ ':xdtcad,:xsitcli,:xcred '+ ')'; ParamByName('xidcli').AsInteger :=idcli; ParamByName('xfanta').AsString :=Edit_fantasia.Text; ParamByName('xrazao').AsString :=Edit_nomecliente.Text; ParamByName('xcnpj').AsString :=ffuncoes.numeros(xcpf_cnpj); Parambyname('xrgie').AsString :=Edit_rg_ie.Text; ParamByName('xtipocli').AsString:=tipocli; ParamByName('xtipolog').AsString:=CbBox_lograd.Text; ParamByName('xend').AsString:=Edit_endereco.Text; ParamByName('xnum').AsString:=Edit_numero.Text; ParamByName('xcompl').AsString:=Edit_compl.Text; ParamByName('xcep').AsString:=Edit_cep.Text; ParamByName('xbairro').AsString:=Edit_bairro.Text; ParamByName('xcidade').AsString:=edit_cidade.Text; ParamByName('xuf').AsString:=ComboBox_uf.Text; ParamByName('xtel').AsString:=Memo_tels.Text;// Edit_tels.Text; ParamByName('xcel').AsString:=ed_cel.Text; ParamByName('xfax').AsString:=Edit_fax.Text; ParamByName('xemail').AsString:=Edit_email.Text; ParamByName('xcpfsocio1').AsString:=ffuncoes.numeros(ed_cpfsocio.Text); ParamByName('xrgsocio1').AsString:=ed_rgsocio.Text; ParamByName('xcpfsocio2').AsString:=ffuncoes.numeros(ed_cpfsocio2.Text); ParamByName('xrgsocio2').AsString:=ed_rgsocio2.Text; //if not ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then //ParamByName( 'xdtnasc' ).Clear //else ParamByName('xdtnasc').AsDate:= strtodate(MaskEdit_dtnasccliente.text); // aqui tb if ffuncoes.validadata(MaskEdit_dtnasccliente.Text) then ParamByName('xdtnasc').AsDate:= strtodate(MaskEdit_dtnasccliente.text); ParamByName('xlogin').AsString:=login_user; ParamByName('xdtcpu').AsDate:=date; ParamByName('xcontact').AsString:=ed_contato.Text; if ChkBox_contrato.Checked then ParamByName('xcontrato').AsString:='1' else ParamByName('xcontrato').AsString:='0'; if ChkBox_cnpj.Checked then ParamByName('xcnpjentreg').AsString:='1' else ParamByName('xcnpjentreg').AsString:='0'; if ffuncoes.ValidaInt(edit_ramo.Text) then Parambyname('xidramo').AsInteger:=Strtoint(edit_ramo.Text) else Parambyname('xidramo').AsInteger:=0; ParamByName('xobs').AsString:=memo_obs.Text; // edit_obs.Text; if ffuncoes.ValidaInt(ed_numvend.Text) then ParamByName('xidvend').AsInteger:=strtoint(ed_numvend.Text) else ParamByName('xidvend').AsInteger:=0; ParamByName('xsite').AsString:=ed_site.Text; if novocli then ParamByName('xdtcad').AsDate:=Now; end; // with dmpromo.SQLDataSet_promo.ExecSQL; dmpromo.SQLCpromo.Commit(transacao); [As partes desta mensagem que
[delphi-br] Formato moeda no DBGRID
Bom dia! Estou usando Delphi 2005 com FireBird 2.0 e DbExpress. No Banco de Dados tenho campos no formato numeric com duas casas decimais, porém ao mostra-los no DbGrid não consigo formatá-los. Onde é 10,00 aparede apenas 10. Já mudei a propriedade currency dos campos para tru, coloquei em DisplayFormat = ,0.00 e nada. Alguém poderia me ajudar, por favor? Sds Adjalma - 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]
Re: [delphi-br] função for next
O bug, na verade, é o fato de que o delphi não destrói a variável. Daí o loop funciona uma vez, mas quando vai executar novamente, a variável já contém o valor final. Leonardo Cruz Costa Analista de Sistemas / RH Prefeitura Municipal de Quissamã Mat.: 2601 (22)2768-9324 / 9372 - Original Message - From: fabio giro To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 08, 2008 2:06 PM Subject: Re: [delphi-br] função for next Substitua o FOR por WHILE. Espero ter ajudado. Clovis iTelefonica [EMAIL PROTECTED] escreveu: Ola pessoal. Saudações Algo inusitado acontece qdo uso a funçao for i := 1 to 100 do O valor inicial de i é 100 e não 1 como deveria ser. Porque? D7 Obrigado Clovis Clovis Machado Ferreira Que o Grande Arquiteto do Universo nos Ampare Msn-[EMAIL PROTECTED] [As partes desta mensagem que não continham texto foram removidas] - 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] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.516 / Virus Database: 269.17.13/1213 - Release Date: 7/1/2008 09:14 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BUG no PrintDialog?
Toda vez que executo o PrintDialog ao final tenho a propriedade Collate = false na (variável var_agru) quer a caixa de verificação Agrupar esteja marcada ou não. Parte do código que estou usando escrevo abaixo: *** PrintDialog1.PrintRange := prAllPages; PrintDialog1.FromPage := 1; PrintDialog1.MinPage := 1; PrintDialog1.ToPage := var_tota; PrintDialog1.MaxPage := var_tota; PrintDialog1.Copies := 1; PrintDialog1.Collate := true; if PrintDialog1.Execute then begin var_impr := Printer.PrinterIndex; var_inic := PrintDialog1.FromPage; var_fina := PrintDialog1.ToPage; var_copi := PrintDialog1.Copies; var_agru := self.PrintDialog1.Collate; end; * Quando chega aqui a variável var_agru sempre é false, independente da caixa de verificação Agrupar. *** Se alguém souber como consigo saber se foi marcada ou não a caixa de verificação Agrupar após a sua execução, por favor me diga. Estou criando um preview próprio, preciso saber o que o usuário escolheu. Desde já grato, Carlos
Re: [delphi-br] função for next
Clovis iTelefonica wrote: Ja inicializei a variavel com x:=0 e continua o mesmo erro Mas obrigado assiim mesmo Cara, eu tô verde de curiosidade para conhecer esse erro. Por gentileza, mande um .zip para os arquivos da lista, ou em pvt que eu publico para o pessoal, para que eu possa ver o tal bug com os próprios olhos. -- Joao Morais
Re: [delphi-br] Problemas com o TEF
O TEF se for discado é uma merlin mesmo, tive cliente tirando TEF e voltando para POS, motivo é esse mesmo, inclusive cupons impressos com número de comprovante da operadora e o dim dim não é creditado , porque simplesmente o sistema não do gerenciador padrão não transfere os valores, sem contar a velocidade, (afinal é discado).. afff... o negocio é um remendo mau feito. Em 08/01/08, Weber Luvisa [EMAIL PROTECTED] escreveu: O seguinte amigos, em um caso algumas vendas são canceladas, mesmo apos impresso o comprovante, a confirmação, quando o cliente vai ver a venda não esta mais no visa. Estanho que tenho varios clientes com a mesma versão do sistema e funciona normal, ai a visa diz que o problema e do Software.. alguem ja passou por isso ou sabe o que pode ser? Agradeço qual quer informação!! -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] função for next
Hahaha Eu ri muito quando li esse post do Joao. Infelizmente eu não conseguiria te disponibilizar nem se tentasse, a rotina é enorme e dependente de outros módulos. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Joao Morais Enviada em: terça-feira, 8 de janeiro de 2008 17:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] função for next Clovis iTelefonica wrote: Ja inicializei a variavel com x:=0 e continua o mesmo erro Mas obrigado assiim mesmo Cara, eu tô verde de curiosidade para conhecer esse erro. Por gentileza, mande um .zip para os arquivos da lista, ou em pvt que eu publico para o pessoal, para que eu possa ver o tal bug com os próprios olhos. -- Joao Morais [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] REGION no Delphi 7
Faça como eu fiz, substitua os componentes de terceiros, por componentes do próprio Delphi ou opensource compatíveis com o Delphi 2006/2007. Adriano Santos (Yahoo) escreveu: Desabafo, hoje meu sonho é migrar meus módulos para, ao menos, BDS2006. Tô com uma bucha maior do mundo na mão. Meus aplicativos são só componentes de terceiro sem fonte e alternativo. Minha vontade é de matar quem desenvolveu. []s -- Adriano Santos -- Editor Técnico Revista ClubeDelphi. http://www.delphitodelphi.blogspot.com http://www.delphitodelphi.blogspot.com http://www.devmedia.com.br http://www.devmedia.com.br http://www.devmedia.com.br/clubedelphi/pagina.asp http://www.devmedia.com.br/clubedelphi/pagina.asp Andreano Lanusse respondeu: José, migra pra Delphi 2007 :-) Delphi 7 não tem isso não. []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 From: 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] On Behalf Of José Mário Silva Guedes Sent: Monday, January 07, 2008 11:34 AM To: Lista - Delphi Subject: [delphi-br] REGION no Delphi 7 Olá amigos, Feliz Código Novo a todos! Existe algum plugin compatível com o Delphi 7 que possibilite trabalhar com REGIONs ? No caso, REGION seria o agrupamento de um trecho de código que poderia ser escondido. O objetivo é eu organizar melhor os códigos por aqui, pois algumas rotinas são bem longas. Obrigado a todos! -- José Mário Silva Guedes Analista Programador Delphi http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ http://pgviavel.blogspot.com/ [As partes desta mensagem que não continham texto foram removidas] [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.516 / Virus Database: 269.17.13/1213 - Release Date: 1/7/2008 9:14 AM [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Data vazia
DataType é definido quando você para o parametro. Com dbExpress, campo data puro eu uso integer. Eu uso MSSQL 2005. FormRelAtendimentos.qryAtendimentos.Params.ParamByName('P_Data1').AsInteger := Trunc(edtDataInicio.Date); []s, Marlon - Original Message - From: Marcos Douglas To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 08, 2008 9:43 AM Subject: Re: [delphi-br] Data vazia Ricardo, Vc tem que definir o DataType do campo. Se o campo que foi criado dinâmicamente não tiver um tipo definido, acontece esta Exception. Defina o campo como ftTimeStamp. Abraços Marcos Douglas On 1/8/08, Ricardo Cabral [EMAIL PROTECTED] wrote: Marlon Primeiro que agradecer a você e aos outros colegas por tentar ajudar. Bem, eu havia pensado na opção2 que você mandou, mas eu queria ver se tinha um jeito mais simples. Estranha o null e o clear não funcionarem. Vou olhar a opção 1 também. Depois falo qual funcionou ! . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: função for next
Clovis... for i:= 1 to 100 do se tiver algum código aqui i aqui o i é igual a 100 for i:= 1 to 100 do begin se tiver algum código aqui i aqui o i é igual a 1 end; Não tá faltando um begin end no seu código não? Ola pessoal. Saudações Algo inusitado acontece qdo uso a funçao for i := 1 to 100 do O valor inicial de i é 100 e não 1 como deveria ser. Porque? D7 Obrigado Clovis
Re: [delphi-br] Formato moeda no DBGRID
vou aproveitar a oportunidade, creio q ja estou entendendo o problema do nosso amigo, ele esta querendo formatar os campos no dbgrid e nao na tabela, eu estou tendo o mesmo problema, minha tabela tem o seguinte campo vlrnota decimal(12,2) not null default '0.00' quando seleciono o campo ele me mostra o displayformat para formatar, porem se faço select sum(vlrnota) as soma1 ele me retorna a mensagem campo float atual string; - Outro problema que estou enfrentando, na minha aplicacao eu crio uma tabela temporaria vlrnota decimal(12,2) not null default '0.00', faco todo o procedimento de incluir registros nessa tabela e visualizar os registros, porem ela retorna em qualquer condicao no dbfgrid como se fosse string 124523.00 qdo deveria aparecer assim 124.523,00; creio que o que o nosso colega quer fazer é configurar a visualizacao do dbgrid e nao da table; eu ainda nao consegui resolver o problema tbem. Por favor me corrija se eu estiver entendendo o problema errado - Original Message - From: Luciano Angelini To: delphi-br@yahoogrupos.com.br Sent: Tuesday, January 08, 2008 1:43 PM Subject: Re: [delphi-br] Formato moeda no DBGRID Eu uso assim e sempre funcionou !!! DisplayFormat := #,###.00 Luciano Angelini Preeitura de Lupionópolis-Pr Adjalma Costa escreveu: Pois é algo estranho está acontecendo, pois já troquei apropriedade Currency para true e configurei o DisplayFormat adequadamente, porém não mostra os centavos: O que deveria aparecer do DbGrid 1,00, aparece 1 sds Adjalma Jumper [EMAIL PROTECTED] mailto:joaopaulo.jpo%40gmail.com escreveu: vc também pode alterar a propriedade Currency do campo para true; Em 08/01/08, Adjalma Costa [EMAIL PROTECTED] mailto:adjalmacosta%40yahoo.com.br escreveu: Já havia feito isso, porém não mostra os centavos. sds Adjalma Régis Bender [EMAIL PROTECTED] mailto:regissk8%40terra.com.br regissk8%40terra.com.br escreveu: Bom dia, na propriedade DisplayFormat coloca ###,###,##0.00 ou ###.###.##0,00 Pra mim isso resolveu 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 regissk8%40terra.com.br www.regisbender.com.br - Original Message - From: Adjalma Costa To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, January 08, 2008 10:52 AM Subject: [delphi-br] Formato moeda no DBGRID Bom dia! Estou usando Delphi 2005 com FireBird 2.0 e DbExpress. No Banco de Dados tenho campos no formato numeric com duas casas decimais, porém ao mostra-los no DbGrid não consigo formatá-los. Onde é 10,00 aparede apenas 10. Já mudei a propriedade currency dos campos para tru, coloquei em DisplayFormat = ,0.00 e nada. Alguém poderia me ajudar, por favor? Sds Adjalma - 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] -- E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail [As partes desta mensagem que não continham texto foram removidas] - 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] [As partes desta mensagem que não continham texto foram removidas] - 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] __ Informação do NOD32 IMON 2775 (20080108) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]