private void btnEliminar_Click(object sender, EventArgs e)
{
bool _Connection = new lSerializados().CheckConnection(Configuration.UrlConnection);
string _Message = "No existe conexión con el servidor de datos... Contacte a un Administrador de Red para ver las opciones de conexión.";
string _Title = "Conexión de Red";
if (_Connection)
{
int Row = DtComprobaciones.CurrentCell.RowIndex;
int IDcompro = Convert.ToInt32(DtComprobaciones.Rows[Row].Cells[0].Value.ToString());
oComprobacion _Comprobacion = _Comprobaciones.Where(o => o.IdComprobacion == IDcompro).FirstOrDefault();
DialogResult dialogo = MessageBox.Show("Desea eliminar fórmula número " + IDcompro.ToString() + "?",
"Confirme", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
if (dialogo == DialogResult.Yes)
{
_Message = ((cmbTipo.SelectedIndex == 0) ? "- Debe seleccionar un tipo de plantilla" : "");
if (_Message.Length > 0)
{
MessageBox.Show(_Message, "Información Faltante", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (_Comprobacion.AdmiteCambios == 0)
{
MessageBox.Show("La fórmula no puede ser eliminada ya que es un cálculo de " + cmbTipo.Text, "Eliminar", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
DialogResult _response = DialogResult.None;
oComprobacion _Template = new oComprobacion()
{
IdComprobacion = IDcompro,
IdTipoPlantilla = cmbTipo.SelectedIndex,
Concepto = "",
Formula = "",
Condicion = "",
Nota = ""
};
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, "E").Delete();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Fórmula eliminada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
if (_result.Key)
{
string _Path = Configuration.Path;
oPlantilla[] _Templates = Assembler.LoadJson <oPlantilla[]>($"{_Path}\\jsons\\Plantillas.json");
oPlantilla _Temp = _Templates.FirstOrDefault(o => o.IdTipoPlantilla == _Template.IdTipoPlantilla && o.Anio == (int)cmbAnio.SelectedValue);
//Libro Actual de Excel.
Excel.Worksheet xlSht;
Excel.Workbook wb = Globals.ThisAddIn.Application.ActiveWorkbook;
string[] Formula = _Comprobacion.Formula.Split('=');
string[] _celdaBase = Formula[0].Replace("[", "").Replace("]", "").Split(',');
string[] _celdaFin = Formula[1].Replace("[", "").Replace("]", "").Split(',');
Excel.Range _RangeO;
Excel.Range _RangeR;
xlSht = (Excel.Worksheet)wb.Worksheets.get_Item(_celdaBase[0]);
for (int a = 1; a < 1000; a++)
{
_RangeO = (Excel.Range)xlSht.get_Range($"A" + a.ToString());
if (_RangeO != null)
{
if (_RangeO.Value.ToString() == _celdaBase[1])
{
_RangeR = (Excel.Range)xlSht.get_Range($"{Generales.ColumnAdress(Int32.Parse(_celdaBase[2]))}" + a.ToString());
_RangeR.Formula = "";
_RangeR.Value = "";
_RangeR.NumberFormat = "@";
_RangeR.Value2 = "";
a = 1001;
}
}
}
FileJson(_Temp, cmbTipo.SelectedIndex.ToString());
this.Hide();
}
}
}
else
{
MessageBox.Show(_Message, _Title, MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void btguardar_Click(object sender, EventArgs e)
{
bool _Connection = new lSerializados().CheckConnection(Configuration.UrlConnection);
string _Message = "No existe conexión con el servidor de datos... Contacte a un Administrador de Red para ver las opciones de conexión.";
string _Title = "Conexión de Red";
if (_Connection)
{
_Message = (txtConcepto.Text.Trim() == "") ? "- Debe indicar concepto." : "";
_Message += (txtcelda.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar celda." : "";
_Message += (txtformula.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar fórmula." : "";
_Message += (chkCondicionar.Checked && txtCondicion.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar condición." : "";
if (_Message.Length > 0)
{
MessageBox.Show(_Message, "Información Faltante", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
DialogResult _response = DialogResult.None;
string Formulax = (txtcelda.Text + "=" + txtformula.Text);
string condicion = "";
if (chkCondicionar.Checked)
{
condicion = txtCondicion.Text;
}
oComprobacion _Template = new oComprobacion()
{
IdComprobacion = Convert.ToInt32(txtNro.Text),
IdTipoPlantilla = TpPlantilla,//buscar
Concepto = txtConcepto.Text,
Formula = Formulax,
Condicion = condicion,
Nota = txtNota.Text,
};
if (accion == "A")
{
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, accion).Add();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Comprobación agregada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
//if (_result.Key) this.Hide();
}
else
if (accion == "M")
{
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, accion).Update();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Comprobación modificada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
//if (_result.Key) this.Hide();
}
string _Path = Configuration.Path;
oPlantilla[] _Templates = Assembler.LoadJson <oPlantilla[]>($"{_Path}\\jsons\\Plantillas.json");
oPlantilla _Temp = _Templates.FirstOrDefault(o => o.IdTipoPlantilla == _Template.IdTipoPlantilla && o.Anio == _iYear);
if (_oComprobacion != null)
{
//Libro Actual de Excel.
Excel.Worksheet xlSht;
Excel.Workbook wb = Globals.ThisAddIn.Application.ActiveWorkbook;
string[] Formula = _oComprobacion.Formula.Split('=');
string[] _celdaBase = Formula[0].Replace("[", "").Replace("]", "").Split(',');
string[] _celdaFin = Formula[1].Replace("[", "").Replace("]", "").Split(',');
Excel.Range _RangeO;
Excel.Range _RangeR;
xlSht = (Excel.Worksheet)wb.Worksheets.get_Item(_celdaBase[0]);
for (int a = 1; a < 1000; a++)
{
_RangeO = (Excel.Range)xlSht.get_Range($"A" + a.ToString());
if (_RangeO != null)
{
if (_RangeO.Value.ToString() == _celdaBase[1])
{
_RangeR = (Excel.Range)xlSht.get_Range($"{Generales.ColumnAdress(Int32.Parse(_celdaBase[2]))}" + a.ToString());
_RangeR.Formula = "";
_RangeR.Value = "";
_RangeR.NumberFormat = "@";
_RangeR.Value2 = "";
a = 1001;
}
}
}
}
_Form.Close();
FileJson(_Temp, TpPlantilla.ToString());
_Form.Show();
}
else
{
MessageBox.Show(_Message, _Title, MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void btguardar_Click(object sender, EventArgs e)
{
bool _Connection = new lSerializados().CheckConnection(Configuration.UrlConnection);
string _Message = "No existe conexión con el servidor de datos... Contacte a un Administrador de Red para ver las opciones de conexión.";
string _Title = "Conexión de Red";
if (_Connection)
{
_Message = (txtConcepto.Text.Trim() == "") ? "- Debe indicar concepto." : "";
_Message += (txtcelda.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar celda." : "";
_Message += (txtformula.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar fórmula." : "";
_Message += (chkCondicionar.Checked && txtCondicion.Text.Trim() == "") ? ((_Message.Length > 0) ? "\r\n" : "") + "- Debe indicar condición." : "";
if (_Message.Length > 0)
{
MessageBox.Show(_Message, "Información Faltante", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
DialogResult _response = DialogResult.None;
string Formulax = (txtcelda.Text + "=" + txtformula.Text);
string condicion = "";
if (chkCondicionar.Checked)
{
condicion = txtCondicion.Text;
}
oComprobacion _Template = new oComprobacion()
{
IdComprobacion = Convert.ToInt32(txtNro.Text),
IdTipoPlantilla = TpPlantilla,//buscar
Concepto = txtConcepto.Text,
Formula = Formulax,
Condicion = condicion,
Nota = txtNota.Text,
};
if (accion == "A")
{
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, accion).Add();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Comprobación agregada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
if (_result.Key)
{
this.Hide();
}
}
else
if (accion == "M")
{
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, accion).Update();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Comprobación modificada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
if (_result.Key)
{
this.Hide();
}
}
}
else
{
MessageBox.Show(_Message, _Title, MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void btnEliminar_Click(object sender, EventArgs e)
{
bool _Connection = new lSerializados().CheckConnection(Configuration.UrlConnection);
string _Message = "No existe conexión con el servidor de datos... Contacte a un Administrador de Red para ver las opciones de conexión.";
string _Title = "Conexión de Red";
if (_Connection)
{
int Row = DtComprobaciones.CurrentCell.RowIndex;
int IDcompro = Convert.ToInt32(DtComprobaciones.Rows[Row].Cells[0].Value.ToString());
oComprobacion _Comprobacion = _Comprobaciones.Where(o => o.IdComprobacion == IDcompro).FirstOrDefault();
DialogResult dialogo = MessageBox.Show("Desea eliminar fórmula número " + IDcompro.ToString() + "?",
"Confirme", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
if (dialogo == DialogResult.Yes)
{
_Message = ((cmbTipo.SelectedIndex == 0) ? "- Debe seleccionar un tipo de plantilla" : "");
if (_Message.Length > 0)
{
MessageBox.Show(_Message, "Información Faltante", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (_Comprobacion.AdmiteCambios == 0)
{
MessageBox.Show("La fórmula no puede ser eliminada ya que es un cálculo de " + cmbTipo.Text, "Eliminar", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
DialogResult _response = DialogResult.None;
oComprobacion _Template = new oComprobacion()
{
IdComprobacion = IDcompro,
IdTipoPlantilla = cmbTipo.SelectedIndex,
Concepto = "",
Formula = "",
Condicion = "",
Nota = ""
};
KeyValuePair <bool, string[]> _result = new lComprobacionesAdmin(_Template, "E").Delete();
string _Messages = "";
foreach (string _Msg in _result.Value)
{
_Messages += ((_Messages.Length > 0) ? "\r\n" : "") + _Msg;
}
if (_result.Key && _response != DialogResult.Yes)
{
_Messages = "Fórmula eliminada con éxito";
}
MessageBox.Show(_Messages, (_result.Key) ? "Proceso Existoso" : "Información Faltante", MessageBoxButtons.OK, (_result.Key) ? MessageBoxIcon.Information : MessageBoxIcon.Exclamation);
if (_result.Key)
{
this.Hide();
}
}
}
else
{
MessageBox.Show(_Message, _Title, MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}