Listado de alumnos con deuda igual o mayor 500 pregrado/ex.de Grado

Ing. Ximena

Cambiar la fecha de acuerdo al rango solicitado y el Monto tope de deuda 

use latino01

declare @fechaini as nvarchar(10)

declare @fechafin as nvarchar(10)

declare @semIni as nvarchar(6)

declare @MontoTopeDeuda as float

declare @GESTION as int

set @fechaini='2023/01/01'

set @fechafin ='2023/08/16'

set @semIni ='2023-1'

set @MontoTopeDeuda=500

set @GESTION=2023

SELECT 'Cuotas vencidas Materias Pregrado del ' + cast(@fechaini as nvarchar) + ' al ' + cast(@fechafin as nvarchar), 

ltrim(rtrim(cr.crr_codigo)) as CodCarrera, ISNULL(ltrim(rtrim(crr_descripcion)),'') as Carrera, pensum as NroPensum,

codcliente as CodAgenda, nroregistro as   NroRegistro,nombre as NombreEstudiante, glosa as Motivo,

UltSemestreConfirmado,   UltModuloConfirmado,

tabla.codaplicacion,LTRIM(RTRIM(aplicaciones.Descripcion)) as DescripcionAplicacion,

round(PorCobrar,2) as PorCobrar, 

sum(tabla.saldo) as SaldoVencidoAcum , 

(SELECT ltrim(rtrim(e.tstd_descripcion))  FROM admision.dbo.Tipo_estado E WITH (NOLOCK)

WHERE e.tstd_codigo = ac.tstd_codigo ) as EstadoEstudianteGenesis

 ,isnull(tel1,'') as telef1, isnull(tel2,'') as telef2, isnull(tel3,'') as telef3

 from

