USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Duvida no Crystal
ventana
SANTOS
SP - BRASIL
Postada em 14/06/2007 22:01 hs            
Ola Amigos


Eu tenho uma rotina com um valor em dolar que precisa ser convertido para reais atraves de uma taxa.Essa taxa esta cadastrada na base de dados.
Ate ai nenhum problema, pois basta multiplicar o valor em dolar pela taxa e obter o valor em reais.

Acontece que quando eu for emitir o relatorio, eu tenho a possibilidade de digitar uma outra taxa a ser utilizada atraves de um MaskEdit.Se o campo do MaskEdit estiver preenchido eu considero essa taxa que eu digitei, se estiver em branco eu considero a taxa cadastrada no banco de dados.

Alguem sabe como resolver esse probleminha.

Muito obrigado




     
JCarlos809
Pontos: 2843
PRESIDENTE PRUDENTE
SP - BRASIL
ENUNCIADA !
Postada em 15/06/2007 10:33 hs            
1-Monta uma fórmula chamada "Taxa"
2-Monta uma outra fórmula chamada "CalculoTaxa" 
   Nesta fórmula, faça o seguinte:
       If {@Taxa} > 0 then
          {@Taxa} * {Tabela!Valor}
       else
          {Tabela!Taxa} * {Tabela!Valor}
Observe que a Fórmula @Taxa deverá ser alimentada pelo vb na chamada do report.
A fórmula CalculoTaxa deverá ser colocada no local apropriado do seu report.
      
   
ventana
SANTOS
SP - BRASIL
ENUNCIADA !
Postada em 16/06/2007 01:18 hs            
Muito obrigado JCarlos809

Sua sugestao foi muito importante e eu acabei utilizando-a.

Fiz assim no Crystal.

if ToNumber ({@TaxaTeclado}) = 0 then
   {PROCESSOS.PROC_TAXA} * {PROCESSOS.PROC_VALOR}
else  
   ToNumber ({@TaxaTeclado}) * {PROCESSOS.PROC_VALOR}

E no VB, passei o valor informado via teclado, para a formula do Crystal.

FrmPrincipal.CstRelatorio.Formulas(2) = "TaxaTeclado=" & CDbl("0" & MskFee.Text)


Mais uma vez muito obrigado a todos e um abraço.

E a proposito, como e que se encerra o Topico?
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página