private void _Mtd_Buscar()
{
string _Str_Sql = "SELECT * FROM VST_REPORTEGUIDESPACHO WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND cguiadesp='" + _Txt_Guia.Text + "'";
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
Report.rGuiaDespacho _My_Reporte = new T3.Report.rGuiaDespacho();
//----------------------------
string _Str_Cadena = "Select cprecarga from tguiadespachom where cguiadesp='" + _Txt_Guia.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***";
}
}
//----------------------------
_My_Reporte.SetDataSource(_Ds.Tables[0]);
this._Rpv_Main.ReportSource = _My_Reporte;
_Rpv_Main.RefreshReport();
}
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!!!");
}
}
}
