|
|
Postada em 20/02/2011 19:36 hs
Pessoal preciso fazer uma condição dentro do meu relatorio
Local CurrencyVar Total;
If {tabFluxodeCaixa.C/D} = 'C' Then
crGreen
Total = Sum{tabFluxodeCaixa.Total}
Else If {tabFluxodeCaixa.C/D} = 'D' Then
crRed
Else
crBlack
estou usando assim mais nao ta dando certo da erro.
|
|
|
|
|
|
JOAO PAULO
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 20/02/2011 21:14 hs
Usando esta formula eu conseguir somar somente o primeiro registro os outros nao soma.
Local CurrencyVar Total;
if {tabFluxodeCaixa.C/D} = "C" then
Total := Total + ({tabFluxodeCaixa.TOTAL})
else
Total := Total
|
|
|
|
|
|
Postada em 21/02/2011 09:43 hs
Não precisa de função é os inserir um subtotal do campo numerico que o crystal soma, mesmo tendo agrupamento por codigio, descrição, ect
Não tente reinventar a roda.
|
|
|
|
JOAO PAULO
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/02/2011 10:06 hs
OK Juan, mais é o seguinte eu tenho uma tabela que contem varios CAmpos certo?
Os Registro que quero somar é somente os que no campo "C/D" esta com a Informação "C" se tiver com a informação "D" não é pra somar.
Ou seja:
Tabela Fluxo de CAixa ta assim
ID Movimentação C/D Valor
1 Contas a pagar D 50,00
2 Contas a receber C 25,00
3 Cotnas a receber C 20,00
4 Contas a pagar D 70,00
Se eu colocar um Sum no Campo Valor, o CR vai somar a Coluna toda e eu quero somar separadamente.
Obs.: No rodapé do meu relatorio tem que sair assim.
Creditado: 45,00
Debitado: 120,00
|
|
|
|
|
|
Postada em 22/02/2011 13:22 hs
cria uma formula no CR:
Global CurrencyVar Credito;
IF {tabFluxodeCaixa.C/D} = "C" Then
Credito := Credito + {tabFluxodeCaixa.TOTAL}
e chama ele no relatorio
|
|
|
|
JOAO PAULO
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/02/2011 20:29 hs
eu conseguir fazer de outro jeito eu fiz a soma dentro do vb mesmo e depois usei este comando para mostrar no relatorio.
CryRep.Formulas(1) = "TotalCred = '" & lblCreditado.Caption & "'"
CryRep.Formulas(2) = "TotalDeb = '" & lblDebitado.Caption & "'"
CryRep.Formulas(3) = "TotalLiq = '" & lblTotalCaixa.Caption & "'"
bom ficou show de bola, hehehe pra tudo se da um jeito né, vlw pelas dicas.
|
|
|
|
