private void AddChooseFromList()
{
SAPbouiCOM.ChooseFromListCollection oCFls = null;
SAPbouiCOM.Conditions oCons = null;
SAPbouiCOM.Condition oCon = null;
oCFls = oForm.ChooseFromLists;
SAPbouiCOM.ChooseFromList oCFl = null;
SAPbouiCOM.ChooseFromListCreationParams oCFLCreationParams = null;
oCFLCreationParams = ((SAPbouiCOM.ChooseFromListCreationParams)(oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)));
oCFLCreationParams.MultiSelection = false;
oCFLCreationParams.ObjectType = "2";
oCFLCreationParams.UniqueID = "CFL1";
oCFl = oCFls.Add(oCFLCreationParams);
oCons = oCFl.GetConditions();
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "C";
oCFl.SetConditions(oCons);
oCFLCreationParams.MultiSelection = false;
oCFLCreationParams.ObjectType = "2";
oCFLCreationParams.UniqueID = "CFL2";
oCFl = oCFls.Add(oCFLCreationParams);
}
private void InitForm()
{
_oForm.Freeze(true);
try
{
_oForm.DataSources.UserDataSources.Item("txtPSTDT").ValueEx = DateTime.Now.ToString("yyyyMMdd");
//_oForm.DataSources.UserDataSources.Item("txtDUEDT").ValueEx = DateTime.Now.ToString("yyyyMMdd");
_oForm.DataSources.UserDataSources.Item("txtDOCDT").ValueEx = DateTime.Now.ToString("yyyyMMdd");
_grid_Vendor.DataTable = _dt_VendorGrid;
SAPbouiCOM.ChooseFromList oCFL = _oForm.ChooseFromLists.Item("cflVendor");
SAPbouiCOM.Conditions oCons = oCFL.GetConditions();
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "S";
oCFL.SetConditions(oCons);
}
catch (Exception Ex)
{
eCommon.SBO_Application.MessageBox(Ex.Message);
}
finally
{
_oForm.Freeze(false);
}
}
private void AddChooseFromListStockTransfer()
{
oForm.DataSources.UserDataSources.Add("CFL_1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 254);
SAPbouiCOM.ChooseFromListCollection oCFLs = oForm.ChooseFromLists;
SAPbouiCOM.ChooseFromListCreationParams lObjCFLCreationParams = null;
lObjCFLCreationParams = (SAPbouiCOM.ChooseFromListCreationParams)SAPbouiCOM.Framework.Application.SBO_Application.CreateObject
(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams);
// Adding 2 CFL, one for the button and one for the edit text.
//string strCFLID = oCFLCreationParams.UniqueID
lObjCFLCreationParams.MultiSelection = false;
lObjCFLCreationParams.ObjectType = "1250000001";
lObjCFLCreationParams.UniqueID = "CFLDOC";
mObjChooseFromList = oCFLs.Add(lObjCFLCreationParams);
oCons = mObjChooseFromList.GetConditions();
oCon = oCons.Add();
oCon.Alias = "DocStatus";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "O";
mObjChooseFromList.SetConditions(oCons);
EditText1.DataBind.SetBound(true, "", "CFL_1");
EditText1.ChooseFromListUID = mObjChooseFromList.UniqueID;
EditText1.ChooseFromListAlias = "DocNum";
}
private void AddChooseFromList()
{
this.UIAPIRawForm.DataSources.UserDataSources.Add("UDCFL", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 254);
try
{
SAPbouiCOM.EditText lObjEditTxt = null;
SAPbouiCOM.ChooseFromList lObjCFL = null;
SAPbouiCOM.ChooseFromListCollection lLstCFLs = null;
lLstCFLs = this.UIAPIRawForm.ChooseFromLists;
SAPbouiCOM.ChooseFromListCreationParams lObjCFLCreationParams = null;
lObjCFLCreationParams = (SAPbouiCOM.ChooseFromListCreationParams)SAPbouiCOM.Framework.Application.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams);
lObjCFLCreationParams.MultiSelection = false;
lObjCFLCreationParams.ObjectType = "2";
lObjCFLCreationParams.UniqueID = "CFLBP";
lObjCFL = lLstCFLs.Add(lObjCFLCreationParams);
//lObjEditTxt = lObjTxtClient;
lObjTxtClient.DataBind.SetBound(true, "", "UDCFL");
lObjTxtClient.ChooseFromListUID = lObjCFL.UniqueID;
lObjTxtClient.ChooseFromListAlias = "CardCode";
}
catch (Exception ex)
{
SAPbouiCOM.Framework.Application.SBO_Application.MessageBox(string.Format("InitCustomerChooseFromListException: {0}", ex.Message));
}
}
private void AddChooseFromListNomina()
{
oForm.DataSources.UserDataSources.Add("CFL_0", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 254);
SAPbouiCOM.ChooseFromListCollection oCFLs = oForm.ChooseFromLists;
SAPbouiCOM.ChooseFromListCreationParams lObjCFLCreationParams = null;
lObjCFLCreationParams = (SAPbouiCOM.ChooseFromListCreationParams)SAPbouiCOM.Framework.Application.SBO_Application.CreateObject
(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams);
// Adding 2 CFL, one for the button and one for the edit text.
//string strCFLID = oCFLCreationParams.UniqueID
lObjCFLCreationParams.MultiSelection = false;
lObjCFLCreationParams.ObjectType = "1";
lObjCFLCreationParams.UniqueID = "OACT1";
mObjChooseFromList = oCFLs.Add(lObjCFLCreationParams);
oCons = mObjChooseFromList.GetConditions();
/*oCon = oCons.Add();
* oCon.Alias = "AcctCode";
* oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
* oCon.CondVal = "C";
*
* mObjChooseFromList.SetConditions(oCons);*/
txtCuentaCNom.DataBind.SetBound(true, "", "CFL_0");
txtCuentaCNom.ChooseFromListUID = mObjChooseFromList.UniqueID;
txtCuentaCNom.ChooseFromListAlias = "AcctCode";
}
private void SBO_Application_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.Form oForm = null;
oForm = SBO_Application.Forms.Item(FormUID);
SAPbouiCOM.ChooseFromList oCFL = null;
oCFL = oForm.ChooseFromLists.Item(sCFL_ID);
if (oCFLEvento.BeforeAction == false)
{
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
string val = null;
try {
val = System.Convert.ToString(oDataTable.GetValue(0, 0));
}
catch (Exception ex) {
}
if ((pVal.ItemUID == "EditTxt") | (pVal.ItemUID == "Button"))
{
oForm.DataSources.UserDataSources.Item("EditDS").ValueEx = val;
}
}
}
if ((FormUID == "CFL1") & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD))
{
System.Windows.Forms.Application.Exit();
}
}
private static void GestionarSeleccionCFL(SAPbouiCOM.Form oForm, SAPbouiCOM.ItemEvent pVal)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String CflID = string.Empty;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.DataTable oDataTable = null;
try
{
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
CflID = oCFLEvento.ChooseFromListUID;
oCFL = oForm.ChooseFromLists.Item(CflID);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
switch (CflID)
{
case "CflCC":
oForm.DataSources.UserDataSources.Item("ds_Acc").Value = oDataTable.GetValue("AcctCode", 0).ToString();
break;
case "CflDim1":
oForm.DataSources.UserDataSources.Item("ds_Dim1").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim2":
oForm.DataSources.UserDataSources.Item("ds_Dim2").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim3":
oForm.DataSources.UserDataSources.Item("ds_Dim3").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim4":
oForm.DataSources.UserDataSources.Item("ds_Dim4").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CflDim5":
oForm.DataSources.UserDataSources.Item("ds_Dim5").Value = oDataTable.GetValue("OcrCode", 0).ToString();
break;
default:
break;
}
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oCFLEvento);
FuncionesComunes.LiberarObjetoGenerico(oCFL);
FuncionesComunes.LiberarObjetoGenerico(oDataTable);
}
}
public static SAPbouiCOM.DataTable GetDataTableFromCLF(SAPbouiCOM.ItemEvent oEvent, SAPbouiCOM.Form oForm)
{
SAPbouiCOM.ChooseFromListEvent event2 = (SAPbouiCOM.ChooseFromListEvent)oEvent;
string chooseFromListUID = event2.ChooseFromListUID;
SAPbouiCOM.ChooseFromList list = oForm.ChooseFromLists.Item(chooseFromListUID);
return(event2.SelectedObjects);
}
private void InitiallizeForm()
{
isForLoading = true;
oForm.Freeze(true);
tab1 = (SAPbouiCOM.Folder)oForm.Items.Item("21").Specific;
tab3 = (SAPbouiCOM.Folder)oForm.Items.Item("19").Specific;
tab4 = (SAPbouiCOM.Folder)oForm.Items.Item("35").Specific;
dtHead = oForm.DataSources.DataTables.Item("dtHead");
Animals = oForm.DataSources.DataTables.Item("Animals");
DTRpt = oForm.DataSources.DataTables.Item("DTRpt");
dtPro = oForm.DataSources.DataTables.Item("dtPro");
dtReqT = oForm.DataSources.DataTables.Item("dtReqT");
dtTypeS = oForm.DataSources.DataTables.Item("dtTypeS");
ocflCard = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflCard");
cflcardcode(ocflCard, "cflCard");
mtAnimals = (SAPbouiCOM.Matrix)oForm.Items.Item("mtAnimals").Specific;
mtReqT = (SAPbouiCOM.Matrix)oForm.Items.Item("mtReqT").Specific;
mtRpt = (SAPbouiCOM.Matrix)oForm.Items.Item("mtRpt").Specific;
mtProd = (SAPbouiCOM.Matrix)oForm.Items.Item("mtProd").Specific;
mtTypePRO = (SAPbouiCOM.Matrix)oForm.Items.Item("mtTypePRO").Specific;
cbAT = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbAT").Specific;
cbAC = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbAC").Specific;
txQtyT = (SAPbouiCOM.EditText)oForm.Items.Item("29").Specific;
txSupplier = (SAPbouiCOM.EditText)oForm.Items.Item("47").Specific;
chSO = (SAPbouiCOM.CheckBox)oForm.Items.Item("chSO").Specific;
chPRO = (SAPbouiCOM.CheckBox)oForm.Items.Item("crRPRO").Specific;
dtHead.Rows.Add(1);
dtHead.SetValue("DocDate", 0, DateTime.Now);
dtHead.SetValue("PoDate", 0, DateTime.Now);
dtHead.SetValue("stDate", 0, DateTime.Now.AddDays(1));
dtHead.SetValue("eDate", 0, DateTime.Now.AddDays(4));
oForm.Freeze(false);
fillCB();
txQtyT.Item.Enabled = false;
oForm.PaneLevel = 4;
tab4.Select();
isForLoading = false;
fillPO();
mtProd.Item.Visible = false;
fillAThash();
RefreshForm();
}
private void InitiallizeForm()
{
oForm.Freeze(true);
initiallizing = true;
dtNote = oForm.DataSources.DataTables.Item("dtNote");
dtDetail = oForm.DataSources.DataTables.Item("dtDetail");
dtHead = oForm.DataSources.DataTables.Item("dtHead");
dtHead.Rows.Add(1);
mtNote = (SAPbouiCOM.Matrix)oForm.Items.Item("mtNote").Specific;
mtDetail = (SAPbouiCOM.Matrix)oForm.Items.Item("mtDetail").Specific;
cbNote = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbNote").Specific;
cbValOf = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbValOf").Specific;
cbCS = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbCS").Specific;
cbPRJ = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbPRJ").Specific;
txCell = (SAPbouiCOM.EditText)oForm.Items.Item("txCell").Specific;
txTxt = (SAPbouiCOM.EditText)oForm.Items.Item("txTxt").Specific;
txHCD = (SAPbouiCOM.EditText)oForm.Items.Item("26").Specific;
btAddAcct = (SAPbouiCOM.Button)oForm.Items.Item("btAddAcct").Specific;
btAddFV = (SAPbouiCOM.Button)oForm.Items.Item("btAddFV").Specific;
btAddTXT = (SAPbouiCOM.Button)oForm.Items.Item("btAddTXT").Specific;
btRemove = (SAPbouiCOM.Button)oForm.Items.Item("btRemove").Specific;
txFV = (SAPbouiCOM.EditText)oForm.Items.Item("txFV").Specific;
fillCb();
cbValOf.ValidValues.Add("01", "Closing");
cbValOf.ValidValues.Add("02", "Change");
cbValOf.ValidValues.Add("03", "Opening");
cbNote.Select(0, SAPbouiCOM.BoSearchKey.psk_Index);
cflAcct = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflAcct");
SAPbouiCOM.Conditions oCons = cflAcct.GetConditions();
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "Postable";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_START;
oCon.CondVal = "Y";
cflAcct.SetConditions(oCons);
oForm.Freeze(false);
initiallizing = false;
}
private void AfterCFL(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
__Form = __app.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount);
try
{
if (pVal.ItemUID == "Item_0")
{
SAPbouiCOM.EditText BPCode = (SAPbouiCOM.EditText)__Form.Items.Item("Item_0").Specific;
SAPbouiCOM.IChooseFromListEvent chl = (SAPbouiCOM.IChooseFromListEvent)pVal;
SAPbouiCOM.ChooseFromList oCFL = null;
string cflID = chl.ChooseFromListUID;
oCFL = __Form.ChooseFromLists.Item(cflID);
SAPbouiCOM.DataTable dTable = chl.SelectedObjects;
if (dTable != null)
{
try
{
BPCode.String = dTable.GetValue("CardCode", 0);
__Form.Items.Item("Item_1").Click(SAPbouiCOM.BoCellClickType.ct_Regular);
}
catch (Exception ex)
{
__Form.Items.Item("Item_1").Click(SAPbouiCOM.BoCellClickType.ct_Regular);
}
}
}
}
catch (SqlException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (COMException e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
catch (Exception e)
{
__app.MessageBox(e.Message, 1, "Ok", "", "");
BubbleEvent = false;
}
}
public void GetCFL_M1_EDIT(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent, string UDSID, string CFLID)
{
BubbleEvent = true;
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.Form oForm = null;
oForm = SubMain.SBO_Application.Forms.Item(FormUID);
SAPbouiCOM.ChooseFromList oCFL = null;
oCFL = oForm.ChooseFromLists.Item(sCFL_ID);
if (oCFLEvento.BeforeAction == false)
{
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
string val = null;
try
{
val = System.Convert.ToString(oDataTable.GetValue(0, 0));
}
catch (Exception ex)
{
}
try
{
if (pVal.ItemUID == UDSID)
{
if (CFLID == "4")
{
((SAPbouiCOM.EditText)m1.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific).String = val;
}
}
}
catch (Exception ex)
{
//SubMain.MessageBox(ex.Message);
}
}
}
if ((FormUID == CFLID) & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD))
{
System.Windows.Forms.Application.Exit();
}
}
public static string GetCFL_value(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent, string ItemUID, string CFLID)
{
string ret = "";
BubbleEvent = true;
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.Form oForm = null;
oForm = SBO_Application.Forms.Item(FormUID);
SAPbouiCOM.ChooseFromList oCFL = null;
oCFL = oForm.ChooseFromLists.Item(sCFL_ID);
if (oCFLEvento.BeforeAction == false)
{
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
string val = null;
try
{
val = System.Convert.ToString(oDataTable.GetValue(0, 0));
}
catch (Exception ex)
{
}
try
{
if (pVal.ItemUID == ItemUID)
{
ret = val;
}
}
catch (Exception ex)
{
SubMain.MessageBox(ex.Message);
}
}
}
if ((FormUID == CFLID) & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD))
{
System.Windows.Forms.Application.Exit();
}
return(ret);
}
private void mtxItems_ChooseFromListBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
try
{
if (pVal.ColUID.Equals("FromWhs"))
{
SAPbouiCOM.ChooseFromList cfl = this.UIAPIRawForm.ChooseFromLists.Item("cflWH") as SAPbouiCOM.ChooseFromList;
var itemCode = mtxItems.GetCellValue("to_Item", pVal.Row).ToString();
var itmWareHouses = B1Helper.GetWhsInfoPerItem(itemCode);
var oConditions = Application.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_Conditions) as SAPbouiCOM.Conditions;
for (int i = 0; i < itmWareHouses.Count; i++)
{
var oCondition = oConditions.Add();
oCondition.Alias = "WhsCode";
oCondition.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCondition.CondVal = itmWareHouses[i].WhsCode;
if (i + 1 != itmWareHouses.Count)
{
oCondition.Relationship = SAPbouiCOM.BoConditionRelationship.cr_OR;
}
}
if (itmWareHouses.Count == 0)
{
var oCondition = oConditions.Add();
oCondition.Alias = "WhsCode";
oCondition.CondVal = string.Empty;
}
cfl.SetConditions(oConditions);
}
BubbleEvent = true;
mtxItems.FlushToDataSource();
}
catch (Exception ex)
{
Utilities.LogException(ex);
BubbleEvent = false;
}
}
private void InitiallizeForm()
{
oForm.Freeze(true);
initiallizing = true;
BOQD = oForm.DataSources.DataTables.Item("BOQD");
BOQH = oForm.DataSources.DataTables.Item("BOQH");
BOQID = oForm.DataSources.DataTables.Item("BOQID");
BOQH.Rows.Add(1);
mtIC = (SAPbouiCOM.Matrix)oForm.Items.Item("mtIC").Specific;
mtDC = (SAPbouiCOM.Matrix)oForm.Items.Item("mtDC").Specific;
SAPbouiCOM.Column col = mtDC.Columns.Item("cType");
col.ValidValues.Add("S", "Service");
col.ValidValues.Add("I", "Item");
col.DisplayDesc = true;
txCode = (SAPbouiCOM.EditText)oForm.Items.Item("txCode").Specific;
txName = (SAPbouiCOM.EditText)oForm.Items.Item("txName").Specific;
txDCB = (SAPbouiCOM.EditText)oForm.Items.Item("txDCB").Specific;
txICB = (SAPbouiCOM.EditText)oForm.Items.Item("txICB").Specific;
txTCB = (SAPbouiCOM.EditText)oForm.Items.Item("txTCB").Specific;
txDCA = (SAPbouiCOM.EditText)oForm.Items.Item("txDCA").Specific;
cbRule = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbRule").Specific;
txACode = (SAPbouiCOM.EditText)oForm.Items.Item("txACode").Specific;
txAName = (SAPbouiCOM.EditText)oForm.Items.Item("txAName").Specific;
txRemarks = (SAPbouiCOM.EditText)oForm.Items.Item("txRemarks").Specific;
cflOitm = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflOitm");
cmdDR = (SAPbouiCOM.Button)oForm.Items.Item("cmdDR").Specific;
SAPbouiCOM.Conditions oCons = cflOitm.GetConditions();
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "ItemType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "F";
cflOitm.SetConditions(oCons);
fillCB();
oForm.Freeze(false);
initiallizing = false;
}
private void cflcardcode(SAPbouiCOM.ChooseFromList oCFL, string uID)
{
try
{
SAPbouiCOM.Conditions oCons;
SAPbouiCOM.Condition oCon;
oCons = oCFL.GetConditions();
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "S";
oCFL.SetConditions(oCons);
}
catch (Exception ex)
{
// MsgBox(Err.Description)
}
}
public void crearChooseFromList()
{
SAPbouiCOM.ChooseFromList oCfl = null;
SAPbouiCOM.Conditions oCons = null;
SAPbouiCOM.Condition oCon = null;
try
{
// se carga el objeto con la data del cfl que se utilizara
// este se encuentra en la forma que se cargo del xml
// codigo del suplidor
oCfl = (SAPbouiCOM.ChooseFromList)forma.ChooseFromLists.Item("cflCodProv");
oCons = oCfl.GetConditions();
oCon = oCons.Add();
// se toma este alias como el campo que se utilizara para
// filtrar la info
oCon.Alias = "CardType";
// en este caso la info del campo cardtype debe ser igual para
// que se muestre la data
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
// el valor de la condicion debe se S que significa del tipo suplidor
oCon.CondVal = "S";
// se asignan las condiciones al cfl
oCfl.SetConditions(oCons);
//nombre del suplidor
oCfl = (SAPbouiCOM.ChooseFromList)forma.ChooseFromLists.Item("cflNmbProv");
oCons = oCfl.GetConditions();
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "S";
oCfl.SetConditions(oCons);
}
catch (Exception e)
{
app.StatusBar.SetText("solicitud_method_crearChooseFromList " + e.Message, SAPbouiCOM.BoMessageTime.bmt_Short,
SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
}
}
private void AddConditionClientCFL(SAPbouiCOM.ChooseFromList pCFL)
{
SAPbouiCOM.Condition lObjCon = null;
SAPbouiCOM.Conditions lObjCons = new SAPbouiCOM.Conditions();
lObjCon = lObjCons.Add();
lObjCon.Alias = "CardType";
lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
lObjCon.CondVal = "C";
lObjCon.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND;
lObjCon = lObjCons.Add();
lObjCon.Alias = "validFor";
lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
lObjCon.CondVal = "Y";
pCFL.SetConditions(lObjCons);
}
private void AddConditionSupervisorCFL(SAPbouiCOM.ChooseFromList pCFL)
{
SAPbouiCOM.Condition lObjCon = null;
SAPbouiCOM.Conditions lObjCons = new SAPbouiCOM.Conditions();
lObjCon = lObjCons.Add();
lObjCon.Alias = "position";
lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
lObjCon.CondVal = "4";
lObjCon.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND;
lObjCon = lObjCons.Add();
lObjCon.Alias = "dept";
lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
lObjCon.CondVal = "12";
pCFL.SetConditions(lObjCons);
}
private void AddConditionAccountCFL(SAPbouiCOM.ChooseFromList pCFL)
{
// SAPbouiCOM.Condition lObjCon = null;
// SAPbouiCOM.Conditions lObjCons = new SAPbouiCOM.Conditions();
//lObjCon = lObjCons.Add();
//lObjCon.Alias = "position";
//lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
//lObjCon.CondVal = "4";
//lObjCon.Relationship = SAPbouiCOM.BoConditionRelationship.cr_AND;
//lObjCon = lObjCons.Add();
//lObjCon.Alias = "dept";
//lObjCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
//lObjCon.CondVal = "12";
//pCFL.SetConditions(lObjCons);
}
private void ChosFrmList_Before(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
__Form = __app.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount);
try
{
if (pVal.ItemUID == "Item_0")
{
SAPbouiCOM.IChooseFromListEvent chl = (SAPbouiCOM.IChooseFromListEvent)pVal;
SAPbouiCOM.ChooseFromList oCFL = null;
string cflID = chl.ChooseFromListUID;
oCFL = __Form.ChooseFromLists.Item(cflID);
oCFL.SetConditions(null);
SAPbouiCOM.Conditions oCons = oCFL.GetConditions();
SAPbouiCOM.Condition c = null;
c = oCons.Add();
c.BracketOpenNum = 1;
c.Alias = "CardType";
c.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
c.CondVal = "C";
c.BracketCloseNum = 1;
oCFL.SetConditions(oCons);
}
}
catch (SqlException e)
{
__app.SetStatusBarMessage(e + "...", SAPbouiCOM.BoMessageTime.bmt_Medium, true);
BubbleEvent = false;
}
catch (COMException e)
{
__app.SetStatusBarMessage(e + "...", SAPbouiCOM.BoMessageTime.bmt_Medium, true);
BubbleEvent = false;
}
catch (Exception e)
{
__app.SetStatusBarMessage(e + "...", SAPbouiCOM.BoMessageTime.bmt_Medium, true);
BubbleEvent = false;
}
}
private void InitiallizeForm()
{
Program.objHrmsUI.loadSettings();
oForm.Freeze(true);
dtHead = oForm.DataSources.DataTables.Item("dtHead");
dtSetting = oForm.DataSources.DataTables.Item("dtSetting");
dtSetting.Rows.Add(1);
mtAddon = (SAPbouiCOM.Matrix)oForm.Items.Item("mtAddon").Specific;
txDfltExp = (SAPbouiCOM.EditText)oForm.Items.Item("txDfltExp").Specific;
cflDE = oForm.ChooseFromLists.Item("cflDE");
fillAddons();
fillSettings();
filtertocfl();
oForm.Freeze(false);
}
public SAPbouiCOM.ChooseFromList InitChooseFromLists(bool pbol, string pStrType, string pStrID, SAPbouiCOM.ChooseFromListCollection pObjCFLs) //
{
SAPbouiCOM.ChooseFromList lObjoCFL = null;
try
{
SAPbouiCOM.ChooseFromListCreationParams oCFLCreationParams = null;
oCFLCreationParams = (SAPbouiCOM.ChooseFromListCreationParams)UIApplication.GetApplication().CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams);
oCFLCreationParams.MultiSelection = pbol;
oCFLCreationParams.ObjectType = pStrType;
oCFLCreationParams.UniqueID = pStrID;
lObjoCFL = pObjCFLs.Add(oCFLCreationParams);
this.UIAPIRawForm.DataSources.UserDataSources.Add(pStrID, SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 254);
}
catch (Exception ex)
{
UIApplication.ShowMessageBox(string.Format("InitCustomerChooseFromListException: {0}", ex.Message));
}
return(lObjoCFL);
}
public static void AddChooseFromList(SAPbouiCOM.Form frm, string ObjectType, string ParamsID, string ConAlias, string CondVal)
{
try
{
SAPbouiCOM.ChooseFromListCollection oCFLs = null;
SAPbouiCOM.Conditions oCons = null;
SAPbouiCOM.Condition oCon = null;
oCFLs = frm.ChooseFromLists;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.ChooseFromListCreationParams oCFLCreationParams = null;
oCFLCreationParams = ((SAPbouiCOM.ChooseFromListCreationParams)(SubMain.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)));
// Adding 2 CFL, one for the button and one for the edit text.
oCFLCreationParams.MultiSelection = false;
oCFLCreationParams.ObjectType = ObjectType;
oCFLCreationParams.UniqueID = ParamsID;
oCFL = oCFLs.Add(oCFLCreationParams);
// Adding Conditions to CFL1
if (ConAlias != "")
{
oCons = oCFL.GetConditions();
oCon = oCons.Add();
oCon.Alias = ConAlias;
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = CondVal;
oCFL.SetConditions(oCons);
}
//oCFLCreationParams.UniqueID = "CFL2";
//oCust = oCFLs.Add(oCFLCreationParams);
}
catch (Exception ex)
{
}
}
private void OApplication_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST /*& pVal.FormType.Equals("CFL1")*/)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.ChooseFromList oCFl = null;
oCFl = oForm.ChooseFromLists.Item(sCFL_ID);
if (oCFLEvento.BeforeAction == false)
{
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
string val = null;
string valN = null;
try
{
val = System.Convert.ToString(oDataTable.GetValue(0, 0));
valN = System.Convert.ToString(oDataTable.GetValue(1, 0));
}
catch
{
}
if (pVal.ItemUID.Equals("EditCLF"))
{
oForm.DataSources.UserDataSources.Item("CLFDS").ValueEx = val;
}
}
}
if ((FormUID == "PickerForm") & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD))
{
System.Windows.Forms.Application.Exit();
}
}
private void AddChooseFromList()
{
try {
SAPbouiCOM.ChooseFromListCollection oCFLs = null;
SAPbouiCOM.Conditions oCons = null;
SAPbouiCOM.Condition oCon = null;
oCFLs = oForm.ChooseFromLists;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.ChooseFromListCreationParams oCFLCreationParams = null;
oCFLCreationParams = ((SAPbouiCOM.ChooseFromListCreationParams)(SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)));
// Adding 2 CFL, one for the button and one for the edit text.
oCFLCreationParams.MultiSelection = false;
oCFLCreationParams.ObjectType = "2";
oCFLCreationParams.UniqueID = "CFL1";
oCFL = oCFLs.Add(oCFLCreationParams);
// Adding Conditions to CFL1
oCons = oCFL.GetConditions();
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "C";
oCFL.SetConditions(oCons);
oCFLCreationParams.UniqueID = "CFL2";
oCFL = oCFLs.Add(oCFLCreationParams);
}
catch {
Interaction.MsgBox(Information.Err().Description, (Microsoft.VisualBasic.MsgBoxStyle)(0), null);
}
}
private void chooseFromListAfterEvent(string FormUID, ref SAPbouiCOM.ItemEvent pValEvent, out bool BubbleEvent)
{
BubbleEvent = true;
if (pValEvent.FormType == 0 && pValEvent.Action_Success == true && pValEvent.Before_Action == false &&
pValEvent.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = (SAPbouiCOM.IChooseFromListEvent)pValEvent;
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.ChooseFromList oCFL = null;
oCFL = this.UIAPIRawForm.ChooseFromLists.Item(sCFL_ID);
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
string val = null;
try
{
val = System.Convert.ToString(oDataTable.GetValue(0, 0));
lObjTxtClient.Value = val;
}
catch (Exception ex)
{
if (!ex.Message.Contains("Form - Bad Value") && !ex.Message.Contains("Can't set value on item because the item can't get focus."))
{
Application.SBO_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
}
}
finally
{
}
}
}
private void SBO_Application_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_CHOOSE_FROM_LIST && pVal.FormTypeEx == "U_ApproveJV.BILL_VP")
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
string sCFL_ID = null;
sCFL_ID = oCFLEvento.ChooseFromListUID;
SAPbouiCOM.Form oForm = null;
oForm = Application.SBO_Application.Forms.Item(FormUID);
SAPbouiCOM.ChooseFromList oCFL = null;
oCFL = oForm.ChooseFromLists.Item(sCFL_ID);
if (oCFLEvento.BeforeAction == false)
{
SAPbouiCOM.DataTable oDataTable = null;
oDataTable = oCFLEvento.SelectedObjects;
BpCode = "";
try
{
BpCode = System.Convert.ToString(oDataTable.GetValue("CardCode", 0));
}
catch (Exception ex)
{
}
if (pVal.ItemUID == "txt_bpcode")
{
oForm.DataSources.UserDataSources.Item("UD_0").ValueEx = BpCode;
}
}
}
if ((FormUID == "CFL1") & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD))
{
System.Windows.Forms.Application.Exit();
}
}
/// <summary>
/// funcion gentiion el uso del ChooseFromList
/// </summary>
/// <param name="oForm">objeto del formulario</param>
/// <param name="pVal">Item Even</param>
private static void GestionarSeleccionCFL(SAPbouiCOM.Form oForm, SAPbouiCOM.ItemEvent pVal)
{
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
String CflID = string.Empty;
SAPbouiCOM.ChooseFromList oCFL = null;
SAPbouiCOM.DataTable oDataTable = null;
try
{
oCFLEvento = ((SAPbouiCOM.IChooseFromListEvent)(pVal));
CflID = oCFLEvento.ChooseFromListUID;
oCFL = oForm.ChooseFromLists.Item(CflID);
oDataTable = oCFLEvento.SelectedObjects;
if (oDataTable != null)
{
SAPbouiCOM.Matrix oMatrix = oForm.Items.Item("MatrixIM").Specific;
try
{
switch (CflID)
{
case "CFL_ACT":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("AcctCode", 0).ToString();
break;
case "CFL_dim1":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim2":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim3":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim4":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
case "CFL_dim5":
oMatrix.Columns.Item(pVal.ColUID).Cells.Item(pVal.Row).Specific.String = oDataTable.GetValue("OcrCode", 0).ToString();
break;
default:
break;
}
}
catch (Exception ex)
{ }
}
}
catch (Exception ex)
{
Conexion_SBO.m_SBO_Appl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
FuncionesComunes.LiberarObjetoGenerico(oCFLEvento);
FuncionesComunes.LiberarObjetoGenerico(oCFL);
FuncionesComunes.LiberarObjetoGenerico(oDataTable);
}
}
/// <summary>
/// Fill choose from list.
/// </summary>
private void LoadChoosesFromList()
{
SAPbouiCOM.ChooseFromList lObjCFLSup = InitChooseFromLists(false, "1", "CFL_Acct", this.UIAPIRawForm.ChooseFromLists);
AddConditionAccountCFL(lObjCFLSup);
}
