Re: [delphi-br] Variant type conversion
Tente isso: Total.Caption := FormatFloat('###, ###,###0.00',( DTM.tb_avan_soma.FieldByName('soma').AsFloat) - -(DTM.tb_avanc_debito.FieldByName('debito').AsFloat)); Deve funcionar sem dar o erro mesmo tendo valores null []'s RICARDO CERQUEIRA ANALISTA DE SISTEMAS On 6/16/05, Rodrigo Mota [EMAIL PROTECTED] wrote: Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos [As partes desta mensagem que no 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
[delphi-br] Variant type conversion
Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Variant type conversion
que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloat ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Variant type conversion
O problema e q um dos dois valores esto nulos e no com 0. Basta colocar 0 na tabela ou testar primeiro antes de tentar calcular. function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant; begin if Condicao then Result := Verdadeiro else Result := Falso; end; iif(DTM.tb_avan_soma.FieldByname( 'Soma' ).AsString = '', 0, DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat); Eduardo Ps.: espero ter ajudado. - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 16, 2005 10:22 AM Subject: Re: [delphi-br] Variant type conversion que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloat ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grtis - Internet rpida e grtis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Variant type conversion
Oh valew Eduardo, funcionou blzinha Eu no entendi o pq quando eu coloquei o DTM.tb_avan_soma. quando colocamos o ponto ele aparece a lista de funes disponveis para Se usar com aquele objeto, soh que no caso no apareceu o fieldbyname('') que normalmente uso. Estou aprendendo bastante com o grupo e estou pegando A manha do Delphi valews Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de eduardo.sic Enviada em: quinta-feira, 16 de junho de 2005 10:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Variant type conversion que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloat ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.2/14 - Release Date: 14/06/2005 -- 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Variant type conversion
E sempre bom ter opinies diferentes, pois todos ns no temos a mesma lgica. Valew lista Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: quinta-feira, 16 de junho de 2005 11:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Variant type conversion O problema e q um dos dois valores esto nulos e no com 0. Basta colocar 0 na tabela ou testar primeiro antes de tentar calcular. function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant; begin if Condicao then Result := Verdadeiro else Result := Falso; end; iif(DTM.tb_avan_soma.FieldByname( 'Soma' ).AsString = '', 0, DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat); Eduardo Ps.: espero ter ajudado. - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 16, 2005 10:22 AM Subject: Re: [delphi-br] Variant type conversion que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloat ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grtis - Internet rpida e grtis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] ou [EMAIL PROTECTED] _ 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] mailto:[EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do http://br.yahoo.com/info/utos.html Servio do Yahoo!. [As partes desta mensagem que no 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
Re[2]: [delphi-br] Variant type conversion
que bom que deu certo rodrigo, o fieldbyname nao apareceu pra vc porque DTM.tb_avan_soma. est depois da operao de subtrao, se vc colocar numa linha vazia ele aparece. bom trabalho pra vc. = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:RES: [delphi-br] Variant type conversion Oh valew Eduardo, funcionou blzinha Eu no entendi o pq quando eu coloquei o DTM.tb_avan_soma. quando colocamos o ponto ele aparece a lista de funes disponveis para Se usar com aquele objeto, soh que no caso no apareceu o fieldbyname('') que normalmente uso. Estou aprendendo bastante com o grupo e estou pegando A manha do Delphi valews Rodrigo -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de eduardo.sic Enviada em: quinta-feira, 16 de junho de 2005 10:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Variant type conversion que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloa t ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/mess a ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.7.2/14 - Release Date: 14/06/2005 -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Variant type conversion
Rodrigo, Vc tb pode tentar assim : Total.Caption := FormatFloat('###,###,###0.00', StrtoCurrdef(DTM.tb_avan_soma.FieldValues['soma'].AsString,0)- StrtoCurrDef(DTM.tb_avanc_debito.FieldValues['debito'].AsString,0)); Abraos, Paulo Srgio Bhte / MG -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Enviada em: quinta-feira, 16 de junho de 2005 11:17 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Variant type conversion O problema e q um dos dois valores esto nulos e no com 0. Basta colocar 0 na tabela ou testar primeiro antes de tentar calcular. function iif(Condicao: boolean; Verdadeiro, Falso: variant): variant; begin if Condicao then Result := Verdadeiro else Result := Falso; end; iif(DTM.tb_avan_soma.FieldByname( 'Soma' ).AsString = '', 0, DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat); Eduardo Ps.: espero ter ajudado. - Original Message - From: eduardo.sic [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, June 16, 2005 10:22 AM Subject: Re: [delphi-br] Variant type conversion que tal: Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldByname( 'Soma' ).Asfloat - DTM.tb_avanc_debito.FieldByname('debito').asFloat ) ); = De:Rodrigo Mota [EMAIL PROTECTED] Para:delphi-br@yahoogrupos.com.br Assunto:[delphi-br] Variant type conversion Esta dando o erro EVariantError Invalid variant type conversion Percebi o erro quando o resultado de soma vazio ou dbito vazio, quando os dois no esto vazios o erro no ocorre Como procedo agora??? Total.Caption := FormatFloat('###, ###, ###0.00',(DTM.tb_avan_soma.FieldValues['soma']) - -(DTM.tb_avanc_debito.FieldValues['debito'])); Rodrigo [As partes desta mensagem que no 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/messa ges Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos http://br.groups.yahoo.com/group/delphi-br/ http://br.yahoo.com/info/utos.html -- 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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos ___ Yahoo! Acesso Grtis - Internet rpida e grtis. Instale o discador agora! http://br.acesso.yahoo.com/ -- 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] ou [EMAIL PROTECTED] _ 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] mailto:[EMAIL PROTECTED] * O uso que voc faz do Yahoo! Grupos est sujeito aos Termos do http://br.yahoo.com/info/utos.html Servio do Yahoo!. [As partes desta mensagem que no 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] ou [EMAIL PROTECTED] 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: http://br.yahoo.com/info/utos.html