Query

[Priscila_maia 0]

Pessoal,

 

sou nova aqui e também trabalhando com sql, preciso extrair um relatório do sql, tenho 3 querys prontas e preciso juntá-las para ter o relatório completo, como posso fazer isso?

 

seguem as querys abaixo:

Select
 DsCampo1=PV.CdChamada,
 DsCampo2=Convert(Char(5),PV.CdEmpresa),
 DsCampo3=E.NmEmpresa,
 DsCampo4=PV.CdPedidoDeCompraCliente,
 DsCampo5=Convert(VarChar(10),PV.DtEmissao,103),
 DsCampo6=Convert(VarChar(10),PV.DtEntrega,103),
 DsCampo7=P.CdChamada,
 DsCampo8=P.NmPessoa,
 DsCampo9=Case
      	When PV.StPedidoDeVenda = 'A' Then 'Aguardando Liberação'
      	When PV.StPedidoDeVenda = 'L' Then 'Liberado'
      	When PV.StPedidoDeVenda = 'C' then 'Cancelado'
      	When PV.StPedidoDeVenda = 'X' then 'Atendido com Corte'
      	When PV.StPedidoDeVenda = 'P' then 'Parcialmente Atendido'
      	When PV.StPedidoDeVenda = 'T' then 'Totalmente Atendido'
      	When PV.StPedidoDeVenda = 'D' Then 'Devolvido'
      	End,
 DsCampo10=PR.CdChamada,
 DsCampo11=PR.DsPrazo,
 DsCampo12=Replace(Replace(Replace(Convert(Char(20),Convert(Money, (Select
                                                     Total=Sum(Isnull(VlItem, 0) + Isnull(VlIPI, 0) - Isnull(VlDescontoRateado, 0))
                                              	From
                                                     PedidoDeVendaItem PVI
                                                   Where
                                                     PVI.IdPedidoDeVenda = PV.IdPedidoDeVenda)), 1), ',', '#'), '.', ','), '#', '.'),
 DsCampo13=U.NmLogin,
 DsCampo14=PV.IdEntidadeOrigem,
 DsCampo15=I.CdChamada,
 DsCampo16=I.NmIndexador,
 DsCampo17=PV.NmEntidadeOrigem,
 DsCampo18=Replace(Replace(Replace(Convert(Char(20),Convert(Money, IsNull((Select
                                                     Total=Sum(IsNull(PVP.VlTitulo, 0))
                                              	From
                                                     PedidoDeVendaPagamento PVP
                                                   Where
                                                     PVP.IdPedidoDeVenda = PV.IdPedidoDeVenda and
                                                     PVP.StCartaCredito = 'S'), 0)), 1), ',', '#'), '.', ','), '#', '.')
From
 PedidoDeVenda PV
              	Left Outer Join Pessoa P on (P.IdPessoa = PV.IdPessoaCliente)
              	Left Outer Join EmpresaERP E on (E.CdEmpresa = PV.CdEmpresa)
              	Left Outer Join Usuario U on (PV.IdUsuario = U.IdUsuario)
                   Left Outer Join Prazo PR on (PV.IdPrazo = PR.IdPrazo)
                   Left Outer Join Indexador I on (PV.IdIndexador = I.IdIndexador)
Where
 PV.IdPedidoDeVenda = :IdEntidade

e a outra é:

Select
 IdEntidade = C.IdContato,
 NmEntidade = 'VendaFollowUp',
 DsLink = 'Venda(Follow Up): '+ IsNull(C.DsContato, '(Contato sem descrição)'),
 DsHint = 'Último Contato: '+ Convert(Char(10), Convert(VarChar(10),C.DtUltimaAtualizacao,103)),
 IdIcone =7
From
 Contato C (NoLock)
Where
 (IdContato = '00A0000TOB')

e a última é:

