private void GetDataFromDataSource()
{
oMatrix.Clear();
oMatrix.AutoResizeColumns();
oDBDataSource.Query(null);
oUserDataSource.Value = "Telefone com prefixo";
oMatrix.LoadFromDataSource();
}
///<summary> Loads matrix columns. </summary>
///<remarks> Amartinez, 08/05/2017. </remarks>
///<param name="pStrDataSource"> The pstr datasource. </param>
public SAPbouiCOM.Matrix LoadMatrixColumns(SAPbouiCOM.Matrix pObjMatrix, string pStrDataSource, bool pBolIsPurshese, string pStrTypTic)
{
SAPbouiCOM.Matrix lObjMatrix = DeleteColumns(pObjMatrix);
bool lBolColumnEnable = false;
lBolColumnEnable = pBolIsPurshese;
//SAPbouiCOM.CommonSetting setting = mObjMatrix.CommonSetting;
// Add a column for BP Card Code
SAPbouiCOM.IColumn lObjColumn;
lObjColumn = lObjMatrix.Columns.Add("ItemCode", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON);
lObjColumn.TitleObject.Caption = "Artículo";
lObjColumn.DataBind.SetBound(true, pStrDataSource, "ItemCode");
lObjColumn.Editable = true;
// Link the column to the BP master data system form
var lObjlink = ((SAPbouiCOM.LinkedButton)(lObjColumn.ExtendedObject));
lObjlink.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_Items;
lObjColumn.ChooseFromListUID = "CFL1";
lObjColumn.Editable = true;
//addColum()
AddColum(lObjMatrix, "Dscription", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Descripción", pStrDataSource, "Dscription", false);
AddColum(lObjMatrix, "Price", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Precio", pStrDataSource, "Price", lBolColumnEnable);
AddColum(lObjMatrix, "Peso1", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Primer peso", pStrDataSource, "Weight1", false);
AddColum(lObjMatrix, "Peso2", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Segundo peso", pStrDataSource, "Weight2", false);
AddColum(lObjMatrix, "PesoN", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Peso Neto", pStrDataSource, "Quantity", false);
AddColum(lObjMatrix, "Importe", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Importe", pStrDataSource, "LineTotal", false);
if (pStrTypTic != "Venta de pesaje" && pStrTypTic != "Pesaje")
{
AddColum(lObjMatrix, "Sacos", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Sacos - Pacas", pStrDataSource, "U_GLO_BagsBales", true);
AddColum(lObjMatrix, "Check", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX, "Tipo peso", pStrDataSource, "TreeType", true);
lObjColumn = lObjMatrix.Columns.Add("WhsCode", SAPbouiCOM.BoFormItemTypes.it_EDIT);
lObjColumn.TitleObject.Caption = "Almacén";
if (pStrTypTic != "Traslado - Salida")
{
lObjColumn.DataBind.SetBound(true, pStrDataSource, "WhsCode");
}
else
{
lObjColumn.DataBind.SetBound(true, pStrDataSource, "FromWhsCod");
}
lObjColumn.ChooseFromListUID = "CFL_Ware";
lObjColumn.Editable = true;
}
else
{
AddColum(lObjMatrix, "Check", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX, "Tipo peso", pStrDataSource, "TreeType", false);
}
AddColum(lObjMatrix, "DelivrdQty", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Cantidad entregada", pStrDataSource, "DelivrdQty", false);
AddColum(lObjMatrix, "OpenCreQty", SAPbouiCOM.BoFormItemTypes.it_EDIT, "Cantidad pendiente", pStrDataSource, "OpenCreQty", false);
lObjMatrix.AutoResizeColumns();
return(lObjMatrix);
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oCombo;
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_IndicadoresSII.srf", uid);
//EnableCrystal := true;
//oForm = FSBOApp.Forms.Item(uid);
oForm = FSBOApp.Forms.ActiveForm;
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_FEDOCE");
oDBDSD = oForm.DataSources.DBDataSources.Item("@VID_FEDOCED");
// 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";
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 InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
Int32 nErr;
String sErr;
SAPbouiCOM.DataTable oDataTable;
String sValue, sValue1;
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (pVal.BeforeAction))
{
if ((pVal.ItemUID == "1") && (oForm.Mode == BoFormMode.fm_ADD_MODE))
{
//BubbleEvent := ValidarDatosFE();
}
}
if ((pVal.EventType == BoEventTypes.et_CHOOSE_FROM_LIST) && (!pVal.BeforeAction))
{
if (pVal.ColUID == "V_0")
{
oCFLEvento = (SAPbouiCOM.IChooseFromListEvent)(pVal);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
sValue = (System.String)(oDataTable.GetValue("Code", 0));
sValue1 = (System.String)(oDataTable.GetValue("Name", 0));
oMtx.FlushToDataSource();
oDBDSD.SetValue("U_Indicato", pVal.Row - 1, sValue);
oDBDSD.SetValue("U_Descrip", pVal.Row - 1, sValue1);
if (pVal.Row == oMtx.RowCount)
{
oDBDSD.InsertRecord(pVal.Row);
}
oMtx.LoadFromDataSource();
oMtx.AutoResizeColumns();
if (oForm.Mode == BoFormMode.fm_OK_MODE)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
}
}
}
}
catch (Exception e)
{
FCmpny.GetLastError(out nErr, out sErr);
FSBOApp.StatusBar.SetText("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin FormEvent
}//fin MenuEvent
private void GuardarRegistros()
{
TFunctions Reg;
Int32 i;
Int32 DocEntryAsig;
String User, Pass;
try
{
if (ValidarMatrix())
{
Reg = new TFunctions();
Reg.SBO_f = FSBOf;
oMtx.FlushToDataSource();
FCmpny.StartTransaction();
i = 0;
while (i < oMtx.RowCount)
{
User = (System.String)(oDBDSH.GetValue("U_Usuario", i));
Pass = (System.String)(oDBDSH.GetValue("U_Password", i));
//s = Reg.Encriptar(Pass);
oDBDSH.SetValue("U_Password", i, Pass);
if ((System.String)(oDBDSH.GetValue("DocEntry", i)) == "")
{
DocEntryAsig = Reg.FEMultiSocAdd((System.String)(oDBDSH.GetValue("U_Servidor", i)), (System.String)(oDBDSH.GetValue("U_RUT", i)), (System.String)(oDBDSH.GetValue("U_Base", i)), (System.String)(oDBDSH.GetValue("U_Usuario", i)), (System.String)(oDBDSH.GetValue("U_Password", i)), (System.String)(oDBDSH.GetValue("U_Sociedad", i)), (System.String)(oDBDSH.GetValue("U_Habilitada", i)));
oDBDSH.SetValue("DocEntry", i, DocEntryAsig.ToString());
}
else
{
Reg.FEMultiSocUpt((System.String)(oDBDSH.GetValue("DocEntry", i)), (System.String)(oDBDSH.GetValue("U_Servidor", i)), (System.String)(oDBDSH.GetValue("U_RUT", i)), (System.String)(oDBDSH.GetValue("U_Base", i)), (System.String)(oDBDSH.GetValue("U_Usuario", i)), (System.String)(oDBDSH.GetValue("U_Password", i)), (System.String)(oDBDSH.GetValue("U_Sociedad", i)), (System.String)(oDBDSH.GetValue("U_Habilitada", i)));
}
//oDBDSH.SetValue("U_Password", i, Pass);
i++;
}
FCmpny.EndTransaction(BoWfTransOpt.wf_Commit);
oDBDSH.InsertRecord(i);
oMtx.LoadFromDataSource();
oMtx.AutoResizeColumns();
FSBOApp.StatusBar.SetText("Sociedades registradas satisfactoriamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("GuardarRegistros: " + e.Message + " ** Trace: " + e.StackTrace);
if (FCmpny.InTransaction)
{
FCmpny.EndTransaction(BoWfTransOpt.wf_RollBack);
}
}
}//fin GuardarRegistros
public virtual void ET_mtx2_DUMY_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oMatrix = ((SAPbouiCOM.Matrix)(oForm.Items.Item("mtx2_DUMY").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.Row > 0)
{
//1. 콜리스트를 선택하면 배달코드를 찾아 자동으로 선택되도록 한다.
oMatrix.SelectRow(pVal.Row, true, false);
// 1-1 콜리스트 선택된 것에서 배달코드를 찾는다.
string strDeliveryCode = FN.GetMatirxCellValue(ref oMatrix, "U_DELVCD", pVal.Row);
SAPbouiCOM.Matrix oMatrix1 = (SAPbouiCOM.Matrix)(oForm.Items.Item("mtx1_DUMY").Specific);
// 2. 배달코드로 배송리스트에서 메트릭스의 행을 찾는다.
var obj_Deliver = from row in gDs.Tables[oForm.UniqueID + "_Deliver"].AsEnumerable()
where row.Field<string>("DELVCD") == strDeliveryCode
select new
{
vIDX = row.Field<Int32>("IDX")
};
oMatrix1.SelectRow(obj_Deliver.Take(1).SingleOrDefault().vIDX +1, true, false);
sFindTY = "F";
}
if (oForm.Settings.MatrixUID != pVal.ItemUID)
{
oForm.Freeze(true);
oForm.Settings.MatrixUID = pVal.ItemUID;
oMatrix.AutoResizeColumns();
oMatrix = ((SAPbouiCOM.Matrix)(oForm.Items.Item("mtx1_DUMY").Specific));
oMatrix.AutoResizeColumns();
oForm.Freeze(false);
}
}
public virtual void ET_mtx1_DUMY_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oMatrix = ((SAPbouiCOM.Matrix)(oForm.Items.Item("mtx1_DUMY").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.Row > 0)
{
oMatrix.SelectRow(pVal.Row, true, false);
gDeliverySelect = pVal.Row;
}
if (oForm.Settings.MatrixUID != pVal.ItemUID)
{
oForm.Freeze(true);
oForm.Settings.MatrixUID = pVal.ItemUID;
oMatrix.AutoResizeColumns();
oMatrix = ((SAPbouiCOM.Matrix)(oForm.Items.Item("mtx2_DUMY").Specific));
oMatrix.AutoResizeColumns();
oForm.Freeze(false);
}
}
/// <summary>
/// 메트릭스의 행을 추가합니다.
/// </summary>
/// <param name="SelectedType"></param>
private void SetMatrixAddRow(FN.RowSelectMode SelectedType)
{
SAPbouiCOM.DBDataSource oKIS_SD00301_HRD = oForm.DataSources.DBDataSources.Item("@KIS_SD00301_HRD");
oMatrix = oForm.Items.Item("mtx1").Specific;
FN.SetMatrixAddRow(ref oForm, ref oMatrix, ref oKIS_SD00301_HRD, SelectedType, "U_ITMGRPCD");
oMatrix.CommonSetting.SetRowEditable(oMatrix.VisualRowCount, true);
////oMatrix.CommonSetting.SetRowEditable 메소드로 인하여 모든 컬럼이 활성화 되는 버그(?)가 있다.서식세팅 확인버튼을 눌러주면 정상화됨.
SetColumnEnable(ref oMatrix, "U_LINENUM,U_OPENAMT,U_OPENAMTB,U_BTYPE,U_BENTRY,U_BLINEID,U_TTYPE,U_TENTRY,U_TLINEID,U_STATUS", false);
SetMatrixRowNumbering(oMatrix, "U_LINENUM");
SetMatrixColumnVATGRP(gl_U_VATCD, gl_U_VATCDBP);
oMatrix.AutoResizeColumns();
oKIS_SD00301_HRD = null;
}
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 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
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
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
private void Form_ResizeAfter(SBOItemEventArg pVal)
{
mtxRefound.AutoResizeColumns();
}
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
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
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
Int32 nErr;
String sErr;
SAPbouiCOM.DataTable oDataTable;
String sValue, sValue1;
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (pVal.BeforeAction))
{
if ((pVal.ItemUID == "1") && (oForm.Mode == BoFormMode.fm_ADD_MODE))
{
//BubbleEvent := ValidarDatosFE();
}
}
if ((pVal.EventType == BoEventTypes.et_COMBO_SELECT) && (!pVal.BeforeAction) && (pVal.ItemUID == "mtx"))
{
if (pVal.ColUID == "V_0")
{
oMtx.FlushToDataSource();
sValue = ((System.String)oDBDSD.GetValue("U_CodeImp", pVal.Row - 1)).Trim();
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from OSTA where Code = '{0}'
UNION ALL
select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N' and WTCode = '{0}'";
}
else
{
s = @"select ""Code"", ""Name"" from ""OSTA"" where ""Code"" = '{0}'
UNION ALL
select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' and ""WTCode"" = '{0}' ";
}
s = String.Format(s, sValue);
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
FSBOApp.StatusBar.SetText("No se encuentra Impuesto o Retención: " + sValue, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
else
{
sValue1 = ((System.String)oRecordSet.Fields.Item("Name").Value).Trim();
oDBDSD.SetValue("U_CodeImp", pVal.Row - 1, sValue);
oDBDSD.SetValue("U_Descrip", pVal.Row - 1, sValue1);
if (pVal.Row == oMtx.RowCount)
{
oDBDSD.InsertRecord(pVal.Row);
}
oMtx.LoadFromDataSource();
oMtx.AutoResizeColumns();
if (oForm.Mode == BoFormMode.fm_OK_MODE)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
}
}
}
}
catch (Exception e)
{
FCmpny.GetLastError(out nErr, out sErr);
FSBOApp.StatusBar.SetText("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("FormEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin FormEvent
