private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
oUserTable = oCompany.UserTables.Item("SECCIONESCOL");
//hago un getbykey para obtener el valor key necesario para actualizar los datos
if (oUserTable.GetByKey(EditText0.Value.ToString()))
{
// oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreSEC").Value = EditText1.Value.ToString();
}
oUserTable.UserFields.Fields.Item("U_SupraSeccionSEC").Value = EditText2.Value.ToString();
oUserTable.UserFields.Fields.Item("U_PrecioSEC").Value = EditText4.Value.ToString();
//oUserTable.Update();
int i = oUserTable.Update();
//oApp.SetStatusBarMessage("valor"+ i);
if (i != 0)
{
oApp.SetStatusBarMessage("Error en la actualización: " + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la actualizacón", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
//oForm = oApp.Forms.Item("fmacted");
//oForm.Close();
}
}
private bool UpdateCertificate(string pStrKey)
{
SAPbobsCOM.UserTable lObjsboTable = (SAPbobsCOM.UserTable)DIApplication.Company.UserTables.Item("UG_CU_CERT");
if (lObjsboTable.GetByKey(pStrKey))
{
lObjsboTable.UserFields.Fields.Item("U_CreditNote").Value = "Y";
if (lObjsboTable.Update() != 0)
{
string lStrError = DIApplication.Company.GetLastErrorDescription();
UIApplication.ShowError(lStrError);
}
else
{
return(true);
}
}
else
{
string lStrError = "Registro: " + pStrKey + " No encontrado";
}
return(false);
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
oUserTable = oCompany.UserTables.Item("SUPRASECCIONESCOL");
if (oForm.Mode.Equals(SAPbouiCOM.BoFormMode.fm_OK_MODE) || (Grid0.Rows.SelectedRows.Count == 0))
{
Button0.Caption = "OK";
}
else
{
//if (Grid2.Rows.SelectedRows.Count > 0) //VERIFICA QUE EXISTA UN ROW SELECCIONADO
//{
int nRow = Grid0.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder);
oApp.SendKeys("({TAB})");//aca aplico tabular para que tome el campo para actualizar
//Grid2.Rows.SelectedRows.Equals(nRow);
String sValorGrid = Convert.ToString(Grid0.DataTable.GetValue("Código", nRow));
// Grid2.Columns.Item("CODE").Click();
//bool num = (Grid2.Rows.SelectedRows.Count > 0);
if (oUserTable.GetByKey(sValorGrid.ToString())) // Esto devuelve true si existe el registro
{
//
string nom = (string)(Grid0.DataTable.GetValue("Nombre", nRow));
// oCompany.StartTransaction();
oUserTable.Code = sValorGrid;
oUserTable.Name = sValorGrid;
oUserTable.UserFields.Fields.Item("U_CodigoSS").Value = sValorGrid;
oUserTable.UserFields.Fields.Item("U_NombreSS").Value = nom;
int i = oUserTable.Update();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la Actualización", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE;
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT U_CodigoSS AS 'Código',U_NombreSS AS 'Nombre' FROM [@SUPRASECCIONESCOL]");
Grid0.DataTable = oForm.DataSources.DataTables.Item("DTSPSEC");
Grid0.DataTable.Rows.Add(1);
for (int j = 1; j <= this.Grid0.DataTable.Rows.Count; j += 1)
{
if (j < this.Grid0.DataTable.Rows.Count)
{
Grid0.Rows.SelectedRows.Add(j);
}
}
RowNumberGrid(Grid0);
BubbleEvent = false;
}
}
//si no existe el dato, lo agregara
else
{
// Button0.Caption = "Agregar";
// oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
int nRow2 = Grid0.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder);
String sValorGrid2 = Convert.ToString(Grid0.DataTable.GetValue("Código", nRow2));
//string nNOM2 = (string)Grid2.DataTable.GetValue("NOM", nRow2);
// string cod2 = (string)(Grid2.DataTable.GetValue("Código", nRow2));
string nom2 = (string)(Grid0.DataTable.GetValue("Nombre", nRow2));
oUserTable.Code = sValorGrid2;
oUserTable.Name = sValorGrid2;
oUserTable.UserFields.Fields.Item("U_CodigoSS").Value = sValorGrid2;
oUserTable.UserFields.Fields.Item("U_NombreSS").Value = nom2;
int j = oUserTable.Add();
if (j != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE;
Grid0.DataTable.Rows.Add(1);
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT U_CodigoSS AS 'Código',U_NombreSS AS 'Nombre' FROM [@SUPRASECCIONESCOL]");
Grid0.DataTable = oForm.DataSources.DataTables.Item("DTSPSEC");
for (int i = 1; i <= this.Grid0.DataTable.Rows.Count; i += 1)
{
if (i < this.Grid0.DataTable.Rows.Count)
{
Grid0.Rows.SelectedRows.Add(i);
}
}
RowNumberGrid(Grid0);
BubbleEvent = false;
}
}
}
}
//private void ListaInter ()
//{
// try
// {
// SAPbobsCOM.UserTables tbls = null;
// SAPbobsCOM.UserTable tbl = null;
// tbls = oCompany.UserTables;
// tbl = tbls.Item("FEDIAN_CODDOC");
// tbl.Code = Constants.CodDIAN_01[0];
// tbl.Name = Constants.CodDIAN_01[1];
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = Constants.CodDIAN_02[0];
// tbl.Name = Constants.CodDIAN_02[1];
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = Constants.CodDIAN_03[0];
// tbl.Name = Constants.CodDIAN_03[1];
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = Constants.CodDIAN_04[0];
// tbl.Name = Constants.CodDIAN_04[1];
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = Constants.CodDIAN_05[0];
// tbl.Name = Constants.CodDIAN_05[1];
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// }
// catch (Exception ex)
// {
// Procesos.EscribirLogFileTXT("CargueInicial: " + ex.Message);
// }
//}
//private void cfgInter ()
//{
// string urlFebos = "";
// urlFebos = "https://api.febos.co/pruebas/documentos?simular=no&debug=si&tipo={0}&entrada=txt&foliar=si&firmar=si&obtenerXml=si&obtenerPdf=si";
// try
// {
// SAPbobsCOM.UserTables tbls = null;
// SAPbobsCOM.UserTable tbl = null;
// tbls = oCompany.UserTables;
// tbl = tbls.Item("FEDIAN_INTERF_CFG");
// tbl.Code = "1";
// tbl.Name = "Factura de Venta";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = string.Format(urlFebos, tbl.Code);
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "2";
// tbl.Name = "Factura de Exportacion";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = string.Format(urlFebos, tbl.Code);
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "3";
// tbl.Name = "Factura de Contingencia";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = string.Format(urlFebos, tbl.Code);
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "4";
// tbl.Name = "Nota de Credito";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = string.Format(urlFebos, tbl.Code);
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "5";
// tbl.Name = "Nota de Debito";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = string.Format(urlFebos, tbl.Code);
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "6";
// tbl.Name = "Lectura de Respuesta DIAN";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = Constants.urlstatusFebos;
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// tbl.Code = "7";
// tbl.Name = "Lectura por Folio";
// tbl.UserFields.Fields.Item("U_WS_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_Job_Activo").Value = "Y";
// tbl.UserFields.Fields.Item("U_URL").Value = Constants.urlstatusFolio;
// lRetCode = tbl.Add();
// if (lRetCode != 0)
// {
// if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
// { }
// else
// {
// oCompany.GetLastError(out lRetCode, out sErrMsg);
// Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
// }
// }
// }
// catch (Exception ex)
// {
// Procesos.EscribirLogFileTXT("PreCarga: " + ex.Message);
// }
//}
public static bool version(SAPbobsCOM.Company oCmpn)
{
try
{
System.Reflection.Assembly assembly = System.Reflection.Assembly.GetExecutingAssembly();
FileVersionInfo fvi = FileVersionInfo.GetVersionInfo(assembly.Location);
string version = fvi.FileVersion;
bool resultado;
SAPbobsCOM.UserTables tbls = null;
SAPbobsCOM.UserTable tbl = null;
tbls = oCmpn.UserTables;
tbl = tbls.Item("FEDIAN_VERSION");
if (tbl.GetByKey("1") == true & tbl.Name == version)
{
resultado = false;
}
else if (tbl.GetByKey("1") == true & tbl.Name != version)
{
resultado = true;
tbl.Name = version;
lRetCode = tbl.Update();
if (lRetCode != 0)
{
if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
{
}
else
{
oCmpn.GetLastError(out lRetCode, out sErrMsg);
Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
}
}
}
else
{
resultado = true;
tbl.Code = "1";
tbl.Name = version;
lRetCode = tbl.Add();
if (lRetCode != 0)
{
if (lRetCode == -1 || lRetCode == -2035 || lRetCode == -5002)
{
}
else
{
oCmpn.GetLastError(out lRetCode, out sErrMsg);
Procesos.EscribirLogFileTXT("PreCarga: " + lRetCode + " > " + sErrMsg);
}
}
}
return(resultado);
}
catch (Exception ex)
{
Procesos.EscribirLogFileTXT("Version: " + ex.Message);
return(true);
}
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
SAPbouiCOM.Form oForm = oApp.Forms.ActiveForm;
switch (oForm.Mode)
{
case SAPbouiCOM.BoFormMode.fm_ADD_MODE:
oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
oUserTable.Code = EditText0.Value.ToString();
oUserTable.Name = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreEDC").Value = EditText1.Value.ToString();
oUserTable.UserFields.Fields.Item("U_ProyectoEDC").Value = EditText2.Value.ToString();
oUserTable.Add();
int i = oUserTable.Add();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm = oApp.Forms.Item("edm");
oForm.Close();
}
break;
case SAPbouiCOM.BoFormMode.fm_UPDATE_MODE:
oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
//hago un getbykey para obtener el valor key necesario para actualizar los datos
if (oUserTable.GetByKey(EditText0.Value.ToString()))
{
// oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreEDC").Value = EditText1.Value.ToString();
}
oUserTable.UserFields.Fields.Item("U_ProyectoEDC").Value = EditText2.Value.ToString();
//oUserTable.Update();
int J = oUserTable.Update();
//oApp.SetStatusBarMessage("valor"+ i);
if (J != 0)
{
oApp.SetStatusBarMessage("Error en la actualización: " + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la actualizacón", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
//oForm = oApp.Forms.Item("fmacted");
//oForm.Close();
}
break;
case SAPbouiCOM.BoFormMode.fm_FIND_MODE:
break;
}
}
