[Resolvido]Simplificar um SQL

Prezados, preciso de uma ajuda em SQL( ainda estou engatinhando em SQL)      
Tenho a seguinte consulta abaixo e seus campos.
SELECT TblRecebimentoVar.[IdRecebimento], TblRecebimentoVar.[DataRecebimento], TblRecebimentoVar.[Cliente], TblRecebimentoVar.[CPF], TblRecebimentoVar.[VendaN], TblRecebimentoVar.[ValorVenda], TblRecebimentoVar.[PagamentoTipo], TblRecebimentoVar.[RecebimentoTipo], TblRecebimentoVar.[1x], TblRecebimentoVar.[Data1], TblRecebimentoVar.[Valor1], TblRecebimentoVar.[Quitado1], TblRecebimentoVar.[2x], TblRecebimentoVar.[Data2], TblRecebimentoVar.[Valor2], TblRecebimentoVar.[Quitado2], TblRecebimentoVar.[3x], TblRecebimentoVar.[Data3], TblRecebimentoVar.[Valor3], TblRecebimentoVar.[Quitado3], TblRecebimentoVar.[4x], TblRecebimentoVar.[Data4], TblRecebimentoVar.[Valor4], TblRecebimentoVar.[Quitado4], TblRecebimentoVar.[5x], TblRecebimentoVar.[Data5], TblRecebimentoVar.[Valor5], TblRecebimentoVar.[Quitado5], TblRecebimentoVar.[6x], TblRecebimentoVar.[Data6], TblRecebimentoVar.[Valor6], TblRecebimentoVar.[Quitado6], TblRecebimentoVar.[7x], TblRecebimentoVar.[Data7], TblRecebimentoVar.[Valor7], TblRecebimentoVar.[Quitado7], TblRecebimentoVar.[8x], TblRecebimentoVar.[Data8], TblRecebimentoVar.[Valor8], TblRecebimentoVar.[Quitado8], TblRecebimentoVar.[9x], TblRecebimentoVar.[Data9], TblRecebimentoVar.[Valor9], TblRecebimentoVar.[Quitado9], TblRecebimentoVar.[10x], TblRecebimentoVar.[Data10], TblRecebimentoVar.[Valor10], TblRecebimentoVar.[Quitado10]
FROM TblRecebimentoVar;


Qual é a ideia...

Deixar em apenas uma linha os seguinte campos...

IdRecebimento / DataRecebimento / Cliente  / CPF / VendaN / ValorVenda / PagamentoTipo / RecebimentoTipo / Data / Valor / Quitado

Os campos:
1- Data serão todos os campos data do 1 ao 10.
2- Valor serão todos os campos Valor de 1 a 10
3- Quitado, se for quitado ( pago não aparece )

Grato pela ajuda, dispensado a minha questão.

poste o bd que a gente te orienta. Isto na verdade é o que? um banco de dados de vendas parceladas? Pela Sql não deu pre perceber o que é.

Boas Rubens...

Segue apenas a tabela e a consulta.

Preciso apenas gerar uma consulta baseada no SQL que falei acima.

Olá a todos,

Amigo Sílvio, não sei se compreendi bem a questão.
Talvez seja possível com recurso a várias consultas.
Pois pretende incluir campos caso não esteja quitado.

Na ninha opinião deveria rever a modelagem de dados.
Existe várias formas de ter o objetivo pretendido.
Veja link abaixo se ajuda:
https://www.maximoaccess.com/t2254-parcelas_2008_cartoes-de-credito
https://www.maximoaccess.com/t14016-resolvidocomo-fazer-um-parcelamento-em-sub-formulario
Abraço

https://drive.google.com/file/d/0B3UoLcpmB9G_RlQyXzBWcHBmbGM/view?usp=sharing

veja no link uma forma de fazer isto sem tantos campos.

A quem posso se interessar....

1- eu preciso agrupar todas datas em apenas um campo ...." Data vencimento".... ( as datas de 1 a 10 ) não é concatenar, já tentei e não deu certo.
2- eu preciso agrupar todos valores em apenas um campo ...." Valor Débito".... ( as valores de 1 a 10 ) não é concatenar, já tentei e não deu certo.


O que resultaria algo parecido com isso abaixo.
IdRecebimento / DataRecebimento / Cliente / CPF / VendaN / ValorVenda / PagamentoTipo / RecebimentoTipo / Data Vencimento / Valor Débito/ Quitado

Olá Silvio

Poste base de dados com tabela:
TblRecebimentoVar

E alguns dados de amostragem.

Com base nesses dados exemplifique como pretendia obter (nem que seja em imagem do paint)
Abraço

