Select TP.Codigo,TP.Solicitante as Empresa,
Solicitante.Apelido as Responsavel,
(Lpad(Trim(Date_Part('day', DataHora)::Char(2)), 2, '0') || '/' ||
Lpad(Trim(Date_Part('Month', DataHora)::Char(2)), 2, '0') || '/' ||
Substr(Date_Part('Years', DataHora)::Char(4), 3, 2) || ' ' ||
(DataHora::Time)::Char(8))::char(17) as data,
TP.Produto,
Produtos.Descricao,Produtos.Grade, Produtos.CorX as Cor, Colecoes.Descricao As Colecao, Produtos.referencia as Referencia,
Marcas.Descricao as Marca,
Departamentos.Descricao as Departamento,
Grupos.Descricao as Grupo,
False as Ok,
TP.Status,
TP.Solicitante,
TP.Solicitada,
TP.Quantidade::Numeric(6) as Quantidadex,
TP.Obs,
Case When TP.Status<>'P' Then 'K' Else 'S' End::Char(1) as Aux
From Terminal_Pedidos TP
Inner join Pessoas Solicitante on TP.Responsavel = Solicitante.Codigo
Inner join Produtos on Substr(TP.Produto, 1, 6)::Char(6) = Produtos.Codigo
Inner join Colecoes on Produtos.Colecao = Colecoes.Codigo
Left join Marcas on Produtos.Marca = Marcas.Codigo
Left join Departamentos on Produtos.Departamento = Departamentos.Codigo
Left join Grupos on Produtos.Grupo = Grupos.Codigo
Where TP.Solicitada='01'
And TP.Status = 'P'
Order by DataHora, Marca, Departamento, Grupo, Produtos.Descricao, Tamanho, Solicitante