[Resolvido]Relatório | Colunas | Consultas.

Boa Tarde galera,

Estou com uma dúvida, que não estou conseguindo resolver, e gostaria de uma dica de vocês.

O problema é o seguinte, tenho duas consultas, onde trago os valores consolidados de envio e recuperação de valores. Tenho um relatório separado para cada um... Porém eu gostaria de fazer mais ou menos da seguinte forma, trazer o resultado destas duas consultas no mesmo relatório, para fazer um comparativo... mais ou menos desta forma...

Código:

___________________________________________________________________
      ENVIADO         |        RECUPERADO
AGING      VALOR      | AGING           VALOR
0 - 120    1.300,00  | 0 - 120       1.000,00
121 - 180  1.000,00  | 121 - 180      800,00
181 - 270  600,00    | 181 - 270      600,00
271 - 360  600,00    | 271 - 360      0,00
361 - 540  1.200,00  | 361 - 540      0,00
___________________________________________________________________


Eu consegui meio que mais ou menos... relacionei os campos entre as tabelas e etc... Mas não consigo deixar neste formato Como se fosse em duas colunas... Outra coisa é o seguinte... para determinados períodos... existem valores enviados, porém não recuperados, e eu gostaria que o AGING desse valor aparecesse no relatório, mas com valor zerado... como no exemplo acima...
Que mantivesse esse layout, mesmo que não tivesse valores...

É possível fazer isto no access?

Obrigado a todos...

Já tentou usar subrelatórios para cada um deles?

Sim Criquio... mas o problema é que ele não me traz os valores corretos...

fica tipo:

Código:

___________________________________________________________________
      ENVIADO          |        RECUPERADO
AGING      VALOR      | AGING          VALOR
0 - 120    1.300,00  | 0 - 120        1.000,00
121 - 180  1.000,00  | 121 - 180      800,00
181 - 270  600,00    |
271 - 360  600,00    |
361 - 540  1.200,00  |
___________________________________________________________________

os demais AGING´s não apareçem... pq não existem valores recuperados para estas faixas...
por isto eu gostaria de achar uma maneira que aparecesse com os valores zerados...

Obrigado.

Boa noite,

Crie uma tabela a partir das duas consultas, através de DAO

Boa Noite Alexandre Neves...

Como assim?

Por um acaso você não teria um exemplo de como fazer isto?? Estou iniciando ainda com o access..
Me bato ainda para fazer algumas coisas..

Obrigado..

Novamente, finando

Não tenho porque tem de ser feito à medida.
Diga as origens das consultas com os respectivos tipos de dados.

Olá Alexandre...

Minhas consultas são fixas... alteradas apenas os filtros... via querydef..

Código:

SELECT AGENCIA_CARTEIRA.[FAIXA_AGING], Sum(AGENCIA_CARTEIRA.[QTDE_CLIENTES]) AS SomaDeQTDE_CLIENTES, Sum(AGENCIA_CARTEIRA.[VALOR_DIVIDA]) AS SomaDeVALOR_DIVIDA, AGENCIA_CARTEIRA.[ASSESSORIA], AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY], AGENCIA_CARTEIRA.[PERIODO], AGENCIA_CARTEIRA.[MES], AGENCIA_CARTEIRA.[ANO]
FROM AGENCIA_CARTEIRA
WHERE (((GVT_AGENCIA_CARTEIRA.[ASSESSORIA]) In ('009','020')) AND ((GVT_AGENCIA_CARTEIRA.[MES]) In ('09')) AND ((GVT_AGENCIA_CARTEIRA.[PERIODO]) In ('DE 1 A 7')) AND ((AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY]) In ('10','11')))
GROUP BY AGENCIA_CARTEIRA.[FAIXA_AGING], AGENCIA_CARTEIRA.[ASSESSORIA], AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY], AGENCIA_CARTEIRA.[PERIODO], AGENCIA_CARTEIRA.[MES], AGENCIA_CARTEIRA.[ANO];

e esta...

Código:

SELECT AGENCIA_COMISSAO_AGRUP.[FAIXA_AGING], Sum(AGENCIA_COMISSAO_AGRUP.[QTDE_PAGAMENTOS]) AS SomaDeQTDE_PAGAMENTOS, Sum(AGENCIA_COMISSAO_AGRUP.[VALOR_PAGO]) AS SomaDeVALOR_PAGO, AGENCIA_COMISSAO_AGRUP.[MES], AGENCIA_COMISSAO_AGRUP.[ACCOUNT_CATEGORY], AGENCIA_COMISSAO_AGRUP.[NOMES_ASSES], AGENCIA_COMISSAO_AGRUP.[PERIODO], AGENCIA_COMISSAO_AGRUP.[ANO]
FROM AGENCIA_COMISSAO_AGRUP
WHERE (((AGENCIA_COMISSAO_AGRUP.[NOMES_ASSES]) In ('010')) AND ((AGENCIA_COMISSAO_AGRUP.[MES]) In ('08')) AND ((AGENCIA_COMISSAO_AGRUP.[PERIODO]) In ('DE 1 A 7')) AND ((AGENCIA_COMISSAO_AGRUP.[ACCOUNT_CATEGORY]) In ('10')))
GROUP BY AGENCIA_COMISSAO_AGRUP.[FAIXA_AGING], AGENCIA_COMISSAO_AGRUP.[MES], AGENCIA_COMISSAO_AGRUP.[ACCOUNT_CATEGORY], AGENCIA_COMISSAO_AGRUP.[NOMES_ASSES], AGENCIA_COMISSAO_AGRUP.[PERIODO], AGENCIA_COMISSAO_AGRUP.[ANO];

