 select
	A.pagam_nota,
	A.pagam_serie,
	A.pagam_letra1,
	A.pagam_codfor,
	F.forne_nome as pagam_nomefor,
	A.pagam_emissao,
	A.pagam_vencimento,
	A.pagam_entrada,
	A.pagam_pagamento,
	A.pagam_valor,
	case
		when A.Pagam_Pagamento is null then 0.00
		else A.pagam_totalpgto
	end as Pagam_totalpgto,
	CASE
		WHEN pagam_vencimento IS NOT NULL THEN to_char(pagam_vencimento,'MM/YYYY')
		ELSE ''
	END AS mesvcto,
	CASE
		WHEN pagam_vencimento IS NOT NULL THEN to_char(pagam_vencimento,'YYYY')::integer
		ELSE 0
	END AS anovcto,
	case
		when A.pagam_clifor = 'F' then F.forne_perfil
		else ''
	end as perfil,
	case
		when A.pagam_clifor = 'F' then F.forne_tipo_clien
		else ''
	end as tipo,
	case
		when A.Pagam_Pagamento is null then 'Aberto'
		else 'Pago'
	end as situacao,
	CASE
		WHEN pagam_emissao IS NOT NULL THEN to_char(pagam_emissao,'MM/YYYY')
		ELSE ''
	END AS mesemissao,
	CASE
		WHEN pagam_entrada IS NOT NULL THEN to_char(pagam_entrada,'MM/YYYY')
		ELSE ''
	END AS mesentrada,
	CASE
		WHEN pagam_pagamento IS NOT NULL THEN to_char(pagam_pagamento,'MM/YYYY')
		ELSE ''
	END AS mespgto,
	CASE
		WHEN pagam_entrada IS NOT NULL THEN to_char(pagam_entrada,'YYYY')::integer
		ELSE 0
	END as anoentrada,
	case
		when A.pagam_vendor_sn = 'Sim' then 'Sim'
		else 'Não'
	end as vendor,
	A.pagam_nomepgto as tipopagamento,
	A.pagam_empresa AS empresa,
	A.pagam_filial AS filial
from
	Pagamentos A
left join fornecedores F on
	F.forne_codigo = A.pagam_codfor
where
	Pagam_Emissao between '1999-01-01' and current_date
order by
	8,
	5