Select
 IdEntidade = D.IdDocumento,
 NmEntidade = Case
            	When (O.IdTipoDocumento in ('00A000000L'
)) Then
              	'OESaida'
          	Else
            	'NFSaida'
          	End,
 DsLink 	= Case
            	When (O.IdTipoDocumento in ('00A000000L'
)) Then
              	'O.E. Saída: ' + D.NrDocumento +
                                                       Case
                                                         When D.StDocumentoCancelado = 'S' Then '(Cancelada)'
                	Else ''
              	End
            	Else
              	'N.F. Saída: ' + D.NrDocumento +
                                                       Case
                                                         When D.StDocumentoCancelado = 'S' Then '(Cancelada)'
                	Else ''
              	End
          	End,
 DsHint 	= 'Emissão: '+ Convert(Char(10), Convert(VarChar(10),D.DtEmissao,103)),
 IdIcone    = 9
From
 Documento D (NoLock),
 Operacao O (NoLock),
 DocumentoItem DI (NoLock),
 PedidoDeVendaItem_DocumentoItem PVIDI (NoLock)
Where
 (PVIDI.IdPedidoDeVenda = '00A000062L')
 And
 (PVIDI.IdDocumentoItem = DI.IdDocumentoItem)
 And
 (DI.IdDocumento = D.IdDocumento)
 And
 (D.IdOperacao  = O.IdOperacao)
Group By
 D.IdDocumento,
 D.NrDocumento,
 D.DtEmissao,
 D.StDocumentoCancelado,
 O.IdTipoDocumento
Union
Select
 IdEntidade = D.IdDocumento,
 NmEntidade = Case
            	When (O.IdTipoDocumento in ('00A000000L'
)) Then
              	'OESaida'
          	Else
            	'NFSaida'
          	End,
 DsLink 	= Case
            	When (O.IdTipoDocumento in ('00A000000L'
)) Then
              	'O.E. Saída: ' +
                                                       Case
                                                       When IsNull(D.NrDocumento, '') = '' Then '(Não Impressa)'
              	Else  D.NrDocumento
              	End
          	Else
            	'N.F. Saída: ' +
                                                     Case
                                                     When IsNull(D.NrDocumento, '') = '' Then '(Não Impressa)'
            	Else  D.NrDocumento
            	End
          	End,
 DsHint 	= 'Emissão: '+ Convert(Char(10), Convert(VarChar(10),D.DtEmissao,103)),
 IdIcone    = 9
From
 LoteDoc D (NoLock),
 Operacao O (NoLock),
 LoteDocItem DI (NoLock),
 PedidoDeVendaItem_DocumentoItem PVIDI (NoLock)
Where
 (PVIDI.IdPedidoDeVenda = '00A000062L')
 And
 (PVIDI.IdDocumentoItem = DI.IdDocumentoItem)
 And
 (DI.IdDocumento = D.IdDocumento)
 And
 (D.IdOperacao  = O.IdOperacao)
Group By
 D.IdDocumento,
 D.NrDocumento,
 D.DtEmissao,
 D.StDocumentoCancelado,
 O.IdTipoDocumento
Union
Select
 IdEntidade = DPV.IdLoteDocDevolucao,
 NmEntidade = 'DevolucaoPedidoDeVenda',
 DsLink = Case
        	When DPV.TpLoteDocDevolucao = 'D' Then
          	'Devolução: ' + RTrim(DPV.CdChamada) + ' - ' +
          	Case
            	When DPV.StLoteDocDevolucao = 'A' Then
              	'Aberto'
            	When DPV.StLoteDocDevolucao = 'L' Then
              	'Liberado'
            	When DPV.StLoteDocDevolucao = 'C' Then
              	'Cancelado'
            	Else
              	'Fechado'
          	End
      	Else
          	'Troca: ' + RTrim(DPV.CdChamada) + ' - ' +
          	Case
            	When DPV.StLoteDocDevolucao = 'A' Then
              	'Aberto'
            	When DPV.StLoteDocDevolucao = 'L' Then
              	'Liberado'
            	When DPV.StLoteDocDevolucao = 'C' Then
              	'Cancelado'
            	Else
              	'Fechado'
          	End
      	End,
 DsHint = 'Emissão: '+ Convert(Char(10), Convert(VarChar(10),DPV.DtEmissao,103)),
 IdIcone =14
From
 LoteDocDevolucao DPV (NoLock)
Where
 (DPV.IdEntidadeOrigem = '00A000062L')
 And
 (DPV.NmEntidadeOrigem = 'PedidoDeVenda')
