Referência Comercial

[Robinson]

Olá amigos

Tenho uma missão muito dificil.

Preciso gerar um CUBO que permita uma consulta rápida para quando um consultor estiverf em contato com o cliente e essa consulta deve trazer os seguintes dados do clientes :

Maior Compra (tmov.valorliquido)(tmov.dataemissao)

-

Menor Valor (tmov.valorliquido)(tmov.dataemissao)

-

Nome do Cliente (fcfo.nome)

-

Pontualidade (flan.datavencimento) e (flan.datacheque)

- se o cliente deixou de pagar alguma compra até a data de vencimento

- podemos utilizar algo tipo: flan.datavencimento <=getdate() and flan.datacheque is null = cliente inadimplente

Forma de Pagamento (fdados.formapagamento) e (fdados.idpgts)

- A vista, quatro parcelas, etc...

Condições de Pagamento(tmov.codcpg)

- 15 DDL, 20 DDL, etc

O pontos de referencia entre as tabelas são o tipo de movimento (venda): tmov.codtmv 2.2.01, 2.2.04 e 2.2.14, fcfo.codcfo.

A maior dificuldade é para unir essas informações em um único select.

Resgatar os dados individualmente é fácil. O problema esta em uni-los.

Já tentei com Union, com Join, e com select Composto. Mas não consegui o resultado esperado, já que o que dificulta mais é ter que utilizar o MAX e MIN para resgar tar a maior e a menor compra.

Se alguem puder me dar uma força, eu ficarei muito feliz!

[Alberto Libório]

Acho isso meio complicado.

Tem um recurso no cadastro de clientes/fornecedores que exibe as últimas transações financeiras.

Isso até a versão 6.xx.xx

depois da versão 7.00 eu trato isso tudo em uma consulta sql.. acho mais fácil que um cubo, visto que essas informações não são de decisão e sim um "relatório simples".

Obs. No Rm Agilis tem tudo isso..

Caso não tenha , explique melhor a necessidade... talvez por relatório ou consulta SQL você resolva melhor.

Alberto Libório

[Jair - Fórmula]

Verdade, se você usar relatório direto não é melhor ?

Por que quer usar pelos Cubos ?

[Robinson]

Olá Amigos

Obrigado pela atenção!

Pensei em utilizar um CUBO pela facilidade que o usuário terá na hora de manipular o relatório. Pode-se dizer que gosto muito de relatórios em CUBO.

Mas na atual cituação, aceito qualquer dica para que eu consiga apenas extrair os dados.

Ahh!

A verão que utilizamos ainda é a v.6

Um grande abraço à todos e se tiverem mais lguma dica ficarei muito feliz

[Visitante Rodrigo Dataprint LagoaSanta (não cadastrado)]

Meu caro amigo, se quiser tenho um relatorio no RMNucleus que traz varias informações, inclusive a que você precisa.

Utilizo ele em um movimento, aonde o usuario precisar analisar a ficha de credito do cliente.

Espero que ajude.

OBs.: Não é um cubo e sim um relatorio do nucleus que puxa informações do RMFluxus.

Ficha_de_Crédito_Ficha_de_Crédito.RRM

[Visitante Rodrigo Dataprint LagoaSanta (não cadastrado)]

A versão que estou é tb a 6.0

[Robinson]

Meu caro amigo, se quiser tenho um relatorio no RMNucleus que traz varias informações, inclusive a que você precisa.

Utilizo ele em um movimento, aonde o usuario precisar analisar a ficha de credito do cliente.

Espero que ajude.

OBs.: Não é um cubo e sim um relatorio do nucleus que puxa informações do RMFluxus.

Olá Rodrigo

Obrigado pela dica

Vou estudar o seu relatório, eu achei ele muito interessante.

Não é exatamente o que eu estou fazendo, é bem mais do que eu estou fazendo

No meu caso vai ter que ser um CUBO por que é mais rápido a sua emissão em tela e o usuário pode ter mais interação.

Estou quase no caminho. Quando conseguir vou posta-lo aqui.

Se tiver mais dicas eu ficarei muito feliz.

Um grande abraço e obrigado!

[Robinson]

Verdade, se você usar relatório direto não é melhor ?

Por que quer usar pelos Cubos ?

Olá Amigo

Estou me acostumando com o forum.

Coloquei minha contra resposta no fim deste tópico ao invés de lhe responder pela resposta como estou fazendo agora.

Vou colocar a vaixa a solução que consegui utilizando apenas consultas SQL aplicada em um CUBO.

Grande abraçco n

[Robinson]

