Planes de pago sin pagos por fecha de registro

Ing. Ximena

use latino01

-- PLANES DE PAGO SIN PAGOS POR FECHA DE REGISTRO ******************************************************************************************************************************************************************

--Este reporte saca por pregrado, ex. de grado y servicios

--Ing.Ximena

declare @FechaInicial as nvarchar(10)

declare @FechaHasta as nvarchar(10)

--declare @semIni as nvarchar(6)

--declare @MontoTopeDeudaBs as float

--declare @GESTION as int

--declare @CodPlanPago as int

set @FechaInicial ='2023/01/01'

set @FechaHasta ='2023/12/06'

--set @semIni ='2022-2'

--set @MontoTopeDeudaBs=0

--set @GESTION=2022

--set @CodPlanPago=63

SELECT --FaMaeDeudas.tipodedeuda as 'Cod. Tipo de Mov.', conceptos.DESCRIPCION as 'Tipo de Movimiento',

FaMaeDeudas.CodCliente as 'Cod. Agenda', isnull(cxc_registro,'') as 'Nro. Registro', 

ltrim(rtrim(adorgani.nombre)) as 'Nombre del Estudiante', 

--isnull(cr.crr_codigo,'') as 'Cod. Carrera', 

ISNULL(ltrim(rtrim(crr_descripcion)),'') as 'Carrera', FaMaeDeudas.CodPlanPago as 'Cod. Plan Pagos',   

ltrim(rtrim(adPlanPago.DescPlanPago)) as 'Descripcion Plan de Pagos', MigrarRel.cxc_trans as 'Nro. Contrato',

FaMaeDeudas.nrodocdeuda as 'Nro. Doc.' ,  Fechacontrato as 'Fecha Registro',

round(famaedeudas.totaldeuda-famaedeudas.totalpagado,2) as 'Por Cobrar', ltrim(rtrim(famaedeudas.glosa)) as 'Motivo'

,(case when famaedeudas.moneda = 1 then 'Bs.' else '$us.' end) as 'Moneda'

,isnull(ltrim(rtrim(adorgani.TELFDO)),'') as 'Telefono 1', isnull(ltrim(rtrim(adorgani.TELFOF)),'') as 'Telefono 2', isnull(ltrim(rtrim(adorgani.NUMFAX)),'') as 'Telefono 3' 

FROM  general.dbo.adPlanPago adPlanPago with (nolock) RIGHT JOIN FaMaeDeudas  with (nolock) ON (adPlanPago.CodPlanPago = FaMaeDeudas.CodPlanPago) 

LEFT JOIN general.dbo.adorgani adorgani  with (nolock) ON (famaedeudas.codcliente = adorgani.idcont)

left join conceptos on conceptos.idconcepto=famaedeudas.tipodedeuda

left join migrarrel on migrarrel.gestion = FaMaeDeudas.gestiondeuda and migrarrel.nrotrans = FaMaeDeudas.nrodocdeuda and migrarrel.Alterna = FaMaeDeudas.sucursal  

left join admision.dbo.alumnos_agenda AC on alm_registro=migrarrel.cxc_registro 

left join admacad.dbo.carreras CR on cr.crr_codigo = ac.crr_codigo

WHERE FaMaeDeudas.estado<>2 AND round(famaedeudas.totaldeuda-famaedeudas.totalpagado,2) >0.05 

AND CONVERT(char(10),fechacontrato,111)>=CONVERT(char(10),@Fechainicial ,111)   --filtra la fecha de registro del plan

AND CONVERT(char(10),fechacontrato,111)<=CONVERT(char(10),@FechaHasta,111)

and conceptos.idsis ='cr' 

and tipodedeuda in (801,803) --1. pregrado

--and adplanpago.DescPlanPago like '%grado%'    --2. examen de grado

--and tipodedeuda not in (801,803,802,804) and adplanpago.DescPlanPago not like '%grado%'     --3. servicios

and isnull((select sum(importe) from fapagdet where transaccion=1 and estado<>2 and gestiondeuda = famaedeudas.gestiondeuda and fapagdet.nrodocdeuda = famaedeudas.nrodocdeuda and FaPagDet.sucursal = FaMaeDeudas.sucursal),0) =0

and FaMaeDeudas.glosa not like '%2023-2%' and FaMaeDeudas.glosa not like '%2022-2%' 

--and FaMaeDeudas.CodPlanPago  in (@CodPlanPago) 

order by FaMaeDeudas.tipodedeuda,ISNULL(ltrim(rtrim(crr_descripcion)),''), isnull(cr.crr_codigo,''),cxc_registro