private void _Mtd_MostrarReporte(string _P_Str_PreCarga)
{
Cursor = Cursors.WaitCursor;
string _Str_Cadena = "SELECT * FROM VST_PRECARGALISTADO_2 WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cprecarga='" + _P_Str_PreCarga + "'";
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
Report.rPreCargaListado _My_Reporte = new T3.Report.rPreCargaListado();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section2"];
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname),crif FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'");
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = _Ds.Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = _Ds.Tables[0].Rows[0][1].ToString();
//----------------------------
if (_Mtd_RequiereGuiaSada(_P_Str_PreCarga))
{
_sec = _My_Reporte.ReportDefinition.Sections["Section3"];
TextObject _Txt_RequiereGuiaSada = _sec.ReportObjects["Txt_RequiereGuiaSada"] as TextObject;
_Txt_RequiereGuiaSada.Text = "***REQUIERE GUÍA SADA***";
}
//----------------------------
_Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
Cursor = Cursors.Default;
}
private void _Mtd_Consultar()
{
this.Cursor = Cursors.WaitCursor;
string _Str_Sql = "", _Str_Rutas = "", _Str_Transporte = "", _Str_Cedula = "";
string _Str_Filtro = " cgroupcomp='" + Frm_Padre._Str_GroupComp + "'";
if (!_Chk_PreC.Checked)
{
for (int _I = 0; _I < _ChkLst_Rutas.Items.Count; _I++)
{
if (_ChkLst_Rutas.GetItemChecked(_I))
{
_Str_Rutas = _Str_Rutas + " cidrutdespacho='" + ((Clases._Cls_ArrayList)_ChkLst_Rutas.Items[_I]).Value + "' OR";
}
}
if (_Str_Rutas.Length > 0)
{
_Str_Rutas = _Str_Rutas.Substring(0, _Str_Rutas.Length - 3);
_Str_Filtro = _Str_Filtro + " AND (" + _Str_Rutas + ")";
}
for (int _I = 0; _I < _ChkLst_Transporte.Items.Count; _I++)
{
if (_ChkLst_Transporte.GetItemChecked(_I))
{
_Str_Cedula = ((Clases._Cls_ArrayList)_ChkLst_Transporte.Items[_I]).Display.Substring(0, ((Clases._Cls_ArrayList)_ChkLst_Transporte.Items[_I]).Display.IndexOf(":"));
_Str_Transporte = _Str_Transporte + " (ccedula='" + _Str_Cedula + "' AND cplaca='" + ((Clases._Cls_ArrayList)_ChkLst_Transporte.Items[_I]).Value + "') OR";
}
}
if (_Str_Transporte.Length > 0)
{
_Str_Transporte = _Str_Transporte.Substring(0, _Str_Transporte.Length - 3);
_Str_Filtro = _Str_Filtro + " AND (" + _Str_Transporte + ")";
}
if (_Rb_Impresa.Checked)
{
_Str_Filtro = _Str_Filtro + " AND cimprimeprecarga=1";
}
else if (_Rb_Facturada.Checked)
{
_Str_Filtro = _Str_Filtro + " AND cimprimefactura=1";
}
_Str_Filtro = _Str_Filtro + " AND convert(datetime,convert(varchar(255),cfechaprecarga,103)) BETWEEN '" + _Cls_Formato._Mtd_fecha(_Dt_Desde.Value) + "' AND '" + _Cls_Formato._Mtd_fecha(_Dt_Hasta.Value) + "'";
}
else
{
_Str_Filtro += " AND cprecarga='" + _Txt_PreCarga.Text.Trim() + "'";
}
if (_Chk_PreC.Checked)
{
_Str_Sql = "SELECT * FROM VST_PRECARGALISTADO_2 WHERE" + _Str_Filtro;
}
else
{
_Str_Sql = "SELECT * FROM VST_PRECARGALISTADO WHERE" + _Str_Filtro;
}
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
//_Ds.Tables[0].TableName=
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rPreCargaListado _My_Reporte = new T3.Report.rPreCargaListado();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section1"];
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(crif) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//----------------------------
if (_Mtd_RequiereGuiaSada(_Txt_PreCarga.Text.Trim()))
{
_sec = _My_Reporte.ReportDefinition.Sections["Section3"];
TextObject _Txt_RequiereGuiaSada = _sec.ReportObjects["Txt_RequiereGuiaSada"] as TextObject;
_Txt_RequiereGuiaSada.Text = "***REQUIERE GUÍA SADA***";
}
//----------------------------
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen Precargas.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
this.Cursor = Cursors.Default;
}
private void _Bt_Find_Click(object sender, EventArgs e)
{
_Er_Error.Dispose();
if (_Cb_TpoDoc.SelectedIndex > -1 & _Txt_IdDoc.Text.Trim().Length > 0)
{
this.Cursor = Cursors.WaitCursor;
string _Str_Sql = "";
DataSet _Ds;
switch (_Cb_TpoDoc.SelectedIndex)
{//COMPROBANTES CONTABLES
case 0:
_Str_Sql = "SELECT * FROM vst_reportecomprobante WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cidcomprob='" + _Txt_IdDoc.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rcomprobante _My_Reporte = new T3.Report.rcomprobante();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section1"];
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(crif) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex3 = _sec.ReportObjects["Direccion"] as TextObject;
tex3.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(caddressl) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex4 = _sec.ReportObjects["Telefonos"] as TextObject;
tex4.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cphone1) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex5 = _sec.ReportObjects["Email"] as TextObject;
tex5.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cemail) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
case 1: //GUIA DE DESPACHO
_Str_Sql = "SELECT * FROM VST_REPORTEGUIDESPACHO WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cguiadesp='" + _Txt_IdDoc.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rGuiaDespacho _My_Reporte = new T3.Report.rGuiaDespacho();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
//----------------------------
string _Str_Cadena = "Select cprecarga from tguiadespachom where cguiadesp='" + _Txt_IdDoc.Text + "'";
DataSet _Ds_Guia = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_Ds_Guia.Tables[0].Rows.Count > 0)
{
if (_Mtd_RequiereGuiaSada(_Ds_Guia.Tables[0].Rows[0][0].ToString()))
{
Section _sec = _My_Reporte.ReportDefinition.Sections["Section3"];
TextObject _Txt_RequiereGuiaSada = _sec.ReportObjects["Txt_RequiereGuiaSada"] as TextObject;
_Txt_RequiereGuiaSada.Text = "***REQUIERE GUÍA SADA***";
}
}
//----------------------------
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
case 2: //NOTA DE RECEPCION
_Str_Sql = "SELECT * FROM vst_reportenotaderecepcion WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cidnotrecepc='" + _Txt_IdDoc.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rnoraderecepcion _My_Reporte = new T3.Report.rnoraderecepcion();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section1"];
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(crif) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex3 = _sec.ReportObjects["Direccion"] as TextObject;
tex3.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(caddressl) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex4 = _sec.ReportObjects["Telefonos"] as TextObject;
tex4.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cphone1) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex5 = _sec.ReportObjects["Email"] as TextObject;
tex5.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cemail) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex6 = _sec.ReportObjects["Text8"] as TextObject;
tex6.Text = "Recepción de Mercancía a Proveedores";
//
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
case 3: //Relación de facturas emitidas
_Str_Sql = "SELECT * FROM VST_REPORTE_LISTADOFACTURAS WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cprecarga='" + _Txt_IdDoc.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rFacturasEmitidas _My_Reporte = new T3.Report.rFacturasEmitidas();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section1"];
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(crif) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//TextObject tex3 = _sec.ReportObjects["Direccion"] as TextObject;
//tex3.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(caddressl) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//TextObject tex4 = _sec.ReportObjects["Telefonos"] as TextObject;
//tex4.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cphone1) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//TextObject tex5 = _sec.ReportObjects["Email"] as TextObject;
//tex5.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cemail) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
case 4:
_Str_Sql = "SELECT * FROM VST_PRECARGALISTADO WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cprecarga='" + _Txt_IdDoc.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
Report.rPreCargaListado _My_Reporte = new T3.Report.rPreCargaListado();
_My_Reporte.SetDataSource(_Ds.Tables[0]);
Section _sec = _My_Reporte.ReportDefinition.Sections["Section1"];
TextObject tex1 = _sec.ReportObjects["cabecera"] as TextObject;
tex1.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(cname) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
TextObject tex2 = _sec.ReportObjects["rif"] as TextObject;
tex2.Text = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset("SELECT rtrim(crif) FROM TCOMPANY WHERE ccompany='" + Frm_Padre._Str_Comp + "'").Tables[0].Rows[0][0].ToString();
//----------------------------
if (_Mtd_RequiereGuiaSada(_Txt_IdDoc.Text))
{
_sec = _My_Reporte.ReportDefinition.Sections["Section3"];
TextObject _Txt_RequiereGuiaSada = _sec.ReportObjects["Txt_RequiereGuiaSada"] as TextObject;
_Txt_RequiereGuiaSada.Text = "***REQUIERE GUÍA SADA***";
}
//----------------------------
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
this._Rpv_Main.ReportSource = null;
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
case 5:
DataTable _Dt_TableTemp = _Mtd_ImprimirNR(_Txt_IdDoc.Text.Trim());
if (_Dt_TableTemp.Rows.Count > 0)
{
Report.rNotaRecep_Devol _My_Reporte = new T3.Report.rNotaRecep_Devol();
_My_Reporte.SetDataSource(_Dt_TableTemp);
try
{
_My_Reporte.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.PaperLetter;
_My_Reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Portrait;
}
catch { }
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
else
{
MessageBox.Show("No existen registros.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
break;
}
this.Cursor = Cursors.Default;
}
else
{
if (_Cb_TpoDoc.SelectedIndex == -1)
{
_Er_Error.SetError(_Cb_TpoDoc, "Información requerida!!!");
}
if (_Txt_IdDoc.Text.Trim().Length == 0)
{
_Er_Error.SetError(_Txt_IdDoc, "Información requerida!!!");
}
}
}