:D

Olá pessoal

Aí estão as linhas do select que eu fiz para resolver o problema.

Depois de pronta eu a utilizei em um CUBO e ficou OK

SELECT

A.NOME,

(SELECT MAX(B.VALORLIQUIDO) FROM TMOV B WHERE A.CODCFO = B.CODCFO AND B.CODCOLIGADA = C.CODCOLIGADA)AS 'Val Max',

(SELECT MAX(D.DATAEMISSAO) FROM TMOV D WHERE A.CODCFO = D.CODCFO AND D.CODCOLIGADA = C.CODCOLIGADA)AS 'Data Max',

(SELECT MIN(E.VALORLIQUIDO) FROM TMOV E WHERE A.CODCFO = E.CODCFO AND E.CODCOLIGADA = C.CODCOLIGADA)AS 'Val Min',

(SELECT MIN(F.DATAEMISSAO) FROM TMOV F WHERE A.CODCFO = F.CODCFO AND F.CODCOLIGADA = C.CODCOLIGADA)AS 'Data Min',

CASE C.STATUSLAN

WHEN '0' THEN 'Inadimplência'

ELSE 'normal'

END AS 'situação',

C.NUMERODOCUMENTO AS 'Número do documento',

C.DATAVENCIMENTO,

H.DESCRICAO AS 'forma Pagamento',

J.NOME AS 'condições pgto'

FROM

FCFO A

LEFT JOIN FLAN C

ON A.CODCFO = C.CODCFO

AND C.STATUSLAN='0' AND C.DATAVENCIMENTO <= GETDATE()-1 AND C.CODCOLIGADA=:COLIGADA_N

LEFT JOIN FDADOSPGTO H

ON A.CODCFO = H.CODCFO

LEFT JOIN TMOV I

ON A.CODCFO = I.CODCFO

LEFT JOIN TCPG J

ON I.CODCPG = J.CODCPG AND I.CODCOLIGADA = J.CODCOLIGADA

WHERE

A.CODCFO=:CODIGO_CLIENTE_N

GROUP BY

A.NOME,

C.NUMERODOCUMENTO,

C.DATAVENCIMENTO,

H.DESCRICAO,

C.STATUSLAN,

A.CODCFO,

C.CODCOLIGADA,

J.NOME

Um grande abraço para todos e obrigado pela ajuda!

[Robinson]

Olá pessoal!

Eí está uma segunda versão da query com algumas melhorias.

Até mais!

select

a.nome,

a.limitecredito,

(select max(b.valorliquido) from tmov b where a.codcfo = b.codcfo and b.codcoligada = c.codcoligada)as 'Maior Venda',

(select d.dataemissao from tmov d where (select max(k.valorliquido) from tmov k where a.codcfo = k.codcfo and k.codcoligada = c.codcoligada and (k.codtmv = '2.2.01' or k.codtmv = '2.2.04' or k.codtmv = '2.2.14'))= d.valorliquido and a.codcfo = d.codcfo and d.codcoligada = c.codcoligada and d.codtmv like '2.2.%') as 'Dat Maior Venda',

(select max(e.dataemissao) from tmov e where a.codcfo = e.codcfo and e.codcoligada = c.codcoligada)as 'Dat Ultima Venda',

(select f.valorliquido from tmov f where (select max(g.dataemissao) from tmov g where a.codcfo = g.codcfo and g.codcoligada = c.codcoligada and (g.codtmv = '2.2.01' or g.codtmv = '2.2.04' or g.codtmv = '2.2.14'))= f.dataemissao and a.codcfo = f.codcfo and f.codcoligada = c.codcoligada and f.codtmv like '2.2.%') as 'Val Ultima Venda',

case c.statuslan

when '0' then 'Inadimplência'

else 'Normal'

end as 'Situação',

c.numerodocumento as 'Número do documento',

c.datavencimento,

h.descricao as 'Forma Pagamento',

j.nome as 'Condições Pgto'

from

fcfo a

left join flan c

on a.codcfo = c.codcfo

and c.statuslan='0' and c.datavencimento <= getdate()-1 and c.codcoligada='1'

left join fdadospgto h

on a.codcfo = h.codcfo

left join tmov i

on a.codcfo = i.codcfo

left join tcpg j

on i.codcpg = j.codcpg and i.codcoligada = j.codcoligada

where

a.codcfo='011460'

group by

a.nome,

a.limitecredito,

c.numerodocumento,

c.datavencimento,

h.descricao,

c.STATUSLAN,

a.CODCFO,

c.CODCOLIGADA,

j.nome