public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_Monitor.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1282", false); //Crear
oForm.EnableMenu("1281", false); //Actualizar
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FELOG");
oDBDSD = oForm.DataSources.DBDataSources.Add("@VID_FELOGD");
oForm.DataSources.UserDataSources.Add("FechaD", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("FechaD").Specific);
oEditText.DataBind.SetBound(true, "", "FechaD");
oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
oForm.DataSources.UserDataSources.Add("FechaH", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("FechaH").Specific);
oEditText.DataBind.SetBound(true, "", "FechaH");
oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
oForm.DataSources.UserDataSources.Add("chk_Todo", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("chk_Todo").Specific);
oCheckBox.DataBind.SetBound(true, "", "chk_Todo");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("Rechazados", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Rechazados").Specific);
oCheckBox.DataBind.SetBound(true, "", "Rechazados");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oForm.DataSources.UserDataSources.Add("Pendientes", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Pendientes").Specific);
oCheckBox.DataBind.SetBound(true, "", "Pendientes");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oForm.DataSources.UserDataSources.Add("Aceptados", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Aceptados").Specific);
oCheckBox.DataBind.SetBound(true, "", "Aceptados");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("DadoBaja", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("DadoBaja").Specific);
oCheckBox.DataBind.SetBound(true, "", "DadoBaja");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("Errores", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Errores").Specific);
oCheckBox.DataBind.SetBound(true, "", "Errores");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oDataTable = oForm.DataSources.DataTables.Add("dt");
oGrid = (Grid)(oForm.Items.Item("grid").Specific);
oGrid.DataTable = oDataTable;
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select ISNULL(TaxIdNum,'') TaxIdNum from OADM ";
}
else
{
s = @"select IFNULL(""TaxIdNum"",'') ""TaxIdNum"" from ""OADM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
throw new Exception("Debe ingresar RUC de Emisor, Gestión -> Inicialización Sistema -> Detalle Sociedad -> Datos de Contabilidad -> ID fiscal general 1");
}
else
{
RUC = ((System.String)oRecordSet.Fields.Item("TaxIdNum").Value).Trim();
}
CargarDatosPE();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
SAPbouiCOM.Column oColumn;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_FELibros.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Actualizar
oForm.EnableMenu("1282", false); //Crear
oDataTable = oForm.DataSources.DataTables.Add("dt");
ogrid = (SAPbouiCOM.Grid)(oForm.Items.Item("grid").Specific);
ogrid.DataTable = oDataTable;
if (TipoLibro == "V")
{
oForm.Title = "Libro de Ventas";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcVenta,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcVenta"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "C")
{
oForm.Title = "Libro de Compras";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcCompra,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcCompra"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "G")
{
oForm.Title = "Libro de Guias";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcGuia,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcGuia"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "B")
{
oForm.Title = "Libro de Boletas";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcBol,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcBol"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if ((System.String)(oRecordSet.Fields.Item("Libro").Value) != "")
{
Query((System.String)(oRecordSet.Fields.Item("Libro").Value));
}
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
FSBOf.LoadForm(xmlPath, "FM_IVA.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
Flag = false;
oForm.Freeze(true);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) Cont from [@FM_IVA]";
}
else
{
s = @"select count(*) ""Cont"" from ""@FM_IVA"" ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
oGrid = (Grid)(oForm.Items.Item("3").Specific);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@FM_IVA");
oDataTable = oForm.DataSources.DataTables.Add("Tax");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from [@FM_IVA]
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20))";
}
else
{
s = @"SELECT ""Code"", ""Name"" from ""@FM_IVA""
UNION ALL
SELECT CAST('' AS VARCHAR(20)), CAST('' AS VARCHAR(20)) FROM DUMMY ";
}
oDataTable.ExecuteQuery(s);
oGrid.DataTable = oDataTable;
oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_ComboBox;
oColumn = (GridColumn)(oGrid.Columns.Item("Code"));
var oComboCol = (ComboBoxColumn)(oColumn);
oComboCol.Editable = true;
oComboCol.TitleObject.Caption = "Impuesto SAP";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from OSTA";
}
else
{
s = @"select ""Code"", ""Name"" from ""OSTA"" ";
}
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid((GridColumn)(oGrid.Columns.Item("Code")), ref oRecordSet, true);
oGrid.Columns.Item("Name").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Name"));
var oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Código Impto. SUNAT";
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
}//fin FormEvent
private void ActualizarRegistros()
{
TFunctions Reg;
SqlDataAdapter Adapter;
SqlConnection ConexionADO;
DataSet cDataSet;
String sCnn;
int lRetCode;
String User, Pass;
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select TOP 1 * from [@VID_FEPARAM]";
}
else
{
s = @"select TOP 1 * from ""@VID_FEPARAM""";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
Reg = new TFunctions();
Reg.SBO_f = FSBOf;
User = Reg.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Usuario").Value));
Pass = Reg.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Password").Value));
sCnn = Reg.sConexion((System.String)(oRecordSet.Fields.Item("U_Servidor").Value), (System.String)(oRecordSet.Fields.Item("U_Base").Value), User, Pass);
if (sCnn.Substring(0, 1) != "E")
{
ConexionADO = new SqlConnection(sCnn);
if (ConexionADO.State == ConnectionState.Closed)
{
ConexionADO.Open();
}
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T0.DocEntry, T1.VisOrder, T0.U_TipoDoc, T1.U_Folio, T1.LineId
FROM [@VID_FEDIST] T0 WITH(nolock)
JOIN [@VID_FEDISTD] T1 WITH(nolock) ON T1.DocEntry = T0.DocEntry
WHERE T1.U_Estado = 'D'
AND T0.U_Sucursal <> 'Principal'
";
}
else
{
s = @"SELECT T0.""DocEntry"", T1.""VisOrder"", T0.""U_TipoDoc"", T1.""U_Folio"", T1.""LineId""
FROM ""@VID_FEDIST"" T0
JOIN ""@VID_FEDISTD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
WHERE T1.""U_Estado"" = 'D'
AND T0.""U_Sucursal"" <> 'Principal'";
}
oRecordSet.DoQuery(s);
ConexionADO = new SqlConnection(sCnn);
if (ConexionADO.State == ConnectionState.Closed)
{
ConexionADO.Open();
}
while (!oRecordSet.EoF)
{
var VID_SP_EXISTEFOLIO = new SqlCommand("VID_SP_EXISTEFOLIO", ConexionADO);
var oParameter = new SqlParameter();
VID_SP_EXISTEFOLIO.CommandType = CommandType.StoredProcedure;
oParameter = VID_SP_EXISTEFOLIO.Parameters.Add("@TipoDoc", SqlDbType.VarChar, 10);
oParameter.Value = (System.String)(oRecordSet.Fields.Item("U_TipoDoc").Value);
oParameter = VID_SP_EXISTEFOLIO.Parameters.Add("@FolioNum", SqlDbType.Int);
oParameter.Value = (System.Double)(oRecordSet.Fields.Item("U_Folio").Value);
Adapter = new SqlDataAdapter(VID_SP_EXISTEFOLIO);
cDataSet = new DataSet(VID_SP_EXISTEFOLIO.CommandText);
Adapter.Fill(cDataSet);
s = (System.String)(cDataSet.Tables[0].Rows[0][0].ToString()).Trim();
if (s == "Y")
{
s = Convert.ToString((System.Int32)(oRecordSet.Fields.Item("DocEntry").Value));
s = Convert.ToString((System.Int32)(oRecordSet.Fields.Item("LineId").Value));
s = Convert.ToString((System.Double)(oRecordSet.Fields.Item("U_Folio").Value));
lRetCode = Reg.ActEstadoFolioUpt((System.Int32)(oRecordSet.Fields.Item("DocEntry").Value), (System.Int32)(oRecordSet.Fields.Item("LineId").Value), (System.Double)(oRecordSet.Fields.Item("U_Folio").Value), (System.String)(oRecordSet.Fields.Item("U_TipoDoc").Value), "", "", "");
lRetCode = 1;
if (lRetCode == 0)
{
FSBOApp.StatusBar.SetText("No se ha actualizado estado de Folio " + Convert.ToString((System.Double)(oRecordSet.Fields.Item("U_Folio").Value)), BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("No se ha actualizado estado de Folio " + Convert.ToString((System.Double)(oRecordSet.Fields.Item("U_Folio").Value)));
}
}
VID_SP_EXISTEFOLIO = null;
oRecordSet.MoveNext();
}
if (ConexionADO.State == ConnectionState.Open)
{
ConexionADO.Close();
}
Grilla();
if (ConexionADO.State == ConnectionState.Open)
{
ConexionADO.Close();
}
FSBOApp.StatusBar.SetText("Estado de Folios actualizados", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
else
{
FSBOApp.StatusBar.SetText("Faltan datos Conexion. " + sCnn.Substring(1, sCnn.Length - 1), BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
else
{
FSBOApp.StatusBar.SetText("Debe ingresar datos de conexion", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("GuardarRegistros: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin ActualizarRegistros
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
SAPbouiCOM.ComboBox oCombo;
//return inherited InitForm(uid, xmlPath,var application,var company,var sboFunctions,var _GlobalSettings );
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_ReImprimir.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
//oForm.DataBrowser.BrowseBy := "DocNum";
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select ISNULL(U_URLEasyDot,'') URL from [@VID_FEPARAM] where Code = '1'";
}
else
{
s = @"select IFNULL(""U_URLEasyDot"",'') ""URL"" from ""@VID_FEPARAM"" where ""Code"" = '1' ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
throw new Exception("Debe parametrizar el Addon Factura Electronica");
}
else
{
URL_PE = ((System.String)oRecordSet.Fields.Item("URL").Value).Trim();
if (URL_PE == "")
{
throw new Exception("Debe ingresar URL en parametros del Addon Factura Electronica");
}
}
oCombo = (ComboBox)(oForm.Items.Item("TipDoc").Specific);
oCombo.ValidValues.Add("01", "Factura");
oCombo.ValidValues.Add("01A", "Factura de Anticipo");
oCombo.ValidValues.Add("01X", "Factura de Exportación");
oCombo.ValidValues.Add("03", "Boleta Venta");
oCombo.ValidValues.Add("07", "Nota de Credito");
oCombo.ValidValues.Add("08", "Nota de Debito");
oCombo.ValidValues.Add("09T", "Guia Remisión x Transferencia");
oCombo.ValidValues.Add("09D", "Guia Remisión x Devol. Compra");
oCombo.ValidValues.Add("09", "Guia Remisión x Entrega");
oCombo.ValidValues.Add("20", "Comprobante Retención");
//oCombo.ValidValues.Add("09", "Guia de Remision Remitente");
//oCombo.ValidValues.Add("12", "Ticket de Maquina Registradora");
//oCombo.ValidValues.Add("31", "Guia Remision Transportista");
oForm.Items.Item("Folio").Visible = true;
oForm.Items.Item("FolioPref").Visible = true;
oForm.DataSources.UserDataSources.Add("Folio", BoDataType.dt_SHORT_TEXT, 10);
oEditText = (EditText)(oForm.Items.Item("Folio").Specific);
oEditText.DataBind.SetBound(true, "", "Folio");
oForm.DataSources.UserDataSources.Add("FolioPref", BoDataType.dt_SHORT_TEXT, 4);
oEditText = (EditText)(oForm.Items.Item("FolioPref").Specific);
oEditText.DataBind.SetBound(true, "", "FolioPref");
((SAPbouiCOM.ComboBox)oForm.Items.Item("TipDoc").Specific).Active = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select ISNULL(TaxIdNum,'') TaxIdNum from OADM ";
}
else
{
s = @"select IFNULL(""TaxIdNum"",'') ""TaxIdNum"" from ""OADM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
throw new Exception("Debe ingresar RUC de Emisor, Gestión -> Inicialización Sistema -> Detalle Sociedad -> Datos de Contabilidad -> ID fiscal general 1");
}
else
{
RUC = ((System.String)oRecordSet.Fields.Item("TaxIdNum").Value).Trim();
}
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
oForm.Mode = BoFormMode.fm_OK_MODE;
oForm.DataSources.UserDataSources.Item("Folio").Value = "";
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FEPLANCTA.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT COUNT(*) AS cant FROM [@VID_FEPLANCTA]";
}
else
{
s = @"SELECT COUNT(*) ""cant"" FROM ""@VID_FEPLANCTA""";
}
oRecordSet.DoQuery(s);
oForm.SupportedModes = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? 1 : 3);
oForm.Mode = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? BoFormMode.fm_OK_MODE : BoFormMode.fm_ADD_MODE);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEPLANCTA");
if (((System.Int32)oRecordSet.Fields.Item("cant").Value) == 0)
{
FSBOApp.StatusBar.SetText("Iniciando carga de cuentas SII", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
CargarCtaSII();
}
// Ok Ad Fnd Vw Rq Sec
Lista.Add("grid , t, t, f, t, n, 1 ");
FSBOf.SetAutoManaged(oForm, Lista);
oForm.DataSources.UserDataSources.Add("Cuenta", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 30);
oEditText = ((EditText)oForm.Items.Item("Cuenta").Specific);
oEditText.DataBind.SetBound(true, "", "Cuenta");
oForm.DataSources.UserDataSources.Add("Descr", SAPbouiCOM.BoDataType.dt_LONG_TEXT, 60);
oEditText = ((EditText)oForm.Items.Item("Descr").Specific);
oEditText.DataBind.SetBound(true, "", "Descr");
oDataTable = oForm.DataSources.DataTables.Add("VID_FEPLANCTA");
oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific);
oGrid.DataTable = oDataTable;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
CargarGrilla();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 i;
//TFunctions Reg;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FEPROCED.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
oForm.SupportedModes = -1; // afm_All
// VID_DelRow := true;
// VID_DelRowOK := true;
//oForm.DataBrowser.BrowseBy := "Code";
oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEPROCED");
// Ok Ad Fnd Vw Rq Sec
Lista.Add("mtx , f, t, f, f, r, 1");
//Lista.Add('Name , f, t, t, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//oCombo := ComboBox(oForm.Items.Item('TipDoc').Specific);
//oCombo.ValidValues.Add('33', 'Factura');
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
// AddChooseFromList();
oMtx = (Matrix)(oForm.Items.Item("mtx").Specific);
// oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0'));
// oColumn.ChooseFromListUID := 'CFL0';
// oColumn.ChooseFromListAlias:= 'Code';
// oMtx.AutoResizeColumns();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select DocEntry, ISNULL(U_TipoDoc,'') TipoDoc, ISNULL(U_ProcNomE,'') ProcNomE, ISNULL(U_ProcNomD,'') ProcNomD, ISNULL(U_ProcNomR,'') ProcNomR, ISNULL(U_ProcNomC,'') ProcNomC, ISNULL(U_ProcNomDe,'') ProcNomDe, ISNULL(U_ProcNomL,'') ProcNomL, ISNULL(U_ProcNomS,'') ProcNomS, ISNULL(U_Habili,'Y') 'Habilitada', ISNULL(U_CantLineas,0) 'CantLineas' from [@VID_FEPROCED]";
}
else
{
s = @"select ""DocEntry"", IFNULL(""U_TipoDoc"",'') ""TipoDoc"", IFNULL(""U_ProcNomE"",'') ""ProcNomE"", IFNULL(""U_ProcNomD"",'') ""ProcNomD"", IFNULL(""U_ProcNomR"",'') ""ProcNomR"", IFNULL(""U_ProcNomC"",'') ""ProcNomC"", IFNULL(""U_ProcNomDe"",'') ""ProcNomDe"", IFNULL(""U_ProcNomL"",'') ""ProcNomL"", IFNULL(""U_ProcNomS"",'') ""ProcNomS"", IFNULL(""U_Habili"",'Y') ""Habilitada"", IFNULL(""U_CantLineas"",0) ""CantLineas"" from ""@VID_FEPROCED"" ";
}
oRecordSet.DoQuery(s);
i = 0;
oDBDSH.Clear();
while (!oRecordSet.EoF)
{
oDBDSH.InsertRecord(i);
oDBDSH.SetValue("DocEntry", i, Convert.ToString((System.Int32)(oRecordSet.Fields.Item("DocEntry").Value)));
oDBDSH.SetValue("U_TipoDoc", i, (System.String)(oRecordSet.Fields.Item("TipoDoc").Value));
//oDBDSH.SetValue("U_TipoDocPE", i, (System.String)(oRecordSet.Fields.Item("TipoDocPE").Value));
oDBDSH.SetValue("U_ProcNomE", i, (System.String)(oRecordSet.Fields.Item("ProcNomE").Value));
oDBDSH.SetValue("U_ProcNomD", i, (System.String)(oRecordSet.Fields.Item("ProcNomD").Value));
oDBDSH.SetValue("U_ProcNomR", i, (System.String)(oRecordSet.Fields.Item("ProcNomR").Value));
oDBDSH.SetValue("U_ProcNomC", i, (System.String)(oRecordSet.Fields.Item("ProcNomC").Value));
//oDBDSH.SetValue("U_ProcNomDe", i, (System.String)(oRecordSet.Fields.Item("ProcNomDe").Value));
//oDBDSH.SetValue("U_ProcNomL", i, (System.String)(oRecordSet.Fields.Item("ProcNomL").Value));
//oDBDSH.SetValue("U_ProcNomS", i, (System.String)(oRecordSet.Fields.Item("ProcNomS").Value));
oDBDSH.SetValue("U_Habili", i, (System.String)(oRecordSet.Fields.Item("Habilitada").Value));
oDBDSH.SetValue("U_CantLineas", i, Convert.ToString((System.Int32)(oRecordSet.Fields.Item("CantLineas").Value)));
oRecordSet.MoveNext();
i++;
}
oDBDSH.InsertRecord(i);
oDBDSH.SetValue("DocEntry", i, "");
oDBDSH.SetValue("U_TipoDoc", i, "");
//oDBDSH.SetValue("U_TipoDocPE", i, "");
oDBDSH.SetValue("U_ProcNomE", i, "");
oDBDSH.SetValue("U_ProcNomD", i, "");
oDBDSH.SetValue("U_ProcNomR", i, "");
oDBDSH.SetValue("U_ProcNomC", i, "");
//oDBDSH.SetValue("U_ProcNomDe", i, "");
//oDBDSH.SetValue("U_ProcNomL", i, "");
//oDBDSH.SetValue("U_ProcNomS", i, "");
oDBDSH.SetValue("U_Habili", i, "Y");
oDBDSH.SetValue("U_CantLineas", i, "60");
if (GlobalSettings.RunningUnderSQLServer) //TipoDoc
{
s = @"select U1.FldValue 'Code', U1.Descr 'Name' from UFD1 U1 join CUFD U0 on U0.TableID = U1.TableID and U0.FieldID = U1.FieldID where U1.TableID = '@VID_FEPROCED' and U0.AliasID = '{0}'";
}
else
{
s = @"select U1.""FldValue"" ""Code"", U1.""Descr"" ""Name"" from ""UFD1"" U1 join ""CUFD"" U0 on U0.""TableID"" = U1.""TableID"" and U0.""FieldID"" = U1.""FieldID"" where U1.""TableID"" = '@VID_FEPROCED' and U0.""AliasID"" = '{0}' ";
}
s = String.Format(s, "TipoDoc");
oRecordSet.DoQuery(s);
oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("TipoDoc"));
FSBOf.FillComboMtx(oColumn, ref oRecordSet, false);
//((SAPbouiCOM.Column)oMtx.Columns.Item("TipoDocPE")).Visible = false;
if (GlobalSettings.RunningUnderSQLServer) //Habilitado
{
s = @"select FldValue 'Code', Descr 'Name' from UFD1 where TableID = '@VID_FEPROCED' and FieldID = 2";
}
else
{
s = @"select ""FldValue"" ""Code"", ""Descr"" ""Name"" from ""UFD1"" where ""TableID"" = '@VID_FEPROCED' and ""FieldID"" = 2";
}
oRecordSet.DoQuery(s);
oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Habili"));
FSBOf.FillComboMtx(oColumn, ref oRecordSet, false);
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
oMtx.LoadFromDataSource();
oForm.Mode = BoFormMode.fm_OK_MODE;
oMtx.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
}//fin FormEvent
private void EnviarLibros(String TipoLibro, String FDesde, String FHasta)
{
SqlConnection ConexionADO;
SqlCommand SqlComan;
SqlParameter oParameter;
SqlDataAdapter Adapter;
DataSet DataSet;
SqlCommand cmd;
Boolean Paso = false;
String procedimiento = "";
Int32 iCol;
try
{
sCnn = sConnection();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select ISNULL(U_ProcVenta,'') ProcVenta, ISNULL(U_ProcCompra,'') ProcCompra from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcVenta"",'') ""ProcVenta"", IFNULL(""U_ProcCompra"",'') ""ProcCompra"" from ""@VID_FEPARAM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
Paso = false;
FSBOApp.StatusBar.SetText("Debe parametrizar el addon", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else
{
if ((((System.String)oRecordSet.Fields.Item("ProcVenta").Value).Trim() == "") && (TipoLibro == "V"))
{
Paso = false;
FSBOApp.StatusBar.SetText("Debe ingresar procedimiento para Libro de Venta en parametros del addon Factura Electronica", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else if ((((System.String)oRecordSet.Fields.Item("ProcCompra").Value).Trim() == "") && (TipoLibro == "C"))
{
Paso = false;
FSBOApp.StatusBar.SetText("Debe ingresar procedimiento para Libro de Compra en parametros del addon Factura Electronica", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else
{
Paso = true;
if (TipoLibro == "V")
{
procedimiento = ((System.String)oRecordSet.Fields.Item("ProcVenta").Value).Trim();
}
else
{
procedimiento = ((System.String)oRecordSet.Fields.Item("ProcCompra").Value).Trim();
}
}
}
if (Paso == true)
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = "exec " + procedimiento + " '" + FDesde + "'" + ", '" + FHasta + "'";
}
else
{
s = "CALL " + procedimiento + " ('" + FDesde + "', '" + FHasta + "')";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
//primero borrar registros previos del periodo
ConexionADO = new SqlConnection(sCnn);
if (ConexionADO.State == ConnectionState.Closed)
{
ConexionADO.Open();
}
cmd = new SqlCommand();
cmd.CommandTimeout = 0;
cmd.CommandType = CommandType.Text;
cmd.Connection = ConexionADO;
s = "exec DelDocLibroPeriodo '{0}', {1}";
s = String.Format(s, FDesde.Substring(0, 6), TipoLibro);
cmd.CommandText = s;
cmd.ExecuteNonQuery();
//fin limpia registros
if (TipoLibro == "V")
{
s = "EInsLibroVentaManual";
}
else
{
s = "EInsLibroCompraManual";
}
SqlComan = new SqlCommand(s, ConexionADO);
oParameter = new SqlParameter();
SqlComan.CommandType = CommandType.StoredProcedure;
iCol = 0;
while (!oRecordSet.EoF)
{
while (iCol < oRecordSet.Fields.Count)
{
var NomCol = "@" + oRecordSet.Fields.Item(iCol).Name;
s = oRecordSet.Fields.Item(iCol).Type.ToString();
oParameter = SqlComan.Parameters.AddWithValue(NomCol, oRecordSet.Fields.Item(iCol).Value.ToString());
OutLog("Parametro " + NomCol + " - Valor " + oRecordSet.Fields.Item(iCol).Value);
iCol++;
}
Adapter = new SqlDataAdapter(SqlComan);
DataSet = new DataSet(SqlComan.CommandText);
Adapter.Fill(DataSet);
//dyt_id_traspaso = Convert.ToInt32(DataSet.Tables[0].Rows[0][1].ToString());
oRecordSet.MoveNext();
}
FSBOApp.MessageBox("Se han cargado " + oRecordSet.RecordCount + " documentos en el portal");
}
}
}
catch (Exception ex)
{
FSBOApp.StatusBar.SetText("EnviarLibros: " + ex.Message + " ** Trace: " + ex.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("EnviarLibros: " + ex.Message + " ** Trace: " + ex.StackTrace);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
//SAPbouiCOM.Column oColumn;
Param = new TFunctions();
Param.SBO_f = FSBOf;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_GELibro.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Actualizar
oForm.EnableMenu("1282", false); //Crear
oForm.DataSources.UserDataSources.Add("TipoLibro", BoDataType.dt_SHORT_TEXT);
oComboBox = (ComboBox)(oForm.Items.Item("TipoLibro").Specific);
oComboBox.DataBind.SetBound(true, "", "TipoLibro");
oComboBox.ValidValues.Add("V", "Venta");
oComboBox.ValidValues.Add("C", "Compra");
oComboBox.Select("V", BoSearchKey.psk_ByValue);
oForm.DataSources.UserDataSources.Add("Periodo", BoDataType.dt_SHORT_TEXT);
oComboBox = (ComboBox)(oForm.Items.Item("Periodo").Specific);
if (GlobalSettings.RunningUnderSQLServer)
{
oRecordSet.DoQuery("select CAST(AbsEntry AS VARCHAR(20)) Code, Code 'Name' from OFPR where YEAR(F_RefDate) >= YEAR(GETDATE())-1 AND YEAR(T_RefDate) <= YEAR(GETDATE())");
}
else
{
oRecordSet.DoQuery(@"select TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name"" from ""OFPR"" where YEAR(""F_RefDate"") >= YEAR(NOW())-1 AND YEAR(""T_RefDate"") <= YEAR(NOW()) ");
}
FSBOf.FillCombo((ComboBox)(oForm.Items.Item("Periodo").Specific), ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select AbsEntry from OFPR where GETDATE() BETWEEN F_RefDate AND T_RefDate";
}
else
{
s = @"select ""AbsEntry"" from ""OFPR"" where NOW() BETWEEN ""F_RefDate"" AND ""T_RefDate"" ";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.Int32)oRecordSet.Fields.Item("AbsEntry").Value).ToString(), BoSearchKey.psk_ByValue);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select ISNULL(U_MultiSoc,'N') MultiSoc from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_MultiSoc"",'N') ""MultiSoc"" from ""@VID_FEPARAM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if (((System.String)oRecordSet.Fields.Item("MultiSoc").Value) == "Y")
{
bMultiSoc = true;
}
}
if (bMultiSoc)
{
oForm.Items.Item("LInstituto").Visible = true;
oForm.Items.Item("Instituto").Visible = true;
oComboBox = (ComboBox)(oForm.Items.Item("Instituto").Specific);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select DocEntry, U_Sociedad 'Sociedad' from [@VID_FEMULTISOC] where isnull(U_Habilitada,'N') = 'Y'";
}
else
{
s = @"select ""DocEntry"", ""U_Sociedad"" ""Sociedad"" from ""@VID_FEMULTISOC"" where IFNULL(""U_Habilitada"",'N') = 'Y' ";
}
oRecordSet.DoQuery(s);
while (!oRecordSet.EoF)
{
oComboBox.ValidValues.Add(((System.Int32)oRecordSet.Fields.Item("DocEntry").Value).ToString(), ((System.String)oRecordSet.Fields.Item("Sociedad").Value).Trim());
oRecordSet.MoveNext();
}
}
else
{
oForm.Items.Item("LInstituto").Visible = false;
oForm.Items.Item("Instituto").Visible = false;
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_MenuConf.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.Visible = true;
oForm.AutoManaged = true;
oForm.SupportedModes = -1;
((StaticText)oForm.Items.Item("18").Specific).Caption = "Conexión a HANA";
oForm.Mode = BoFormMode.fm_ADD_MODE;
oDBDSHeader = oForm.DataSources.DBDataSources.Item("@VID_MENUSU");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT Code FROM [@VID_MENUSU]";
}
else
{
s = @"SELECT ""Code"" FROM ""@VID_MENUSU"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
if (((System.String)oRecordSet.Fields.Item("Code").Value) == "1")
{
oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE;
}
}
else
{
oDBDSHeader.Query(null);
oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE;
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
SAPbouiCOM.Column oColumn;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_GLibro.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Actualizar
oForm.EnableMenu("1282", false); //Crear
oForm.DataSources.UserDataSources.Add("TipoLibro", BoDataType.dt_SHORT_TEXT);
oComboBox = (ComboBox)(oForm.Items.Item("TipoLibro").Specific);
oComboBox.DataBind.SetBound(true, "", "TipoLibro");
oComboBox.ValidValues.Add("V", "Venta");
oComboBox.ValidValues.Add("C", "Compra");
oComboBox.ValidValues.Add("B", "Boletas");
oComboBox.ValidValues.Add("G", "Guias");
oComboBox.Select("V", BoSearchKey.psk_ByValue);
oForm.DataSources.UserDataSources.Add("Desde", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("Desde").Specific);
oEditText.DataBind.SetBound(true, "", "Desde");
oEditText.Value = DateTime.Now.ToString("yyyyMM") + "01";
oForm.DataSources.UserDataSources.Add("Hasta", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("Hasta").Specific);
oEditText.DataBind.SetBound(true, "", "Hasta");
oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select ISNULL(U_MultiSoc,'N') MultiSoc from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_MultiSoc"",'N') ""MultiSoc"" from ""@VID_FEPARAM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if (((System.String)oRecordSet.Fields.Item("MultiSoc").Value) == "Y")
{
bMultiSoc = true;
}
}
if (bMultiSoc)
{
oForm.Items.Item("LInstituto").Visible = true;
oForm.Items.Item("Instituto").Visible = true;
oComboBox = (ComboBox)(oForm.Items.Item("Instituto").Specific);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select DocEntry, U_Sociedad 'Sociedad' from [@VID_FEMULTISOC] where isnull(U_Habilitada,'N') = 'Y'";
}
else
{
s = @"select ""DocEntry"", ""U_Sociedad"" ""Sociedad"" from ""@VID_FEMULTISOC"" where IFNULL(""U_Habilitada"",'N') = 'Y' ";
}
oRecordSet.DoQuery(s);
while (!oRecordSet.EoF)
{
oComboBox.ValidValues.Add(((System.Int32)oRecordSet.Fields.Item("DocEntry").Value).ToString(), ((System.String)oRecordSet.Fields.Item("Sociedad").Value).Trim());
oRecordSet.MoveNext();
}
}
else
{
oForm.Items.Item("LInstituto").Visible = false;
oForm.Items.Item("Instituto").Visible = false;
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oCombo;
TFunctions Param;
SAPbouiCOM.CheckBox oCheckBox;
SAPbouiCOM.EditText oEditText;
//
// obetener recurso
// try
// .....
// finally
// liberar recurso
// end
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
try
{
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "strCnn.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
//oForm.DataBrowser.BrowseBy := "DocNum";
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
oDBDSHeader = (DBDataSource)(oForm.DataSources.DBDataSources.Item("@VID_FEPARAM"));
oCheckBox = (CheckBox)(oForm.Items.Item("chkMon").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("chkDteTra").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
//oCheckBox = (CheckBox)(oForm.Items.Item("chkCrearD").Specific);
//oCheckBox.ValOn = "Y";
//oCheckBox.ValOff = "N";
//oCheckBox = (CheckBox)(oForm.Items.Item("chkCrearDS").Specific);
//oCheckBox.ValOn = "Y";
//oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("chkPrint").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("chkDistrib").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("chkVal90").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("MultiSoc").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("ValDescL").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("GeneraT").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("SubirSuc").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("AbrirDoc").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox = (CheckBox)(oForm.Items.Item("chkFProv").Specific);
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oEditText = (EditText)(oForm.Items.Item("Pasword").Specific);
oEditText.IsPassword = true;
//Configuración RadioButtons
DSOpDif = oForm.DataSources.UserDataSources.Add("rbOpDif", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1);
((OptionBtn)oForm.Items.Item("opDifPor").Specific).DataBind.SetBound(true, "", "rbOpDif"); //1
((OptionBtn)oForm.Items.Item("opDifMon").Specific).DataBind.SetBound(true, "", "rbOpDif"); //2
((OptionBtn)oForm.Items.Item("opDifMon").Specific).GroupWith("opDifPor");
if (!GlobalSettings.RunningUnderSQLServer)
{
oForm.Items.Item("btnProcFE").Visible = false;
}
else
{
oForm.Items.Item("btnProcFE").Visible = true;
}
//s := 'Select count(*) cant from [@VID_FEPARAM]';
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"Select count(*) CANT
,U_Usuario
,U_Password
,U_UserWSCL
,U_PassWSCL
,ISNULL(U_TipoDif,'M') 'U_TipoDif'
from [@VID_FEPARAM]
group by U_Usuario
,U_Password
,U_UserWSCL
,U_PassWSCL
,ISNULL(U_TipoDif,'M')";
}
else
{
s = @"Select count(*) ""CANT""
,""U_Usuario""
,""U_Password""
,""U_UserWSCL""
,""U_PassWSCL""
,IFNULL(""U_TipoDif"",'M') ""U_TipoDif""
from ""@VID_FEPARAM""
group by ""U_Usuario""
,""U_Password""
,""U_UserWSCL""
,""U_PassWSCL""
,IFNULL(""U_TipoDif"",'M') ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("CANT").Value) > 0)
{
Param = new TFunctions();
Param.SBO_f = FSBOf;
oForm.SupportedModes = 1;
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
oDBDSHeader.Query(null);
s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Usuario").Value).ToString().Trim());
oDBDSHeader.SetValue("U_Usuario", 0, s);
s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Password").Value).ToString().Trim());
oDBDSHeader.SetValue("U_Password", 0, s);
s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_UserWSCL").Value).ToString().Trim());
oDBDSHeader.SetValue("U_UserWSCL", 0, s);
s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_PassWSCL").Value).ToString().Trim());
oDBDSHeader.SetValue("U_PassWSCL", 0, s);
oForm.PaneLevel = 101;
if (((System.String)oDBDSHeader.GetValue("U_MultiSoc", 0)).Trim() == "Y")
{
oForm.Items.Item("chkDistrib").Visible = false;
oForm.Items.Item("AbrirDoc").Visible = true;
}
else if (((System.String)oDBDSHeader.GetValue("U_MultiSoc", 0)).Trim() == "N")
{
oForm.Items.Item("chkDistrib").Visible = true;
oForm.Items.Item("AbrirDoc").Visible = false;
}
oForm.Freeze(false);
if (((System.String)oRecordSet.Fields.Item("U_TipoDif").Value).Trim() == "M")
{
DSOpDif.Value = "2";
}
//((OptionBtn)oForm.Items.Item("opDifMon").Specific).Selected = true;
else
{
DSOpDif.Value = "1";
}
//((OptionBtn)oForm.Items.Item("opDifPor").Specific).Selected = true;
}
else
{
oForm.SupportedModes = 3;
oForm.Mode = BoFormMode.fm_ADD_MODE;
oForm.PaneLevel = 101;
((OptionBtn)oForm.Items.Item("opDifMon").Specific).Selected = true;
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
//SAPbouiCOM.DataTable oDataTable;
//inherited FormEvent(FormUID,var pVal,var BubbleEvent);
String Local;
SAPbouiCOM.CheckBox oCheckBox;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction) && (pVal.ItemUID == "Folder1"))
{
oForm.PaneLevel = 101;
}
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction) && (pVal.ItemUID == "Folder2"))
{
oForm.PaneLevel = 102;
}
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (pVal.BeforeAction == true))
{
if ((pVal.ItemUID == "1") && ((oForm.Mode == BoFormMode.fm_ADD_MODE) || (oForm.Mode == BoFormMode.fm_UPDATE_MODE)))
{
s = "1";
oDBDSHeader.SetValue("Code", 0, s);
if (1 != FSBOApp.MessageBox("¿ Desea actualizar los parametros ?", 1, "Ok", "Cancelar", ""))
{
BubbleEvent = false;
}
else
{
BubbleEvent = false;
if (oForm.SupportedModes == 1)
{
s = "1";
}
else
{
s = "3";
}
if (AddDatos(s))
{
FSBOApp.StatusBar.SetText("Datos actualizados satisfactoriamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
oForm.Mode = BoFormMode.fm_OK_MODE;
//Remover menu y colocar los nuevos segun parametros
System.Xml.XmlDocument oXmlDoc = null;
oXmlDoc = new System.Xml.XmlDocument();
oXmlDoc.Load(System.IO.Path.GetDirectoryName(TMultiFunctions.ParamStr(0)) + "\\Menus\\RemoveMenu.xml");
string sXML = oXmlDoc.InnerXml.ToString();
FSBOApp.LoadBatchActions(ref sXML);
oXmlDoc.Load(System.IO.Path.GetDirectoryName(TMultiFunctions.ParamStr(0)) + "\\Menus\\Menu.xml");
sXML = oXmlDoc.InnerXml.ToString();
FSBOApp.LoadBatchActions(ref sXML);
}
}
}
}
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction))
{
if (pVal.ItemUID == "btnTest")
{
TestConexion();
}
// FSBOApp.Menus.Item("4873").Activate();
if (pVal.ItemUID == "btnProcFE")
{
CargarProcedimientos();
}
if (pVal.ItemUID == "btnProcPor")
{
CargarProcedimientosPortal();
}
}
if ((pVal.ItemUID == "MultiSoc") && (pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (pVal.BeforeAction == false))
{
oCheckBox = (SAPbouiCOM.CheckBox)oForm.Items.Item("MultiSoc").Specific;
if (oCheckBox.Checked)
{
oForm.Items.Item("chkDistrib").Visible = false;
oDBDSHeader.SetValue("U_Distrib", 0, "N");
oForm.Items.Item("chkFPortal").Visible = false;
oDBDSHeader.SetValue("U_FPortal", 0, "N");
oForm.Items.Item("AbrirDoc").Visible = true;
oDBDSHeader.SetValue("U_AbrirDoc", 0, "N");
}
else
{
oForm.Items.Item("chkDistrib").Visible = true;
oForm.Items.Item("chkFPortal").Visible = true;
oForm.Items.Item("AbrirDoc").Visible = false;
}
}
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (pVal.BeforeAction == false))
{
if (pVal.ItemUID == "chkDistrib")
{
if (((CheckBox)oForm.Items.Item("chkDistrib").Specific).Checked == true)
{
oDBDSHeader.SetValue("U_FPortal", 0, "N");
}
}
if (pVal.ItemUID == "chkFPortal")
{
if (((CheckBox)oForm.Items.Item("chkFPortal").Specific).Checked == true)
{
oDBDSHeader.SetValue("U_Distrib", 0, "N");
oDBDSHeader.SetValue("U_GenerarT", 0, "N");
}
}
}
}
catch (Exception e)
{
if (FCmpny.InTransaction)
{
FCmpny.EndTransaction(BoWfTransOpt.wf_RollBack);
}
FSBOApp.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin FormEvent
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FELibrosElect.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1;
oForm.DataSources.UserDataSources.Add("Periodo", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("Periodo").Specific).DataBind.SetBound(true, "", "Periodo");
oForm.DataSources.UserDataSources.Add("PeriodoD", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("PeriodoD").Specific).DataBind.SetBound(true, "", "PeriodoD");
oForm.DataSources.UserDataSources.Add("PeriodoH", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("PeriodoH").Specific).DataBind.SetBound(true, "", "PeriodoH");
odt = oForm.DataSources.DataTables.Add("grid");
grid = ((Grid)oForm.Items.Item("grid").Specific);
grid.DataTable = odt;
if ((TipoLibro == "D") || (TipoLibro == "M")) //Libro Mayor y Diario
{
s = "Periodo";
oForm.Items.Item(s).Click(BoCellClickType.ct_Regular);
if (TipoLibro == "D")
{
oForm.Title = "Libro Diario y Mayor";
}
oForm.PaneLevel = 1;
oForm.Items.Item("5").Visible = false;
oForm.Items.Item("PeriodoD").Visible = false;
oForm.Items.Item("7").Visible = false;
oForm.Items.Item("PeriodoH").Visible = false;
oForm.Items.Item("grid").Height = 210;
oForm.Items.Item("grid2").Visible = true;
odt2 = oForm.DataSources.DataTables.Add("grid2");
grid2 = ((Grid)oForm.Items.Item("grid2").Specific);
grid2.DataTable = odt2;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
}
else if (TipoLibro == "B")//Balance
{
s = "PeriodoD";
oForm.Items.Item(s).Click(BoCellClickType.ct_Regular);
oForm.Title = "Balance";
oForm.PaneLevel = 1;
oForm.Items.Item("4").Visible = false;
oForm.Items.Item("Periodo").Visible = false;
oForm.Items.Item("grid").Height = 210;
oForm.Items.Item("grid2").Visible = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oForm.Items.Item("PeriodoD").DisplayDesc = true;
oComboBox = ((ComboBox)oForm.Items.Item("PeriodoD").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oForm.Items.Item("PeriodoH").DisplayDesc = true;
oComboBox = ((ComboBox)oForm.Items.Item("PeriodoH").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
odt2 = oForm.DataSources.DataTables.Add("grid2");
grid2 = ((Grid)oForm.Items.Item("grid2").Specific);
grid2.DataTable = odt2;
}
else if (TipoLibro == "C") //para Diccionario de cuentas
{
oForm.Title = "Diccionario";
//oForm.PaneLevel = 2;
oForm.Items.Item("btnExp").Enabled = true;
oForm.PaneLevel = 1;
oForm.Items.Item("5").Visible = false;
oForm.Items.Item("PeriodoD").Visible = false;
oForm.Items.Item("7").Visible = false;
oForm.Items.Item("PeriodoH").Visible = false;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FEDIST.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
oForm.SupportedModes = -1; // afm_All
VID_DelRow = false;
VID_DelRowOK = false;
oForm.DataBrowser.BrowseBy = "DocEntry";
oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEDIST");
oDBDSD = oForm.DataSources.DBDataSources.Item("@VID_FEDISTD");
oForm.EnableMenu("1282", false); // boton Crear
// Ok Ad Fnd Vw Rq Sec
Lista.Add("DocEntry , f, f, f, f, r, 1");
Lista.Add("Desde , f, t, f, f, r, 1");
Lista.Add("Hasta , f, t, f, f, r, 1");
Lista.Add("Hasta , f, t, f, f, r, 1");
Lista.Add("Sucursal , f, t, f, f, r, 1");
Lista.Add("RangoF , f, t, t, f, r, 1");
Lista.Add("TipoDoc , f, t, t, f, r, 1");
Lista.Add("btnDist , f, t, f, f, n, 1");
FSBOf.SetAutoManaged(oForm, Lista);
//carga tipo documentos
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select distinct U_TipoDoc 'Code', U_TipoDoc 'Name' from [@VID_FECAF]";
}
else
{
s = @"select distinct ""U_TipoDoc"" ""Code"", ""U_TipoDoc"" ""Name"" from ""@VID_FECAF"" ";
}
oRecordSet.DoQuery(s);
FSBOf.FillCombo((ComboBox)(oForm.Items.Item("TipoDoc").Specific), ref oRecordSet, true);
//carga sucursales
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select Code, Name from [@VID_FESUC]";
}
else
{
s = @"select ""Code"", ""Name"" from ""@VID_FESUC"" ";
}
oRecordSet.DoQuery(s);
FSBOf.FillCombo((ComboBox)(oForm.Items.Item("Sucursal").Specific), ref oRecordSet, true);
// AddChooseFromList();
oMtx = (Matrix)(oForm.Items.Item("mtx").Specific);
// oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0'));
// oColumn.ChooseFromListUID := 'CFL0';
// oColumn.ChooseFromListAlias:= 'Code';
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select C1.FldValue 'Code', C1.Descr 'Name'
from CUFD C0
join UFD1 C1 on C1.TableID = C0.TableID
and C1.FieldID = C0.FieldID
where C0.TableID = '@VID_FEDISTD'
and C0.AliasID = 'Estado'";
}
else
{
s = @"select C1.""FldValue"" ""Code"", C1.""Descr"" ""Name""
from ""CUFD"" C0
join ""UFD1"" C1 on C1.""TableID"" = C0.""TableID""
and C1.""FieldID"" = C0.""FieldID""
where C0.""TableID"" = '@VID_FEDISTD'
and C0.""AliasID"" = 'Estado' ";
}
oRecordSet.DoQuery(s);
oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Estado"));
FSBOf.FillComboMtx(oColumn, ref oRecordSet, false);
oDBDSD.InsertRecord(0);
oMtx.LoadFromDataSource();
oMtx.AutoResizeColumns();
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
}//fin FormEvent
private void GuardarRegistros()
{
TFunctions Reg;
Int32 i;
SAPbouiCOM.EditText oEditText;
SAPbouiCOM.ComboBox oComboBox;
String Code, Name, Hab;
Boolean _return = false;
try
{
Reg = new TFunctions();
Reg.SBO_f = FSBOf;
oMtx.FlushToDataSource();
i = 1;
while (i <= oMtx.RowCount)
{
oEditText = (EditText)(oMtx.Columns.Item("Code").Cells.Item(i).Specific);
Code = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oMtx.Columns.Item("Name").Cells.Item(i).Specific);
Name = (System.String)(oEditText.Value).Trim();
oComboBox = (ComboBox)(oMtx.Columns.Item("Habilitada").Cells.Item(i).Specific);
Hab = oComboBox.Value;
oDBDSH.Clear();
oDBDSH.InsertRecord(0);
oDBDSH.SetValue("Code", 0, Code);
oDBDSH.SetValue("Name", 0, Name);
oDBDSH.SetValue("U_Habilitada", 0, Hab);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) 'cont' from [@VID_FESUC] where Code = '{0}'";
}
else
{
s = @"select COUNT(*) ""cont"" from ""@VID_FESUC"" where ""Code"" = '{0}' ";
}
s = String.Format(s, Code);
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("cont").Value) == 0)
{
_return = Reg.FESUCAdd(oDBDSH);
}
else
{
_return = Reg.FESUCUpd(oDBDSH);
}
i++;
}
if (_return)
{
oForm.Mode = BoFormMode.fm_OK_MODE;
}
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("GuardarRegistros: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin GuardarRegistro
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
SAPbouiCOM.ComboBox oCombo;
SAPbouiCOM.EditText oEditText;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_DarBaja.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
oForm.SupportedModes = -1; // afm_All
oCombo = (ComboBox)(oForm.Items.Item("TipoDoc").Specific);
oCombo.ValidValues.Add("01", "Factura");
oCombo.ValidValues.Add("01A", "Factura de Anticipo");
oCombo.ValidValues.Add("01X", "Factura de Exportación");
oCombo.ValidValues.Add("03", "Boleta Venta");
oCombo.ValidValues.Add("07", "Nota de Credito");
oCombo.ValidValues.Add("08", "Nota de Debito");
oCombo.ValidValues.Add("09T", "Guia Remisión x Transferencia");
oCombo.ValidValues.Add("09D", "Guia Remisión x Devol. Compra");
oCombo.ValidValues.Add("09", "Guia Remisión x Entrega");
oCombo.ValidValues.Add("20", "Comprobante Retención");
oCombo.Select("01", BoSearchKey.psk_ByValue);
oForm.Items.Item("TipoDoc").DisplayDesc = true;
oEditText = (EditText)(oForm.Items.Item("FDesde").Specific);
//oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
oEditText = (EditText)(oForm.Items.Item("FHasta").Specific);
//oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
var oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific);
oGrid.DataTable = oForm.DataSources.DataTables.Add("dt");
// Ok Ad Fnd Vw Rq Sec
Lista.Add("TipoDoc , f, t, t, f, r, 1");
Lista.Add("FDesde , f, t, f, f, r, 1");
Lista.Add("FHasta , f, t, f, f, r, 1");
Lista.Add("Razon , t, t, f, f, r, 1");
Lista.Add("DocEntry , f, f, t, f, r, 1");
FSBOf.SetAutoManaged(ref oForm, Lista);
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
if (oForm != null)
{
oForm.Freeze(false);
}
}
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 i;
//SAPbouiCOM.EditTextColumn oEditText;
SAPbouiCOM.CommonSetting oSetting;
TFunctions Reg;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_Sucursal.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
oForm.SupportedModes = -1; // afm_All
// VID_DelRow := true;
// VID_DelRowOK := true;
//oForm.DataBrowser.BrowseBy := "Code";
oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FESUC");
// Ok Ad Fnd Vw Rq Sec
Lista.Add("mtx , f, t, f, f, r, 1");
//Lista.Add('Name , f, t, t, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//oCombo := ComboBox(oForm.Items.Item('TipDoc').Specific);
//oCombo.ValidValues.Add('33', 'Factura');
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
// AddChooseFromList();
oMtx = (Matrix)(oForm.Items.Item("mtx").Specific);
// oColumn := SAPbouiCOM.Column(oMtx.Columns.Item('V_0'));
// oColumn.ChooseFromListUID := 'CFL0';
// oColumn.ChooseFromListAlias:= 'Code';
// oMtx.AutoResizeColumns();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name, ISNULL(U_Habilitada,'Y') 'Habilitada' from [@VID_FESUC]";
}
else
{
s = @"select ""Code"", ""Name"", IFNULL(""U_Habilitada"",'Y') ""Habilitada"" from ""@VID_FESUC"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select Code from [@VID_FESUC] where Code = 'Principal'";
}
else
{
s = @"select ""Code"" from ""@VID_FESUC"" where ""Code"" = 'Principal' ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
Reg = new TFunctions();
Reg.SBO_f = FSBOf;
oDBDSH.Clear();
oDBDSH.InsertRecord(0);
oDBDSH.SetValue("Code", 0, "Principal");
oDBDSH.SetValue("Name", 0, "SAP BO");
oDBDSH.SetValue("U_Habilitada", 0, "Y");
if (Reg.FESUCAdd(oDBDSH) == true)
{
FSBOApp.StatusBar.SetText("Sucursal Principal creada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
else
{
FSBOApp.StatusBar.SetText("Sucursal Principal no ha sido creada", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
}
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name, ISNULL(U_Habilitada,'Y') 'Habilitada' from [@VID_FESUC]";
}
else
{
s = @"select ""Code"", ""Name"", IFNULL(""U_Habilitada"",'Y') ""Habilitada"" from ""@VID_FESUC"" ";
}
oRecordSet.DoQuery(s);
i = 0;
oDBDSH.Clear();
while (!oRecordSet.EoF)
{
oDBDSH.InsertRecord(i);
oDBDSH.SetValue("Code", i, (System.String)(oRecordSet.Fields.Item("Code").Value));
oDBDSH.SetValue("Name", i, (System.String)(oRecordSet.Fields.Item("Name").Value));
oDBDSH.SetValue("U_Habilitada", i, (System.String)(oRecordSet.Fields.Item("Habilitada").Value));
oRecordSet.MoveNext();
i++;
}
oDBDSH.InsertRecord(i);
oDBDSH.SetValue("Code", i, "");
oDBDSH.SetValue("Name", i, "");
oDBDSH.SetValue("U_Habilitada", i, "Y");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select FldValue 'Code', Descr 'Name' from UFD1 where TableID = '@VID_FESUC' and FieldID = 0";
}
else
{
s = @"select ""FldValue"" ""Code"", ""Descr"" ""Name"" from ""UFD1"" where ""TableID"" = '@VID_FESUC' and ""FieldID"" = 0";
}
oRecordSet.DoQuery(s);
oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("Habilitada"));
FSBOf.FillComboMtx(oColumn, ref oRecordSet, false);
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
oMtx.LoadFromDataSource();
oSetting = oMtx.CommonSetting;
i = 1;
while (i <= oMtx.RowCount)
{
if ((System.String)(oDBDSH.GetValue("Code", i - 1)).Trim() != "")
{
oSetting.SetCellEditable(i, 1, false);
}
i++;
}
oForm.Mode = BoFormMode.fm_OK_MODE;
oMtx.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
private void CargarCtaSII()
{
SAPbouiCOM.ProgressBar oProgressBar = null;
Int32 NroLineas;
System.Data.DataTable dtConceptos;
Boolean bRegistroOk;
String sHojaExcel;
String sCuenta;
String sRegistro;
String Padre;
//String Hijo;
String sPeriodoActual;
String strConn;
Boolean bIngresaConceptos = false;
DataSet ADOQueryExcel;
Int32 Entry;
OleDbDataAdapter adapter;
String sPathArchivo = "";
try
{
sPathArchivo = Directory.GetCurrentDirectory() + "\\SQLs\\CL\\Carga\\DiccionarioSII.xls";
sHojaExcel = "[CTASII$]";
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=Excel 8.0;Mode=ReadWrite";
strConn = String.Format(strConn, sPathArchivo);
adapter = new OleDbDataAdapter("Select * from [CTASII$]", strConn);
ADOQueryExcel = new DataSet();
try
{
adapter.Fill(ADOQueryExcel, "CTASII");
dtConceptos = new System.Data.DataTable();
dtConceptos = ADOQueryExcel.Tables["CTASII"];
}
catch //(Exception y)
{
FSBOApp.StatusBar.SetText("Error leyendo archivo excel...", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
return;
}
if (dtConceptos.Rows.Count == 0)
{
FSBOApp.StatusBar.SetText("No existen Cuentas SII para importar...", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
return;
}
oProgressBar = FSBOApp.StatusBar.CreateProgressBar("Importando Cuentas SII...", dtConceptos.Rows.Count + 2, false);
NroLineas = 1;
foreach (DataRow oRow in dtConceptos.Rows)
{
bIngresaConceptos = false;
sCuenta = oRow.Field <String>("Cuenta");
if (sCuenta != null)
{
sRegistro = Convert.ToString(oRow.Field <Double>("Registro"));
if (Convert.ToString(oRow.Field <String>("Glosa")).Trim() == "")
{
s = @"UPDATE {0} SET validacion = 'Debe ingresar Glosa' where [Registro] = {1}";
s = String.Format(s, sHojaExcel, sRegistro);
Funciones.EjecutarSQLOleDb(s, strConn);
}
else
{
bIngresaConceptos = true;
}
if (bIngresaConceptos)
{
oDBDSHeader.Clear();
oDBDSHeader.InsertRecord(0);
oDBDSHeader.SetValue("U_Cuenta", 0, Convert.ToString(oRow.Field <String>("Cuenta")).Trim());
oDBDSHeader.SetValue("U_Desc", 0, Convert.ToString(oRow.Field <String>("Glosa")).Trim());
oDBDSHeader.SetValue("U_Clasif", 0, Convert.ToString(oRow.Field <String>("Clasificacion")).Trim());
Entry = Funciones.AddDataSourceInt1("VID_FEPLANCTA", oDBDSHeader, "", null, "", null, "", null);
if (Entry > 0)
{
var ss = FCmpny.GetNewObjectKey();
s = @"UPDATE {0} SET validacion = 'OK' WHERE [Registro] = {1}";
s = String.Format(s, sHojaExcel, sRegistro);
}
else
{
var err = FCmpny.GetLastErrorDescription();
s = @"UPDATE {0} SET validacion = 'Error al crear {1}' WHERE [Registro] = {2}";
s = String.Format(s, sHojaExcel, err, sRegistro);
}
Funciones.EjecutarSQLOleDb(s, strConn);
}
}
else
{
oProgressBar.Value = oProgressBar.Maximum;
break;
}
oProgressBar.Value = NroLineas;
NroLineas = NroLineas + 1;
}
FSBOApp.StatusBar.SetText("Fin de la importación", BoMessageTime.bmt_Long, BoStatusBarMessageType.smt_Success);
FSBOApp.MessageBox("Fin de la importación", 1, "Ok", "", "");
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("Error importando Conceptos desde: " + sPathArchivo + ". Error: " + e.Message + " ** Trace: " + e.StackTrace);
}
finally
{
if (oProgressBar != null)
{
oProgressBar.Stop();
}
FSBOf._ReleaseCOMObject(oProgressBar);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_FEDetalleLog.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1282", false); //Crear
oForm.EnableMenu("1281", false); //Actualizar
//oForm.DataBrowser.BrowseBy := "DocNum";
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
oForm.Items.Item("grid").Enabled = false;
ogrid = (Grid)(oForm.Items.Item("grid").Specific);
dt = oForm.DataSources.DataTables.Add("dt");
ogrid.DataTable = dt;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select U_TipoDoc
,LTRIM(STR(U_FolioNum,18,0)) 'U_FolioNum'
,U_ID_Log
,U_Glosa
,U_FechaIn
from [@VID_FELOG] T0
join [@VID_FELOGD] T1 ON T1.DocEntry = T0.DocEntry
where T0.DocEntry = {0}
order by T1.LineId DESC";
}
else
{
s = @"select ""U_TipoDoc""
,LTRIM(ROUND(""U_FolioNum"",0)) ""U_FolioNum""
,""U_ID_Log""
,""U_Glosa""
,""U_FechaIn""
from ""@VID_FELOG"" T0
join ""@VID_FELOGD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
where T0.""DocEntry"" = {0}
order by T1.""LineId"" DESC ";
}
s = String.Format(s, prmKey);
dt.ExecuteQuery(s);
ogrid.AutoResizeColumns();
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
var oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Tipo Documento";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_FolioNum").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FolioNum"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número Folio";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_ID_Log").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_ID_Log"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "ID Log Portal";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_Glosa").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Glosa"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Glosa";
oEditColumn.RightJustified = false;
ogrid.Columns.Item("U_FechaIn").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FechaIn"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Fecha Movimiento";
oEditColumn.RightJustified = false;
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
private void GuardarRegistros()
{
TFunctions Reg;
Int32 i;
SAPbouiCOM.EditText oEditText;
SAPbouiCOM.ComboBox oComboBox;
String DocEntry, ProcNomE, ProcNomD, ProcNomR, ProcNomC, ProcNomL, ProcNomS, Hab, TipoDoc, CantLineas, ProcNomDe;
Int32 _return = 0;
try
{
Reg = new TFunctions();
Reg.SBO_f = FSBOf;
oMtx.FlushToDataSource();
i = 1;
while (i <= oMtx.RowCount)
{
oEditText = (EditText)(oMtx.Columns.Item("DocEntry").Cells.Item(i).Specific);
DocEntry = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oMtx.Columns.Item("ProcNomE").Cells.Item(i).Specific);
ProcNomE = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oMtx.Columns.Item("ProcNomD").Cells.Item(i).Specific);
ProcNomD = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oMtx.Columns.Item("ProcNomR").Cells.Item(i).Specific);
ProcNomR = (System.String)(oEditText.Value).Trim();
oEditText = (EditText)(oMtx.Columns.Item("ProcNomC").Cells.Item(i).Specific);
ProcNomC = (System.String)(oEditText.Value).Trim();
//oEditText = (EditText)(oMtx.Columns.Item("ProcNomDe").Cells.Item(i).Specific);
//ProcNomDe = (System.String)(oEditText.Value).Trim();
//oEditText = (EditText)(oMtx.Columns.Item("ProcNomL").Cells.Item(i).Specific);
//ProcNomL = (System.String)(oEditText.Value).Trim();
//oEditText = (EditText)(oMtx.Columns.Item("ProcNomS").Cells.Item(i).Specific);
//ProcNomS = (System.String)(oEditText.Value).Trim();
oComboBox = (ComboBox)(oMtx.Columns.Item("Habili").Cells.Item(i).Specific);
Hab = oComboBox.Value;
oComboBox = (ComboBox)(oMtx.Columns.Item("TipoDoc").Cells.Item(i).Specific);
TipoDoc = oComboBox.Value;
//oComboBox = (ComboBox)(oMtx.Columns.Item("TipoDocPE").Cells.Item(i).Specific);
//TipoDocPE = oComboBox.Value;
oEditText = (EditText)(oMtx.Columns.Item("CantLineas").Cells.Item(i).Specific);
CantLineas = (System.String)(oEditText.Value).Trim();
oDBDSH.Clear();
oDBDSH.InsertRecord(0);
oDBDSH.SetValue("DocEntry", 0, DocEntry);
oDBDSH.SetValue("U_TipoDoc", 0, TipoDoc);
//oDBDSH.SetValue("U_TipoDocPE", 0, TipoDocPE);
oDBDSH.SetValue("U_Habili", 0, Hab);
oDBDSH.SetValue("U_ProcNomE", 0, ProcNomE);
oDBDSH.SetValue("U_ProcNomD", 0, ProcNomD);
oDBDSH.SetValue("U_ProcNomR", 0, ProcNomR);
oDBDSH.SetValue("U_ProcNomC", 0, ProcNomC);
//oDBDSH.SetValue("U_ProcNomDe", 0, ProcNomDe);
//oDBDSH.SetValue("U_ProcNomL", 0, ProcNomL);
//oDBDSH.SetValue("U_ProcNomS", 0, ProcNomS);
oDBDSH.SetValue("U_CantLineas", 0, CantLineas);
if (DocEntry.Trim() == "")
{
_return = Reg.FEPROCAdd(oDBDSH);
}
else
{
_return = Reg.FEPROCUpt(oDBDSH);
}
if (_return != 0)
{
oEditText = (EditText)(oMtx.Columns.Item("DocEntry").Cells.Item(i).Specific);
oEditText.Value = _return.ToString();
FSBOApp.StatusBar.SetText("Se ha guardado regsitro Tipo Documento " + TipoDoc, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
else
{
FSBOApp.StatusBar.SetText("No se ha guardado regsitro Tipo Documento " + TipoDoc, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
i++;
}
oMtx.FlushToDataSource();
oMtx.AutoResizeColumns();
if (_return > 0)
{
oForm.Mode = BoFormMode.fm_OK_MODE;
}
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("GuardarRegistros: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin GuardarRegistro
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 i;
TFunctions Param;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FEMULTISOC.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
oForm.SupportedModes = -1; // afm_All
VID_DelRow = false;
VID_DelRowOK = false;
Param = new TFunctions();
Param.SBO_f = FSBOf;
//oForm.DataBrowser.BrowseBy := "DocEntry";
oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEMULTISOC");
//oDBDSBases := oForm.DataSources.DBDataSources.Item("@VID_FEMULTISOC");
// Ok Ad Fnd Vw Rq Sec
// Lista.Add('DocEntry , f, f, t, f, r, 1');
// Lista.Add('Desde , f, f, f, f, r, 1');
// Lista.Add('mtx , f, t, f, f, n, 1');
// FSBOf.SetAutoManaged(var oForm, Lista);
oMtx = (Matrix)(oForm.Items.Item("mtx").Specific);
oMtx.AutoResizeColumns();
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select U_Sociedad
,U_RUT
,U_Servidor
,U_Base
,U_Usuario
,U_Password
,DocEntry
,U_Habilitada
from [@VID_FEMULTISOC]";
}
else
{
s = @"select ""U_Sociedad""
,""U_RUT""
,""U_Servidor""
,""U_Base""
,""U_Usuario""
,""U_Password""
,""DocEntry""
,""U_Habilitada""
from ""@VID_FEMULTISOC"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
oMtx.AddRow(1, 1);
oMtx.FlushToDataSource();
oMtx.AutoResizeColumns();
}
else
{
i = 0;
oDBDSH.Clear();
while (!oRecordSet.EoF)
{
oDBDSH.InsertRecord(i);
oDBDSH.SetValue("U_Sociedad", i, (System.String)(oRecordSet.Fields.Item("U_Sociedad").Value));
oDBDSH.SetValue("U_RUT", i, (System.String)(oRecordSet.Fields.Item("U_RUT").Value));
oDBDSH.SetValue("U_Servidor", i, (System.String)(oRecordSet.Fields.Item("U_Servidor").Value));
oDBDSH.SetValue("U_Base", i, (System.String)(oRecordSet.Fields.Item("U_Base").Value));
oDBDSH.SetValue("U_Usuario", i, (System.String)(oRecordSet.Fields.Item("U_Usuario").Value));
//s = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Password").Value).ToString().Trim());
oDBDSH.SetValue("U_Password", i, (System.String)(oRecordSet.Fields.Item("U_Password").Value));
oDBDSH.SetValue("DocEntry", i, Convert.ToString((System.Int32)(oRecordSet.Fields.Item("DocEntry").Value)));
oDBDSH.SetValue("U_Habilitada", i, (System.String)(oRecordSet.Fields.Item("U_Habilitada").Value));
i++;
oRecordSet.MoveNext();
}
oDBDSH.InsertRecord(i);
oMtx.LoadFromDataSource();
oMtx.AutoResizeColumns();
}
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
}//fin MenuEvent
private void Grilla()
{
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT T0.U_Sucursal
,T0.U_TipoDoc
,COUNT(*) 'Asignados'
,SUM(CASE WHEN T1.U_Estado = 'D' THEN 1 ELSE 0 END) 'Disponibles'
,SUM(CASE WHEN T1.U_Estado = 'U' THEN 1 ELSE 0 END) 'Utilizados'
FROM [@VID_FEDIST] T0 WITH(nolock)
JOIN [@VID_FEDISTD] T1 WITH(nolock) ON T1.DocEntry = T0.DocEntry
GROUP BY
T0.U_Sucursal
,T0.U_TipoDoc
ORDER BY T0.U_Sucursal, T0.U_TipoDoc";
}
else
{
s = @"SELECT T0.""U_Sucursal""
,T0.""U_TipoDoc""
,COUNT(*) ""Asignados""
,SUM(CASE WHEN T1.""U_Estado"" = 'D' THEN 1 ELSE 0 END) ""Disponibles""
,SUM(CASE WHEN T1.""U_Estado"" = 'U' THEN 1 ELSE 0 END) ""Utilizados""
FROM ""@VID_FEDIST"" T0
JOIN ""@VID_FEDISTD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
GROUP BY
T0.""U_Sucursal""
,T0.""U_TipoDoc""
ORDER BY T0.""U_Sucursal"", T0.""U_TipoDoc"" ";
}
oDataTable.ExecuteQuery(s);
ogrid.Columns.Item("U_Sucursal").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Sucursal"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.Visible = false;
oColumn.TitleObject.Caption = "Código";
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Tipo Documento";
ogrid.Columns.Item("Asignados").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Asignados"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Asignados";
ogrid.Columns.Item("Disponibles").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Disponibles"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Disponibles";
ogrid.Columns.Item("Utilizados").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("Utilizados"));
//EditTextColumn(oColumn).LinkedObjectType := '86';
oColumn.Editable = false;
oColumn.RightJustified = true;
oColumn.TitleObject.Caption = "Total Utilizados";
ogrid.AutoResizeColumns();
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("Grilla: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin Grilla
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
SAPbouiCOM.Column oColumn;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_Impuestos.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
VID_DelRow = true;
VID_DelRowOK = true;
oForm.DataBrowser.BrowseBy = "Code";
oDBDSH = oForm.DataSources.DBDataSources.Item("@VID_FEIMPTO");
oDBDSD = oForm.DataSources.DBDataSources.Item("@VID_FEIMPTOD");
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//oCombo := ComboBox(oForm.Items.Item('TipDoc').Specific);
//oCombo.ValidValues.Add('33', 'Factura');
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
//AddChooseFromList();
oMtx = (Matrix)(oForm.Items.Item("mtx").Specific);
//oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("V_0"));
//oColumn.ChooseFromListUID = "CFL0";
//oColumn.ChooseFromListAlias = "Code";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from OSTA
UNION ALL
select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N'";
}
else
{
s = @"select ""Code"", ""Name"" from ""OSTA""
UNION ALL
select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' ";
}
oRecordSet.DoQuery(s);
oColumn = (SAPbouiCOM.Column)(oMtx.Columns.Item("V_0"));
FSBOf.FillComboMtx(oColumn, ref oRecordSet, false);
oMtx.AutoResizeColumns();
//EditText(oForm.Items.Item('CardCode').Specific).Active := True;
//oForm.Mode := BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