(

SELECT  FaMaeDeudas.gestiondeuda, FaMaeDeudas.nrodocdeuda,   

FaMaeDeudas.tipodedeuda, FaMaeDeudas.CodCliente, adorgani.nombre,FaMaeDeudas.glosa,

ltrim(rtrim(telfdo)) as tel1, ltrim(rtrim(TELFOF)) as tel2 ,ltrim(rtrim(celular))   as tel3,

(select top 1 cxc_registro from migrarrel where gestion = FaMaeDeudas.gestiondeuda and nrotrans = FaMaeDeudas.nrodocdeuda 

AND sistema ='AC' order by cxc_registro desc ) as NroRegistro,FamaeDeudasAplica.Capital  as porCobrar, codaplicacion,

 sum(FaPagosAplica.Saldodeudor) as saldo,  

ISNULL((select alumnos.pns_codigo  from admision.dbo.alumnos_agenda alumnos where   alumnos.alm_registro =migrarrel.cxc_registro ),0) as Pensum,

ISnull((select top 1 sem_codigo from admision.dbo.grupos_detalles where sem_codigo <=@semIni and alm_registro=migrarrel.cxc_registro and ltrim(rtrim(grp_observacion))='' order by sem_codigo desc, mdu_codigo desc),0) as UltSemestreConfirmado,

ISnull((select top 1 mdu_codigo from admision.dbo.grupos_detalles where sem_codigo <=@semIni and alm_registro=migrarrel.cxc_registro and ltrim(rtrim(grp_observacion))='' order by sem_codigo desc, mdu_codigo desc),0) as UltModuloConfirmado

FROM general.dbo.adPlanPago AS adPlanPago WITH (NOLOCK) RIGHT OUTER JOIN

     FaMaeDeudas WITH (NOLOCK) ON adPlanPago.CodPlanPago = FaMaeDeudas.CodPlanPago LEFT OUTER JOIN

     FaPagos WITH (NOLOCK) ON FaMaeDeudas.sucursal = FaPagos.sucursal AND FaMaeDeudas.nrodocdeuda = FaPagos.nrodocdeuda AND FaMaeDeudas.gestiondeuda = FaPagos.gestiondeuda INNER JOIN

     MigrarRel WITH (NOLOCK) ON FaMaeDeudas.sucursal = MigrarRel.Alterna AND FaMaeDeudas.nrodocdeuda = MigrarRel.NroTrans AND FaMaeDeudas.gestiondeuda = MigrarRel.Gestion INNER JOIN

     CxC.dbo.cxc_movimientos AS cxc WITH (NOLOCK) ON cxc.cxc_fecha = MigrarRel.cxc_fecha AND cxc.cxc_trans = MigrarRel.cxc_trans INNER JOIN

     general.dbo.adorgani AS adorgani WITH (NOLOCK) ON FaMaeDeudas.CodCliente = adorgani.IDcont INNER JOIN

     admision.dbo.alumnos_agenda AS alumnos WITH (NOLOCK) ON alumnos.alm_registro = MigrarRel.cxc_registro INNER JOIN

     FamaeDeudasAplica ON FaMaeDeudas.gestiondeuda = FamaeDeudasAplica.GestionDeuda AND FaMaeDeudas.nrodocdeuda = FamaeDeudasAplica.NrodocDeuda AND 

     FaMaeDeudas.sucursal = FamaeDeudasAplica.SucursalDeuda LEFT OUTER JOIN

     FaPagosAplica ON FaPagos.gestiondeuda = FaPagosAplica.GestionDeuda AND FaPagos.nrodocdeuda = FaPagosAplica.NroDocDeuda AND FaPagos.sucursal = FaPagosAplica.SucursalDeuda AND 

     FaPagos.NroCuota = FaPagosAplica.NroCuota AND FamaeDeudasAplica.GestionDeuda = FaPagosAplica.GestionDeuda AND FamaeDeudasAplica.NrodocDeuda = FaPagosAplica.NroDocDeuda AND 

     FamaeDeudasAplica.SucursalDeuda = FaPagosAplica.SucursalDeuda AND FamaeDeudasAplica.LineaAplica = FaPagosAplica.LineaAplica

WHERE FaMaeDeudas.estado<>2 

AND CONVERT(char(10),FaPagosaplica.Vencimiento,111)<=CONVERT(char(10),@fechafin,111)

and adPlanPago.codtipoplan not in (81,91) 

AND FaMaeDeudas.CodPlanPago not in (63,6000)

and  (select top 1 cxc_registro from migrarrel WITH (NOLOCK) where gestion = FaMaeDeudas.gestiondeuda and nrotrans = FaMaeDeudas.nrodocdeuda AND sistema ='AC' order by cxc_registro desc )<>'0'

and  (select top 1 cxc_registro from migrarrel WITH (NOLOCK) where gestion = FaMaeDeudas.gestiondeuda and nrotrans = FaMaeDeudas.nrodocdeuda AND sistema ='AC' order by cxc_registro desc )<>'0'

and  (select top 1 cxc_registro from migrarrel WITH (NOLOCK) where gestion = FaMaeDeudas.gestiondeuda and nrotrans = FaMaeDeudas.nrodocdeuda AND sistema ='AC' order by cxc_registro desc )<>'0' 

group by FaMaeDeudas.gestiondeuda, FaMaeDeudas.nrodocdeuda, FaMaeDeudas.tipodedeuda, FaMaeDeudas.CodCliente, adorgani.nombre,

FamaeDeudasAplica.Capital,migrarrel.cxc_registro, alumnos.pns_codigo , telfdo, telfof, celular, famaedeudas.glosa

, cxc.cxc_nromaterias,codaplicacion

) tabla 

left join aplicaciones on aplicaciones.CodAplicacion = tabla.CodAplicacion 

left join admision.dbo.alumnos_agenda AC on alm_registro=tabla.nroregistro

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

group by codcliente, nombre, nroregistro, ISNULL(ltrim(rtrim(crr_descripcion)),''),CR.crr_codigo, glosa ,porcobrar , tel1, tel2, tel3,

crr_descripcion, UltSemestreConfirmado,UltModuloConfirmado, pensum ,ac.tstd_codigo, tabla.codaplicacion, 

LTRIM(RTRIM(aplicaciones.Descripcion)) having round(sum(saldo),2)>=@MontoTopeDeuda order by CR.crr_descripcion, NOMBRE