public virtual CrystalDecisions.CrystalReports.Engine.ReportDocument CreateReport()
{
rResumenCobranza rpt = new rResumenCobranza();
rpt.Site = this.Site;
return(rpt);
}
private void _Mtd_GenerarReporte(string _P_Str_cgroupcompany, string _P_Str_ccompany, string _P_Str_Cguiddesp, string _P_Str_cidrelacobro, bool _P_Bol_EsVerificacion)
{
try
{
Cursor = Cursors.WaitCursor;
string _Str_Cadena = "";
DataSet _Ds;
//Inicializamos el reporte
Report.rResumenCobranza _MyReport = new Report.rResumenCobranza();
//Cargamos los datos para el reporte principal
//_Str_Cadena = "SELECT * FROM VST_RC_REPORTE_MAESTRA WHERE cgroupcomp='" + _P_Str_cgroupcompany + "' AND ccompany='" + _P_Str_ccompany + "' AND cidrelacobro='" + _P_Str_cidrelacobro + "' AND cguiadesp='" + _P_Str_Cguiddesp + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_MAESTRA '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.SetDataSource(_Ds.Tables[0]);
//Recorremos y cargamos los datos para los subreportes
for (int _I = 0; _I < _MyReport.Subreports.Count; _I++)
{
if (_MyReport.Subreports[_I].Name == "CLIENTES_DOCUMENTOS")
{
//_Str_Cadena = "SELECT CONVERT(VARCHAR,[Cliente],103) AS [Cliente],[Nombre del Cliente],[Documento],[MontoRetencion],[MontoNotasDeCredito],[MontoCheques],[MontoDepositos],[MontoCobrado] FROM [VST_RC_INGRESADAS_RESUMEN_CLIENTES] WHERE cidrelacobro='" + _P_Str_cidrelacobro + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_CLIENTES '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
else if (_MyReport.Subreports[_I].Name == "CHEQUES")
{
//_Str_Cadena = "SELECT [Nº Cheque],[Banco],[Fecha],[Monto] FROM [VST_RC_INGRESADAS_RESUMEN_CHEQUES] WHERE cidrelacobro='" + _P_Str_cidrelacobro + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_CHEQUES '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
else if (_MyReport.Subreports[_I].Name == "DEPOSITOS")
{
//_Str_Cadena = "SELECT [Nº Depósito],[Fecha],[Banco],[Cuenta],[Monto] FROM [VST_RC_INGRESADAS_RESUMEN_DEPOSITOS] WHERE cidrelacobro='" + _P_Str_cidrelacobro + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_DEPOSITOS '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
else if (_MyReport.Subreports[_I].Name == "RETENCIONES")
{
//_Str_Cadena = "SELECT [Cliente],[Nº],[Tipo],[Nº Comprobante],[Monto Comprobante],[Nº Control],[Fecha Comprobante] FROM [VST_RC_INGRESADAS_RESUMEN_RETENCIONES] WHERE cidrelacobro='" + _P_Str_cidrelacobro + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_RETENCIONES '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
else if (_MyReport.Subreports[_I].Name == "SOBRANTEFALTANTE")
{
//_Str_Cadena = "EXEC PA_RC_CALCULO_SOBRANTE_FALTANTE_GUIA '" + _P_Str_cgroupcompany + "', '0' ,'" + _P_Str_cidrelacobro + "'";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_SOBRANTEFALTANTE '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
else if (_MyReport.Subreports[_I].Name == "GUIASGENERADAS")
{
//_Str_Cadena = "SELECT TRELACCOBM.cidrelacobro AS [Id Relación], (RTRIM(LTRIM(TCOMPANY.ccompany)) COLLATE database_default + ' - ' + RTRIM(LTRIM(TCOMPANY.cname)) COLLATE database_default) AS [Compañia] FROM TRELACCOBM INNER JOIN TCOMPANY ON TRELACCOBM.ccompany = TCOMPANY.ccompany WHERE (TRELACCOBM.cdelete = 0) AND (TRELACCOBM.cguiacobro = '" + _G_Str_Cguiddesp + "')";
_Str_Cadena = "EXEC PA_RC_INGRESADAS_RESUMEN_GUIASGENERADAS '" + Frm_Padre._Str_GroupComp + "','" + _P_Str_Cguiddesp + "', '" + _P_Str_cidrelacobro + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_MyReport.Subreports[_I].SetDataSource(_Ds.Tables[0]);
}
}
//Ocultamos el subreporte Guias Generadas para cuando es por Guia
if (_P_Str_cidrelacobro != "0")
{
_MyReport.ReportDefinition.Sections["DetailSection5"].SectionFormat.EnableSuppress = true;
}
//Cambiamos los Titulos del Reporte
var _Txt_Titulo1 = "";
_Str_Cadena = "SELECT cname FROM TCOMPANY WHERE ccompany = '" + _P_Str_ccompany + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_Ds.Tables[0].Rows.Count > 0)
{
_Txt_Titulo1 = _Ds.Tables[0].Rows[0]["cname"].ToString().Trim().ToUpper();
}
var _Txt_Titulo2 = "";
if (_P_Str_Cguiddesp != "0") //SI ES POR GUIA
{
_Txt_Titulo1 = "";
if (_P_Bol_EsVerificacion)
{
_Txt_Titulo2 = "(VERIFICACION) RESUMEN DE COBRANZA DE LA GUÍA #" + _P_Str_Cguiddesp;
}
else
{
_Txt_Titulo2 = "RESUMEN DE COBRANZA DE LA GUÍA #" + _P_Str_Cguiddesp;
}
}
else //SI ES POR RELACION
{
if (_P_Bol_EsVerificacion)
{
_Txt_Titulo2 = "(VERIFICACION) RESUMEN DE COBRANZA DE LA RELACIÓN #" + _P_Str_cidrelacobro;
}
else
{
_Txt_Titulo2 = "RESUMEN DE COBRANZA DE LA RELACIÓN #" + _P_Str_cidrelacobro;
}
}
//Pasamos los valores del Titulo 1
var _TxtTitulo1 = _MyReport.ReportDefinition.Sections["Section2"].ReportObjects["Txt_Titulo1"] as TextObject;
_TxtTitulo1.Text = _Txt_Titulo1.ToUpper();
//Pasamos los valores del Titulo 2
var _TxtTitulo2 = _MyReport.ReportDefinition.Sections["Section2"].ReportObjects["Txt_Titulo2"] as TextObject;
_TxtTitulo2.Text = _Txt_Titulo2.ToUpper();
_MyReport.Refresh();
_Rpv_Main.ReportSource = _MyReport;
_Rpv_Main.RefreshReport();
Cursor = Cursors.Default;
//---Configuración de impresión.
//_Frm.Close();
GC.Collect();
}
catch (Exception _Ex)
{
MessageBox.Show(_Ex.Message);
}
}