private void addItem()
{
string itemCode = txItCode.Value.ToString();
int cntExist = Convert.ToInt32(Program.objHrmsUI.getScallerValue("Select count(*) from oitm where ItemCode = '" + itemCode + "'"));
if (cntExist == 0)
{
SAPbobsCOM.Items newRetItem;
newRetItem = (SAPbobsCOM.Items)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oItems);
newRetItem.ItemCode = itemCode;
newRetItem.ItemName = txName.Value.ToString();
newRetItem.ItemsGroupCode = Convert.ToInt16(cbIG.Selected.Value.ToString());
newRetItem.SalesUnitLength = txL.Value != "" ? Convert.ToDouble(txL.Value) : 0.00;
newRetItem.SalesUnitWidth = txW.Value != "" ? Convert.ToDouble(txW.Value) : 0.00;
newRetItem.SalesUnitHeight = txH.Value != "" ? Convert.ToDouble(txH.Value) : 0.00;
newRetItem.UserFields.Fields.Item("U_PARAM1").Value = cbPM1.Value.ToString();
newRetItem.UserFields.Fields.Item("U_PARAM2").Value = cbPM2.Value.ToString();
newRetItem.UserFields.Fields.Item("U_PARAM3").Value = cbPM3.Checked == true ? "Y" : "N";
newRetItem.UserFields.Fields.Item("U_PARAM4").Value = cbPM4.Checked == true ? "Y":"N";
newRetItem.UserFields.Fields.Item("U_PARAM5").Value = cbPM5.Checked == true?"Y":"N";
newRetItem.UserFields.Fields.Item("U_PARAM6").Value = cbPM6.Checked == true ? "Y" : "N";
newRetItem.UserFields.Fields.Item("U_PARAM7").Value = cbPM7.Value.ToString();
newRetItem.UserFields.Fields.Item("U_PARAM8").Value = cbPM8.Checked == true ? "Y" : "N";
int result = newRetItem.Add();
if (result == 0)
{
oApplication.SetStatusBarMessage("Item " + itemCode + " Added Successfully", BoMessageTime.bmt_Short, false);
txName.Value = "";
SAPbouiCOM.EditText newItemCode = (SAPbouiCOM.EditText)mtItems.Columns.Item("1").Cells.Item(mtItems.RowCount).Specific;
SAPbouiCOM.Folder general = (SAPbouiCOM.Folder)oForm.Items.Item("112").Specific;
general.Select();
oForm.PaneLevel = 1;
newItemCode.Value = itemCode;
// txName.Active = true;
}
else
{
int erroCode = 0;
string errDescr = "";
string Errmsg = "";
oCompany.GetLastError(out erroCode, out errDescr);
oApplication.SetStatusBarMessage("Item " + itemCode + " Failed to import: " + errDescr, BoMessageTime.bmt_Short, true);
}
}
}
private void CriarFormularioComplexo()
{
SAPbouiCOM.Button oButton = null;
SAPbouiCOM.Folder oFolder = null;
SAPbouiCOM.OptionBtn oOptionBtn = null;
SAPbouiCOM.CheckBox oCheckBox = null;
SAPbouiCOM.ComboBox oComboBox = null;
SAPbouiCOM.FormCreationParams oCreationParams = null;
oCreationParams = ((SAPbouiCOM.FormCreationParams)(oApplication.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)));
oCreationParams.UniqueID = "frmComplex";
oCreationParams.FormType = "frmComplex";
oCreationParams.BorderStyle = BoFormBorderStyle.fbs_Sizable;
oForm = oApplication.Forms.AddEx(oCreationParams);
AddDataSourceNoForm();
oForm.Title = "Formulário Complexo";
oForm.Left = 300;
oForm.ClientWidth = 200;
oForm.Top = 100;
oForm.ClientHeight = 140;
oItem = oForm.Items.Add("1", BoFormItemTypes.it_BUTTON);
oItem.Left = 5;
oItem.Width = 65;
oItem.Top = 110;
oItem.Height = 19;
oButton = ((SAPbouiCOM.Button)(oItem.Specific));
oButton.Caption = "OK";
oItem = oForm.Items.Add("2", BoFormItemTypes.it_BUTTON);
oItem.Left = 75;
oItem.Width = 65;
oItem.Top = 110;
oItem.Height = 19;
oButton = ((SAPbouiCOM.Button)(oItem.Specific));
oButton.Caption = "Cancel";
oItem = oForm.Items.Add("Rect1", BoFormItemTypes.it_RECTANGLE);
oItem.Left = 0;
oItem.Width = 194;
oItem.Top = 25;
oItem.Height = 80;
for (int i = 1; i <= 3; i++)
{
oItem = oForm.Items.Add("Folder" + i.ToString(), BoFormItemTypes.it_FOLDER);
oItem.Left = (i - 1) * 100;
oItem.Width = 100;
oItem.Top = 6;
oItem.Height = 19;
oFolder = ((SAPbouiCOM.Folder)(oItem.Specific));
oFolder.Caption = "Folder" + i.ToString();
oFolder.DataBind.SetBound(true, "", "FolderDS");
if (i == 1)
{
oFolder.Select();
}
else
{
oFolder.GroupWith("Folder" + Convert.ToString(i - 1));
}
}
for (int i = 1; i <= 3; i++)
{
oItem = oForm.Items.Add("OptBtn" + i.ToString(), BoFormItemTypes.it_OPTION_BUTTON);
oItem.Left = 20;
oItem.Width = 120;
oItem.Top = 30 + (i - 1) * 19;
oItem.Height = 19;
oItem.FromPane = 1;
oItem.ToPane = 1;
oOptionBtn = ((SAPbouiCOM.OptionBtn)(oItem.Specific));
oOptionBtn.Caption = string.Format("Botão de Opção {0}", i);
if (i > 1)
{
oOptionBtn.GroupWith("OptBtn" + Convert.ToString(i - 1));
}
oOptionBtn.DataBind.SetBound(true, "", "OptBtnDS");
}
for (int i = 1; i <= 3; i++)
{
oItem = oForm.Items.Add("CheckBox" + i.ToString(), BoFormItemTypes.it_CHECK_BOX);
oItem.Left = 20;
oItem.Width = 100;
oItem.Top = 30 + (i - 1) * 19;
oItem.Height = 19;
oItem.FromPane = 2;
oItem.ToPane = 2;
oCheckBox = ((SAPbouiCOM.CheckBox)(oItem.Specific));
oCheckBox.Caption = string.Format("Check Box {0}", i);
oCheckBox.DataBind.SetBound(true, "", string.Format("CheckDS{0}", i));
}
for (int i = 1; i <= 3; i++)
{
oItem = oForm.Items.Add("ComboBox" + i.ToString(), BoFormItemTypes.it_COMBO_BOX);
oItem.Left = 20;
oItem.Width = 100;
oItem.Top = 33 + (i - 1) * 19;
oItem.Height = 19;
oItem.FromPane = 3;
oItem.ToPane = 3;
oComboBox = ((SAPbouiCOM.ComboBox)(oItem.Specific));
oComboBox.ValidValues.Add("0", "Selecione");
for (int x = 1; x < 10; x++)
{
oComboBox.ValidValues.Add(x.ToString(), string.Format("Item {0}", x));
}
oComboBox.Select("0", BoSearchKey.psk_ByValue);
oItem.DisplayDesc = true;
}
oForm.PaneLevel = 1;
}
private void InitiallizeForm()
{
oForm.Freeze(true);
// Program.objHrmsUI.ExecQuery("Update B1_SCHMDT set u_upd='Y' where isnull(u_upd,'N') = 'N'", "Finalizing temp");
Program.objHrmsUI.ExecQuery("delete from [@B1_SCHMDT] where isnull(u_upd,'N') = 'N'", "Finalizing temp");
Program.objHrmsUI.ExecQuery("delete from [@B1_SCHMDY] where isnull(u_upd,'N') = 'N'", "Finalizing temp");
Program.objHrmsUI.ExecQuery("delete from [@B1_SO] where isnull(u_upd,'N') = 'N'", "Finalizing temp");
Program.objHrmsUI.ExecQuery("delete from [@B1_SCHOT] where isnull(u_upd,'N') = 'N'", "Finalizing temp");
cardCFL = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflCRD");
SAPbouiCOM.Conditions oCons = cardCFL.GetConditions();
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = SAPbouiCOM.BoConditionOperation.co_EQUAL;
oCon.CondVal = "C";
cardCFL.SetConditions(oCons);
dtHead = oForm.DataSources.DataTables.Item("dtHead");
dtItem = oForm.DataSources.DataTables.Item("dtItem");
dtDate = oForm.DataSources.DataTables.Item("dtDate");
dtDays = oForm.DataSources.DataTables.Item("dtDays");
dtOSCN = oForm.DataSources.DataTables.Item("dtOSCN");
dtOT = oForm.DataSources.DataTables.Item("dtOT");
mtItem = (SAPbouiCOM.Matrix)oForm.Items.Item("mtItem").Specific;
mtDate = (SAPbouiCOM.Matrix)oForm.Items.Item("mtDate").Specific;
mtDay = (SAPbouiCOM.Matrix)oForm.Items.Item("mtDays").Specific;
mtOSCN = (SAPbouiCOM.Matrix)oForm.Items.Item("mtOSCN").Specific;
mtOT = (SAPbouiCOM.Matrix)oForm.Items.Item("mtOT").Specific;
dtHead.Rows.Add(1);
dtHead.SetValue("tsActive", 0, "Y");
txCode = (SAPbouiCOM.EditText)oForm.Items.Item("txCode").Specific;
txName = (SAPbouiCOM.EditText)oForm.Items.Item("txName").Specific;
txCT = (SAPbouiCOM.EditText)oForm.Items.Item("txCT").Specific;
txOTDT = (SAPbouiCOM.EditText)oForm.Items.Item("txOTDT").Specific;
txICode = (SAPbouiCOM.EditText)oForm.Items.Item("txICode").Specific;
txOMDT = (SAPbouiCOM.EditText)oForm.Items.Item("txOMDT").Specific;
txOICODE = (SAPbouiCOM.EditText)oForm.Items.Item("txOICODE").Specific;
imgImage = (SAPbouiCOM.PictureBox)oForm.Items.Item("imgImage").Specific;
txSL = (SAPbouiCOM.EditText)oForm.Items.Item("txSL").Specific;
cbSP = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbSP").Specific;
cbDays = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbDays").Specific;
cbWeeks = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbWeeks").Specific;
cbHH = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbHH").Specific;
cbMM = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbMM").Specific;
cbAP = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbAP").Specific;
cbEWN = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbEWN").Specific;
cbOTHH = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbOTHH").Specific;
cbOTMM = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbOTMM").Specific;
cbOTAP = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbOTAP").Specific;
opOD = (SAPbouiCOM.OptionBtn)oForm.Items.Item("opOD").Specific;
opOW = (SAPbouiCOM.OptionBtn)oForm.Items.Item("opOW").Specific;
opOM = (SAPbouiCOM.OptionBtn)oForm.Items.Item("opOM").Specific;
OMDY = (SAPbouiCOM.OptionBtn)oForm.Items.Item("OMDY").Specific;
OMDT = (SAPbouiCOM.OptionBtn)oForm.Items.Item("OMDT").Specific;
opOW.GroupWith("opOD");
opOM.GroupWith("opOD");
OMDY.GroupWith("OMDT");
opOD.Selected = true;
OMDT.Selected = true;
tbSO = (SAPbouiCOM.Folder)oForm.Items.Item("tbSO").Specific;
tbTS = (SAPbouiCOM.Folder)oForm.Items.Item("tbTS").Specific;
tbTS.Select();
fillCBs();
oForm.Freeze(false);
txCode.Active = true;
}