tabelas com os seguintes tipos de dados...

Código:

tabela: AGENCIA_CARTEIRA

  FAIXA_AGING      VARCHAR2(10 BYTE),
  ESTADO            VARCHAR2(4 BYTE),
  QTDE_CLIENTES    NUMBER,
  VALOR_DIVIDA      NUMBER,
  ASSESSORIA        VARCHAR2(8 BYTE),
  ACCOUNT_CATEGORY  VARCHAR2(8 BYTE)            NOT NULL,
  PERIODO          VARCHAR2(12 BYTE),
  MES              VARCHAR2(2 BYTE),
  ANO              VARCHAR2(4 BYTE)

Código:

tabela: AGENCIA_COMISSAO_AGRUP

FAIXA_AGING      VARCHAR2(11 BYTE),
  VALOR_PAGO        NUMBER,
  COMISSAO          NUMBER,
  QTDE_PAGAMENTOS  NUMBER,
  NOMES_ASSES      VARCHAR2(150 BYTE),
  ACCOUNT_CATEGORY  VARCHAR2(8 BYTE)            NOT NULL,
  ESTADO            VARCHAR2(4 BYTE),
  PERIODO          VARCHAR2(12 BYTE),
  MES              VARCHAR2(2 BYTE),
  ANO              VARCHAR2(4 BYTE)


acho q é isso...

Obrigado..

Novamente, finando

A primeira cadeia SQL não estará certa: refere campos pertencentes à tabela tabela GVT_AGENCIA_CARTEIRA e não a indica na origem

Se depois destes códigos existem códigos de consultas, deve-se trabalhar a partir destes últimos.

Alexandre Neves..

eu que coloquei errado, é só AGENCIA_CARTEIRA mesmo...

Código:

SELECT AGENCIA_CARTEIRA.[FAIXA_AGING],
    Sum(AGENCIA_CARTEIRA.[QTDE_CLIENTES]) AS SomaDeQTDE_CLIENTES,
    Sum(AGENCIA_CARTEIRA.[VALOR_DIVIDA]) AS SomaDeVALOR_DIVIDA,
    AGENCIA_CARTEIRA.[ASSESSORIA],
    AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY],
    AGENCIA_CARTEIRA.[PERIODO],
    AGENCIA_CARTEIRA.[MES],
    AGENCIA_CARTEIRA.[ANO]
FROM AGENCIA_CARTEIRA
    WHERE (((AGENCIA_CARTEIRA.[ASSESSORIA]) In ('009','020'))
      AND ((AGENCIA_CARTEIRA.[MES]) In ('09'))
      AND ((AGENCIA_CARTEIRA.[PERIODO]) In ('DE 1 A 7'))
      AND ((AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY]) In ('10','11')))
GROUP BY AGENCIA_CARTEIRA.[FAIXA_AGING],
  AGENCIA_CARTEIRA.[ASSESSORIA],
  AGENCIA_CARTEIRA.[ACCOUNT_CATEGORY],
  AGENCIA_CARTEIRA.[PERIODO],
  AGENCIA_CARTEIRA.[MES],
  AGENCIA_CARTEIRA.[ANO];

Eu uso esta consulta para gerar meu relatório, apenas atualizo os parâmetros no IN, via queryDef...
Chamo ela diretamente no relatório...

Obrigado.

Boa tarde, finando

Mesmo assim tem muitos campos que não sei para que são precisos...

Crie uma tabela EnviadoRecuperado com campos Aging (string,9) EnviadoValor (Moeda), RecuperadoValor (Moeda)
Execute o seguinte código
'''Início do código - Criado por Alexandre Neves - www.esnips.com\web\AlexandreNeves
Dim Rst As DAO.Recordset
'Limpa tabela EnviadoRecuperado
CurrentDb.Execute "DELETE * FROM EnviadoRecuperado;"
'Cria registos de enviado
CurrentDb.Execute "INSERT INTO EnviadoRecuperado (Aging,EnviadoValor) SELECT FAIXA_AGING,Sum(VALOR_DIVIDA) FROM AGENCIA_CARTEIRA WHERE ASSESSORIA In ('009','020') AND MES In ('09') AND PERIODO In ('DE 1 A 7') AND ACCOUNT_CATEGORY In ('10','11') GROUP BY FAIXA_AGING;"
'Cria Recordset para recuperado
Set Rst = CurrentDb.OpenRecordset("SELECT FAIXA_AGING, Sum(VALOR_PAGO) FROM AGENCIA_COMISSAO_AGRUP WHERE NOMES_ASSES In ('010') AND MES In ('08') AND PERIODO In ('DE 1 A 7') AND ACCOUNT_CATEGORY In ('10') GROUP BY FAIXA_AGING;")
Do While Not Rst.EOF
If DCount("*", "Enviadorecuperado", "Aging='" & Rst(0) & "'") = 0 Then
CurrentDb.Execute "INSERT INTO EnviadoRecuperado (Aging,RecuperadoValor) VALUES ('" & Rst(0) & "'," & Rst(1) & ");"
Else
CurrentDb.Execute "UPDATE EnviadoRecuperado SET RecuperadoValor=" & Rst(1) & " WHERE Aging='" & Rst(0) & ";"
End If
Rst.MoveNext
Loop
Set Rst = Nothing
'''Fim do código

Deve ter tabela criada para criar relatório