DisplayFormat no Report Builder

[andreyixo 0]

Olá, estou usando o Variable para fazer caculos...

mas estou com um problema no DisplayFormat (R$) estou usando essa máscara...

 

R$ ,0.00;-R$ ,0.00

 

e no evento OnCalc...

 

Value := Value + DBFCaixa['CREDCAIXA'] - DBFCaixa['DEBICAIXA'];

mas na visualização quando o valor é negativo ele fica entre parenteses...

 

Ex: (R$100,00)

 

alguem sabe como resolver esse problema ?

Uso Delphi 7 + Report Builder 10.09

 

Estou com outro problema...

Coloquei o seguinte SQL (Firebird) no meu SimpleDataSet...

 

SELECT 
	...
	CAIXA.EMITNOTAFISCAL,
	...
FROM CAIXA

UNION

SELECT 
	...
	CAIXA.EMITNOTAFISCAL,
	...
FROM CAIXA

UNION

SELECT 
	...
	CAIXA.EMITNOTAFISCAL,
	...
FROM CAIXA

ORDER BY 13 DESC

Obs: tirei o desnecessário para postar o código.

O campo EMITNOTAFISCAL eh boolean(0, 1) e dentro do relatório criei um group desse campo, mas dentro do relatório eu gostaria de mostrar primeiro o grupo 1 e depois o grupo 0, mas apesar da cláusula ORDER BY 13 DESC, ele não reconhece o DESC, me ajudem por favor!!!!

 

Att, Andrey

[andreyixo 0]

O primeiro problema consegui resolver, ele pega a formatação de moeda do windows, então implementei uma rotina no meu sistema para mudar o padrão do windows!

Mas se alguem souber como posso resolver o segundo, por favor me ajudem!!!

[Chrnos 30]

Coloque o sql completo para análise... mas já adiantando uma pergunta... o que é esse 13 no order by?

[andreyixo 0]

SELECT 
	CAIXA.IDCAIXA,
	CAIXACONTROLE.HORAABERTURA,
	CAIXACONTROLE.SALDINICIAL,
	CAIXACONTROLE.DATAABERTURA,
	CAIXACONTROLE.DATAFECHAMENTO,
	CAIXACONTROLE.HORAFECHAMENTO,
	CAIXAUSUARIO.DESCCAIXAUSUARIO,
	CAIXA.DATALANCAMENTO,
	ASSESSORIA.FANTEMPRESA,
	CONTAS.NOMECONTA,
	CAIXA.CREDCAIXA,
	CAIXA.DEBICAIXA,
	CAIXA.EMITNOTAFISCAL,
	NOTAFISCAL.NUMENOTAFISCAL,
	CAIXA.HORALANCAMENTO
FROM CAIXA
   INNER JOIN CAIXACONTROLE ON (CAIXA.CODICAIXACONTROLE = CAIXACONTROLE.IDCAIXACONTROLE)
   INNER JOIN CAIXAUSUARIO ON (CAIXA.CODICAIXAUSUARIO = CAIXAUSUARIO.IDCAIXAUSUARIO)
   INNER JOIN ASSESSORIA ON (CAIXA.CODIEMPRESA = ASSESSORIA.IDEMPRESA)
   INNER JOIN CONTAS ON (CAIXA.CODICONTA = CONTAS.IDCONTA)
   LEFT JOIN NOTAFISCAL ON (CAIXACONTROLE.IDCAIXACONTROLE = NOTAFISCAL.CODICAIXACONTROLE)
WHERE 
   (
	  (CAIXACONTROLE.IDCAIXACONTROLE IS NOT NULL )
   AND 
	  (
		 (CONTAS.IDCONTA = (SELECT CODITRANSCAIXA FROM PARAMETROFINANCEIRO))
	  OR 
		 (CONTAS.IDCONTA = (SELECT CODITROCCAIXA FROM PARAMETROFINANCEIRO))
	  OR 
		 (CONTAS.IDCONTA = (SELECT CODIRETCAIXA FROM PARAMETROFINANCEIRO))
	  )
   AND 
	  (CAIXACONTROLE.IDCAIXACONTROLE = :CCAIXA)
   )

UNION