Union
Select
 IdEntidade = RM.IdRequisicaoMaterial,
 NmEntidade = 'RequisicaoMaterial',
 DsLink = 'Requisição: ' + RM.CdChamada,
 DsHint = 'Emissão: ' + Convert(Char(10), Convert(VarChar(10), RM.DtRequisicaoMaterial, 103)),
 IdIcone =Null
From
 RequisicaoMaterial RM (NoLock)
Where
 (RM.IdEntidadeOrigem = '00A000062L') and
 (RM.NmEntidadeOrigem = 'PedidoDeVenda')
Union
Select
 IdEntidade = AP.IdAPagar,
 NmEntidade = 'APagar',
 DsLink = 'Carta de Crédito: ' + Convert(Char(20),IsNull(AP.NrTitulo, ' ')) +
                                        	Case
                                        	When IsNull(AP.DtExclusao, '') <> '' Then '(Excluído)'
                                        	Else ''
                                        	End,
 DsHint = 'Baixa: ' + Convert(Char(10), Convert(VarChar(10),AB.DtBaixa,103)) + 'Valor: '+ Convert(Char(20),Convert(Decimal(20,2),AB.VlBaixa)),
 IdIcone = 4
From
 PedidoDevendaPagamento PVP (NoLock),
 ApagarBaixa AB (NoLock),
 Apagar AP (NoLock)
Where
 (IdPedidoDevenda = '00A000062L') and
 (IsNull(StCartaCredito, 'N') = 'S') and
 (AB.NmEntidadeOrigem = 'PedidoDeVendaPagamento') and
 (AB.IdEntidadeOrigem = PVP.IdPedidoDeVendaPagamento) and
 (AP.IdAPagar = AB.IdAPagar)
Union
Select
 IdEntidade = PV.IdPedidoDevenda,
 NmEntidade = 'PedidoDeVenda',
 DsLink 	= 'Pedido de Venda :' + PV.CdChamada,
 DsHint 	= 'Emissão: '+ Convert(Char(10), Convert(VarChar(10), PV.DtEmissao, 103)),
 IdIcone    = 8
From
 PedidoDeVenda PV (NoLock)
Where
 (PV.IdEntidadeOrigem = '00A000062L') and
 (PV.NmEntidadeOrigem = 'PedidoDeVenda')
Union
Select
 IdEntidade = OS.IdOrdemServico,
 NmEntidade = 'OrdemServico',
 DsLink = 'Montagem: ' + Convert(Char(6),IsNull(OS.CdChamada, ' ')) +
                                        	Case
                                        	When IsNull(OS.StOS, '') = 'E' Then '(Encerrada)'
                                        	Else ''
                                        	End,
 DsHint = 'Dt atendimento: ' + Convert(Char(10), Convert(VarChar(10),OS.DtAtendimento,103)),
 IdIcone = 20
From
 OrdemServico OS (NoLock)
Where
 (OS.NmEntidadeOrigem = 'PedidoDeVenda') and
 (OS.IdEntidadeOrigem = '00A000062L')

Union

Select
 IdEntidade = DAV.IdDocumentoAuxVenda,
 NmEntidade = 'DocumentoAuxVenda',
 DsLink = 'DAV: ' + DAV.NrDocumentoAuxVenda,
 DsHint = 'Emissão: ' + Convert(Char(10), Convert(VarChar(10),DAV.DtEmissao,103)),
 IdIcone = 22
From
 DocumentoAuxVenda DAV (NoLock)
Where
 (DAV.IdEntidadeOrigem = '00A000062L') and
 (DAV.NmEntidadeOrigem = 'PedidoDeVenda')

 

Se puderem me ajudar, agradeço.

[supernoi 0]

Tenta colocar o resultado das 3 separados, para poder visualizar melhor...

So no codigo sem ver o modelo e o resultado esperado... fica complicado... pelo menos para mim.. rsrs

[Priscila_maia 0]

Tenta colocar o resultado das 3 separados, para poder visualizar melhor...

So no codigo sem ver o modelo e o resultado esperado... fica complicado... pelo menos para mim.. rsrs

Juliano,

 

Eu não sei como eu faço para salvar a query aqui, poderia me ajudar?