private void _Mtd_CargarCombos()
{
try
{
CLASES._Cls_Varios_Metodos _Cls_Varios = new T3.CLASES._Cls_Varios_Metodos(true);
//_Str_SentenciaSQL = "select distinct cvendedor,rtrim(cname) as cname from VST_VENDEDORESDOCSALCOBRO where ccompany='" + Frm_Padre._Str_Comp + "' and cfacturarela is null";
//Antes/////_Str_SentenciaSQL = "select distinct cvendedor,CVENDEDOR+' - '+rtrim(cname) as cname from VST_VENDEDORESDOCSALCOBRO where ccompany='" + Frm_Padre._Str_Comp + "' and cfacturarela=0";
//_Str_SentenciaSQL = "select cvendedor,CVENDEDOR+' - '+rtrim(cname) as cname from TVENDEDOR where ccompany='" + Frm_Padre._Str_Comp + "' and c_tipo_vend=1 AND c_activo='1' order by cvendedor";
_Str_SentenciaSQL = "SELECT DISTINCT cvendedor,cvendedor+' - '+rtrim(cname) as cname FROM dbo.VST_VENDEDORCHEQALCOBRO WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND ISNULL(cfacturarela,0)=0";
_Str_SentenciaSQL += " UNION ";
_Str_SentenciaSQL += "SELECT DISTINCT cvendedor,cvendedor+' - '+rtrim(cname) as cname FROM dbo.VTS_VENDEDORFACTALCOBRO WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND ISNULL(cfacturarela,0)=0";
_Str_SentenciaSQL += " UNION ";
_Str_SentenciaSQL += "SELECT DISTINCT cvendedor,cvendedor+' - '+rtrim(cname) as cname FROM dbo.VST_VENDEDORNCALCOBRO WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND ISNULL(cfacturarela,0)=0";
_Str_SentenciaSQL += " UNION ";
_Str_SentenciaSQL += "SELECT DISTINCT cvendedor,cvendedor+' - '+rtrim(cname) as cname FROM dbo.VST_VENDEDORNDALCOBRO WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND ISNULL(cfacturarela,0)=0";
_DS_DataSet = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_SentenciaSQL);
_Cls_Varios._Mtd_CargarCombo(_Cmb_Vendedor, _DS_DataSet, "cname", "cvendedor");
_Str_SentenciaSQL = "select distinct cguiadesp from VST_GUIADESPALCOBRO where cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cfacturarela is null";
_DS_DataSet = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_SentenciaSQL);
_Cls_Varios._Mtd_CargarCombo(_Cmb_Guia, _DS_DataSet, "cguiadesp", "cguiadesp");
_Str_SentenciaSQL = "EXEC PA_DIARUTAALCOBRO '" + Frm_Padre._Str_Comp + "','" + Frm_Padre._Str_GroupComp + "',NULL,NULL,NULL";
_DS_DataSet = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_SentenciaSQL);
_Cls_Varios._Mtd_CargarCombo(_Cmb_DiaRuta, _DS_DataSet, "CDIARUTA", "CDIARUTA");
}
catch
{
}
}
private void _Bt_Aceptar_Click(object sender, EventArgs e)
{
CLASES._Cls_Varios_Metodos _Cls_Varios = new T3.CLASES._Cls_Varios_Metodos(true);
if (_Cls_Varios._Mtd_VerificarClaveUsuarioFirma(_Txt_Clave.Text, "F_CONTEOINVTARJ_INV"))
{
if (!_Mtd_SePuedeIniciarConteo())
{
this.Close();
return;
}
Cursor = Cursors.WaitCursor;
string _Str_Cadena = "";
_Dg_Grid.Rows.Cast <DataGridViewRow>().Where(x => Convert.ToString(x.Cells["Select"].Value) == "1").ToList().ForEach(Fila =>
{
if (_Mtd_ExistProducto(Convert.ToString(Fila.Cells["cproductom"].Value).Trim(), Convert.ToString(Fila.Cells["cidproductod"].Value).Trim()))
{
_Mtd_AgregarProducto(Fila.Cells["id_tarjetainv"].Value.ToString().Trim());
}
else
{
_Str_Cadena = "Update TINVFISICOD set cnousada='1' where ccompany='" + Frm_Padre._Str_Comp + "' and id_tarjetainv='" + Convert.ToString(Fila.Cells["id_tarjetainv"].Value).Trim() + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
}
}
);
_Dg_Grid.Rows.Cast <DataGridViewRow>().Where(x => Convert.ToString(x.Cells["Select"].Value) != "1").ToList().ForEach(Fila =>
{
_Str_Cadena = "Update TINVFISICOD set cnousada='0' where ccompany='" + Frm_Padre._Str_Comp + "' and id_tarjetainv='" + Convert.ToString(Fila.Cells["id_tarjetainv"].Value).Trim() + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
}
);
_Str_Cadena = "Update TINVFISICOM set ciniciado='1' where ccompany='" + Frm_Padre._Str_Comp + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
if ((Frm_Padre)this.MdiParent != null)
{
System.Threading.ThreadPool.QueueUserWorkItem(((Frm_Padre)this.MdiParent)._Frm_Contenedor._async_Default);
}
if (_Dg_Productos.RowCount > 0)
{
_Pnl_Productos.Visible = true;
}
else
{
Cursor = Cursors.Default;
Frm_ConteoInventario _Frm = new Frm_ConteoInventario();
_Frm.MdiParent = this.MdiParent;
_Frm.Dock = DockStyle.Fill;
_Frm.Show();
this.Close();
}
}
else
{
MessageBox.Show(this, "Clave incorrecta!!!", "Verificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); _Txt_Clave.Focus(); _Txt_Clave.Select(0, _Txt_Clave.Text.Length);
}
}
private void _Bt_AbrirConteo_Click(object sender, EventArgs e)
{
CLASES._Cls_Varios_Metodos myUtilidad = new T3.CLASES._Cls_Varios_Metodos(true);
if (myUtilidad._Mtd_ObtenerUsuarioFirma(Frm_Padre._Str_Use) == "1" & myUtilidad._Mtd_UsuarioProceso(Frm_Padre._Str_Use, "F_IMPRESION_TARJETA"))
{
if (!_Mtd_SePuedeIniciarConteo())
{
return;
}
string _Str_Cadena = "Select cimpreso,ciniciado from TINVFISICOM where ccompany='" + Frm_Padre._Str_Comp + "'";
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_Ds.Tables[0].Rows.Count > 0)
{
if (_Ds.Tables[0].Rows[0][0].ToString().Trim() == "1")
{
if (_Ds.Tables[0].Rows[0][1].ToString().Trim() == "1")
{
Frm_ConteoInventario _Frm = new Frm_ConteoInventario();
if (!_Mtd_AbiertoOno(_Frm))
{
_Frm.MdiParent = this.MdiParent; _Frm.Dock = DockStyle.Fill; _Frm.Show(); this.Close();
}
else
{
_Frm.Dispose();
}
}
else
{
Frm_VerificacionTarjetas _Frm = new Frm_VerificacionTarjetas();
if (!_Mtd_AbiertoOno(_Frm))
{
_Frm.MdiParent = this.MdiParent; _Frm.Dock = DockStyle.Fill; _Frm.Show(); this.Close();
}
else
{
_Frm.Dispose();
}
}
}
else
{
MessageBox.Show("Las tarjetas aún no han sido impresas. No podra realizar operaciones en este módulo", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
else
{
MessageBox.Show("Las tarjetas aún no han sido creadas. No podra realizar operaciones en este módulo", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
else
{
MessageBox.Show("Su usuario no posee permiso para entrar en este módulo", "Acceso denegado", MessageBoxButtons.OK, MessageBoxIcon.Stop);
}
}
private void _Mtd_CargarComboVendedor()
{
CLASES._Cls_Varios_Metodos _Cls_Varios = new T3.CLASES._Cls_Varios_Metodos(true);
//_Str_SentenciaSQL = "select distinct cvendedor,rtrim(cname) as cname from VST_T3_FACTURASALCOBRO where ccompany='" + Frm_Padre._Str_Comp + "' and c_enmanosvende='1'";
//_Str_SentenciaSQL = "select distinct CVENDEDOR,rtrim(CVENDEDOR)+' - '+rtrim(cname) as cname from VST_T3_FACTURASALCOBRO where ccompany='" + Frm_Padre._Str_Comp + "' and c_enmanosvende='1'";
_Str_SentenciaSQL = "EXEC PA_FACTURASALCOBROVENDEDORES '" + Frm_Padre._Str_Comp + "','" + Frm_Padre._Str_GroupComp + "',0,1,0";
//_Str_SentenciaSQL = "select cvendedor,CVENDEDOR+' - '+rtrim(cname) as cname from TVENDEDOR where ccompany='" + Frm_Padre._Str_Comp + "' and c_tipo_vend=1 AND c_activo='1' order by cvendedor";
_DS_DataSet = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_SentenciaSQL);
_Cls_Varios._Mtd_CargarCombo(_Cmb_VendedorFMV, _DS_DataSet, "cname", "cvendedor");
//_Str_SentenciaSQL = "select distinct cdiaruta from VST_DIARUTAALCOBRO where ccompany='" + Frm_Padre._Str_Comp + "' and c_enmanosvende='1'";
_Str_SentenciaSQL = "EXEC PA_DIARUTAALCOBRO '" + Frm_Padre._Str_Comp + "','" + Frm_Padre._Str_GroupComp + "',0,1,0";
_DS_DataSet = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_SentenciaSQL);
_Cls_Varios._Mtd_CargarCombo(_Cmb_DiaRutaFMV, _DS_DataSet, "cdiaruta", "cdiaruta");
}
private void Frm_CategProvee_Activated(object sender, EventArgs e)
{
_Mtd_Cargar();
_Er_Error.Dispose();
CONTROLES._Ctrl_Buscar._frm_Formulario = this;
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Formato = "Select ccatproveedor as Código,cnombre as Descripción from TCATPROVEEDOR";
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta = "Select ccatproveedor,cnombre,ctcount,ctretencion,ctcountc,cglobal from TCATPROVEEDOR";
//CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Where = "c_id_departamento";
CONTROLES._Ctrl_Buscar._Str_Tabla = "TCATPROVEEDOR";
CONTROLES._Ctrl_Buscar._Str_Where_Vista_Grid = "cdelete='0'";
//-------------------------------------------------------
_Ctrl_Controles[0] = _Txt_Cod;
_Ctrl_Controles[1] = _Txt_Des;
_Ctrl_Controles[2] = _Cbox_Cuenta;
_Ctrl_Controles[3] = _Cbox_Contra;
_Ctrl_Controles[4] = _Cbox_TipPro;
//-------------------------------------------------------
_Str_Campos[0] = "ccatproveedor";
_Str_Campos[1] = "cnombre";
_Str_Campos[2] = "ctcount";
_Str_Campos[3] = "ctcountc";
_Str_Campos[4] = "cglobal";
//------------------------------------------------------
_Str_Where[0] = "ccatproveedor";
//-------------------------------------------------------
_Str_NoRep[0] = "0";
//-------------------------------------------------------
_Str_Deshabi[0] = "0";
//-------------------------------------------------------
_Int_CodDes[0] = 0;
_Int_CodDes[1] = 1;
//-------------------------------------------------------
CONTROLES._Ctrl_Buscar._Ctrl_Controles = _Ctrl_Controles;
CONTROLES._Ctrl_Buscar._Str_Campos = _Str_Campos;
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Where = _Str_Where;
CONTROLES._Ctrl_Buscar._Er_Control_Error = _Er_Error;
CONTROLES._Ctrl_Buscar._Dg_Datagrid = _Dg_Grid;
CONTROLES._Ctrl_Buscar._Tb_Tab = _Tb_Tab;
CONTROLES._Ctrl_Buscar._Str_NoseDebeRepetir = _Str_NoRep;
CONTROLES._Ctrl_Buscar._Int_Codigo_Descripcion = _Int_CodDes;
CONTROLES._Ctrl_Buscar._Bl_Modifi = false;
CONTROLES._Ctrl_Buscar._Int_Foco = 5;
CONTROLES._Ctrl_Buscar._txt_ExistForm.Text = "Abierto";
CONTROLES._Ctrl_Buscar._Bl_Especial = false;
CONTROLES._Ctrl_Buscar._Str_Deshabilitados = _Str_Deshabi;
CONTROLES._Ctrl_Buscar._Txt_TpoFind.Text = "N";
CLASES._Cls_Varios_Metodos _Cls_CL = new T3.CLASES._Cls_Varios_Metodos(_Ctrl_Controles);
_Cls_CL._Mtd_Foco();
}
private void Frm_Zonadeventas_Activated(object sender, EventArgs e)
{
_Ctrl_Controles[0] = _Txt_Codigo;
_Ctrl_Controles[1] = _Txt_Descripcion;
_Ctrl_Controles[2] = _Cmb_Grupo;
CONTROLES._Ctrl_Buscar._Txt_TpoFind.Text = "PA";
CONTROLES._Ctrl_Buscar._Ctrl_Controles = _Ctrl_Controles;
CONTROLES._Ctrl_Buscar._Er_Control_Error = _Er_Error;
CONTROLES._Ctrl_Buscar._Tb_Tab = _Tb_Tab;
CONTROLES._Ctrl_Buscar._Bl_Especial = true;
CONTROLES._Ctrl_Buscar._Bol_SoloNuevo = false;
CONTROLES._Ctrl_Buscar._txt_ExistForm.Text = "";
CONTROLES._Ctrl_Buscar._txt_ExistForm.Text = "Abierto";
CONTROLES._Ctrl_Buscar._frm_Formulario = this;
CLASES._Cls_Varios_Metodos _Cls_CL = new T3.CLASES._Cls_Varios_Metodos(_Ctrl_Controles);
_Cls_CL._Mtd_Foco();
//____________________________________________
if (!_Txt_Descripcion.Enabled & _Txt_Descripcion.Text.Trim().Length > 0)
{
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar2.Enabled = false;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar2.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar2.Enabled = true;
}
else if (!_Txt_Codigo.Enabled & _Txt_Codigo.Text.Trim().Length > 0 & _Txt_Descripcion.Enabled)
{
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar2.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar2.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar2.Enabled = false;
CONTROLES._Ctrl_Buscar._Bl_Modifi = true;
}
else if (_Txt_Codigo.Enabled)
{
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar2.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar2.Enabled = false;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar2.Enabled = false;
}
//_____________________________________________
}
private void _Bt_Aceptar_Click(object sender, EventArgs e)
{
CLASES._Cls_Varios_Metodos _Cls_Varios = new T3.CLASES._Cls_Varios_Metodos(true);
if (_Cls_Varios._Mtd_VerificarClaveUsuario(_Txt_Clave.Text))
{
if (_Bol_Reporte)
{
_Mtd_Imprimir();
}
else
{
Cursor = Cursors.WaitCursor;
foreach (DataGridViewRow _Dtg_Row in _Dtg_FactAmanosVendedor.Rows)
{
if (_Dtg_Row.Cells[0].Value != null)
{
if (_Dtg_Row.Cells[0].Value.ToString() == "1")
{
_Str_SentenciaSQL = "update TFACTURELACOBRO SET c_enmanosvende='0', c_enmanosempre='1',c_imprelacobro='0' WHERE cnumdocu='" + _Dtg_Row.Cells[1].Value.ToString() + "' and ctipodocument='" + _Dtg_Row.Cells[2].Value.ToString() + "' AND CCOMPANY='" + Frm_Padre._Str_Comp + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_SentenciaSQL);
}
}
}
_Pnl_Clave.Visible = false;
_Mtd_ActualizarEnManosCredito("", false);
_Mtd_ActualizarEnManosVendedor("", false);
tabControl1.SelectedIndex = 0;
_Mtd_CargarComboCredito();
_Mtd_CargarComboVendedor();
Cursor = Cursors.Default;
}
}
else
{
MessageBox.Show(this, "Clave incorrecta!!!", "Verificar", MessageBoxButtons.OK, MessageBoxIcon.Exclamation); _Txt_Clave.Focus(); _Txt_Clave.Select(0, _Txt_Clave.Text.Length);
}
}
private void Frm_GrupoUsurario_Activated(object sender, EventArgs e)
{
_Er_Error.Dispose();
CONTROLES._Ctrl_Buscar._frm_Formulario = this;
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Formato = "Select cgroup as Código,cname as Descripción from TGROUP";
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta = "Select cgroup,cname from TGROUP";
//CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Where = "c_id_departamento";
CONTROLES._Ctrl_Buscar._Str_Tabla = "TGROUP";
CONTROLES._Ctrl_Buscar._Str_Where_Vista_Grid = "cdelete='0'";
//-------------------------------------------------------
_Ctrl_Controles[0] = _Txt_Cod;
_Ctrl_Controles[1] = _Txt_Des;
//-------------------------------------------------------
_Str_Campos[0] = "cgroup";
_Str_Campos[1] = "cname";
//------------------------------------------------------
_Str_Where[0] = "cgroup";
//-------------------------------------------------------
_Str_NoRep[0] = "0";
//-------------------------------------------------------
_Str_Deshabi[0] = "0";
//-------------------------------------------------------
_Int_CodDes[0] = 0;
_Int_CodDes[1] = 1;
//-------------------------------------------------------
CONTROLES._Ctrl_Buscar._Ctrl_Controles = _Ctrl_Controles;
CONTROLES._Ctrl_Buscar._Str_Campos = _Str_Campos;
CONTROLES._Ctrl_Buscar._Str_Cadena_Consulta_Where = _Str_Where;
CONTROLES._Ctrl_Buscar._Er_Control_Error = _Er_Error;
CONTROLES._Ctrl_Buscar._Dg_Datagrid = _Dg_Grid;
CONTROLES._Ctrl_Buscar._Tb_Tab = _Tb_Tab;
CONTROLES._Ctrl_Buscar._Str_NoseDebeRepetir = _Str_NoRep;
CONTROLES._Ctrl_Buscar._Int_Codigo_Descripcion = _Int_CodDes;
CONTROLES._Ctrl_Buscar._Bl_Modifi = false;
CONTROLES._Ctrl_Buscar._Int_Foco = 0;
CONTROLES._Ctrl_Buscar._Bl_Especial = false;
CONTROLES._Ctrl_Buscar._txt_ExistForm.Text = "";
CONTROLES._Ctrl_Buscar._txt_ExistForm.Text = "Abierto";
CONTROLES._Ctrl_Buscar._Str_Deshabilitados = _Str_Deshabi;
CONTROLES._Ctrl_Buscar._Txt_TpoFind.Text = "N";
CLASES._Cls_Varios_Metodos _Cls_CL = new T3.CLASES._Cls_Varios_Metodos(_Ctrl_Controles);
_Cls_CL._Mtd_Foco();
//____________________________________________
if (!_Txt_Cod.Enabled & !_Txt_Des.Enabled & _Txt_Cod.Text.Trim().Length > 0 & _Txt_Des.Text.Trim().Length > 0)
{
if (_Dg_Grid.Rows.Count > 0)
{
CONTROLES._Ctrl_Buscar._txt_text.Text = "";
CONTROLES._Ctrl_Buscar._txt_text.Text = "cgroup='" + _Txt_Cod.Text + "'";
}
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar.Enabled = false;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar.Enabled = true;
}
else if (!_Txt_Cod.Enabled & _Txt_Des.Enabled)
{
CONTROLES._Ctrl_Buscar._Bl_Modifi = true;
if (_Dg_Grid.Rows.Count > 0)
{
CONTROLES._Ctrl_Buscar._txt_text.Text = "";
CONTROLES._Ctrl_Buscar._txt_text.Text = "cgroup='" + _Txt_Cod.Text + "'";
}
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar.Enabled = false;
}
else if (_Txt_Cod.Enabled & _Txt_Des.Enabled)
{
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_guardar.Enabled = true;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_borrar.Enabled = false;
((Frm_Padre)this.MdiParent)._Ctrl_Buscar1._Bt_editar.Enabled = false;
}
//_____________________________________________
}
private void _Mtd_Anular()
{
try
{
string _Str_Sql = "";
string _Str_TpoDoc = "";
string _Str_cidcomprob = "";
string _Str_cidcomprobret = "";
string _Str_Cadena = "select cidcomprobanul,cdiferenciaprec,cproveedor from TNOTACREDICP where cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cidnotacreditocxp='" + _Txt_Cod.Text + "' and cproveedor='" + _Txt_CodProveedor.Text + "'";
DataSet _Ds2 = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_Ds2.Tables[0].Rows.Count > 0)
{
PrintDialog _Print = new PrintDialog();
_Print:
if (_Print.ShowDialog() == DialogResult.OK)
{
_Txt_Clave.Text = "";
_Pnl_Clave.Visible = false;
//_________________________________
int _Int_Id_Comprobante = new int();
CLASES._Cls_Varios_Metodos _Cls_Proceso = new T3.CLASES._Cls_Varios_Metodos(true);
_Str_Cadena = "Select cidcomprobanul from TNOTACREDICP where cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cidnotacreditocxp='" + _Txt_Cod.Text.Trim() + "' and cproveedor='" + _Txt_CodProveedor.Text.Trim() + "'";
DataSet _DsTemp = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_DsTemp.Tables[0].Rows[0][0] == System.DBNull.Value | _DsTemp.Tables[0].Rows[0][0].ToString().Trim() == "0")
{
_Str_Cadena = "Select cidcomprob from TNOTACREDICP where cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cidnotacreditocxp='" + _Txt_Cod.Text.Trim() + "' and cproveedor='" + _Txt_CodProveedor.Text.Trim() + "'";
_DsTemp = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
_Int_Id_Comprobante = Convert.ToInt32(_Cls_Proceso._Mtd_CrearComprobanteAnulacion(_DsTemp.Tables[0].Rows[0][0].ToString().Trim()));
_Mtd_InsertAuxiliarCont(_DsTemp.Tables[0].Rows[0][0].ToString().Trim(), _Int_Id_Comprobante.ToString());
Program._MyClsCnn._mtd_conexion._Mtd_modificar("TNOTACREDICP", "cidcomprobanul='" + _Int_Id_Comprobante.ToString() + "',cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "'", "cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cidnotacreditocxp='" + _Txt_Cod.Text.Trim() + "' and cproveedor='" + _Txt_CodProveedor.Text.Trim() + "'");
}
else
{
_Int_Id_Comprobante = Convert.ToInt32(_DsTemp.Tables[0].Rows[0][0].ToString().Trim());
}
Cursor = Cursors.WaitCursor;
REPORTESS _Frm = new REPORTESS(new string[] { "vst_reportecomprobante" }, "", "T3.Report.rcomprobante", "Section1", "cabecera", "rif", "nit", "ccompany='" + Frm_Padre._Str_Comp + "' and cidcomprob='" + _Int_Id_Comprobante.ToString() + "'", _Print, true);
Cursor = Cursors.Default;
if (MessageBox.Show("¿La impresión se ha realizado correctamente?", "Información", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
{
//----------------------------------------------------------------------------------
Program._MyClsCnn._mtd_conexion._Mtd_modificar("TNOTACREDICP", "canulado='1',cfechaanul='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "',cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "'", "cgroupcomp='" + Frm_Padre._Str_GroupComp + "' and ccompany='" + Frm_Padre._Str_Comp + "' and cidnotacreditocxp='" + _Txt_Cod.Text.Trim() + "' and cproveedor='" + _Txt_CodProveedor.Text.Trim() + "'");
Program._MyClsCnn._mtd_conexion._Mtd_modificar("TCOMPROBANC", "cstatus='1',clvalidado='1',cvalidate='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "'", "ccompany='" + Frm_Padre._Str_Comp + "' and cidcomprob='" + _Int_Id_Comprobante.ToString() + "'");
_Str_Sql = "SELECT ctipodocnc FROM TCONFIGCXP WHERE ccompany='" + Frm_Padre._Str_Comp + "'";
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
_Str_TpoDoc = Convert.ToString(_Ds.Tables[0].Rows[0]["ctipodocnc"]);
}
//_________________________________
//_________________________________ANULO CUENTAS POR PAGAR
_Str_Cadena = "UPDATE TFACTPPAGARM SET cactivo=0,canulado=1,cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "' WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND cproveedor='" + _Txt_CodProveedor.Text + "' AND ctipodocument='" + _Str_TpoDoc + "' and cnumdocu='" + _Txt_Cod.Text + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
_Str_Cadena = "UPDATE TMOVCXPM SET cactivo=0,canulado=1,cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "' WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND cproveedor='" + _Txt_CodProveedor.Text + "' AND ctipodocument='" + _Str_TpoDoc + "' and cnumdocu='" + _Txt_Cod.Text + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
_Str_Sql = "SELECT cidcomprobret FROM TFACTPPAGARM WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND cproveedor='" + _Txt_CodProveedor.Text + "' AND ctipodocument='" + _Str_TpoDoc + "' and cnumdocu='" + _Txt_Cod.Text + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
_Str_cidcomprobret = Convert.ToString(_Ds.Tables[0].Rows[0]["cidcomprobret"]);
}
//ANULO RETENCION DE IVA
if (_Str_cidcomprobret != "")
{
_Str_Cadena = "UPDATE TCOMPROBANRETC SET canulado=1,cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "' WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cidcomprobret='" + _Str_cidcomprobret + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
_Str_Sql = "SELECT cidcomprob FROM TCOMPROBANRETC WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cidcomprobret='" + _Str_cidcomprobret + "'";
_Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Sql);
if (_Ds.Tables[0].Rows.Count > 0)
{
if (Convert.ToString(_Ds.Tables[0].Rows[0]["cidcomprob"]) != "")
{
_Str_Cadena = "UPDATE TCOMPROBANC SET cstatus='9' WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cidcomprob='" + Convert.ToString(_Ds.Tables[0].Rows[0]["cidcomprob"]) + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Sql);
}
}
}
System.Threading.ThreadPool.QueueUserWorkItem(((Frm_Padre)this.MdiParent)._Frm_Contenedor._async_Default);
MessageBox.Show("La operación fué realizada correctamente", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
_Mtd_ini();
_Tb_Tab.SelectedIndex = 0;
if (_Rbt_NoAnul.Checked)
{
_Mtd_Actualizar_NoAnul();
}
else
{
_Mtd_Actualizar_Anul();
}
}
else
{
_Frm.Close();
GC.Collect();
goto _Print;
}
}
else
{
_Pnl_Clave.Visible = false;
_Txt_Clave.Text = "";
}
}
}
catch (Exception _Ex) { MessageBox.Show("No se puede contactar con la impresora", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); Cursor = Cursors.Default; }
}
private void _Mtd_Generar(string _P_Str_cidnotrecepc, string _P_Str_cidrecepcion, string _P_Str_Proveedor, string _P_Str_Factuta)
{
string _Str_Cadena = "SELECT ISNULL(cidcomprob,0) FROM TNOTARECEPC WHERE cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND cidnotrecepc='" + _P_Str_cidnotrecepc + "'";
DataSet _Ds = Program._MyClsCnn._mtd_conexion._Mtd_RetornarDataset(_Str_Cadena);
if (_Ds.Tables[0].Rows.Count > 0)
{
int _Int_ID_Comprobante = new int();
if (_Ds.Tables[0].Rows[0][0].ToString().Trim() == "0")
{
double _Dbl_MontoInvend = 0;
if (_Txt_Invendible.Text.Trim().Length > 0)
{
_Dbl_MontoInvend = Convert.ToDouble(_Txt_Invendible.Text);
}
CLASES._Cls_Varios_Metodos _Cls_Procesos = new T3.CLASES._Cls_Varios_Metodos(true);
if (_Dbl_MontoInvend == 0)
{
_Int_ID_Comprobante = _Cls_Procesos._Mtd_Proceso_P_COMPRA(_Txt_NR.Text.Trim(), _P_Str_cidrecepcion, _P_Str_Proveedor, _P_Str_Factuta);
}
else
{
_Dbl_MontoInvend = _Mtd_RetornarInvendible(_P_Str_cidrecepcion, _P_Str_Proveedor, _P_Str_Factuta);
_Int_ID_Comprobante = _Cls_Procesos._Mtd_Proceso_P_COMPRA_INVEND(_Txt_NR.Text.Trim(), _P_Str_cidrecepcion, _Dbl_MontoInvend, _P_Str_Proveedor, _P_Str_Factuta);
}
Program._MyClsCnn._mtd_conexion._Mtd_modificar("TNOTARECEPC", "cidcomprob='" + _Int_ID_Comprobante.ToString() + "',cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "'", "cgroupcomp='" + Frm_Padre._Str_GroupComp + "' AND ccompany='" + Frm_Padre._Str_Comp + "' AND cidnotrecepc='" + _P_Str_cidnotrecepc + "'");
}
else
{
_Int_ID_Comprobante = Convert.ToInt32(_Ds.Tables[0].Rows[0][0].ToString().Trim());
}
try
{
Cursor = Cursors.WaitCursor;
PrintDialog _Print = new PrintDialog();
Cursor = Cursors.Default;
_PrintComprob:
if (_Print.ShowDialog() == DialogResult.OK)
{
Cursor = Cursors.WaitCursor;
REPORTESS _Frm = new REPORTESS(new string[] { "vst_reportecomprobante" }, "", "T3.Report.rcomprobante", "Section1", "cabecera", "rif", "nit", "ccompany='" + Frm_Padre._Str_Comp + "' and cidcomprob='" + _Int_ID_Comprobante + "'", _Print, true);
Cursor = Cursors.Default;
if (MessageBox.Show("¿El comprobante se imprimió correctamente?", "Requerimiento", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
{
_Frm.Close();
_Frm.Dispose();
double _Dbl_Reten = _Mtd_PorcRetencion(_P_Str_Proveedor);
string _Str_Impuesto = _Txt_Impuesto.Text;
if (_Str_Impuesto.Trim().Length == 0)
{
_Str_Impuesto = "0";
}
bool _Bol_Verificar = true;
if (_Dbl_Reten > 1 & Convert.ToDouble(_Str_Impuesto) > 0 & _Cls_VariosMetodos._Mtd_CompaniaRetieneImp(Frm_Padre._Str_Comp))
{
Cursor = Cursors.WaitCursor;
if (CLASES._Cls_Varios_Metodos._Mtd_VerificarConexionExterna())
{
if (!_Mtd_ExisteComprobanteRetencion(_Str_Proveedor, _Str_TpoDocGian, _P_Str_Factuta))
{
_Cls_VariosMetodos._Mtd_Proceso_GenerarComprobRetencion(_Str_Proveedor, _Str_TpoDocGian, _Txt_Document.Text, _Str_Recepcion);
}
}
else
{
_Bol_Verificar = false;
}
Cursor = Cursors.Default;
}
if (_Bol_Verificar)
{
_Str_Cadena = "UPDATE TCOMPROBANC SET cstatus='1',clvalidado='1',cvalidate='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDate()) + "',cdateupd='" + _Cls_Formato._Mtd_fecha(CLASES._Cls_Varios_Metodos._Mtd_SQLGetDateServ()) + "',cuserupd='" + Frm_Padre._Str_Use + "' WHERE ccompany='" + Frm_Padre._Str_Comp + "' AND cidcomprob='" + _Int_ID_Comprobante + "'";
Program._MyClsCnn._mtd_conexion._Mtd_EjecutarSentencia(_Str_Cadena);
System.Threading.ThreadPool.QueueUserWorkItem(((Frm_Padre)this.MdiParent)._Frm_Contenedor._async_Default);
MessageBox.Show("La operación ha sido realizada correctamente", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else
{
MessageBox.Show("Problemas de conexión para crear la retención. Por favor espere un minuto e intente nuevamente.", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
this.Close();
}
else
{
_Frm.Close();
_Frm.Dispose();
goto _PrintComprob;
}
}
else
{
_Pnl_Clave.Visible = false;
_Txt_Clave.Text = "";
}
}
catch (Exception _Ex) { Cursor = Cursors.Default; MessageBox.Show("Error al intentar imprimir.\n" + _Ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
else
{
MessageBox.Show("No se encontró la nota de recepción", "Información", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