SELECT 
	CAIXA.IDCAIXA,
	CAIXACONTROLE.HORAABERTURA,
	CAIXACONTROLE.SALDINICIAL,
	CAIXACONTROLE.DATAABERTURA,
	CAIXACONTROLE.DATAFECHAMENTO,
	CAIXACONTROLE.HORAFECHAMENTO,
	CAIXAUSUARIO.DESCCAIXAUSUARIO,
	CAIXA.DATALANCAMENTO,
	EMPRESA.FANTEMPRESA,
	EXAME.DESCEXAME,
	CAIXA.CREDCAIXA,
	CAIXA.DEBICAIXA,
	CAIXA.EMITNOTAFISCAL,
	NOTAFISCAL.NUMENOTAFISCAL,
	CAIXA.HORALANCAMENTO
FROM CAIXA
   INNER JOIN CAIXACONTROLE ON (CAIXA.CODICAIXACONTROLE = CAIXACONTROLE.IDCAIXACONTROLE)
   INNER JOIN CAIXAUSUARIO ON (CAIXA.CODICAIXAUSUARIO = CAIXAUSUARIO.IDCAIXAUSUARIO)
   INNER JOIN EMPRESA ON (CAIXA.CODIEMPRESA = EMPRESA.IDEMPRESA)
   INNER JOIN EXAME ON (CAIXA.CODISERVICO = EXAME.IDEXAME)
   LEFT JOIN NOTAFISCAL ON (CAIXACONTROLE.IDCAIXACONTROLE = NOTAFISCAL.CODICAIXACONTROLE)
WHERE 
   (
	  (CAIXACONTROLE.IDCAIXACONTROLE IS NOT NULL )
   AND 
	  (CAIXACONTROLE.IDCAIXACONTROLE = :CCAIXA)
   )

UNION

SELECT 
	CAIXA.IDCAIXA,
	CAIXACONTROLE.HORAABERTURA,
	CAIXACONTROLE.SALDINICIAL,
	CAIXACONTROLE.DATAABERTURA,
	CAIXACONTROLE.DATAFECHAMENTO,
	CAIXACONTROLE.HORAFECHAMENTO,
	CAIXAUSUARIO.DESCCAIXAUSUARIO,
	CAIXA.DATALANCAMENTO,
	PRESTADOR.NOMEPRESTADOR,
	CONTAS.NOMECONTA,
	CAIXA.CREDCAIXA,
	CAIXA.DEBICAIXA,
	CAIXA.EMITNOTAFISCAL,
	NOTAFISCAL.NUMENOTAFISCAL,
	CAIXA.HORALANCAMENTO
FROM CAIXA
   INNER JOIN CAIXACONTROLE ON (CAIXA.CODICAIXACONTROLE = CAIXACONTROLE.IDCAIXACONTROLE)
   INNER JOIN CAIXAUSUARIO ON (CAIXA.CODICAIXAUSUARIO = CAIXAUSUARIO.IDCAIXAUSUARIO)
   INNER JOIN CONTAS ON (CAIXA.CODICONTA = CONTAS.IDCONTA)
   INNER JOIN PRESTADOR ON (CAIXA.CODIEMPRESA = PRESTADOR.IDPRESTADOR)
   LEFT JOIN NOTAFISCAL ON (CAIXACONTROLE.IDCAIXACONTROLE = NOTAFISCAL.CODICAIXACONTROLE)
WHERE 
   (
	  (CAIXACONTROLE.IDCAIXACONTROLE IS NOT NULL )
   AND 
	  (
		 (CAIXA.CODICONTA <> (SELECT CODITRANSCAIXA FROM PARAMETROFINANCEIRO))
	  AND 
		 (CONTAS.IDCONTA <> (SELECT CODITROCCAIXA FROM PARAMETROFINANCEIRO))
	  AND 
		 (CONTAS.IDCONTA <> (SELECT CODIRETCAIXA FROM PARAMETROFINANCEIRO))
	  )
   AND 
	  (CAIXACONTROLE.IDCAIXACONTROLE = :CCAIXA)
   )

ORDER BY 13 DESC

 

ORDER BY 13 Significa que está ordenando pelo 13º campo do meu SELECT, como tem o UNION, o nome dos campos podem ser diferentes, então o ORDER BY é feito pela posição do campo no SELECT e o DESC é que porque é em ordem decrescente.