| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
 Enviada: Seg Mai 27, 2013 12:28 pm Assunto: Calculando campos com DbExpress RESOLVIDO |
 |
|
Bom dia,
Eu usava a paleta interbase e agora estou usando a dbExpress eu gostaria de multiplicar 2 campos com o DbExpress como eu faço isso? Antes com o interbase eu criava variáveis do tipo real e atribuía os valores dos campos à elas, só que no dbExpress os campos ficam do tipo Tcdb.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64.
Editado pela última vez por oneshotbr em Seg Mai 27, 2013 5:18 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Mai 27, 2013 2:31 pm Assunto: |
|
|
Boa tarde,
Você pode fazer praticamente da mesma forma, basta utilizar AsFloat ou AsCurrency para atribuir os valores dos campos as variáveis.
E dessa forma o código também funcionaria com outros componentes também (ex: paleta Interbase).
Espero que ajude.
_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-em-são_paulo |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Seg Mai 27, 2013 2:56 pm Assunto: |
|
|
Eu coloquei assim e está dando erro.
Incompatible types: Currency and TBcd
| Código: | var
porcentagem,icms,sub:Currency;
begin
icms := cdsProdutosPRO_ICMS.Value;
porcentagem :=
cdsProdutosPRO_ICMS.Value +
cdsProdutosPRO_SUBSTITUICAO.Value +
cdsProdutosPRO_PIS.Value +
cdsProdutosPRO_SIMPLES.Value +
cdsProdutosPRO_PORCENTAGEM.Value;
cdsProdutosPRO_PRECOCOMPRA.Value :=
cdsProdutosPRO_VALOR.Value / 100 * porcentagem; |
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Seg Mai 27, 2013 2:59 pm Assunto: |
|
|
é bem provavel ter falhas no código mas ele antes de tudo reclama da incompatibilidade.
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Mai 27, 2013 3:05 pm Assunto: |
|
|
Como comentei antes, tente substituir todos os .Value por .AsCurrency. Ex:
| Código: | var
porcentagem,icms,sub:Currency;
begin
icms := cdsProdutosPRO_ICMS.AsCurrency;
//... |
Espero que ajude. |
|
| Voltar ao Topo |
|
|
oneshotbr
Colaborador
Registrado: Quarta-Feira, 6 de Mai de 2009
Mensagens: 1948
Localização: Taubaté - SP
|
| Enviada: Seg Mai 27, 2013 3:07 pm Assunto: |
|
|
Eu não prestei atenção mil desculpas!
_________________
AMD Phenom II X4 960T 3.00 GHz - 8 GB DDR III - HD 1000 GB SATA - GeForce GTX 650 TI GDDR 5 - Monitor 21,5" Full HD - Kubuntu 14.04 + Windows 7 Professional x64. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
