private void InitiallizeForm()
{
Program.objHrmsUI.loadSettings();
oForm.Freeze(true);
initiallizing = true;
mtWO = (SAPbouiCOM.Matrix)oForm.Items.Item("mtWO").Specific;
mtOD = (SAPbouiCOM.Matrix)oForm.Items.Item("mtOD").Specific;
lblStatus = (SAPbouiCOM.StaticText)oForm.Items.Item("lblStatus").Specific;
dtRDR1 = oForm.DataSources.DataTables.Item("dtRDR1");
dtORDR = oForm.DataSources.DataTables.Item("dtORDR");
dtHead = oForm.DataSources.DataTables.Item("dtHead");
dtCard = oForm.DataSources.DataTables.Item("dtCard");
dtWebO = oForm.DataSources.DataTables.Item("dtWebO");
cbOS = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbOS").Specific;
cbOS.ValidValues.Add("01", "All");
cbOS.ValidValues.Add("02", "Not Posted");
cbOS.ValidValues.Add("03", "Posted");
cbOS.Item.DisplayDesc = true;
cbOS.Select("01", BoSearchKey.psk_ByValue);
txCEmail = (SAPbouiCOM.EditText)oForm.Items.Item("txCEmail").Specific;
txCNCode = (SAPbouiCOM.EditText)oForm.Items.Item("txCNCode").Specific;
txCNTel = (SAPbouiCOM.EditText)oForm.Items.Item("txCNTel").Specific;
txCNEmail = (SAPbouiCOM.EditText)oForm.Items.Item("txCNEmail").Specific;
txSName = (SAPbouiCOM.EditText)oForm.Items.Item("txSName").Specific;
txSSPO = (SAPbouiCOM.EditText)oForm.Items.Item("txSSPO").Specific;
txSCity = (SAPbouiCOM.EditText)oForm.Items.Item("txSCity").Specific;
txSState = (SAPbouiCOM.EditText)oForm.Items.Item("txSState").Specific;
txSZip = (SAPbouiCOM.EditText)oForm.Items.Item("txSZip").Specific;
txSPhone = (SAPbouiCOM.EditText)oForm.Items.Item("txSPhone").Specific;
txSEmail = (SAPbouiCOM.EditText)oForm.Items.Item("txSEmail").Specific;
txFrom = (SAPbouiCOM.EditText)oForm.Items.Item("txFrom").Specific;
txTo = (SAPbouiCOM.EditText)oForm.Items.Item("txTo").Specific;
txCTel = (SAPbouiCOM.EditText)oForm.Items.Item("txCTel").Specific;
txCCode = (SAPbouiCOM.EditText)oForm.Items.Item("txCCode").Specific;
cbOS = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbOS").Specific;
btPost = (SAPbouiCOM.Button)oForm.Items.Item("btPost").Specific;
btGet = (SAPbouiCOM.Button)oForm.Items.Item("btGet").Specific;
// ini_controls();
dtHead.Rows.Add(1);
string INCCard = Program.objHrmsUI.getSetting("LTDCODE").ToString();
dtHead.SetValue("CardCode", 0, INCCard);
oForm.PaneLevel = 1;
oForm.Freeze(false);
initiallizing = false;
}
/// <summary>
/// Inicializa los componentes de la forma activa
/// </summary>
public void inicializarComponentes()
{
try
{
_oForma = _Application.Forms.Item(formID);
_oForma.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE;
_oForma.Freeze(true);
//Tipo de dato fecha inicial
_oForma.DataSources.UserDataSources.Add(TXT_FECHA_INICIAL, BoDataType.dt_DATE);
_oTxtFechaInicial = (SAPbouiCOM.EditText)_oForma.Items.Item(TXT_FECHA_INICIAL).Specific;
_oTxtFechaInicial.DataBind.SetBound(true, "", TXT_FECHA_INICIAL);
//Tipo de dato fecha final
_oForma.DataSources.UserDataSources.Add(TXT_FECHA_FINAL, BoDataType.dt_DATE);
_oTxtFechaFinal = (SAPbouiCOM.EditText)_oForma.Items.Item(TXT_FECHA_FINAL).Specific;
_oTxtFechaFinal.DataBind.SetBound(true, "", TXT_FECHA_FINAL);
_oCmbOficinaVentas = (SAPbouiCOM.ComboBox)_oForma.Items.Item(CMB_OFICINA_VENTAS).Specific;
_oCmbOficinaVentas.LlenarCargarOficinas(_Company, _oForma);
}
catch (Exception ex)
{
_Application.MessageBox("Error al inicializar: " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
public static SAPbouiCOM.ComboBox AddComboBoxAoFormulario(
SAPbouiCOM.Form pForm
, string pUID
, int pLeft
, int pWidth
, int pTop
, int pHeight
)
{
//SAPbouiCOM.Button oButton = null;
SAPbouiCOM.Item oItem = null;
SAPbouiCOM.ComboBox oComboBox = null;
oItem = pForm.Items.Add(pUID, BoFormItemTypes.it_COMBO_BOX);
oItem.Left = pLeft;
oItem.Width = pWidth;
oItem.Top = pTop;
oItem.Height = pHeight;
oItem.AffectsFormMode = false;
oItem.DisplayDesc = true;
oComboBox = ((SAPbouiCOM.ComboBox)(oItem.Specific));
return(oComboBox);
}
private static void SBO_Application_ItemEvent(string FormUID, ref ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (pVal.FormType == 866 && pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_LOAD)
{
oForm = SAPbouiCOM.Framework.Application.SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
oOldItem = oForm.Items.Item("4");
Matrix matrix = (SAPbouiCOM.Matrix)oOldItem.Specific;
ExchangeForm.ExchangeForm.GetCurs(matrix, Month, Year);
}
if (pVal.FormType == 866 && pVal.FormMode == 1 && pVal.EventType == SAPbouiCOM.BoEventTypes.et_COMBO_SELECT)
{
oForm = SAPbouiCOM.Framework.Application.SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
if (pVal.ItemUID.ToString() == "12")
{
oOldItem = oForm.Items.Item("4");
Matrix matrix = (SAPbouiCOM.Matrix)oOldItem.Specific;
oOldItem = oForm.Items.Item("12");
SAPbouiCOM.ComboBox cb = (SAPbouiCOM.ComboBox)oOldItem.Specific;
Year = cb.Value;
ExchangeForm.ExchangeForm.GetCurs(matrix, Month, Year);
}
if (pVal.ItemUID.ToString() == "13")
{
oOldItem = oForm.Items.Item("4");
Matrix matrix = (SAPbouiCOM.Matrix)oOldItem.Specific;
oOldItem = oForm.Items.Item("13");
SAPbouiCOM.ComboBox cb = (SAPbouiCOM.ComboBox)oOldItem.Specific;
Month = cb.Selected.Value;
ExchangeForm.ExchangeForm.GetCurs(matrix, Month, Year);
}
}
}
/// <summary>
/// Valida que los planes que cancelados tengan la inversión inicial en ceros
/// </summary>
/// <param name="_oForm">Forma activa</param>
/// <returns>Mensaje de error</returns>
private string ValidarStatusSolicitudGrid(Form _oForm)
{
try
{
string msgError = null;
_oMatrixArticulos = _oForm.Items.Item(GRID_ARTICULOS).Specific;
SAPbouiCOM.ComboBox _oCmbStatusSolicitud = null;
SAPbouiCOM.EditText _oInversionIni = null;
SAPbouiCOM.EditText _oSolicitud = null;
for (int noLinea = 1; noLinea <= _oMatrixArticulos.RowCount; noLinea++)
{
_oCmbStatusSolicitud = (SAPbouiCOM.ComboBox)_oMatrixArticulos.Columns.Item(COLUMNA_STATUS_DE_SOLICITUD).Cells.Item(noLinea).Specific;
_oInversionIni = (SAPbouiCOM.EditText)_oMatrixArticulos.Columns.Item(COLUMNA_IVERSION_INICIAL).Cells.Item(noLinea).Specific;
_oSolicitud = (SAPbouiCOM.EditText)_oMatrixArticulos.Columns.Item(COLUMNA_SERIE).Cells.Item(noLinea).Specific;
if (_oCmbStatusSolicitud.Selected.Value.Contains('N'))
{
if (Convert.ToDouble(_oInversionIni.Value) != 0)
{
return(msgError = "Monto de la inversión inicial debe estar en ceros " + Environment.NewLine +
"Solicitud: " + _oSolicitud.Value.ToString() + Environment.NewLine + " Estatus: ERRONEO");
}
}
if (_oCmbStatusSolicitud.Selected.Value.Contains('C'))
{
if (Convert.ToDouble(_oInversionIni.Value) != 0)
{
return(msgError = "Monto de la inversión inicial deber estar en ceros " + Environment.NewLine +
"Solicitud: " + _oSolicitud.Value.ToString() + Environment.NewLine + " Estatus: CANCELADO");
}
}
if (_oCmbStatusSolicitud.Selected.Value.Contains('A'))
{
if (Convert.ToDouble(_oInversionIni.Value) != 0)
{
return(msgError = "Monto de la inversión inicial deber estar en ceros " + Environment.NewLine +
"Solicitud: " + _oSolicitud.Value.ToString() + Environment.NewLine + " Estatus: ATRACO");
}
}
if (_oCmbStatusSolicitud.Selected.Value.Contains('E'))
{
if (Convert.ToDouble(_oInversionIni.Value) != 0)
{
return(msgError = "Monto de la inversión inicial deber estar en ceros " + Environment.NewLine +
"Solicitud: " + _oSolicitud.Value.ToString() + Environment.NewLine + " Estatus: EXTRAVIO");
}
}
}
return(msgError);
}
catch (Exception ex)
{
throw new Exception("Error al validar estatus de solicitudes del grid *ValidarStatusSolicitudGrid* : " + ex.Message);
}
}
/// <summary>
/// Ejecución de eventos de la forma activa
/// </summary>
/// <param name="FormUID">Nombre o ID de la forma</param>
/// <param name="pVal">Propiedades de la forma</param>
/// <param name="bubbleEvent">Evento</param>
public override void eventos(string FormUID, ref ItemEvent pVal, out bool bubbleEvent)
{
bubbleEvent = true;
try
{
if (pVal.FormUID == formID && pVal.BeforeAction == false)
{
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_CLOSE)
{
_Application.ItemEvent -= new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent);
_Application.MenuEvent -= new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(SBO_Application_MenuEvent);
Dispose();
application = null;
company = null;
_oRptCorteSolicitudes = false;
Addon.typeList.RemoveAll(p => p._forma == formID);
return;
}
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED)
{
if (pVal.ItemUID == BTN_CANCELAR)
{
_oForma.Close();
}
if (pVal.ItemUID == BTN_IMPRIMIR)
{
_oTxtFechaInicial = _oForma.Items.Item(TXT_FECHA_INICIAL).Specific;
_oTxtFechaFinal = _oForma.Items.Item(TXT_FECHA_FINAL).Specific;
_oCmbOficinaVentas = _oForma.Items.Item(CMB_OFICINA_VENTAS).Specific;
//_oTxtUsuario = _oForma.Items.Item(TXT_USUARIO).Specific;
if (ValidarCampos())
{
if (Extensor.ValidarImpresionCorteSolicitudes(_Company, _oCmbOficinaVentas.Selected.Value.ToString()))
{
if (_Application.MessageBox("¿Desea generar el corte de solicitudes?", 2, "Si", "No") == 1)
{
if (ImprimirReporteCorteSolicitudes())
{
_Application.StatusBar.SetText("Generar reporte terminado correctamente...", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
}
}
else
{
_Application.MessageBox("El reporte ya fue impreso");
}
}
}
}
}
}
catch (Exception ex)
{
throw new Exception("Error en evento *clsReporteOficinasContratos* : " + ex.Message);
}
}
private void AddItems(SAPbouiCOM.Form oFormPurchaseRequest)
{
SAPbouiCOM.Item oCamposPurchaseRequest = null;
SAPbouiCOM.Form _oFormPurchaseRequest;
SAPbouiCOM.StaticText oStaticText = null;
SAPbouiCOM.Item oItem;
SAPbouiCOM.ComboBox oComboBox = null;
_oFormPurchaseRequest = oFormPurchaseRequest;
//*******************************************
// Se adiciona Label "Integrar Documento"
//*******************************************
oItem = _oFormPurchaseRequest.Items.Item("62");
oCamposPurchaseRequest = _oFormPurchaseRequest.Items.Add("blbID", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oCamposPurchaseRequest.Left = oItem.Left + 10;
oCamposPurchaseRequest.Width = oItem.Width;
oCamposPurchaseRequest.Top = oItem.Top;
oCamposPurchaseRequest.Height = oItem.Height;
oCamposPurchaseRequest.LinkTo = "ComboBox1";
oStaticText = ((SAPbouiCOM.StaticText)(oCamposPurchaseRequest.Specific));
oStaticText.Caption = "Integrar Documento ?";
oCamposPurchaseRequest.FromPane = 5;
oCamposPurchaseRequest.ToPane = 5;
//*******************************************
// Se adiciona Combo box "Integrar Documento"
//*******************************************
oCamposPurchaseRequest = _oFormPurchaseRequest.Items.Add("ComboBox1", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oCamposPurchaseRequest.Left = oItem.Left + 120;
oCamposPurchaseRequest.Width = oItem.Width;
oCamposPurchaseRequest.Top = oItem.Top;
oCamposPurchaseRequest.Height = oItem.Height;
oCamposPurchaseRequest.DisplayDesc = true;
_oFormPurchaseRequest.DataSources.UserDataSources.Add("CombSource", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 20);
oComboBox = ((SAPbouiCOM.ComboBox)(oCamposPurchaseRequest.Specific));
oComboBox.DataBind.SetBound(true, "", "CombSource");
oComboBox.ValidValues.Add("Y", "Si");
oComboBox.ValidValues.Add("N", "No");
oComboBox.Select("Y", BoSearchKey.psk_ByValue);
oCamposPurchaseRequest.FromPane = 5;
oCamposPurchaseRequest.ToPane = 5;
}
private void InitiallizeForm()
{
oForm.Freeze(true);
dbOITM = oForm.DataSources.DBDataSources.Item("OITM");
oItemRef = oForm.Items.Item("39");
SAPbouiCOM.StaticText lblCode, lblName, lblInt;
SAPbouiCOM.CheckBox chkAll, chkMon, chkTue, chkWed, chkThs, chkFri, chkSat, chkSun;
SAPbouiCOM.ComboBox cbInt;
SAPbouiCOM.EditText txtCode, txtName;
try
{
SAPbouiCOM.Item oItemRef1 = oForm.Items.Item("106");
oItem = oForm.Items.Add("B1_lbSub", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem.Top = oItemRef.Top;
oItem.Height = oItemRef.Height;
oItem.Left = oItemRef1.Left;
oItem.Width = oItemRef.Width + 40;
oItem.Visible = true;
B1_lbSub = (SAPbouiCOM.StaticText)oItem.Specific;
B1_lbSub.Caption = "Sub Group";
oItemRef1 = oForm.Items.Item("107");
oItem = oForm.Items.Add("cbSubGroup", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oItem.Top = oItemRef.Top;
oItem.Height = oItemRef.Height;
oItem.Left = oItemRef1.Left;
oItem.Width = oItemRef.Width + 90;
oItem.Visible = true;
oItem.DisplayDesc = true;
oItem.LinkTo = "B1_lbSub";
cbSubGroup = (SAPbouiCOM.ComboBox)oItem.Specific;
cbSubGroup.DataBind.SetBound(true, "OITM", "U_SubGrp");
// <databind>
// <DataTable UniqueId="dtHead" ColumnUID="RNN"/>
// </databind>
//</specific>
}
catch (Exception ex)
{
string message = ex.Message;
}
oForm.Freeze(false);
dsSAP = new DataServices(Program.strConSAP);
}
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
SAPbouiCOM.DataTable oDataTable;
SAPbouiCOM.IChooseFromListEvent oCFLEvento = null;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
try
{
if ((pVal.ItemUID == "87") && (pVal.EventType == BoEventTypes.et_COMBO_SELECT) && (pVal.BeforeAction))
{
oComboBox = (ComboBox)(oForm.Items.Item("87").Specific);
SerieAnterior = (System.String)(oComboBox.Value);
}
if ((pVal.ItemUID == "87") && (pVal.EventType == BoEventTypes.et_COMBO_SELECT) && (!pVal.BeforeAction))
{
oComboBox = (ComboBox)(oForm.Items.Item("87").Specific);
var sSeries = (System.String)(oComboBox.Value);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select LEFT(ISNULL(UPPER(BeginStr),''),1) 'Valor', DocSubType, SUBSTRING(ISNULL(UPPER(BeginStr),''),2,LEN(ISNULL(UPPER(BeginStr),''))) 'Doc', ObjectCode, SeriesName
from NNM1 where Series = {0} --AND ObjectCode = '{1}' ";
}
else
{
s = @"select LEFT(IFNULL(UPPER(""BeginStr""),''),1) ""Valor"", ""DocSubType"", SUBSTRING(IFNULL(UPPER(""BeginStr""),''),2,LENGTH(IFNULL(UPPER(""BeginStr""),''))) ""Doc"", ""ObjectCode"", ""SeriesName""
from ""NNM1"" where ""Series"" = {0} --AND ""ObjectCode"" = '{1}' ";
}
s = String.Format(s, sSeries, oForm.BusinessObject.Type);
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if ((System.String)(oRecordSet.Fields.Item("Valor").Value) == "E")
{
oForm.Items.Item("VID_Estado").Visible = true;
oForm.Items.Item("lblEstado").Visible = true;
oForm.Items.Item("VID_FEDCTO").Visible = true;
}
else
{
oForm.Items.Item("VID_Estado").Visible = false;
oForm.Items.Item("lblEstado").Visible = false;
}
}
}
}
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
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
Int32 nErr;
String sErr;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
//IvkFormInterface oFormB;
String oUid;
String AbsDesde;
String FDesde, FHasta;
String TipoLibro;
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction))
{
if (pVal.ItemUID == "btn1")
{
//enviar libro al portal
oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific);
AbsDesde = oComboBox.Selected.Value;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select F_RefDate, T_RefDate,* from OFPR where AbsEntry = {0}";
}
else
{
s = @"select ""F_RefDate"", ""T_RefDate"" from ""OFPR"" where ""AbsEntry"" = {0}";
}
s = String.Format(s, AbsDesde);
oRecordSet.DoQuery(s);
FDesde = ((System.DateTime)oRecordSet.Fields.Item("F_RefDate").Value).ToString("yyyyMMdd");
FHasta = ((System.DateTime)oRecordSet.Fields.Item("T_RefDate").Value).ToString("yyyyMMdd");
oComboBox = ((ComboBox)oForm.Items.Item("TipoLibro").Specific);
TipoLibro = oComboBox.Selected.Value;
if (FSBOApp.MessageBox("¿ Desea enviar libro electronico al portal ?", 1, "Si", "No", "") == 1)
{
EnviarLibros(TipoLibro, FDesde, FHasta);
}
}
}
}
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
private void FillSalesOrder()
{
mSalesOrderForm.Freeze(true);
for (int i = 1; i <= mLstSalesOrderLines.Count; i++)
{
mObjCboPyloadType = (SAPbouiCOM.ComboBox)mObjSOMtx.Columns.Item("U_TR_LoadType").Cells.Item(i).Specific;
mObjCboPyloadType.Select(mLstSalesOrderLines[i - 1].PayloadType, SAPbouiCOM.BoSearchKey.psk_ByValue);
mObjCboVehicleType = (SAPbouiCOM.ComboBox)mObjSOMtx.Columns.Item("U_TR_VehicleType").Cells.Item(i).Specific;
mObjCboVehicleType.Select(mLstSalesOrderLines[i - 1].VehicleType, SAPbouiCOM.BoSearchKey.psk_ByValue);
mObjCboRoute = (SAPbouiCOM.ComboBox)mObjSOMtx.Columns.Item("U_TR_Paths").Cells.Item(i).Specific;
mObjCboRoute.Select(mLstSalesOrderLines[i - 1].Route, SAPbouiCOM.BoSearchKey.psk_ByValue);
mObjTxtTotKm = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TotKm").Cells.Item(i).Specific;
mObjTxtTotKm.Value = mLstSalesOrderLines[i - 1].TotKm;
mObjTxtKmA = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeA").Cells.Item(i).Specific;
mObjTxtKmA.Value = mLstSalesOrderLines[i - 1].KmA;
mObjTxtKmB = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeB").Cells.Item(i).Specific;
mObjTxtKmB.Value = mLstSalesOrderLines[i - 1].KmB;
mObjTxtKmC = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeC").Cells.Item(i).Specific;
mObjTxtKmC.Value = mLstSalesOrderLines[i - 1].KmC;
mObjTxtKmD = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeD").Cells.Item(i).Specific;
mObjTxtKmD.Value = mLstSalesOrderLines[i - 1].KmD;
mObjTxtKmE = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeE").Cells.Item(i).Specific;
mObjTxtKmE.Value = mLstSalesOrderLines[i - 1].KmE;
mObjTxtKmF = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TypeF").Cells.Item(i).Specific;
mObjTxtKmF.Value = mLstSalesOrderLines[i - 1].KmF;
mObjTxtTotKG = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_TotKilos").Cells.Item(i).Specific;
mObjTxtTotKG.Value = mLstSalesOrderLines[i - 1].TotKg;
mObjTxtExtra = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_AdditionalExpen").Cells.Item(i).Specific;
mObjTxtExtra.Value = mLstSalesOrderLines[i - 1].Extra;
mObjTxtAnthPyld = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_OtherLoad").Cells.Item(i).Specific;
mObjTxtAnthPyld.Value = mLstSalesOrderLines[i - 1].AnotherPyld;
mObjTxtDestination = (SAPbouiCOM.EditText)mObjSOMtx.Columns.Item("U_TR_Destination").Cells.Item(i).Specific;
mObjTxtDestination.Value = mLstSalesOrderLines[i - 1].Destination;
}
mSalesOrderForm.Freeze(false);
}
public static SAPbouiCOM.ComboBox AddComboBoxAoFormulario(
SAPbouiCOM.Form pForm
, string pUID
, int pLeft
, int pWidth
, int pTop
, int pHeight
, bool AffectsFormMode = false
, int pFromPane = 0
, int pToPane = 0
)
{
//SAPbouiCOM.Button oButton = null;
SAPbouiCOM.Item oItem = null;
SAPbouiCOM.ComboBox oComboBox = null;
oItem = pForm.Items.Add(pUID, BoFormItemTypes.it_COMBO_BOX);
if (pLeft > 0)
{
oItem.Left = pLeft;
}
if (pWidth > 0)
{
oItem.Width = pWidth;
}
if (pTop > 0)
{
oItem.Top = pTop;
}
if (pHeight > 0)
{
oItem.Height = pHeight;
}
oItem.AffectsFormMode = AffectsFormMode;
if (pFromPane > 0)
{
oItem.FromPane = pFromPane;
}
if (pToPane > 0)
{
oItem.ToPane = pToPane;
}
oItem.DisplayDesc = true;
oComboBox = ((SAPbouiCOM.ComboBox)(oItem.Specific));
return(oComboBox);
}
private void InitiallizeForm()
{
oForm.Freeze(true);
initiallizing = true;
dtHead = oForm.DataSources.DataTables.Item("dtHead");
dtList = oForm.DataSources.DataTables.Item("dtList");
dtA = oForm.DataSources.DataTables.Item("dtA");
dtS = oForm.DataSources.DataTables.Item("dtS");
dtAW = oForm.DataSources.DataTables.Item("dtAW");
dtSW = oForm.DataSources.DataTables.Item("dtSW");
mtA = (SAPbouiCOM.Matrix)oForm.Items.Item("mtA").Specific;
mtS = (SAPbouiCOM.Matrix)oForm.Items.Item("mtS").Specific;
mtAW = (SAPbouiCOM.Matrix)oForm.Items.Item("mtAW").Specific;
mtSW = (SAPbouiCOM.Matrix)oForm.Items.Item("mtSW").Specific;
mtList = (SAPbouiCOM.Matrix)oForm.Items.Item("mtList").Specific;
dtHead.Rows.Add(1);
txCode = (SAPbouiCOM.EditText)oForm.Items.Item("txCode").Specific;
txName = (SAPbouiCOM.EditText)oForm.Items.Item("txName").Specific;
btAdd = (SAPbouiCOM.Button)oForm.Items.Item("btAdd").Specific;
btAddA = (SAPbouiCOM.Button)oForm.Items.Item("btAddA").Specific;
btDelA = (SAPbouiCOM.Button)oForm.Items.Item("btDelA").Specific;
btAddW = (SAPbouiCOM.Button)oForm.Items.Item("btAddW").Specific;
btDelW = (SAPbouiCOM.Button)oForm.Items.Item("btDelW").Specific;
cbPWHS = (SAPbouiCOM.ComboBox)oForm.Items.Item("cbPWHS").Specific;
cflCode = (SAPbouiCOM.ChooseFromList)oForm.ChooseFromLists.Item("cflCode");
// oForm.Items.Item("btUpd").Enabled = false;
oForm.Freeze(false);
initiallizing = false;
getCodes();
}
private void SetFormSettings(Form pFrmActive)
{
try
{
mObjSOForm = pFrmActive;//SAPbouiCOM.Framework.Application.SBO_Application.Forms.GetFormByTypeAndCount(pFrmActive.Type, pFrmActive.TypeCount);
mIntFormType = pFrmActive.Type;
mObjTxtCardCode = (SAPbouiCOM.EditText)mObjSOForm.Items.Item("4").Specific;
mObjMtxSO = (SAPbouiCOM.Matrix)mObjSOForm.Items.Item("38").Specific;
mObjCboDoc = (SAPbouiCOM.ComboBox)mObjSOForm.Items.Item("81").Specific;
}
catch (Exception)
{
//ignore
}
}
public static string getDescriptionFromComboBox(SAPbouiCOM.Form objForm, string sItemUID)
{
SAPbouiCOM.ComboBox objComboBox = null;
string sValor = "";
try
{
objComboBox = ((SAPbouiCOM.ComboBox)(objForm.Items.Item(sItemUID).Specific));
if (objComboBox.Selected != null)
{
sValor = objComboBox.Selected.Description;
}
}
catch (Exception e)
{
//ExceptionAddOn.GetInstance().throwException("HELPERS", "3.0", e);
B1Connections.theAppl.SetStatusBarMessage(String.Format("Helpers.getValueFormUserDataSource - {0}", e.Message));
}
return(sValor);
}
}//fin InitForm
public new void FormEvent(String FormUID, ref SAPbouiCOM.ItemEvent pVal, ref Boolean BubbleEvent)
{
Int32 nErr;
String sErr;
base.FormEvent(FormUID, ref pVal, ref BubbleEvent);
IvkFormInterface oFormB;
String oUid;
try
{
if ((pVal.EventType == BoEventTypes.et_ITEM_PRESSED) && (!pVal.BeforeAction))
{
if (pVal.ItemUID == "btn1")
{
oFormB = (IvkFormInterface)(new TLibros());
oComboBox = (ComboBox)(oForm.Items.Item("TipoLibro").Specific);
TLibros.TipoLibro = oComboBox.Selected.Value;
oEditText = (EditText)(oForm.Items.Item("Desde").Specific);
TLibros.Desde = oEditText.Value;
oEditText = (EditText)(oForm.Items.Item("Hasta").Specific);
TLibros.Hasta = oEditText.Value;
TLibros.bMultiSoc = bMultiSoc;
oUid = FSBOf.generateFormId(FGlobalSettings.SBOSpaceName, FGlobalSettings);
oFormB.InitForm(oUid, "forms\\", ref FSBOApp, ref FCmpny, ref FSBOf, ref FGlobalSettings);
FoForms.Add(oFormB);
}
}
}
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
public virtual bool ET_cboSTATUS_BFClick(ItemEvent pVal) {
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboSTATUS").Specific));
// ADD YOUR ACTION CODE HERE ...
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
string sql = string.Format(" SELECT U_RMK2 FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' AND U_SMLCD = '{0}'",oForm.Items.Item("cboYEAR").Specific.Value);
oRS.DoQuery(sql);
if (!string.IsNullOrEmpty(oRS.Fields.Item("U_RMK2").Value.ToString()))
SetComboValue_STATUS(ref oComboBox, FN.Enum_WholeTp.m_Nothing, oRS.Fields.Item("U_RMK2").Value.ToString());
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
return false;
}
finally
{
oForm.Items.Item("btnSAVE").Enabled = false;
STATE = false;
oRS = null;
}
return true;
}
public virtual void ET_cboYEAR_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboYEAR").Specific));
// ADD YOUR ACTION CODE HERE ...
oForm.Items.Item("btnSAVE").Enabled = false;
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboSTATUS").Specific;
string sql = string.Format(" SELECT U_RMK2 FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' AND U_SMLCD = '{0}'",oForm.Items.Item("cboYEAR").Specific.Value);
oRS.DoQuery(sql);
oComboBox.Select(oRS.Fields.Item("U_RMK2").Value.ToString(), BoSearchKey.psk_ByValue);
}
public virtual void ET_cboBPLID_AFComboSelect(ItemEvent pVal) {
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboBPLID").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.ItemChanged)
{
string cboBPLID = oForm.DataSources.UserDataSources.Item("cboBPLID").Value;
oForm.DataSources.UserDataSources.Item("edtVATRNUM").Value = FN.GetRecordsetValue(string.Format("SELECT VATRegNum FROM dbo.[OBPL] WHERE BPLId = '{0}'", cboBPLID));
}
}
catch (Exception)
{
throw;
}
}
private void InitiallizeForm()
{
// dtHead = oForm.DataSources.DataTables.Item("dtHead");
// dtHead.Rows.Add(1);
dtPendingJEs.Columns.Add("V#");
dtPendingJEs.Columns.Add("Date");
dtPendingJEs.Columns.Add("Remarks");
dtPendingJEs.Columns.Add("Month");
dtPendingJEs.Columns.Add("Year");
dtPendingJEs.Columns.Add("Posted");
dtPendingJEs.Columns.Add("PostedJE");
dtPendingJEs.Columns.Add("Canceled");
dtPendingJEs.Columns.Add("CanceledJE");
oForm.Freeze(true);
mtJE = oForm.Items.Item("mtJE").Specific;
mtDet = oForm.Items.Item("mtDet").Specific;
dtDet = oForm.DataSources.DataTables.Item("dtDet");
dtHead = oForm.DataSources.DataTables.Item("dtHead");
cbOr = oForm.Items.Item("cbOr").Specific;
IcbOr = oForm.Items.Item("cbOr");
cbOr.ValidValues.Add("All", "All");
fillUserCb();
oForm.DataSources.UserDataSources.Add("txDN", SAPbouiCOM.BoDataType.dt_LONG_NUMBER, 15); // Days of Month
txDN = oForm.Items.Item("txDN").Specific;
ItxDN = oForm.Items.Item("txDN");
txDN.DataBind.SetBound(true, "", "txDN");
oForm.DataSources.UserDataSources.Add("txCJ", SAPbouiCOM.BoDataType.dt_LONG_NUMBER, 15); // Days of Month
txCJ = oForm.Items.Item("txCJ").Specific;
itxCJ = oForm.Items.Item("txCJ");
txCJ.DataBind.SetBound(true, "", "txCJ");
oForm.DataSources.UserDataSources.Add("txPJ", SAPbouiCOM.BoDataType.dt_LONG_NUMBER, 15); // Days of Month
txPJ = oForm.Items.Item("txPJ").Specific;
itxPJ = oForm.Items.Item("txPJ");
txPJ.DataBind.SetBound(true, "", "txPJ");
oForm.DataSources.UserDataSources.Add("txDD", SAPbouiCOM.BoDataType.dt_DATE); // Days of Month
txDD = oForm.Items.Item("txDD").Specific;
ItxDD = oForm.Items.Item("txDD");
txDD.DataBind.SetBound(true, "", "txDD");
oForm.DataSources.UserDataSources.Add("txRem", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 50); // Days of Month
txRem = oForm.Items.Item("txRem").Specific;
ItxRem = oForm.Items.Item("txRem");
txRem.DataBind.SetBound(true, "", "txRem");
oForm.DataSources.UserDataSources.Add("txRef1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 30); // Days of Month
txRef1 = oForm.Items.Item("txRef1").Specific;
ItxRef1 = oForm.Items.Item("txRef1");
txRef1.DataBind.SetBound(true, "", "txRef1");
oForm.DataSources.UserDataSources.Add("txRef2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 30); // Days of Month
txRef2 = oForm.Items.Item("txRef2").Specific;
ItxRef2 = oForm.Items.Item("txRef2");
txRef2.DataBind.SetBound(true, "", "txRef2");
oForm.DataSources.UserDataSources.Add("txDS", SAPbouiCOM.BoDataType.dt_SUM); // Days of Month
txDS = oForm.Items.Item("txDS").Specific;
ItxDS = oForm.Items.Item("txDS");
txDS.DataBind.SetBound(true, "", "txDS");
oForm.DataSources.UserDataSources.Add("txCS", SAPbouiCOM.BoDataType.dt_SUM); // Days of Month
txCS = oForm.Items.Item("txCS").Specific;
ItxCS = oForm.Items.Item("txCS");
txCS.DataBind.SetBound(true, "", "txCS");
oForm.DataSources.UserDataSources.Add("chkPost", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); // Days of Month
chkPost = oForm.Items.Item("chkPost").Specific;
IchkPost = oForm.Items.Item("chkPost");
chkPost.DataBind.SetBound(true, "", "chkPost");
oForm.DataSources.UserDataSources.Add("optPP", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); // Days of Month
optPP = oForm.Items.Item("optPP").Specific;
ioptPP = oForm.Items.Item("optPP");
optPP.DataBind.SetBound(true, "", "optPP");
oForm.DataSources.UserDataSources.Add("optC", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); // Days of Month
optC = oForm.Items.Item("optC").Specific;
ioptC = oForm.Items.Item("optC");
optC.DataBind.SetBound(true, "", "optC");
oForm.DataSources.UserDataSources.Add("optPC", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); // Days of Month
optPC = oForm.Items.Item("optPC").Specific;
ioptPC = oForm.Items.Item("optPC");
optPC.DataBind.SetBound(true, "", "optPC");
optC.GroupWith("optPP");
optPC.GroupWith("optPP");
optPP.Selected = true;
btPost = oForm.Items.Item("btPost").Specific;
lnkBG = oForm.Items.Item("lnkBG").Specific;
IchkPost = oForm.Items.Item("lnkBG");
}
private void ClearUnManagedObject() {
if ( oEditText != null ) { Marshal.ReleaseComObject(oEditText); } oEditText = null;
if (oComboBox != null) { Marshal.ReleaseComObject(oComboBox); } oComboBox = null;
if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null;
if (oMatrix != null) { Marshal.ReleaseComObject(oMatrix); } oMatrix = null;
if (oButton != null) { Marshal.ReleaseComObject(oButton); } oButton = null;
if (oDB_M != null) { Marshal.ReleaseComObject(oDB_M); } oDB_M = null;
if (oDB_1 != null) { Marshal.ReleaseComObject(oDB_1); } oDB_1 = null;
// ADD YOUR ACTION CODE HERE ...
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
}
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 SAPbouiCOM.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_FEMonDTE.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);
oDBDSHC = oForm.DataSources.DBDataSources.Add("@VID_FEDTECPRA");
oDBDSHV = oForm.DataSources.DBDataSources.Add("@VID_FEDTEVTA");
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");
oComboBox = (ComboBox)(oForm.Items.Item("TipoDTE").Specific);
oForm.DataSources.UserDataSources.Add("TipoDTE", BoDataType.dt_SHORT_TEXT, 10);
oComboBox.DataBind.SetBound(true, "", "TipoDTE");
oComboBox.ValidValues.Add("V", "Venta");
oComboBox.ValidValues.Add("C", "Compra");
oComboBox.Select("V", BoSearchKey.psk_ByValue);
oForm.Items.Item("TipoDTE").DisplayDesc = true;
oDataTable = oForm.DataSources.DataTables.Add("dt");
oGrid = (Grid)(oForm.Items.Item("grid").Specific);
oGrid.DataTable = oDataTable;
DSOpFec = oForm.DataSources.UserDataSources.Add("FechaEmi", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1);
((OptionBtn)oForm.Items.Item("FechaEmi").Specific).DataBind.SetBound(true, "", "FechaEmi");
((OptionBtn)oForm.Items.Item("FechaRecep").Specific).DataBind.SetBound(true, "", "FechaEmi");
((OptionBtn)oForm.Items.Item("FechaRecep").Specific).GroupWith("FechaEmi");
((OptionBtn)oForm.Items.Item("FechaEmi").Specific).Selected = true;
oComboBox = (ComboBox)(oForm.Items.Item("Cliente").Specific);
oForm.DataSources.UserDataSources.Add("Cliente", BoDataType.dt_SHORT_TEXT, 10);
oComboBox.DataBind.SetBound(true, "", "Cliente");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL
SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoC'";
}
else
{
s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL
SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoC'";
}
s = String.Format(s, "@VID_FEDTEVTA");
oRecordSet.DoQuery(s);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
oComboBox.Select("Todos", BoSearchKey.psk_ByValue);
oComboBox = (ComboBox)(oForm.Items.Item("SII").Specific);
oForm.DataSources.UserDataSources.Add("SII", BoDataType.dt_SHORT_TEXT, 10);
oComboBox.DataBind.SetBound(true, "", "SII");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL
SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoSII'";
}
else
{
s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL
SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoSII'";
}
s = String.Format(s, "@VID_FEDTEVTA");
oRecordSet.DoQuery(s);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
oComboBox.Select("Todos", BoSearchKey.psk_ByValue);
oComboBox = (ComboBox)(oForm.Items.Item("Ley").Specific);
oForm.DataSources.UserDataSources.Add("Ley", BoDataType.dt_SHORT_TEXT, 10);
oComboBox.DataBind.SetBound(true, "", "Ley");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT 'Todos' Code, 'Todos' Name UNION ALL
SELECT T1.FldValue Code, T1.Descr Name
FROM CUFD T0
JOIN UFD1 T1 ON T1.TableID = T0.TableID
AND T1.FieldID = T0.FieldID
WHERE T0.TableID = '{0}'
AND T0.AliasID = 'EstadoLey'";
}
else
{
s = @"SELECT 'Todos' ""Code"", 'Todos' ""Name"" FROM DUMMY UNION ALL
SELECT T1.""FldValue"" ""Code"", T1.""Descr"" ""Name""
FROM ""CUFD"" T0
JOIN ""UFD1"" T1 ON T1.""TableID"" = T0.""TableID""
AND T1.""FieldID"" = T0.""FieldID""
WHERE T0.""TableID"" = '{0}'
AND T0.""AliasID"" = 'EstadoLey'";
}
s = String.Format(s, "@VID_FEDTEVTA");
oRecordSet.DoQuery(s);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
oComboBox.Select("Todos", BoSearchKey.psk_ByValue);
BuscarDatos();
}
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
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting()
{
// '// ADD YOUR ACTION CODE HERE ...
#region Form Setting
oForm.DataBrowser.BrowseBy = "edtDOCNO";
oForm.SupportedModes = -1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
//oForm.PaneLevel = 1;
#endregion
oForm.Mode = BoFormMode.fm_ADD_MODE;
SetItemCaption(oForm, "1", "생성");
//SetDefault(oForm);
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0160T_HRD");
oDB_1 = oForm.DataSources.DBDataSources.Item("@KIS_SO01601_HRD");
oComboBox = oForm.Items.Item("cboREQYM").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, "");
#region Matrix
oMatrix = oForm.Items.Item("mtx").Specific;
oMatrix.SelectionMode = BoMatrixSelect.ms_Auto;
// 납부방법
FN.SetComboBoxValidValues(oMatrix, "U_PMETHOD", "SELECT U_SMLCD AS CODE, U_SMLNM AS NAME FROM [@KIS_AD00201] WHERE Code = 'SO09' AND U_USEYN = 'Y'");
// 요금제
FN.SetComboBoxValidValues(oMatrix, "U_PAYCD", "SELECT CODE, NAME FROM [@KIS_SO0050M_HRD]");
// 지국
//FN.SetComboBoxValidValues(oMatrix, "U_BRCCD", "SELECT CODE, NAME FROM [@KIS_SO0040M_HRD]");
FN.SetComboBoxValidValues(oMatrix, "U_CENTGBN", "SELECT U_SMLCD AS CODE, U_SMLNM AS NAME FROM [@KIS_AD00201] WHERE Code = 'SO17' AND U_USEYN = 'Y'"); // 분국구분(직배/지방)
// 지종
FN.SetComboBoxValidValues(oMatrix, "U_PAPERTP", "SELECT U_SMLCD AS CODE, U_SMLNM AS NAME FROM [@KIS_AD00201] WHERE Code = 'SO01' AND U_USEYN = 'Y'");
// 독자코드
//FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "mtx", "Code", BoFormItemTypes.it_MATRIX, null, "U_RDCD");
// 지국
//FN.SetChooseFromListAdd(oForm, "KIS_SO0040_HRD", "mtx", "Code", BoFormItemTypes.it_MATRIX, null, "U_BRCCD");
// 외주처
//FN.SetChooseFromListbyItem(ref oForm, BoLinkedObject.lf_BusinessPartner, "mtx1.U_CARDCD(CardCode):CARDTYPE(=S)");//":FrozenFor(=Y) :LocManTran(-N) :Postable(Y)");
FN.SetMatrixColumnLinkedObject(ref oMatrix, "U_RDCD", BoLinkedObject.lf_None);
//FN.SetMatrixColumnLinkedObject(ref oMatrix, "U_BRCCD", BoLinkedObject.lf_GoodsIssue);
FN.SetSumField(ref oMatrix, "U_REQAMT,U_CNT");
#endregion
string AllString = "edtDOCNO,cboREQYM,edtREQDT,edtAPPDT,btnEXCEL";
string AddString = "cboREQYM,edtREQDT,edtAPPDT";
string OKString = "btnEXCEL";//string.Empty;
string FindString = "edtDOCNO,cboREQYM,edtREQDT";
FN.SetAutoManagedAttribute(ref oForm, AllString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_All, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, AddString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Add, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, OKString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Ok, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, FindString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Find, BoModeVisualBehavior.mvb_True);
}
public virtual void ET_cboBPLID_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboBPLID").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.ItemChanged)
{
string cboBPLID = oForm.DataSources.UserDataSources.Item("cboBPLID").Value;
oForm.DataSources.UserDataSources.Item("edtVATRNUM").Value = FN.GetRecordsetValue(string.Format("SELECT VATRegNum FROM dbo.[OBPL] WHERE BPLId = '{0}'", cboBPLID));
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting()
{
// '// ADD YOUR ACTION CODE HERE ...
StringBuilder sb = new StringBuilder();
try
{
#region Form
oForm.SupportedModes = 1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
foreach (SAPbouiCOM.Item item in oForm.Items)
{
item.AffectsFormMode = false;
}
#endregion
#region ComboBox
// 기수
FN.SetComboBoxValidValues(oForm, "SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' ", "cboYEAR", FN.Enum_WholeTp.m_Nothing);
oCombo = oForm.Items.Item("cboYEAR").Specific;
if (oCombo.ValidValues.Count > 0)
{
oForm.DataSources.UserDataSources.Item("cboYEAR").Value = oCombo.ValidValues.Item(0).Value;
}
// 부서
FN.SetComboBoxValidValues(oForm, "SELECT U_DEPTCD,U_DEPTNM FROM [@KIS_HR00401] WHERE U_USEYN = 'Y' ", "cboDEPTCD", FN.Enum_WholeTp.m_TotalTxt);
oCombo = oForm.Items.Item("cboDEPTCD").Specific;
if (oCombo.ValidValues.Count > 0)
{
oForm.DataSources.UserDataSources.Item("cboDEPTCD").Value = oCombo.ValidValues.Item(0).Value;
}
#endregion
oForm.DataSources.DataTables.Add("grd");
SetGridTitle(oForm);
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
public virtual void ET_cboFINDTY_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboFINDTY").Specific));
// ADD YOUR ACTION CODE HERE ...
SetHeaderEnable(oForm);
}
public virtual bool ET_BFFormDataLoad(BusinessObjectInfo pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
// ADD YOUR ACTION CODE HERE ...
try
{
SetComboBox_Method(oForm);
oComboBox = oForm.Items.Item("cboACCTCD").Specific;
FN.SetComboClear(ref oComboBox);
oDB_M.SetValue("U_ACCTCD", 0, "");
FN.SetComboBoxValidValues(oForm, " SELECT U_RMK1, U_SMLNM FROM [@KIS_AD00201] WHERE Code = 'SO19' AND U_SMLCD IN ('U201', 'U204', 'U205') ", "cboACCTCD", FN.Enum_WholeTp.m_Space, "");
}
catch (Exception)
{
throw;
}
return true;
}
private void btnPayments_ClickBefore(object sboObject, SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
Form lObjPaymentForm = null;
Form lObjPaymentFormUDF = null;
Form lObjAccountForm = null;
try
{
if (mIntRowSelected > 0)
{
StatusEnum lEnmStatus = (StatusEnum)int.Parse(DtMatrix.GetValue("C_Status", mIntRowSelected - 1).ToString());
string lStrFolio = DtMatrix.GetValue("C_Folio", mIntRowSelected - 1).ToString();
string lStrEmpCode = DtMatrix.GetValue("C_Employe", mIntRowSelected - 1).ToString();
string lStrArea = DtMatrix.GetValue("C_Area", mIntRowSelected - 1).ToString();
double lDblImport = double.Parse(DtMatrix.GetValue("C_Amount", mIntRowSelected - 1).ToString());
string lStrEmpName = mObjPurchasesServiceFactory.GetPurchaseService().GetEmpName(lStrEmpCode);
string lStrLineAccount = mObjPurchasesServiceFactory.GetPurchaseReceiptsService().GetAccountRefund(lStrArea);
//string lStrChkAcct = mObjPurchasesServiceFactory.GetPurchaseReceiptsService().GetAccountInConfig("GLO_CTAREEMBCHEQ");
string lStrChkAcct = cbAccount.Value;
// Dictionary<string, string> lStrBankInfo = mObjPurchasesServiceFactory.GetPurchaseReceiptsService().GetBankInfo(lStrChkAcct);
Dictionary <string, string> lStrBankInfo = new Dictionary <string, string>();
lStrBankInfo.Add(cbAccount.Value, cbBank.Selected.Description);
if (lEnmStatus != StatusEnum.Authorized_Ope_Admon)
{
UIApplication.ShowError("El reembolso seleccionado no está autorizado");
return;
}
string lStrValidation = ValidatePaymentsFields(lStrFolio, lStrEmpCode, lStrArea, lDblImport, lStrChkAcct, lStrBankInfo, lStrLineAccount);
if (!string.IsNullOrEmpty(lStrValidation))
{
UIApplication.ShowMessageBox(lStrValidation);
return;
}
if (mObjPurchasesServiceFactory.GetPurchaseReceiptsService().ExistsPayment(lStrEmpCode, lStrFolio, lStrArea))
/*string lStrDocEntry = DtMatrix.GetValue("C_DocEntry", mIntRowSelected - 1).ToString();
* if (mObjPurchasesServiceFactory.GetPurchaseReceiptsService().ExistsPayment(lStrDocEntry))*/
{
UIApplication.ShowError("Ya existe un pago para el reembolso seleccionado");
return;
}
this.UIAPIRawForm.Freeze(true);
UIApplication.GetApplication().ActivateMenuItem("2818");
if (!UIApplication.GetApplication().Menus.Item("6913").Checked)
{
UIApplication.GetApplication().ActivateMenuItem("6913");//2050
}
lObjPaymentForm = UIApplication.GetApplication().Forms.GetForm("426", -1);
lObjPaymentFormUDF = UIApplication.GetApplication().Forms.GetForm("-426", -1);
lObjPaymentForm.Freeze(true);
lObjPaymentFormUDF.Freeze(true);
SAPbouiCOM.EditText txtDocDate = ((SAPbouiCOM.EditText)lObjPaymentForm.Items.Item("10").Specific);
txtDocDate.Value = DateTime.Now.ToString("yyyyMMdd");
SAPbouiCOM.OptionBtn optionBtnAccount = ((SAPbouiCOM.OptionBtn)lObjPaymentForm.Items.Item("58").Specific);
optionBtnAccount.Selected = true;
SAPbouiCOM.ComboBox cboPymtType = ((SAPbouiCOM.ComboBox)lObjPaymentFormUDF.Items.Item("U_GLO_PaymentType").Specific);
cboPymtType.Select("GLREM", SAPbouiCOM.BoSearchKey.psk_ByValue);
SAPbouiCOM.EditText txtCodeMov = ((SAPbouiCOM.EditText)lObjPaymentFormUDF.Items.Item("U_GLO_CodeMov").Specific);
txtCodeMov.Value = lStrFolio;
SAPbouiCOM.ComboBox txtCostCenter = ((SAPbouiCOM.ComboBox)lObjPaymentFormUDF.Items.Item("U_GLO_CostCenter").Specific);
txtCostCenter.Select(lStrArea, SAPbouiCOM.BoSearchKey.psk_ByValue);
SAPbouiCOM.ComboBox cboAuxiliarType = ((SAPbouiCOM.ComboBox)lObjPaymentFormUDF.Items.Item("U_FZ_AuxiliarType").Specific);
cboAuxiliarType.Select("2", SAPbouiCOM.BoSearchKey.psk_ByValue);
SAPbouiCOM.EditText txtName = ((SAPbouiCOM.EditText)lObjPaymentForm.Items.Item("10000166").Specific);
txtName.Value = lStrEmpName;
SAPbouiCOM.EditText txtAuxiliar = ((SAPbouiCOM.EditText)lObjPaymentFormUDF.Items.Item("U_FZ_Auxiliar").Specific);
txtAuxiliar.Value = lStrEmpCode;
SAPbouiCOM.Button btnBank = ((SAPbouiCOM.Button)lObjPaymentForm.Items.Item("234000001").Specific);
btnBank.Item.Click();
lObjAccountForm = UIApplication.GetApplication().Forms.GetForm("196", -1);
lObjAccountForm.Freeze(true);
SAPbouiCOM.Folder folderCheck = ((SAPbouiCOM.Folder)lObjAccountForm.Items.Item("3").Specific);
folderCheck.Item.Click();
SAPbouiCOM.Matrix mtxCheck = ((SAPbouiCOM.Matrix)lObjAccountForm.Items.Item("28").Specific);
((SAPbouiCOM.EditText)mtxCheck.Columns.Item("7").Cells.Item(1).Specific).Value = lDblImport.ToString();
ComboBox cb = ((SAPbouiCOM.ComboBox)mtxCheck.Columns.Item("2").Cells.Item(1).Specific);
string ss = lStrBankInfo[lStrBankInfo.Keys.ElementAt(0)]; //lStrBankInfo.ElementAt(0);
((SAPbouiCOM.ComboBox)mtxCheck.Columns.Item("2").Cells.Item(1).Specific).Select(lStrBankInfo[lStrBankInfo.Keys.ElementAt(0)], SAPbouiCOM.BoSearchKey.psk_ByValue); //Banco
((SAPbouiCOM.ComboBox)mtxCheck.Columns.Item("4").Cells.Item(1).Specific).Select(lStrBankInfo.Keys.ElementAt(0), SAPbouiCOM.BoSearchKey.psk_ByValue); //Cuenta?
SAPbouiCOM.Button btnOk = ((SAPbouiCOM.Button)lObjAccountForm.Items.Item("1").Specific);
btnOk.Item.Click();
SAPbouiCOM.Matrix mtxPayment = ((SAPbouiCOM.Matrix)lObjPaymentForm.Items.Item("71").Specific);
mtxPayment.AddRow();
((SAPbouiCOM.EditText)mtxPayment.Columns.Item("5").Cells.Item(1).Specific).Value = lDblImport.ToString();
((SAPbouiCOM.EditText)mtxPayment.Columns.Item("8").Cells.Item(1).Specific).Value = lStrLineAccount; //cuenta de mayor
}
else
{
UIApplication.ShowMessageBox("Favor de seleccionar un registro");
}
lObjPaymentFormUDF.Freeze(false);
this.UIAPIRawForm.Freeze(false);
if (lObjPaymentForm != null)
{
lObjPaymentForm.Freeze(false);
}
if (lObjAccountForm != null)
{
lObjPaymentFormUDF.Freeze(false);
}
if (this.UIAPIRawForm != null)
{
this.UIAPIRawForm.Freeze(false);
}
// if (lObjAccountForm. ==) lObjAccountForm.Freeze(false);
UIApplication.ShowSuccess("Carga de pago terminada");
}
catch (Exception ex)
{
LogService.WriteError("frmSearchRefunds (btnPayments_ClickBefore) " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowMessageBox(string.Format("Error al abrir pantalla de pagos: {0}", ex.Message));
}
finally
{
if (lObjPaymentFormUDF != null)
{
lObjPaymentFormUDF.Freeze(false);
}
this.UIAPIRawForm.Freeze(false);
}
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
try
{
#region Form Setting
oForm.SupportedModes = 1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
#endregion
#region ComboBox
// 고객그룹1
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboGROUP").Specific;
FN.SetComboBoxValidValues(oForm, "SELECT U_CD,U_NM FROM [@KIS_CO00601] WHERE Code = '110' ", "cboGROUP", FN.Enum_WholeTp.m_TotalTxt);
#endregion
#region Grid
oForm.DataSources.DataTables.Add("grd");
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_NotSupported;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
SetGridTitle(oForm);
#endregion
#region Defalut Setting
oForm.DataSources.UserDataSources.Item("edtDATE").ValueEx = FN.GetNowDate(Enum_Date.m_Yyyy);
#endregion
foreach (SAPbouiCOM.Item item in oForm.Items)
{
item.AffectsFormMode = false;
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
private void InitiallizeForm()
{
// dtHead = oForm.DataSources.DataTables.Item("dtHead");
// dtHead.Rows.Add(1);
dtPendingJEs.Columns.Add("DocDate");
dtPendingJEs.Columns.Add("DocNum");
dtPendingJEs.Columns.Add("DocTotal");
dtPendingJEs.Columns.Add("Originator");
oForm.Freeze(true);
mtJE = oForm.Items.Item("mtJE").Specific;
mtDet = oForm.Items.Item("mtDet").Specific;
dtDet = oForm.DataSources.DataTables.Item("dtDet");
dtHead = oForm.DataSources.DataTables.Item("dtHead");
cbOr = oForm.Items.Item("cbOr").Specific;
IcbOr = oForm.Items.Item("cbOr");
cbOr.ValidValues.Add("All", "All");
fillUserCb();
oForm.DataSources.UserDataSources.Add("txDN", SAPbouiCOM.BoDataType.dt_LONG_NUMBER, 15); // Days of Month
txDN = oForm.Items.Item("txDN").Specific;
ItxDN = oForm.Items.Item("txDN");
txDN.DataBind.SetBound(true, "", "txDN");
oForm.DataSources.UserDataSources.Add("txDD", SAPbouiCOM.BoDataType.dt_DATE); // Days of Month
txDD = oForm.Items.Item("txDD").Specific;
ItxDD = oForm.Items.Item("txDD");
txDD.DataBind.SetBound(true, "", "txDD");
oForm.DataSources.UserDataSources.Add("txRem", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 100); // Days of Month
txRem = oForm.Items.Item("txRem").Specific;
ItxRem = oForm.Items.Item("txRem");
txRem.DataBind.SetBound(true, "", "txRem");
oForm.DataSources.UserDataSources.Add("txRef1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 100); // Days of Month
txRef1 = oForm.Items.Item("txRef1").Specific;
ItxRef1 = oForm.Items.Item("txRef1");
txRef1.DataBind.SetBound(true, "", "txRef1");
oForm.DataSources.UserDataSources.Add("txRef2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 100); // Days of Month
txRef2 = oForm.Items.Item("txRef2").Specific;
ItxRef2 = oForm.Items.Item("txRef2");
txRef2.DataBind.SetBound(true, "", "txRef2");
oForm.DataSources.UserDataSources.Add("txDS", SAPbouiCOM.BoDataType.dt_SUM); // Days of Month
txDS = oForm.Items.Item("txDS").Specific;
ItxDS = oForm.Items.Item("txDS");
txDS.DataBind.SetBound(true, "", "txDS");
oForm.DataSources.UserDataSources.Add("txCS", SAPbouiCOM.BoDataType.dt_SUM); // Days of Month
txCS = oForm.Items.Item("txCS").Specific;
ItxCS = oForm.Items.Item("txCS");
txCS.DataBind.SetBound(true, "", "txCS");
oForm.DataSources.UserDataSources.Add("chkPost", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1); // Days of Month
chkPost = oForm.Items.Item("chkPost").Specific;
IchkPost = oForm.Items.Item("chkPost");
chkPost.DataBind.SetBound(true, "", "chkPost");
lnkBG = oForm.Items.Item("lnkBG").Specific;
IchkPost = oForm.Items.Item("lnkBG");
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
#region Form Setting
oForm.DataBrowser.BrowseBy = "Code";
oForm.SupportedModes = -1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
oForm.PaneLevel = 1;
#endregion
oForm.Mode = BoFormMode.fm_FIND_MODE;
string strNowDate = B1Connections.diCompany.GetCompanyDate().ToShortDateString();
strNowDate = FN.SetDateFormatToDB(strNowDate, FN.eDateType.p_YYYYMMDD);
oComboBox = oForm.Items.Item("Code").Specific;
FN.SetComboBoxValidValues(oForm, " SELECT YEAR AS CODE, YEAR AS NAME FROM OACP ", "Code", FN.Enum_WholeTp.m_Nothing);
oComboBox.Select(FN.Left(strNowDate,4), BoSearchKey.psk_ByValue);
oForm.Items.Item("btnTR").Enabled = false;
oForm.Items.Item("btnCAN").Enabled = false;
#region Matrix
oMatrix = oForm.Items.Item("mtx").Specific;
oMatrix.SelectionMode = BoMatrixSelect.ms_Single;
// 메트릭스
//FN.SetMatrixAddRow(ref oForm, ref oMatrix, ref oDB_1, FN.RowSelectMode.SelectedLine, "U_YYYYMM");
#endregion
}
public virtual void ET_cboTYPE_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboTYPE").Specific));
// ADD YOUR ACTION CODE HERE ...
oForm.Freeze(true);
SetItemEnabled(oForm);
SetComboBox_Method(oForm);
SetComboBox_AcctCode(oForm);
oForm.Freeze(false);
}
public virtual void ET_AFDataMenu_Add(MenuEvent pVal) {
oForm = B1Connections.theAppl.Forms.ActiveForm;
// ADD YOUR ACTION CODE HERE ...
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_FI0010M_HRD");
oDB_1 = oForm.DataSources.DBDataSources.Item("@KIS_FI00101_HRD");
string strNowDate = B1Connections.diCompany.GetCompanyDate().ToShortDateString();
strNowDate = FN.SetDateFormatToDB(strNowDate, FN.eDateType.p_YYYYMMDD);
oDB_M.SetValue("U_DOCDATE", 0, strNowDate.Replace(".", ""));
oDB_M.SetValue("U_USERID", 0, B1Connections.theAppl.Company.UserName);
oComboBox = oForm.Items.Item("cboYYYY").Specific;
oComboBox.Select(FN.Left(strNowDate, 4), BoSearchKey.psk_ByValue);
oComboBox = oForm.Items.Item("cboTYPE").Specific;
oComboBox.Select(0, BoSearchKey.psk_Index);
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
#region Form Setting
oForm.DataBrowser.BrowseBy = "edtDOCNO";
oForm.SupportedModes = -1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
#endregion
oForm.Mode = BoFormMode.fm_ADD_MODE;
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0280T_HRD");
oDB_1 = oForm.DataSources.DBDataSources.Item("@KIS_SO02801_HRD");
oComboBox = oForm.Items.Item("cboDEPYM").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, "");
// 입금계좌번호
oForm.Items.Item("edtBNKACCT").Specific.value = FN.GetRecordsetValue("SELECT AcctCode FROM OACT WHERE AcctCode = '11101285'");
oForm.Items.Item("edtBNKATNM").Specific.value = FN.GetRecordsetValue("SELECT AcctName FROM OACT WHERE AcctCode = '11101285'");
#region Matrix
oMatrix = oForm.Items.Item("mtx").Specific;
oMatrix.SelectionMode = BoMatrixSelect.ms_Auto;
// 요금제
//FN.SetComboBoxValidValues(oMatrix, "U_PAYCD", "SELECT CODE, NAME FROM [@KIS_SO0050M_HRD]");
// 지국
//FN.SetComboBoxValidValues(oMatrix, "U_CENTCD", "SELECT CODE, NAME FROM [@KIS_SO0040M_HRD]");
FN.SetComboBoxValidValues(oMatrix, "U_CENTGBN", "SELECT U_SMLCD AS CODE, U_SMLNM AS NAME FROM [@KIS_AD00201] WHERE Code = 'SO17' AND U_USEYN = 'Y'"); // 분국구분(직배/지방)
// 지종
FN.SetComboBoxValidValues(oMatrix, "U_PAPERTP", "SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code = 'SO01'");
//FN.SetMatrixColumnLinkedObject(ref oMatrix, "U_RDCD", BoLinkedObject.lf_None);
//FN.SetMatrixColumnLinkedObject(ref oMatrix, "U_BRCCD", BoLinkedObject.lf_None);
FN.SetSumField(ref oMatrix, "U_REQAMT,U_CNT");
#endregion
#region SetAutoManagedAttribute
string AllString = "edtDOCNO,edtJDTDOC,edtRJDTDOC,btnJDT,btnREJDT";
string AddString = "cboDEPYM,edtCMMAMT";
string OKString = "btnJDT,btnREJDT";//string.Empty;
string FindString = "edtDOCNO";
FN.SetAutoManagedAttribute(ref oForm, AllString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_All, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, AddString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Add, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, OKString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Ok, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, FindString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Find, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, "btnJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_All, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, "btnJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Add, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, "btnJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Ok, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, "btnJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Find, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, "btnREJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_All, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, "btnREJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Add, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, "btnREJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Ok, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, "btnREJDT", BoAutoManagedAttr.ama_Visible, BoAutoFormMode.afm_Find, BoModeVisualBehavior.mvb_False);
#endregion
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
#region Form Setting
oForm.DataBrowser.BrowseBy = "DocEntry";
oForm.SupportedModes = -1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
oForm.PaneLevel = 1;
#endregion
oForm.Mode = BoFormMode.fm_ADD_MODE;
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_FI0010M_HRD");
oDB_1 = oForm.DataSources.DBDataSources.Item("@KIS_FI00101_HRD");
string strNowDate = B1Connections.diCompany.GetCompanyDate().ToShortDateString();
strNowDate = FN.SetDateFormatToDB(strNowDate, FN.eDateType.p_YYYYMMDD);
oDB_M.SetValue("U_DOCDATE", 0, strNowDate.Replace(".", ""));
oDB_M.SetValue("U_USERID", 0, B1Connections.theAppl.Company.UserName);
oComboBox = oForm.Items.Item("cboYYYY").Specific;
FN.SetComboBoxValidValues(oForm, " SELECT YEAR AS CODE, YEAR AS NAME FROM OACP ", "cboYYYY", FN.Enum_WholeTp.m_Nothing);
oComboBox.Select(FN.Left(strNowDate,4) , BoSearchKey.psk_ByValue);
oComboBox = oForm.Items.Item("cboTYPE").Specific;
FN.SetComboBoxValidValues(oForm, " SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00201] WHERE Code = 'FI01' AND U_USEYN = 'Y' ", "cboTYPE", FN.Enum_WholeTp.m_Nothing);
oComboBox.Select(0, BoSearchKey.psk_Index);
#region EditText
// 코스트센터그룹
SAPbouiCOM.Conditions oCons = new Conditions();
FN.SetChooseFromListAdd(oForm, "KIS_CO0110", "edtCOSTFR", "Code", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, "KIS_CO0110", "edtCOSTTO", "Code", BoFormItemTypes.it_EDIT, oCons);
// 공통비 코스트센터 그룹
FN.SetChooseFromListAdd(oForm, "KIS_CO0110", "edtCOMGPCD", "Code", BoFormItemTypes.it_EDIT, oCons);
// 원가그룹
FN.SetChooseFromListAdd(oForm, "KIS_CO0100", "edtDISACCD", "Code", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, "KIS_CO0100", "edtCOPECD", "Code", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, "KIS_CO0100", "edtCOAMCD", "Code", BoFormItemTypes.it_EDIT, oCons);
// 계정코드
#region GLAccounts Conditions
oCons = new Conditions();
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "U_CATEGORY";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "S09";
#endregion
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_GLAccounts).ToString(), "edtCOMPECD", "AcctCode", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_GLAccounts).ToString(), "edtCOMAMCD", "AcctCode", BoFormItemTypes.it_EDIT, oCons);
#endregion
#region Matrix
oMatrix = oForm.Items.Item("mtx").Specific;
oMatrix.SelectionMode = BoMatrixSelect.ms_None;
// 메트릭스
FN.SetChooseFromListAdd(oForm, "KIS_CO0110", "mtx", "Code", BoFormItemTypes.it_MATRIX, null, "U_PRCCD");
FN.SetSumField(ref oMatrix, "U_1MON,U_2MON,U_3MON,U_4MON,U_5MON,U_6MON,U_7MON,U_8MON,U_9MON,U_10MON,U_11MON,U_12MON");
//FN.SetMatrixAddRow(ref oForm, ref oMatrix, ref oDB_1, FN.RowSelectMode.SelectedLine, "U_PRCCD");
#endregion
#region SetAutoManagedAttribute
string AllString = "cboYYYY,cboTYPE,edtCOMGPCD,edtDISACCD,edtCOPECD,edtCOAMCD,edtCOMPECD,edtCOMAMCD,mtx,btnFIND";
string AddString = "cboYYYY,cboTYPE,edtCOMGPCD,edtDISACCD,edtCOPECD,edtCOAMCD,mtx,btnFIND";
string OKString = "edtCOMGPCD,edtDISACCD,edtCOPECD,edtCOAMCD,mtx,btnFIND";
string FindString = "cboYYYY,cboTYPE";
FN.SetAutoManagedAttribute(ref oForm, AllString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_All, BoModeVisualBehavior.mvb_False);
FN.SetAutoManagedAttribute(ref oForm, AddString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Add, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, OKString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Ok, BoModeVisualBehavior.mvb_True);
FN.SetAutoManagedAttribute(ref oForm, FindString, BoAutoManagedAttr.ama_Editable, BoAutoFormMode.afm_Find, BoModeVisualBehavior.mvb_True);
#endregion
}
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;
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
StringBuilder sb = new StringBuilder();
try
{
#region Form
oForm.SupportedModes = 1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
foreach (SAPbouiCOM.Item item in oForm.Items)
{
item.AffectsFormMode = false;
}
#endregion
oForm.DataSources.UserDataSources.Item("edtDOCDTF").Value = Convert.ToDateTime(B1Connections.theAppl.Company.ServerDate).ToString("yyyyMM01");
oForm.DataSources.UserDataSources.Item("edtDOCDTT").Value = Convert.ToDateTime(B1Connections.theAppl.Company.ServerDate).ToString("yyyyMMdd");
#region EditText
//매출처
#region BusinessPartner Conditions
SAPbouiCOM.Conditions oCons = new Conditions(); ;
SAPbouiCOM.Condition oCon = oCons.Add();
oCons = new Conditions(); ;
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "C";
oCon.Relationship = BoConditionRelationship.cr_AND;
oCon = oCons.Add();
oCon.Alias = "frozenFor";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "N";
#endregion
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_BusinessPartner).ToString(), "edtCARDCDF", "CardCode", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_BusinessPartner).ToString(), "edtCARDNMF", "CardName", BoFormItemTypes.it_EDIT, oCons);
//대행사
#region BusinessPartner Conditions
oCons = new Conditions(); ;
oCon = oCons.Add();
oCon.Alias = "CardType";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "S";//공급업체
oCon.Relationship = BoConditionRelationship.cr_AND;
oCon = oCons.Add();
oCon.Alias = "frozenFor";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "N";
#endregion
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_BusinessPartner).ToString(), "edtBPCDF", "CardCode", BoFormItemTypes.it_EDIT, oCons);
FN.SetChooseFromListAdd(oForm, ((int)BoLinkedObject.lf_BusinessPartner).ToString(), "edtBPNMF", "CardName", BoFormItemTypes.it_EDIT, oCons);
#endregion
#region ComboBox
//매출부서
FN.SetComboBoxValidValues(oForm, "SELECT PrcCode,PrcName FROM OPRC WHERE DimCode = '1' AND Locked = 'N' ORDER BY PrcCode ", "cboPRCCD", FN.Enum_WholeTp.m_TotalTxt);
oCombo = oForm.Items.Item("cboPRCCD").Specific;
if (oCombo.ValidValues.Count > 0)
{
oForm.DataSources.UserDataSources.Item("cboPRCCD").Value = oCombo.ValidValues.Item(0).Value;
}
//영업사원
FN.SetComboBoxValidValues(oForm, "SELECT SlpCode,SlpName FROM OSLP WHERE Active = 'Y' AND Locked = 'N' ORDER BY SlpCode ", "cboSLPCD", FN.Enum_WholeTp.m_TotalTxt);
oCombo = oForm.Items.Item("cboSLPCD").Specific;
if (oCombo.ValidValues.Count > 0)
{
oForm.DataSources.UserDataSources.Item("cboSLPCD").Value = oCombo.ValidValues.Item(0).Value;
}
//간행물
FN.SetComboBoxValidValues(oForm, "SELECT U_SMLCD,U_SMLNM FROM [@KIS_AD00201] WHERE Code = 'SD01' AND U_USEYN = 'Y' ", "cboPUBLICA", FN.Enum_WholeTp.m_TotalTxt);
oCombo = oForm.Items.Item("cboPUBLICA").Specific;
if (oCombo.ValidValues.Count > 0)
{
oForm.DataSources.UserDataSources.Item("cboPUBLICA").Value = oCombo.ValidValues.Item(0).Value;
}
#endregion
oForm.DataSources.DataTables.Add("grd");
SetGridTitle(oForm);
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting(SAPbouiCOM.Form oForm)
{
// '// ADD YOUR ACTION CODE HERE ...
oForm.Settings.EnableRowFormat = false;
// UDO, 네비게이션 사용하지 않음
oForm.SupportedModes = (int)BoAutoFormMode.afm_Ok;
// 작엽년월
string strYYYYMM = FN.SetDateFormatToDB(DateTimeLibrary.FirstDayOfCurrentMonth(), FN.eDateType.n_YYYYMMDD).Substring(0, 6);
oComboBox = oForm.Items.Item("cboYYYYMM1").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, strYYYYMM);
oComboBox = oForm.Items.Item("cboYYYYMM2").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, strYYYYMM);
SetGridTitle(oForm);
}
public virtual void ET_cboJOB_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboJOB").Specific));
// ADD YOUR ACTION CODE HERE ...
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0030M_HRD");
oDB_M.SetValue("U_JOBNM", 0, oComboBox.Selected.Description);
}
public virtual void ET_cboSTATUS_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboSTATUS").Specific));
// ADD YOUR ACTION CODE HERE ...
//if (oComboBox.Selected.Value == "U09")
//{
// STATE = false;
//}
}
}//fin FormDataEvent
public new void MenuEvent(ref MenuEvent pVal, ref Boolean BubbleEvent)
{
//Int32 Entry;
base.MenuEvent(ref pVal, ref BubbleEvent);
SAPbobsCOM.Recordset orsx = ((SAPbobsCOM.Recordset)FCmpny.GetBusinessObject(BoObjectTypes.BoRecordset));
try
{
//1281 Buscar;
//1282 Crear
//1284 cancelar;
//1285 Restablecer;
//1286 Cerrar;
//1288 Registro siguiente;
//1289 Registro anterior;
//1290 Primer Registro;
//1291 Ultimo Registro;
if ((pVal.MenuUID != "") && (pVal.BeforeAction == false))
{
//if (ObjType == "203")
// DocSubType = ((System.String)oForm.DataSources.DBDataSources.Item("ODPI").GetValue("DocSubType", 0)).Trim();
//else
// DocSubType = ((System.String)oForm.DataSources.DBDataSources.Item("OINV").GetValue("DocSubType", 0)).Trim();
if ((pVal.MenuUID == "1288") || (pVal.MenuUID == "1289") || (pVal.MenuUID == "1290") || (pVal.MenuUID == "1291") || (pVal.MenuUID == "1304"))
{
oForm.Freeze(true);
//oForm.Items.Item("VID_Estado").Enabled = false;
oComboBox = (ComboBox)(oForm.Items.Item("87").Specific);
var sSeries = (System.String)(oComboBox.Value);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select LEFT(ISNULL(UPPER(BeginStr),''),1) 'Valor', DocSubType, SUBSTRING(ISNULL(UPPER(BeginStr),''),2,LEN(ISNULL(UPPER(BeginStr),''))) 'Doc', ObjectCode
from NNM1 where Series = {0} --AND ObjectCode = '{1}' ";
}
else
{
s = @"select LEFT(IFNULL(UPPER(""BeginStr""),''),1) ""Valor"", ""DocSubType"", SUBSTRING(IFNULL(UPPER(""BeginStr""),''),2,LENGTH(IFNULL(UPPER(""BeginStr""),''))) ""Doc"", ""ObjectCode""
from ""NNM1"" where ""Series"" = {0} --AND ""ObjectCode"" = '{1}' ";
}
s = String.Format(s, sSeries, oForm.BusinessObject.Type);
orsx.DoQuery(s);
if (orsx.RecordCount > 0)
{
if (((System.String)orsx.Fields.Item("Valor").Value).Trim() == "E")
{
oForm.Items.Item("VID_Estado").Visible = true;
oForm.Items.Item("VID_Estado").Enabled = false;
oForm.Items.Item("lblEstado").Visible = true;
}
else
{
oForm.Items.Item("VID_Estado").Visible = false;
oForm.Items.Item("lblEstado").Visible = false;
}
}
oForm.Freeze(false);
}
if ((pVal.MenuUID == "1282") || (pVal.MenuUID == "1281") || (pVal.MenuUID == "1287"))
{
oForm.Freeze(true);
//oForm.Items.Item("VID_Estado").Enabled = false;
oComboBox = (ComboBox)(oForm.Items.Item("87").Specific);
var sSeries = (System.String)(oComboBox.Value);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select LEFT(ISNULL(UPPER(BeginStr),''),1) 'Valor', DocSubType, SUBSTRING(ISNULL(UPPER(BeginStr),''),2,LEN(ISNULL(UPPER(BeginStr),''))) 'Doc', ObjectCode
from NNM1 where Series = {0} --AND ObjectCode = '{1}' ";
}
else
{
s = @"select LEFT(IFNULL(UPPER(""BeginStr""),''),1) ""Valor"", ""DocSubType"", SUBSTRING(IFNULL(UPPER(""BeginStr""),''),2,LENGTH(IFNULL(UPPER(""BeginStr""),''))) ""Doc"", ""ObjectCode""
from ""NNM1"" where ""Series"" = {0} --AND ""ObjectCode"" = '{1}' ";
}
s = String.Format(s, sSeries, oForm.BusinessObject.Type);
orsx.DoQuery(s);
if (orsx.RecordCount > 0)
{
if ((System.String)(orsx.Fields.Item("Valor").Value) == "E")
{
oForm.Items.Item("VID_Estado").Visible = true;
oForm.Items.Item("VID_Estado").Enabled = false;
oForm.Items.Item("lblEstado").Visible = true;
}
else
{
oForm.Items.Item("VID_Estado").Visible = false;
oForm.Items.Item("lblEstado").Visible = false;
}
}
oForm.Freeze(false);
}
}
}
catch (Exception e)
{
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
OutLog("MenuEvent: " + e.Message + " ** Trace: " + e.StackTrace);
}
}//fin MenuEvent
/// <summary>
/// 폼(Form)의 아이템들(Items)에 연결이 필요한 데이타소스(DataSource) 형식을 정의합니다.
/// </summary>
private void Act2_DataSourcesBinding() {
// '// ADD YOUR ACTION CODE HERE ...
#region ComboBox
string sql = string.Empty;
//string sql = FN.GetSQL("KIS_SF0360A_001");
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRS1 = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
// 기수
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboYEAR").Specific;
sql = string.Format(" SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y'");
FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Nothing, null);
sql = string.Format(" SELECT LEFT(U_SMLNM,4) AS YEAR FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' AND LEFT(U_SMLNM,4) = '{0}'",DateTime.Now.Year.ToString());
oRS.DoQuery(sql);
oComboBox.Select(oRS.Fields.Item("YEAR").Value.ToString(), BoSearchKey.psk_ByValue);
// 상태
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboSTATUS").Specific;
sql = string.Format(" SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR10' AND U_USEYN = 'Y'");
FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Nothing, null);
sql = string.Format(" SELECT U_RMK2 FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' AND U_SMLCD = '{0}'",oForm.Items.Item("cboYEAR").Specific.Value);
oRS.DoQuery(sql);
oComboBox.Select(oRS.Fields.Item("U_RMK2").Value.ToString(), BoSearchKey.psk_ByValue);
#endregion
// 고과대상자
sql = string.Format(" select COUNT(*) from [@KIS_HR0120M]");
oRS.DoQuery(sql);
oForm.Items.Item("edtPERSON").Specific.Value = oRS.Fields.Item(0).Value.ToString();
}
/// <summary>
/// Eventos de la forma activa
/// </summary>
/// <param name="FormUID">Id de la forma</param>
/// <param name="pVal">Propiedades de la forma</param>
/// <param name="BubbleEvent">Evento true/false</param>
public override void eventos(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool bubbleEvent)
{
bubbleEvent = true;
try
{
if (pVal.BeforeAction == false && pVal.FormType == FRM_TRANSFERENCIA_DE_STOCK)
{
if (pVal.EventType == BoEventTypes.et_FORM_RESIZE)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
OcultarControlesVentana(_oForm);
CrearCamposDeUsuario(_oForm);
}
if (pVal.EventType == BoEventTypes.et_FORM_CLOSE)
{
if (_oContadorFormas == 1)
{
_Application.ItemEvent -= new _IApplicationEvents_ItemEventEventHandler(SBO_Application_ItemEvent);
_Application.StatusBarEvent -= new SAPbouiCOM._IApplicationEvents_StatusBarEventEventHandler(SBO_Application_StatusBarEvent);
Dispose();
application = null;
company = null;
_oTransferenciaDeStock = false;
Addon.typeList.RemoveAll(p => p._forma == formID);
return;
}
else
{
_oContadorFormas -= 1;
}
}
if (pVal.EventType == BoEventTypes.et_FORM_ACTIVATE)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
CrearCamposDeUsuario(_oForm);
}
}
if (pVal.BeforeAction == true && pVal.FormType == FRM_TRANSFERENCIA_DE_STOCK)
{
if (pVal.ItemUID == TXT_SERIE && pVal.CharPressed == CHAR_PRESS_ENTER && pVal.EventType == BoEventTypes.et_KEY_DOWN)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
_oTxtSerie = _oForm.Items.Item(TXT_SERIE).Specific;
_oAlmacenOrigen = _oForm.Items.Item(TXT_ALMACEN_ORIGEN).Specific;
_oForm.Select();
if (!string.IsNullOrEmpty(_oTxtSerie.Value.ToString()))
{
_oForm.Select();
AgregarArticulo(_oForm, _oTxtSerie.Value.ToString(), _oAlmacenOrigen.Value.ToString());
_oForm.Select();
}
else
{
_Application.MessageBox("Capture el número de serie");
}
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_KEY_DOWN && pVal.ItemUID == GRID_ARTICULOS && pVal.ColUID == COLUMNA_SERIE_INICIO && pVal.CharPressed == CHAR_PRESS_ENTER)
{
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_KEY_DOWN && pVal.ItemUID == GRID_ARTICULOS && pVal.ColUID == COLUMNA_SERIE_FIN && pVal.CharPressed == CHAR_PRESS_ENTER)
{
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_KEY_DOWN && pVal.ItemUID == GRID_ARTICULOS && pVal.ColUID == COLUMNA_SERIE && pVal.CharPressed == CHAR_PRESS_ENTER)
{
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_ITEM_PRESSED && pVal.ItemUID == BTN_CREAR && pVal.InnerEvent == true)
{
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_ITEM_PRESSED && pVal.ItemUID == BTN_CREAR && pVal.InnerEvent == false)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
oBtnCrearSAP = _oForm.Items.Item(BTN_CREAR).Specific;
if (oBtnCrearSAP.Caption == "Crear")
{
string msgError = ValidarStatusSolicitudGrid(_oForm);
if (!string.IsNullOrEmpty(msgError))
{
_Application.MessageBox(msgError);
bubbleEvent = false;
bubbleEvent = false;
return;
}
}
}
}
if (pVal.BeforeAction == true && pVal.FormType == -FRM_TRANSFERENCIA_DE_STOCK)
{
if (pVal.EventType == BoEventTypes.et_COMBO_SELECT && pVal.ItemUID == TIPO_MOVIMIENTO)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
_oCmbTipoMovimiento = _oForm.Items.Item(TIPO_MOVIMIENTO).Specific;
if (!string.IsNullOrEmpty(_oCmbTipoMovimiento.Value.ToString()))
{
if (_oForm.Mode == BoFormMode.fm_ADD_MODE)
{
if (_Application.MessageBox("Estas seguro de cambiar el tipo de movimiento sin crear." + Environment.NewLine + "¿Desea continuar?", 2, "Si", "No") == 1)
{
try
{
_oTxtPromotor.Value = "";
}
catch (Exception)
{
}
}
else
{
bubbleEvent = false;
}
}
}
}
}
if (pVal.BeforeAction == false && pVal.FormType == -FRM_TRANSFERENCIA_DE_STOCK)
{
if (pVal.EventType == BoEventTypes.et_COMBO_SELECT && pVal.ItemUID == TIPO_MOVIMIENTO)
{
_oForm = _Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
_oForm.Freeze(true);
SAPbouiCOM.Form F1 = _Application.Forms.GetFormByTypeAndCount(Convert.ToInt32(_oForm.TypeEx.TrimStart('-')), _oForm.TypeCount);
F1.Freeze(true);
_oTxtPromotor = F1.Items.Item(TXT_PROMOTOR).Specific;
_oTxtNombrePromotor = F1.Items.Item(TXT_NOMBRE_PROMOTOR).Specific;
_oTxtSerie = F1.Items.Item(TXT_SERIE).Specific;
_oCmbTipoMovimiento = _oForm.Items.Item(TIPO_MOVIMIENTO).Specific;
if (!string.IsNullOrEmpty(_oCmbTipoMovimiento.Value.ToString()))
{
F1.Items.Item(TXT_SERIE).Enabled = true;
TipoMovimiento = _oCmbTipoMovimiento.Value.ToString().TrimEnd(' ');
_oTxtFechaContabilizacion = F1.Items.Item(TXT_FECHA_CONTABILIZACION).Specific;
_oTxtFechaDocumento = F1.Items.Item(TXT_FECHA_DOCUMENTO).Specific;
if (TipoMovimiento != "PROMOTORES - OFICINAS" && TipoMovimiento != "OFICINAS - PROMOTORES")
{
if (_oForm.Mode == BoFormMode.fm_ADD_MODE)
{
_oTxtPromotor.Value = Extensor.ObtenerSecretaria(_Company, "U_codigo_secretaria");
_oTxtNombrePromotor.Value = Extensor.ObtenerSecretaria(_Company, "T0.U_nombre_secretaria");
}
}
else
{
if (_oForm.Mode == BoFormMode.fm_ADD_MODE)
{
_oTxtPromotor.Value = "";
_oTxtNombrePromotor.Value = "";
}
}
if (TipoMovimiento == "PROMOTORES - OFICINAS" || TipoMovimiento == "OFICINAS - PROMOTORES")
{
if (_oForm.Mode == BoFormMode.fm_ADD_MODE)
{
//if (Extensor.ValidarImpresionCorteSolicitudes(_Company))
//{
if (F1.Items.Item(TXT_FECHA_DOCUMENTO).Enabled == true)
{
_oTxtFechaContabilizacion.Value = DateTime.Now.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture);
_oTxtFechaDocumento.Value = DateTime.Now.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture);
F1.Items.Item(TXT_FECHA_CONTABILIZACION).Enabled = false;
F1.Items.Item(TXT_PROMOTOR).Click();
F1.Items.Item(TXT_FECHA_DOCUMENTO).Enabled = false;
}
//}
//else
//{
// if (F1.Items.Item(TXT_FECHA_DOCUMENTO).Enabled == true)
// {
// DateTime hoy = DateTime.Now;
// DateTime mañana = hoy.AddDays(1);
// _oTxtFechaContabilizacion.Value = hoy.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture).ToString();
// _oTxtFechaDocumento.Value = mañana.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture).ToString();
// F1.Items.Item(TXT_FECHA_CONTABILIZACION).Enabled = false;
// F1.Items.Item(TXT_PROMOTOR).Click();
// F1.Items.Item(TXT_FECHA_DOCUMENTO).Enabled = false;
// }
//}
}
}
else
{
if (_oForm.Mode == BoFormMode.fm_ADD_MODE)
{
F1.Items.Item(TXT_PROMOTOR).Click();
F1.Items.Item(TXT_FECHA_CONTABILIZACION).Enabled = true;
_oTxtFechaContabilizacion.Value = DateTime.Now.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture);
F1.Items.Item(TXT_PROMOTOR).Click();
F1.Items.Item(TXT_FECHA_DOCUMENTO).Enabled = true;
_oTxtFechaDocumento.Value = DateTime.Now.ToString("yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture);
}
}
}
_oForm.Freeze(false);
F1.Freeze(false);
}
}
}
catch (Exception ex)
{
throw new Exception("Error en método 'eventos' *clsTransferenciaDeStock* : " + ex.Message);
}
}
//고과상태변경
public virtual bool StatusChange(string Status)
{
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
StringBuilder pQuery = new StringBuilder();
string sQry = string.Empty;
EXAMCD = oForm.Items.Item("cboYEAR").Specific.Value;
try
{
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboSTATUS").Specific));
if (B1Connections.theAppl.MessageBox(oComboBox.Selected.Description + "로 저장하시겠습니까?", 1, "OK", "NO") == 2)
{
return false;
}
if (Status == "U01")
{
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U01' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
}
else if (Status == "U02")
{
string Cnt = FN.GetRecordsetValue(string.Format("SELECT * FROM [@KIS_HR0020M_HRD] WHERE U_EXAMCD = '{0}'", EXAMCD));
if (Cnt != "")
{
if (B1Connections.theAppl.MessageBox("고과마스터가 이미 생성되었습니다로 새로 저장하시겠습니까?", 1, "OK", "NO") == 2)
{
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U02' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
return false;
}
}
pQuery.Clear();
pQuery.AppendLine(" DELETE FROM [@KIS_HR0020M_HRD] WHERE U_EXAMCD = '{0}' ");
pQuery.AppendLine(" DELETE FROM [@KIS_HR00201_HRD] WHERE U_EXAMCD = '{0}' ");
pQuery.AppendLine(" DELETE FROM [@KIS_HR00202_HRD] WHERE U_EXAMCD = '{0}' ");
pQuery.AppendLine(" DELETE FROM [@KIS_HR00203_HRD] WHERE U_EXAMCD = '{0}' ");
pQuery.AppendLine(" DELETE FROM [@KIS_HR00204_HRD] WHERE U_EXAMCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
// 고과 마스터 생성
UDO_Add_Data();
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U02' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
if (B1Connections.theAppl.MessageBox("고과마스터생성완료", 1, "확인", "", "") == 1)
{
oForm.Items.Item("btnFIND").Click(BoCellClickType.ct_Regular);
}
}
else if (Status == "U03")
{
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U03' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
B1Connections.theAppl.MessageBox("고과상태 고과시작으로 변경", 1, "확인", "", "");
}
else if (Status == "U08")
{
//점수,등급 계산및 업데이트
oRS.DoQuery("EXEC KIS_SP_HR0010B1_HRD '1',0,0");
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U08' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
B1Connections.theAppl.MessageBox("고과상태 고과마감으로 변경", 1, "확인", "", "");
}
else if (Status == "U09")
{
if (STATE == false)
{
B1Connections.theAppl.StatusBar.SetText("조회후 저장해주세요", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
return false;
}
else
{
//인사 KIS_HR00220 업데이트
UDO_Add_Data_HR00220();
#region 고과상태변경
pQuery.Clear();
pQuery.AppendLine(" UPDATE [@KIS_AD00201] SET U_RMK2 = 'U09' ");
pQuery.AppendLine(" WHERE CODE = 'HR01' AND U_USEYN = 'Y' ");
pQuery.AppendLine(" AND U_SMLCD = '{0}' ");
sQry = string.Format(pQuery.ToString(), EXAMCD);
oRS.DoQuery(sQry);
#endregion
}
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
finally
{
oRS = null;
oGrid = null;
}
return true;
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting(SAPbouiCOM.Form oForm, string pStrPFormUID)
{
// '// ADD YOUR ACTION CODE HERE ...
string strDEPDOM = string.Empty;
try
{
#region Form Setting
oForm.SupportedModes = -1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = false;
if (oForm.Mode != BoFormMode.fm_ADD_MODE && oForm.Mode != BoFormMode.fm_VIEW_MODE)
{
oForm.Mode = BoFormMode.fm_OK_MODE;
}
#endregion
oForm.DataSources.UserDataSources.Item("pFormUID").Value = pStrPFormUID;
// 신청접수년월
oComboBox = oForm.Items.Item("cboTAKEYM").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Space, "");
oForm.DataSources.DataTables.Add("grd");
//FindData(oForm);
this.SetGridTitle(oForm);
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting() {
// '// ADD YOUR ACTION CODE HERE ...
try
{
#region Form Setting
oForm.SupportedModes = 1;
oForm.Settings.EnableRowFormat = false;
oForm.Settings.Enabled = false;
oForm.AutoManaged = true;
#endregion
#region ComboBox
string sql = string.Empty;
// 콜유형
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboCALLTP").Specific;
// 2014.06.13 주소변경 후속작업에 추가
sql = string.Format(" SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code = {0} AND U_USEYN = 'Y'AND U_SMLCD IN ('U20','U30','U60','U70') ORDER BY U_SMLCD ", FN.SetSingleQuotes("SO12"));
FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Space, null);
oForm.DataSources.UserDataSources.Item("edtFRRECDT").Value = B1Connections.diCompany.GetCompanyDate().ToShortDateString();
oForm.DataSources.UserDataSources.Item("edtTORECDT").Value = B1Connections.diCompany.GetCompanyDate().ToShortDateString();
// 처리상태
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboPROSTAT").Specific;
oComboBox.ValidValues.Add("", "전체");
oComboBox.ValidValues.Add("N", "미결");
oComboBox.ValidValues.Add("O", "완료");
//FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Space, null);
#endregion
#region EditText
SAPbouiCOM.Conditions oCons = new SAPbouiCOM.Conditions();
//oCons = FN.GetConditionsWithQuery("Type == S && Status == P && (U_WRKODYN ~~ || (U_WRKODYN !~ && U_WRKODYN == N))");
// 독자코드
oCons = null; FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtFRRDCD", "Code", BoFormItemTypes.it_EDIT, oCons);
oCons = null; FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtTORDCD", "Code", BoFormItemTypes.it_EDIT, oCons);
//// 배달코드
oCons = null; FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtFRDELCD", "Code", BoFormItemTypes.it_EDIT, oCons);
oCons = null; FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtTODELCD", "Code", BoFormItemTypes.it_EDIT, oCons);
//// 작업자
oCons = FN.GetConditionsWithQuery("U_USERGBN == 10,20,30");
FN.SetChooseFromListAdd(oForm, "KIS_SO0010_HRD", "edtRECVID", "Code", BoFormItemTypes.it_EDIT, oCons);
#endregion
oForm.DataSources.DataTables.Add("grd");
SetGridTitle(oForm);
foreach (SAPbouiCOM.Item item in oForm.Items)
{
item.AffectsFormMode = false;
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
public virtual bool ET_cboTAKEYM_BFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboTAKEYM").Specific));
// ADD YOUR ACTION CODE HERE ...
if (!string.IsNullOrEmpty(oComboBox.Value.ToString()))
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Space, oComboBox.Value.Trim());
return true;
}
/// <summary>
/// 폼(Form)의 아이템들(Items)에 연결이 필요한 데이타소스(DataSource) 형식을 정의합니다.
/// </summary>
private void Act2_DataSourcesBinding() {
// '// ADD YOUR ACTION CODE HERE ...
#region EditText
string ItemUID = "";
ItemUID = "edtEMPNO"; oForm.DataSources.UserDataSources.Add(ItemUID, BoDataType.dt_SHORT_TEXT, 30); FN.SetUserDataBind(oForm, ItemUID);//사원코드
ItemUID = "edtEMPNM"; oForm.DataSources.UserDataSources.Add(ItemUID, BoDataType.dt_SHORT_TEXT, 30); FN.SetUserDataBind(oForm, ItemUID);//사원코드
#endregion
#region ComboBox
string sql = string.Empty;
//string sql = FN.GetSQL("KIS_SF0360A_001");
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
// 기수
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboYEAR").Specific;
sql = string.Format(" SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y'");
FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Nothing, null);
sql = string.Format(" SELECT LEFT(U_SMLNM,4) AS YEAR FROM [@KIS_AD00201] WHERE CODE = 'HR01' AND U_USEYN = 'Y' AND LEFT(U_SMLNM,4) = '" + DateTime.Now.Year.ToString() + "'");
oRS.DoQuery(sql);
oComboBox.Select(oRS.Fields.Item("YEAR").Value.ToString(), BoSearchKey.psk_ByValue);
// 부서
oComboBox = (SAPbouiCOM.ComboBox)oForm.Items.Item("cboDEPT").Specific;
sql = string.Format(" SELECT U_DEPTCD,U_DEPTNM FROM [@KIS_HR00401] WHERE U_USEYN = 'Y'");
oComboBox.ValidValues.Add("", "");
FN.QComboBind(ref oComboBox, sql, FN.Enum_WholeTp.m_Nothing, null);
#endregion
#region ChooseFromList
SAPbouiCOM.Conditions oCons = new SAPbouiCOM.Conditions();
//oCons = FN.GetConditionsWithQuery("CARDTYPE == S");
oCons = null;
FN.SetChooseFromListAdd(oForm, "KIS_HR0120", "edtEMPNO", "U_EMPNO", BoFormItemTypes.it_EXTEDIT, oCons);
#endregion
}
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 virtual void ET_cboMTCHO_AFComboSelect(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oComboBox = ((SAPbouiCOM.ComboBox)(oForm.Items.Item("cboMTCHO").Specific));
// ADD YOUR ACTION CODE HERE ...
FindData3(oForm);
}
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
private void ClearUnManagedObject()
{
if (oUDS != null) { Marshal.ReleaseComObject(oUDS); } oUDS = null;
if (oComboBox != null) { Marshal.ReleaseComObject(oComboBox); } oComboBox = null;
if (oEditText != null) { Marshal.ReleaseComObject(oEditText); } oEditText = null;
if (oGrid != null) { Marshal.ReleaseComObject(oGrid); } oGrid = null;
if (oButton != null) { Marshal.ReleaseComObject(oButton); } oButton = null;
if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null;
// ADD YOUR ACTION CODE HERE ...
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
}
private void CriarFormulario()
{
SAPbouiCOM.Item oItem = null;
//SAPbouiCOM.Button oButton = null;
SAPbouiCOM.StaticText oStaticText = null;
SAPbouiCOM.ComboBox oComboBox = null;
SAPbouiCOM.EditText oEditText = null;
try
{
this.oForm = this.oApplication.Forms.Add("frmStatusBar", BoFormTypes.ft_Fixed, -1);
}
catch (COMException ex)
{
//if (ex.ErrorCode == -7010)
//{
// this.oForm = this.oApplication.Forms.Add("frmStatusBar");
//}
//else
//{
System.Windows.Forms.MessageBox.Show(
ex.Message
, "Erro"
, System.Windows.Forms.MessageBoxButtons.OK
, System.Windows.Forms.MessageBoxIcon.Error
);
System.Environment.Exit(0);
//}
}
ConfiguraForm(
"Exemplo Status Bar"
, 400
, 350
, 100
, 80
);
//add botao ok
this.oButtonOK = UIHelper.AddBotaoAoFormulario(this.oForm, "1", 6, 65, 53, 19, "OK");
this.oButtonMenssagem = UIHelper.AddBotaoAoFormulario(this.oForm, "BTN_STATUS", 90, 150, 53, 19, "Mostrar Mensagem");
this.oItemRect = UIHelper.AddRectAoFormulario(this.oForm, "Rect1", 0, 344, 1, 45);
this.oComboBoxTypeMessage = UIHelper.AddComboBoxAoFormulario(this.oForm, "ComboBox1", 157, 163, 24, 14);
this.oEditTextMessage = UIHelper.AddEditTextAoFormulario(this.oForm, "edtMessage", 157, 163, 8, 14);
this.oStaticTextMensagem = UIHelper.AddStaticTextAoFormulario(this.oForm, "st01", 7, 148, 8, 14, "Mensagem de texto:", "edtMessage");
this.oStaticTextTipoMensagem = UIHelper.AddStaticTextAoFormulario(this.oForm, "st02", 7, 148, 8, 14, "Mensagem de texto:", "ComboBox1");
this.AddDataSources();
this.oComboBoxTypeMessage.ValidValues.Add(Convert.ToString(BoStatusBarMessageType.smt_Warning), "Warning");
this.oComboBoxTypeMessage.ValidValues.Add(Convert.ToString(BoStatusBarMessageType.smt_Error), "Error");
this.oComboBoxTypeMessage.ValidValues.Add(Convert.ToString(BoStatusBarMessageType.smt_None), "None");
this.oComboBoxTypeMessage.ValidValues.Add(Convert.ToString(BoStatusBarMessageType.smt_Success), "Sucess");
this.oComboBoxTypeMessage.Select(0, BoSearchKey.psk_Index);
}
private void ClearUnManagedObject()
{
if (oComboBox != null) { Marshal.ReleaseComObject(oComboBox); } oComboBox = null;
if (oGrid != null) { Marshal.ReleaseComObject(oGrid); } oGrid = null;
if (oUDS != null) { Marshal.ReleaseComObject(oUDS); } oUDS = null;
//if (gDs.Tables[oForm.UniqueID + "_Deliver"] != null) gDs.Tables[oForm.UniqueID + "_Deliver"] = null;
//if (gDs.Tables[oForm.UniqueID + "_Call"] != null) gDs.Tables[oForm.UniqueID + "_Call"] = null;
if (gDs != null)
{
if(gDs.Tables.Contains(oForm.UniqueID + "_Deliver"))
{
gDs.Tables.Remove(oForm.UniqueID + "_Deliver");
}
if (gDs.Tables.Contains(oForm.UniqueID + "_Call"))
{
gDs.Tables.Remove(oForm.UniqueID + "_Call");
}
}
if (oDB_M != null) { Marshal.ReleaseComObject(oDB_M); } oDB_M = null;
if (oMatrix != null) { Marshal.ReleaseComObject(oMatrix); } oMatrix = null;
if (oDB1_O != null) { Marshal.ReleaseComObject(oDB1_O); } oDB1_O = null;
if (oDB1_Z != null) { Marshal.ReleaseComObject(oDB1_Z); } oDB1_Z = null;
if (oDB2_O != null) { Marshal.ReleaseComObject(oDB2_O); } oDB2_O = null;
if (oDB2_Z != null) { Marshal.ReleaseComObject(oDB2_Z); } oDB2_Z = null;
if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null;
if (oEditText != null) { Marshal.ReleaseComObject(oEditText); } oEditText = null;
if ((oForm != null))
{
Marshal.ReleaseComObject(oForm);
}
oForm = null;
// ADD YOUR ACTION CODE HERE ...
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
}
private String sConnection()
{
String sMultiSoc;
try
{
if (bMultiSoc == true)
{
oComboBox = (ComboBox)(oForm.Items.Item("Instituto").Specific);
sMultiSoc = oComboBox.Selected.Value;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select U_Servidor, U_Base, U_Usuario, U_Password
from [@VID_FEMULTISOC] WITH (NOLOCK)
where DocEntry = {0}";
}
else
{
s = @"select ""U_Servidor"", ""U_Base"", ""U_Usuario"", ""U_Password""
from ""@VID_FEMULTISOC""
where ""DocEntry"" = {0} ";
}
s = String.Format(s, sMultiSoc);
}
else
{
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"Select U_Servidor
,U_Base
,U_Usuario
,U_Password
from [@VID_FEPARAM] ";
}
else
{
s = @"Select ""U_Servidor""
,""U_Base""
,""U_Usuario""
,""U_Password""
from ""@VID_FEPARAM"" ";
}
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if (bMultiSoc == true)
{
User = (System.String)(oRecordSet.Fields.Item("U_Usuario").Value).ToString().Trim();
Pass = (System.String)(oRecordSet.Fields.Item("U_Password").Value).ToString().Trim();
}
else
{
User = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Usuario").Value).ToString().Trim());
Pass = Param.DesEncriptar((System.String)(oRecordSet.Fields.Item("U_Password").Value).ToString().Trim());
}
return(Param.sConexion((System.String)(oRecordSet.Fields.Item("U_Servidor").Value), (System.String)(oRecordSet.Fields.Item("U_Base").Value), User, Pass));
}
else
{
return("");
}
}
catch (Exception e)
{
return("");
}
}
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act3_DefualtSetting(SAPbouiCOM.Form oForm)
{
// '// ADD YOUR ACTION CODE HERE ...
oForm.Settings.EnableRowFormat = false;
// UDO, 네비게이션 사용하지 않음
oForm.SupportedModes = 1;
FN.SetOptionBtn(ref oForm, "optALL(A),optREAD(R),optCENT(C)", "optALL");
string strYYYYMM = FN.SetDateFormatToDB(DateTimeLibrary.FirstDayOfCurrentMonth(), FN.eDateType.n_YYYYMMDD).Substring(0, 6);
// 청구년월 시작
oComboBox = oForm.Items.Item("cboREQYM_F").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, strYYYYMM);
// 청구년월 종료
oComboBox = oForm.Items.Item("cboREQYM_T").Specific;
SO.SO_COMMON_HRD.SetComboValue_YearMonth(ref oComboBox, FN.Enum_WholeTp.m_Nothing, strYYYYMM);
// 계산서발행구분
FN.SetComboBoxValidValues(oForm, " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO15' AND U_SMLCD IN ('U0', 'U1', 'U3', 'U5') ", "cboBILLTP", FN.Enum_WholeTp.m_Space);
#region 독자마스터 Condition
SAPbouiCOM.Conditions oCons = new Conditions(); ;
SAPbouiCOM.Condition oCon = oCons.Add();
oCon.Alias = "U_VATGRUP"; //계산서발행구분
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U0"; // 발행(전자)
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_VATGRUP";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U1"; // 발행(종이)
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_VATGRUP";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U3"; // 수기발행(선납)
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_VATGRUP";
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U5"; // 발행(전자타사)
#endregion
FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtREAD_F", "Code", BoFormItemTypes.it_EDIT, oCons, "edtREAD_F");
FN.SetChooseFromListAdd(oForm, "KIS_SO0030_HRD", "edtREAD_T", "Code", BoFormItemTypes.it_EDIT, oCons, "edtREAD_T");
#region 지국마스터 Condition
oCons = new Conditions(); ;
oCon = oCons.Add();
oCon.Alias = "U_BILLGBN"; //계산서발행구분
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U0"; // 발행(전자)
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_BILLGBN"; // 발행(종이)
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U1";
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_BILLGBN"; // 발행(종이)
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U3";
oCon.Relationship = BoConditionRelationship.cr_OR;
oCon = oCons.Add();
oCon.Alias = "U_BILLGBN"; // 발행(종이)
oCon.Operation = BoConditionOperation.co_EQUAL;
oCon.CondVal = "U5";
#endregion
FN.SetChooseFromListAdd(oForm, "KIS_SO0040_HRD", "edtCENT_F", "Code", BoFormItemTypes.it_EDIT, oCons, "edtCENT_F");
FN.SetChooseFromListAdd(oForm, "KIS_SO0040_HRD", "edtCENT_T", "Code", BoFormItemTypes.it_EDIT, oCons, "edtCENT_T");
SetGridTitle(oForm);
SAPbouiCOM.Item oItem = oForm.Items.Item("fld01");
oItem.Click();
}
private void ClearUnManagedObject() {
if ( oFolder != null ) { Marshal.ReleaseComObject(oFolder); } oFolder = null;
if (oEditText != null) { Marshal.ReleaseComObject(oEditText); } oEditText = null;
if (oButton != null) { Marshal.ReleaseComObject(oButton); } oButton = null;
if (oComboBox != null) { Marshal.ReleaseComObject(oComboBox); } oComboBox = null;
if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null;
if ((oGrid1 != null)) { Marshal.ReleaseComObject(oGrid1); } oForm = null;
if ((oGrid2 != null)) { Marshal.ReleaseComObject(oGrid2); } oForm = null;
if ((oGrid3 != null)) { Marshal.ReleaseComObject(oGrid3); } oForm = null;
if ((oGrid4 != null)) { Marshal.ReleaseComObject(oGrid4); } oForm = null;
if ((oRS != null)) { Marshal.ReleaseComObject(oRS); } oForm = null;
// ADD YOUR ACTION CODE HERE ...
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
GRIDCODE = "";
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
SAPbouiCOM.Folder oFolder;
SAPbouiCOM.Item oItem;
SAPbouiCOM.Item oItemB;
Boolean Flag;
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>();
oForm = FSBOApp.Forms.Item(uid);
Flag = false;
oForm.Freeze(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();
}
//Campo con el estado de DTE
oItemB = oForm.Items.Item("53");
oItem = oForm.Items.Add("lblEstado", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem.Left = oItemB.Left;
oItem.Width = oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItem.Height;
oItem.LinkTo = "VID_FEEstado";
oStatic = (StaticText)(oForm.Items.Item("lblEstado").Specific);
oStatic.Caption = "Estado Doc. Electronico";
oItemB = oForm.Items.Item("52");
oItem = oForm.Items.Add("VID_Estado", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX);
oItem.Left = oItemB.Left;
oItem.Width = oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItem.Height;
oItem.DisplayDesc = true;
oItem.Enabled = false;
oComboBox = (ComboBox)(oForm.Items.Item("VID_Estado").Specific);
//colocar folder con los campos necesarios en FE PERU
//oForm.DataSources.UserDataSources.Add("VID_FEDCTO", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1);
//oItem = oForm.Items.Add("VID_FEDCTO", SAPbouiCOM.BoFormItemTypes.it_FOLDER);
//oItemB = oForm.Items.Item("1320002137");
//oItem.Left = oItemB.Left + 30;
//oItem.Width = oItemB.Width;
//oItem.Top = oItemB.Top;
//oItem.Height = oItem.Height;
//oFolder = (Folder)((oItem.Specific));
//oFolder.Caption = "Factura Electrónica";
//oFolder.Pane = 333;
//oFolder.DataBind.SetBound(true, "", "VID_FEDCTO");
//para SAP 882 en adelante
//oFolder.GroupWith("1320002137");
//cargar campos de usuarios
oItemB = oForm.Items.Item("lblEstado");
oItem = oForm.Items.Add("lblPTSC", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem.Left = oItemB.Left;
oItem.Width = oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItemB.Height;
//oItem.FromPane = 333;
//oItem.ToPane = 333;
oItem.LinkTo = "VID_FEPTSC";
oStatic = (StaticText)(oForm.Items.Item("lblPTSC").Specific);
oStatic.Caption = "Serie del documento";
oItemB = oForm.Items.Item("VID_Estado");
oItem = oForm.Items.Add("VID_FEPTSC", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oItem.Left = oItemB.Left;
oItem.Width = 90; // oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItemB.Height;
//oItem.FromPane = 333;
//oItem.ToPane = 333;
oItem.RightJustified = true;
oEditText = (EditText)(oForm.Items.Item("VID_FEPTSC").Specific);
oEditText.DataBind.SetBound(true, "OVPM", "U_BPP_PTSC");
//--
oItemB = oForm.Items.Item("lblPTSC");
oItem = oForm.Items.Add("lblPTCC", SAPbouiCOM.BoFormItemTypes.it_STATIC);
oItem.Left = oItemB.Left;
oItem.Width = oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItemB.Height;
//oItem.FromPane = 333;
//oItem.ToPane = 333;
oItem.LinkTo = "VID_FEPTCC";
oStatic = (StaticText)(oForm.Items.Item("lblPTCC").Specific);
oStatic.Caption = "Correlativo del documento";
oItemB = oForm.Items.Item("VID_FEPTSC");
oItem = oForm.Items.Add("VID_FEPTCC", SAPbouiCOM.BoFormItemTypes.it_EDIT);
oItem.Left = oItemB.Left;
oItem.Width = 90; // oItemB.Width;
oItem.Top = oItemB.Top + oItemB.Height + 5;
oItem.Height = oItemB.Height;
//oItem.FromPane = 333;
//oItem.ToPane = 333;
oItem.RightJustified = true;
oEditText = (EditText)(oForm.Items.Item("VID_FEPTCC").Specific);
oEditText.DataBind.SetBound(true, "OVPM", "U_BPP_PTCC");
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
if (oForm != null)
{
oForm.Visible = true;
oForm.Freeze(false);
}
}
return(Result);
}//fin InitForm
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;
}