Bom... segue a imagem que eu fiz.   Essa seria a ideal para o cliente ver.   Mas para isso teria que ser uma consulta, para gerar um formulário.






A tabela já esta nesse tópico. Mensagem número três !!!

Olá Silvio,
A resposta anterior foi do telemóvel.
Desculpa, não reparei.
Entretanto, obrigado pela imagem em Paint.
Pena, não ter as prestações por linha (espero que não venha a ser necessário mais prestações, ex: 12 )
Amanhã irei verificar e em que poderei ajudar.
Abraço

Grato Alvaro, mas serão apenas 10 e não mais do que isso.

Se desse para juntar as datas tipo...

Dlookup (" data1 & data2......data10", "TblRecebimentovar"=.......

Ideia apenas...ideia.

sinceramente ainda não deu pra entender o que você pretende. Creio que no exemplo Escola Parcela tem o que você precisa e também relatorios muito interativos para fazer isto. Dê uma olhada.

Olá Silvio,
Para já na parte de "agrupar" sem considerar ainda o "quitado"


Teste no projecto que postou a consulta abaixo:

Código:

SELECT TblRecebimentoVar.IdRecebimento, TblRecebimentoVar.DataRecebimento, TblRecebimentoVar.Cliente, TblRecebimentoVar.CPF, TblRecebimentoVar.VendaN, TblRecebimentoVar.ValorVenda, TblRecebimentoVar.PagamentoTipo, TblRecebimentoVar.RecebimentoTipo, [Data1] & " | " & [Data2] & " | " & [Data3] & " | " & [Data4] & " | " & [Data5] & " | " & [Data6] & " | " & [Data7] & " | " & [Data8] & " | " & [Data9] & " | " & [Data10] AS Datas, [Valor1] & " | " & [Valor2] & " | " & [Valor3] & " | " & [Valor4] & " | " & [Valor5] & " | " & [Valor6] & " | " & [Valor7] & " | " & [Valor8] & " | " & [Valor9] & " | " & [Valor10] AS Valores
FROM TblRecebimentoVar;


Abraço

Bom dia...

Rubens, o que me passou não me atende ainda, mas vou ter ele aqui em meu banco de exemplos e futuras referências.

O que eu pretendo:

Fazer a verificação das datas ( data1 a data10 ), caso essa data não esteja com o quitado ( quitado1 a quitado10 ) marcado, "flegado"
retorna para o usuário quem é a pessoa que está com débitos.

Notem, os amigos e colegas que temos:

Data1
Valor1
Quitado1

Data2
Valor2
Quitado2

....
....
....

Data10
Valor10
Quitado10

Se quitado 2 é falso então me retorna quem é o cliente e a data de vencimento atrasada. E isso é feito em toda a tabela e em todos os cliente.


Espero ter sido um pouco mais claro agora.

Bom dia aqui....e quase boa tarde a ti Alvaro...

Já vou testar...

Alvaro ainda não é isso....mas estamos caminhando.

Boa Tarde Silvio (aqui ainda é bom dia)
Da forma que está a fazer agora, que mais está faltando.
Explique com base nos registos que disponibilizou e dados, de como deveria apresentar.
Abraço

Alvaro, veja a mensagem 13. Lá eu explico !

Olá, no exemplo que postou não tem nenhum "quitado".
Qual poderá ser e que valor que deverá apresentar
Ou seja qual o campo do pago, conforme fez referencia na mensagem n.º 1

Abraço

Tem sim....

Quitado1...tipo Sim/Não-------é nesse campo, que será dado a baixa ou não.   O "quitado" pode ser entendido como " pagou, pago..."

Penso assim...

Se quitado1 ao quitado10 for =0 então
me mostre quem é o cliente, o cpf,......

Fica melhor assim ?

Olá Silvio, será isto:


Segue instrução utilizada:

Código:

SELECT TblRecebimentoVar.IdRecebimento, TblRecebimentoVar.DataRecebimento, TblRecebimentoVar.Cliente, TblRecebimentoVar.CPF, TblRecebimentoVar.VendaN, TblRecebimentoVar.ValorVenda, TblRecebimentoVar.PagamentoTipo, TblRecebimentoVar.RecebimentoTipo, [Data1] & " | " & [Data2] & " | " & [Data3] & " | " & [Data4] & " | " & [Data5] & " | " & [Data6] & " | " & [Data7] & " | " & [Data8] & " | " & [Data9] & " | " & [Data10] AS Datas, [Valor1] & " | " & [Valor2] & " | " & [Valor3] & " | " & [Valor4] & " | " & [Valor5] & " | " & [Valor6] & " | " & [Valor7] & " | " & [Valor8] & " | " & [Valor9] & " | " & [Valor10] AS Valores, IIf([Quitado1]=True,"",[Valor1]) & " | " & IIf([Quitado2]=True,"",[Valor2]) & " | " & IIf([Quitado3]=True,"",[Valor3]) & " | " & IIf([Quitado4]=True,"",[Valor4]) & " | " & IIf([Quitado5]=True,"",[Valor5]) & " | " & IIf([Quitado6]=True,"",[Valor6]) & " | " & IIf([Quitado7]=True,"",[Valor7]) & " | " & IIf([Quitado8]=True,"",[Valor8]) & " | " & IIf([Quitado9]=True,"",[Valor9]) & " | " & IIf([Quitado10]=True,"",[Valor10]) AS [Valores divida]
FROM TblRecebimentoVar;


NOTA: Caso seja isto o pretendido, sem ferir susceptibilidades,  acho que o modelo (modelagem) de dados adotado não é o adequado para o pretendido (minha opinião pessoal)
Abraço

Olá Dilson,
Fica mais esta.
Aguardamos o retorno do colega.

Amigos, dou por encerrado e agradeço a todos que se dispuseram em me ajudar.
Dilson é isso mesmo.  Foi feito de outro modo, que chegou no mesmo resultado, só não respondi antes pois estava testando as várias formas de recebimento para evitar erros de utilização.
Grato.



Eis a instrução em SQL com a cláusula WHERE

Código:

SELECT TblRecebimentoVar.IdRecebimento, TblRecebimentoVar.Cliente, TblRecebimentoVar.IDCliente, TblRecebimentoVar.CPF, TblRecebimentoVar.Data1, TblRecebimentoVar.Valor1, TblRecebimentoVar.Data2, TblRecebimentoVar.Valor2, TblRecebimentoVar.Data3, TblRecebimentoVar.Valor3, TblRecebimentoVar.Data4, TblRecebimentoVar.Valor4, TblRecebimentoVar.Data5, TblRecebimentoVar.Valor5, TblRecebimentoVar.Data6, TblRecebimentoVar.Valor6, TblRecebimentoVar.Data7, TblRecebimentoVar.Valor7, TblRecebimentoVar.Data8, TblRecebimentoVar.Valor8, TblRecebimentoVar.Data9, TblRecebimentoVar.Valor9, TblRecebimentoVar.Data10, TblRecebimentoVar.Valor10, IIf([data1]<Date() And [quitado1]=0,1,0)+IIf([data2]<Date() And [quitado2]=0,1,0)+IIf([data3]<Date() And [quitado3]=0,1,0)+IIf([data4]<Date() And [quitado4]=0,1,0)+IIf([data5]<Date() And [quitado5]=0,1,0)+IIf([data6]<Date() And [quitado6]=0,1,0)+IIf([data7]<Date() And [quitado7]=0,1,0)+IIf([data8]<Date() And [quitado8]=0,1,0)+IIf([data9]<Date() And [quitado9]=0,1,0)+IIf([data10]<Date() And [quitado10]=0,1,0) AS Atrasado
FROM TblRecebimentoVar
WHERE (((IIf([data1]<Date() And [quitado1]=0,1,0)+IIf([data2]<Date() And [quitado2]=0,1,0)+IIf([data3]<Date() And [quitado3]=0,1,0)+IIf([data4]<Date() And [quitado4]=0,1,0)+IIf([data5]<Date() And [quitado5]=0,1,0)+IIf([data6]<Date() And [quitado6]=0,1,0)+IIf([data7]<Date() And [quitado7]=0,1,0)+IIf([data8]<Date() And [quitado8]=0,1,0)+IIf([data9]<Date() And [quitado9]=0,1,0)+IIf([data10]<Date() And [quitado10]=0,1,0))>0));


O resultado pretendido e feito é o que demonstra a imagem abaixo.



E para colorir os campos, pois o mesmo é um formulário continuo, usando a seguinte rotina

Private Sub Detalhe_Paint()
'aqui eu pinto, os valores e as datas em atraso comparando com a data presente.
If Not IsNull(Me.Data1) And Me.Data1 < Date Then
Me.Data1.BackColor = RGB(253, 176, 161)
Me.Valor1.BackColor = RGB(253, 176, 161)
ElseIf Not IsNull(Me.Data1) And Me.Data1 >= Date Then
Me.Data1.BackColor = RGB(187, 253, 231)
Me.Valor1.BackColor = RGB(187, 253, 231)
Else
Me.Data1.BackColor = RGB(248, 247, 242)
Me.Valor1.BackColor = RGB(248, 247, 242)
End If
end sub

Olá Silvio, fico feliz por ter conseguido resolver.
Obrigado pelo retorno.
Abraço a todos.