/// <summary>
/// Carga el grid de las series escaneadas
/// </summary>
private void CargarGridArqueo()
{
try
{
_oForma = _Application.Forms.Item(formID);
_oForma.Freeze(true);//
_oForma.DataSources.DataTables.Item(DT_ARQUEOS)
.ExecuteQuery(@"SELECT CAST('' AS INT) AS #,
CAST('' AS NVARCHAR(MAX)) AS CodigoAsistente ,
CAST('' AS NVARCHAR(MAX)) AS NombreAsistente ,
CAST('' AS NVARCHAR(MAX)) AS CodigoOficina ,
CAST('' AS NVARCHAR(MAX)) AS Empresa ,
CAST('' AS NVARCHAR(MAX)) AS 'Plan' ,
CAST('' AS NVARCHAR(MAX)) AS Solicitud ,
CAST('' AS DATETIME) AS FechaArqueo
");
_oGridArqueos = (SAPbouiCOM.Grid)_oForma.Items.Item(GRD_ARQUEOS).Specific;
_oGridArqueos.DataTable = _oForma.DataSources.DataTables.Item(DT_ARQUEOS);
FormatoGrid(_oGridArqueos, "");
_oGridArqueos.AutoResizeColumns();
}
catch (Exception ex)
{
throw new Exception("Error al cargar grid de arqueo *CargarGridArqueo* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
/// <summary>
/// Initialize components. Called by framework after form created.
/// </summary>
public override void OnInitializeComponent()
{
this.fileSelector = ((SAPbouiCOM.Button)(this.GetItem("btArq").Specific));
this.fileSelector.ClickBefore += new SAPbouiCOM._IButtonEvents_ClickBeforeEventHandler(this.FileButton_ClickBefore);
this.modulePath = ((SAPbouiCOM.EditText)(this.GetItem("edArquivo").Specific));
this.installUpdateModule = ((SAPbouiCOM.Button)(this.GetItem("btInst").Specific));
this.installUpdateModule.ClickBefore += new SAPbouiCOM._IButtonEvents_ClickBeforeEventHandler(this.InstallUpdateModule_ClickBefore);
this.moduleGrid = ((SAPbouiCOM.Grid)(this.GetItem("gridArq").Specific));
this.removeButton = ((SAPbouiCOM.Button)(this.GetItem("btModu").Specific));
this.removeButton.ClickAfter += new SAPbouiCOM._IButtonEvents_ClickAfterEventHandler(this.RemoveButtom_ClickAfter);
this.startButton = ((SAPbouiCOM.Button)(this.GetItem("btStart").Specific));
this.startButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(startButton_ClickAfter);
this.shutdownButton = ((SAPbouiCOM.Button)(this.GetItem("btStop").Specific));
this.shutdownButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(shutdownButton_ClickAfter);
this.installButton = ((SAPbouiCOM.Button)(this.GetItem("btInstall").Specific));
this.installButton.ClickAfter += new _IButtonEvents_ClickAfterEventHandler(installButton_ClickAfter);
this.configTemp = this.UIAPIRawForm.DataSources.DataTables.Item("configTemp");
this.moduleGrid.ClickAfter += new _IGridEvents_ClickAfterEventHandler(moduleGrid_ClickAfter);
((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).ValidValues.Add("Y", Messages.Yes);
((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).ValidValues.Add("N", Messages.No);
((ComboBoxColumn)moduleGrid.Columns.Item("Installed")).DisplayType = BoComboDisplayType.cdt_Description;
((ComboBoxColumn)moduleGrid.Columns.Item("Status")).ValidValues.Add("R", Messages.AdminRunning);
((ComboBoxColumn)moduleGrid.Columns.Item("Status")).ValidValues.Add("S", Messages.AdminStopped);
((ComboBoxColumn)moduleGrid.Columns.Item("Status")).DisplayType = BoComboDisplayType.cdt_Description;
moduleDT = moduleGrid.DataTable;
// click on first tab.
this.UIAPIRawForm.DataSources.UserDataSources.Item("Folders").Value = "1";
}
public static void Linkto(ref SAPbouiCOM.Grid grid, string boLinkedObject)
{
var oColumn = grid.Columns.Item(0) as EditTextColumn;
oColumn.Type = BoGridColumnType.gct_EditText;
oColumn.LinkedObjectType = boLinkedObject;
}
public static void ReadOnly(ref SAPbouiCOM.Grid grid)
{
for (int i = 0; i < grid.Columns.Count; i++)
{
grid.Columns.Item(i).Editable = false;
}
}
/// <summary>
/// Initialize components. Called by framework after form created.
/// </summary>
public override void OnInitializeComponent()
{
userConfigSQLTemplate = this.GetSQL("addInStartupManagementSQLTemplate.sql");
this.gridUser = ((SAPbouiCOM.Grid)(this.GetItem("gridUser").Specific));
this.gridCfg = ((SAPbouiCOM.Grid)(this.GetItem("gridCfg").Specific));
this.generalGrid = ((SAPbouiCOM.Grid)(this.GetItem("gridGnrl").Specific));
this.configTemp = this.UIAPIRawForm.DataSources.DataTables.Item("configTemp");
this.OnCustomInitialize();
}
private void CargarGrid()
{
try
{
ogrid = ((Grid)oForm.Items.Item("ogrid").Specific);
odt = ogrid.DataTable;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT DocEntry, U_CardCode, U_CardName, U_Activado FROM [@VID_FELISTANE]";
}
else
{
s = @"SELECT ""DocEntry"", ""U_CardCode"", ""U_CardName"", ""U_Activado"" FROM ""@VID_FELISTANE"" ";
}
ogrid.DataTable.ExecuteQuery(s);
ogrid.Columns.Item("DocEntry").Type = BoGridColumnType.gct_EditText;
var oColumn = ((GridColumn)ogrid.Columns.Item("DocEntry"));
((EditTextColumn)oColumn).Editable = false;
((EditTextColumn)oColumn).TitleObject.Caption = "DocEntry";
((EditTextColumn)oColumn).Visible = false;
ogrid.Columns.Item("U_CardCode").Type = BoGridColumnType.gct_EditText;
oColumn = ((GridColumn)ogrid.Columns.Item("U_CardCode"));
((EditTextColumn)oColumn).Editable = true;
((EditTextColumn)oColumn).TitleObject.Caption = "Codigo SN";
((EditTextColumn)oColumn).Visible = true;
((EditTextColumn)oColumn).LinkedObjectType = "2";
((EditTextColumn)oColumn).ChooseFromListUID = "CFL0";
((EditTextColumn)oColumn).ChooseFromListAlias = "CardCode";
ogrid.Columns.Item("U_CardName").Type = BoGridColumnType.gct_EditText;
oColumn = ((GridColumn)ogrid.Columns.Item("U_CardName"));
((EditTextColumn)oColumn).Editable = false;
((EditTextColumn)oColumn).TitleObject.Caption = "Razón Social";
((EditTextColumn)oColumn).Visible = true;
ogrid.Columns.Item("U_Activado").Type = BoGridColumnType.gct_CheckBox;
var oColumnchx = ((GridColumn)ogrid.Columns.Item("U_Activado"));
((CheckBoxColumn)oColumnchx).Editable = true;
((CheckBoxColumn)oColumnchx).TitleObject.Caption = "Activo";
((CheckBoxColumn)oColumnchx).Visible = true;
ogrid.AutoResizeColumns();
if (((System.String)odt.GetValue("U_CardCode", 0)).Trim() != "")
{
odt.Rows.Add();
}
FSBOApp.StatusBar.SetText("Lista Negra cargada", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
catch (Exception e)
{
FSBOApp.StatusBar.SetText(e.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("CargarGrid: " + e.Message + " ** Trace: " + e.StackTrace);
}
}
/// <summary>
/// Initialize components. Called by framework after form created.
/// </summary>
public override void OnInitializeComponent()
{
userConfigSQLTemplate = this.GetSQL("addInStartupManagementSQLTemplate.sql");
this.gridUser = ((SAPbouiCOM.Grid)(this.GetItem("gridUser").Specific));
this.gridCfg = ((SAPbouiCOM.Grid)(this.GetItem("gridCfg").Specific));
this.generalGrid = ((SAPbouiCOM.Grid)(this.GetItem("gridGnrl").Specific));
this.configTemp = this.UIAPIRawForm.DataSources.DataTables.Item("configTemp");
this.OnCustomInitialize();
}
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_FECTASAP.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT COUNT(*) AS cant FROM [@VID_FEPLANCTA] WHERE DocEntry = {0}";
}
else
{
s = @"SELECT COUNT(*) ""cant"" FROM ""@VID_FEPLANCTA"" WHERE ""DocEntry"" = {0} ";
}
s = String.Format(s, DocEntry);
oRecordSet.DoQuery(s);
oForm.SupportedModes = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? 1 : 3);
oForm.Mode = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? BoFormMode.fm_OK_MODE : BoFormMode.fm_ADD_MODE);
oDBDSDetalle = oForm.DataSources.DBDataSources.Add("@VID_FEPLANCTAD");
odt = oForm.DataSources.DataTables.Add("Cuentas");
oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific);
oGrid.DataTable = odt;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
AddChooseFromList();
CargarGrilla();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
}//fin MenuEvent
private void BorrarLinea()
{
Int32 sCode;
Boolean bPaso;
try
{
bPaso = false;
ogrid = ((Grid)oForm.Items.Item("ogrid").Specific);
odt = ogrid.DataTable;
for (Int32 iCont_1 = 0; iCont_1 < odt.Rows.Count; iCont_1++)
{
if (((System.String)odt.GetValue("U_CardCode", iCont_1)).Length > 0)
{
if (ogrid.Rows.IsSelected(iCont_1))
{
sCode = ((System.Int32)odt.GetValue("DocEntry", iCont_1));
if (sCode != 0)
{
if (Funciones.DelDataSource("D", "VID_FELISTANE", "", sCode))
{
odt.Rows.Remove(iCont_1);
oForm.Mode = BoFormMode.fm_OK_MODE;
FSBOApp.StatusBar.SetText("Linea eliminada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
bPaso = true;
break;
}
}
else
{
odt.Rows.Remove(iCont_1);
FSBOApp.StatusBar.SetText("Linea eliminada correctamente", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
bPaso = true;
}
}
}
}
if (bPaso == false)
{
FSBOApp.StatusBar.SetText("Debe seleccionar una linea", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
}
}
catch (Exception g)
{
FSBOApp.StatusBar.SetText(g.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("BorrarLinea: " + g.Message + " ** Trace: " + g.StackTrace);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
SAPbouiCOM.ComboBox oComboBox;
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_FERESFOL.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Buscar
oForm.EnableMenu("1282", false); //Crear
//VID_DelRow := true;
//VID_DelRowOK := true;
// oForm.DataBrowser.BrowseBy := "Code";
// oDBDSCAF := oForm.DataSources.DBDataSources.Add("@VID_FECAF");
// oDBDSDISTH := oForm.DataSources.DBDataSources.Add("@VID_FEDIST");
// oDBDSDISTD := oForm.DataSources.DBDataSources.Add("@VID_FEDISTD");
ogrid = (Grid)(oForm.Items.Item("grid").Specific);
oDataTable = oForm.DataSources.DataTables.Add("dt");
ogrid.DataTable = oDataTable;
FSBOApp.StatusBar.SetText("Actualizando estado de folios asignados", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
ActualizarRegistros();
// Ok Ad Fnd Vw Rq Sec
// Lista.Add('TipoDoc , f, t, t, f, r, 1');
// FSBOf.SetAutoManaged(var oForm, Lista);
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 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_FEListaNegra.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
ogrid = ((Grid)oForm.Items.Item("ogrid").Specific);
oDBDSHeader = ((DBDataSource)oForm.DataSources.DBDataSources.Item("@VID_FELISTANE"));
ogrid.DataTable = oForm.DataSources.DataTables.Add("dt");
AddChooseFromList();
CargarGrid();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
if (oForm != null)
{
oForm.Freeze(false);
}
}
return(Result);
}//fin InitForm
public void SubFormInit(string KeyValue)
{
this.LoadForm();
oForm = B1Connections.theAppl.Forms.Item(formuid);
oForm.Freeze(true);
this.Act1_FormInit();
if (oForm.Mode != BoFormMode.fm_VIEW_MODE) { oForm.Mode = BoFormMode.fm_OK_MODE; }
oForm.Freeze(false);
oForm.Visible = true;
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
for (int iLooper = 0; iLooper < oGrid.Rows.Count; iLooper++)
{
if (oGrid.DataTable.Columns.Item("Code").Cells.Item(oGrid.GetDataTableRowIndex(iLooper)).Value.ToString() == KeyValue)
{
Veiw_Grid_SelectedRow(iLooper);
break;
}
}
}
private void MostrarPDF(Int32 Linea)
{
String Code;
String sXml;
String TipoDoc;
String Folio;
String RUTEmisor;
String oPath;
String sNombreArchivo;
String sNombrePDF;
Boolean flag = true;
String Pass = "";
try
{
oGrid = (Grid)(oForm.Items.Item("grid").Specific);
Code = Convert.ToString(((System.Int32)oGrid.DataTable.GetValue("DocEntry", Linea)), _nf);
sXml = ((System.String)oGrid.DataTable.GetValue("xml", Linea));
TipoDoc = ((System.String)oGrid.DataTable.GetValue("TipoDoc", Linea));
RUTEmisor = ((System.String)oGrid.DataTable.GetValue("RUT", Linea));
Folio = Convert.ToString(((System.Int32)oGrid.DataTable.GetValue("Folio", Linea)), _nf);
if (sXml != "")
{
oPath = System.IO.Path.GetDirectoryName(TMultiFunctions.ParamStr(0));
try
{
if (GlobalSettings.RunningUnderSQLServer)
{
sNombreArchivo = oPath + "\\Reports\\CL\\SQL\\ReporteXML.rpt";
}
else
{
sNombreArchivo = oPath + "\\Reports\\CL\\HANA\\ReporteXML.rpt";
}
sNombrePDF = oPath + @"\PDF\" + RUTEmisor + "_" + TipoDoc + "_" + Folio + ".pdf";
if (File.Exists(sNombrePDF))
{
System.Diagnostics.Process proc = new System.Diagnostics.Process();
proc.StartInfo.FileName = sNombrePDF;
proc.Start();
}
else
{
FSBOf.AddRepKey(Code, "FEREPORTXML", "FEREPORTXML");//oForm.TypeEx);
GlobalSettings.CrystalReportFileName = sNombreArchivo;
try
{
FSBOApp.Menus.Item("4873").Activate();
}
catch { }
/*FSBOApp.Menus.Item("4873").Activate();
* var oFormB = FSBOApp.Forms.ActiveForm;
* ((EditText)oFormB.Items.Item("410000004").Specific).Value = sNombreArchivo;
* oFormB.Items.Item("410000005").Click(BoCellClickType.ct_Regular);*/
}
}
catch (Exception p)
{
FSBOApp.StatusBar.SetText(p.Message + " ** Trace: " + p.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("Cargar Crystal: " + p.Message + " ** Trace: " + p.StackTrace);
}
}
else
{
FSBOApp.StatusBar.SetText("No se ha encontrado xml que genera PDF", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
}
}
catch (Exception x)
{
FSBOApp.StatusBar.SetText(x.Message + " ** Trace: " + x.StackTrace, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
OutLog("MostrarPDF: " + x.Message + " ** Trace: " + x.StackTrace);
}
}
public virtual bool ET_grd1_BFMatrixLinkPressed(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific));
// ADD YOUR ACTION CODE HERE ...
//try
//{
// int oRowIndex = oGrid.GetDataTableRowIndex(pVal.Row);
// string KeyValue = string.Empty;
// switch (pVal.ColUID)
// {
// case "DOCENTRY":
// KeyValue = oGrid.DataTable.GetValue("DOCENTRY", oRowIndex).ToString();
// LoadSubForm(oForm, "KIS_SD0030_HRD", KeyValue);
// break;
// case "U_CARDNM":
// KeyValue = oGrid.DataTable.GetValue("U_CARDCD", oRowIndex).ToString();
// B1Connections.theAppl.OpenForm(BoFormObjectEnum.fo_BusinessPartner, "", KeyValue);
// break;
// case "U_BPNM":
// KeyValue = oGrid.DataTable.GetValue("U_BPCD", oRowIndex).ToString();
// B1Connections.theAppl.OpenForm(BoFormObjectEnum.fo_BusinessPartner, "", KeyValue);
// break;
// default:
// break;
// }
//}
//catch (Exception ex)
//{
// B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
//}
//return false;
return true;
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oCombo;
SAPbouiCOM.GridColumn oColumn;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FECAF.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Buscar
oForm.EnableMenu("1282", false); //Crear
// VID_DelRow := true;
// VID_DelRowOK := true;
// oForm.DataBrowser.BrowseBy := "Code";
oDBDSH = oForm.DataSources.DBDataSources.Add("@VID_FECAF");
ogrid = (Grid)(oForm.Items.Item("grid").Specific);
oDataTable = oForm.DataSources.DataTables.Add("dt");
ogrid.DataTable = oDataTable;
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).Trim() == "Y")
{
bMultiSoc = true;
}
else
{
bMultiSoc = false;
}
}
else
{
bMultiSoc = false;
}
ActualizarGrilla();
// Ok Ad Fnd Vw Rq Sec
// Lista.Add('TipoDoc , f, t, t, f, r, 1');
// FSBOf.SetAutoManaged(var oForm, Lista);
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin Initform
public new bool InitForm(string uid, string xmlPath, ref 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
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FELibrosElect.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1;
oForm.DataSources.UserDataSources.Add("Periodo", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("Periodo").Specific).DataBind.SetBound(true, "", "Periodo");
oForm.DataSources.UserDataSources.Add("PeriodoD", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("PeriodoD").Specific).DataBind.SetBound(true, "", "PeriodoD");
oForm.DataSources.UserDataSources.Add("PeriodoH", BoDataType.dt_SHORT_TEXT, 10);
((ComboBox)oForm.Items.Item("PeriodoH").Specific).DataBind.SetBound(true, "", "PeriodoH");
odt = oForm.DataSources.DataTables.Add("grid");
grid = ((Grid)oForm.Items.Item("grid").Specific);
grid.DataTable = odt;
if ((TipoLibro == "D") || (TipoLibro == "M")) //Libro Mayor y Diario
{
s = "Periodo";
oForm.Items.Item(s).Click(BoCellClickType.ct_Regular);
if (TipoLibro == "D")
{
oForm.Title = "Libro Diario y Mayor";
}
oForm.PaneLevel = 1;
oForm.Items.Item("5").Visible = false;
oForm.Items.Item("PeriodoD").Visible = false;
oForm.Items.Item("7").Visible = false;
oForm.Items.Item("PeriodoH").Visible = false;
oForm.Items.Item("grid").Height = 210;
oForm.Items.Item("grid2").Visible = true;
odt2 = oForm.DataSources.DataTables.Add("grid2");
grid2 = ((Grid)oForm.Items.Item("grid2").Specific);
grid2.DataTable = odt2;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
}
else if (TipoLibro == "B")//Balance
{
s = "PeriodoD";
oForm.Items.Item(s).Click(BoCellClickType.ct_Regular);
oForm.Title = "Balance";
oForm.PaneLevel = 1;
oForm.Items.Item("4").Visible = false;
oForm.Items.Item("Periodo").Visible = false;
oForm.Items.Item("grid").Height = 210;
oForm.Items.Item("grid2").Visible = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oForm.Items.Item("PeriodoD").DisplayDesc = true;
oComboBox = ((ComboBox)oForm.Items.Item("PeriodoD").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oForm.Items.Item("PeriodoH").DisplayDesc = true;
oComboBox = ((ComboBox)oForm.Items.Item("PeriodoH").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
odt2 = oForm.DataSources.DataTables.Add("grid2");
grid2 = ((Grid)oForm.Items.Item("grid2").Specific);
grid2.DataTable = odt2;
}
else if (TipoLibro == "C") //para Diccionario de cuentas
{
oForm.Title = "Diccionario";
//oForm.PaneLevel = 2;
oForm.Items.Item("btnExp").Enabled = true;
oForm.PaneLevel = 1;
oForm.Items.Item("5").Visible = false;
oForm.Items.Item("PeriodoD").Visible = false;
oForm.Items.Item("7").Visible = false;
oForm.Items.Item("PeriodoH").Visible = false;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code', Code 'Name'
FROM OFPR
WHERE Category BETWEEN YEAR(GETDATE()) -1 AND YEAR(GETDATE())";
}
else
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"", ""Code"" ""Name""
FROM ""OFPR""
WHERE ""Category"" BETWEEN EXTRACT(YEAR FROM CURRENT_DATE) -1 AND EXTRACT(YEAR FROM CURRENT_DATE)";
}
oRecordSet.DoQuery(s);
oComboBox = ((ComboBox)oForm.Items.Item("Periodo").Specific);
FSBOf.FillCombo(oComboBox, ref oRecordSet, false);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT CAST(AbsEntry AS VARCHAR(20)) 'Code' FROM OFPR WHERE CONVERT(CHAR(6), F_RefDate, 112) = CONVERT(CHAR(6), GETDATE(), 112)";
}
else
{
s = @"SELECT TO_VARCHAR(""AbsEntry"") ""Code"" FROM ""OFPR"" WHERE TO_VARCHAR(""F_RefDate"", 'yyyyMM') = TO_VARCHAR(CURRENT_DATE, 'yyyyMM')";
}
oRecordSet.DoQuery(s);
oComboBox.Select(((System.String)oRecordSet.Fields.Item("Code").Value), BoSearchKey.psk_ByValue);
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
FSBOf.LoadForm(xmlPath, "VID_FEIMPADIC.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
Flag = false;
oForm.Freeze(true);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) Cont from [@VID_FEIMPADIC]";
}
else
{
s = @"select count(*) ""Cont"" from ""@VID_FEIMPADIC"" ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
oGrid = (Grid)(oForm.Items.Item("3").Specific);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEIMPADIC");
oDataTable = oForm.DataSources.DataTables.Add("Tax");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, U_CodImpto, U_Desc, U_Porc from [@VID_FEIMPADIC]
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0";
}
else
{
s = @"select ""Code"", ""U_CodImpto"", ""U_Desc"", ""U_Porc"" from ""@VID_FEIMPADIC""
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)), 0 FROM DUMMY ";
}
oDataTable.ExecuteQuery(s);
oGrid.DataTable = oDataTable;
oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_ComboBox;
oColumn = (GridColumn)(oGrid.Columns.Item("Code"));
var oComboCol = (ComboBoxColumn)(oColumn);
oComboCol.Editable = true;
oComboCol.TitleObject.Caption = "Impuesto SAP";
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name from OSTA
UNION ALL
select WTCode 'Code', WTName 'Name' from OWHT where Inactive = 'N'";
}
else
{
s = @"select ""Code"", ""Name"" from ""OSTA""
UNION ALL
select ""WTCode"" ""Code"", ""WTName"" ""Name"" from ""OWHT"" where ""Inactive"" = 'N' ";
}
oRecordSet.DoQuery(s);
FSBOf.FillComboGrid((GridColumn)(oGrid.Columns.Item("Code")), ref oRecordSet, true);
oGrid.Columns.Item("U_CodImpto").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_CodImpto"));
var oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Código Impto. SII";
oGrid.Columns.Item("U_Desc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_Desc"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Descripción Impuesto";
oGrid.Columns.Item("U_Porc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_Porc"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Porcentaje Retencion";
oEditCol.RightJustified = true;
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
/// <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;
_oPrecontratos = false;
Addon.typeList.RemoveAll(p => p._forma == formID);
return;
}
}
if (pVal.FormUID == formID && pVal.BeforeAction == true)
{
if (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED)
{
if (pVal.ItemUID == BTNBUSCAR)
{
BuscarDatos();
ContadorSeleccionados = 0;
}
if (pVal.ItemUID == BTNCOLLAP)
{
if (_oGridPrecontratos != null)
{
if (!_oGridPrecontratos.DataTable.IsEmpty)
{
_oGridPrecontratos.Rows.CollapseAll();
}
}
}
if (pVal.ItemUID == BTNEXPAN)
{
if (_oGridPrecontratos != null)
{
if (!_oGridPrecontratos.DataTable.IsEmpty)
{
_oGridPrecontratos.Rows.ExpandAll();
}
}
}
if (pVal.ItemUID == BTNCREAR)
{
if (_oGridPrecontratos != null)
{
if (!_oGridPrecontratos.DataTable.IsEmpty)
{
if (ContadorSeleccionados != 0)
{
CrearPreContratos();
_oForma.Close();
bubbleEvent = false;
}
else
{
_Application.MessageBox("No se ha seleccionado ningún Pre-contrato");
}
}
}
}
if (pVal.ItemUID == BTN_SELECCION_AUTOMATICA)
{
if (_oGridPrecontratos != null)
{
if (!_oGridPrecontratos.DataTable.IsEmpty)
{
SelecionAutomatica();
}
}
}
}
if (pVal.ItemUID == GRDPRECONTRATO && pVal.ColUID == "RowsHeader" && pVal.EventType == BoEventTypes.et_DOUBLE_CLICK)
{
bubbleEvent = false;
return;
}
if (pVal.EventType == BoEventTypes.et_ITEM_PRESSED && pVal.ItemUID == GRDPRECONTRATO && pVal.ColUID == "Crear")
{
int index = 0;
index = _oGridPrecontratos.GetDataTableRowIndex(pVal.Row);
_oGridPrecontratos = _oForma.Items.Item(GRDPRECONTRATO).Specific;
EstatusCrear = _oGridPrecontratos.DataTable.GetValue("Crear", index).ToString();
if (EstatusCrear == "Y")
{
ContadorSeleccionados += 1;
}
else
{
ContadorSeleccionados -= 1;
}
if (ContadorSeleccionados > 10)
{
_oGridPrecontratos.DataTable.SetValue("Crear", index, "N");
_Application.MessageBox("Solo se pueden seleccionar hasta 10 Pre-contratos");
ContadorSeleccionados -= 1;
}
}
}
}
catch (Exception ex)
{
throw new Exception("Error en evento *clsPreContratos* : " + ex.Message);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
//SAPbouiCOM.ComboBox oComboBox;
SAPbouiCOM.Column oColumn;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_FELibros.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1281", false); //Actualizar
oForm.EnableMenu("1282", false); //Crear
oDataTable = oForm.DataSources.DataTables.Add("dt");
ogrid = (SAPbouiCOM.Grid)(oForm.Items.Item("grid").Specific);
ogrid.DataTable = oDataTable;
if (TipoLibro == "V")
{
oForm.Title = "Libro de Ventas";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcVenta,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcVenta"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "C")
{
oForm.Title = "Libro de Compras";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcCompra,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcCompra"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "G")
{
oForm.Title = "Libro de Guias";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcGuia,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcGuia"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
else if (TipoLibro == "B")
{
oForm.Title = "Libro de Boletas";
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select isnull(U_ProcBol,'') Libro from [@VID_FEPARAM]";
}
else
{
s = @"select IFNULL(""U_ProcBol"",'') ""Libro"" from ""@VID_FEPARAM"" ";
}
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount > 0)
{
if ((System.String)(oRecordSet.Fields.Item("Libro").Value) != "")
{
Query((System.String)(oRecordSet.Fields.Item("Libro").Value));
}
}
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
Int32 CantRol;
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
Funciones.SBO_f = FSBOf;
try
{
Lista = new List <string>();
FSBOf.LoadForm(xmlPath, "VID_FEPLANCTA.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = true;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"SELECT COUNT(*) AS cant FROM [@VID_FEPLANCTA]";
}
else
{
s = @"SELECT COUNT(*) ""cant"" FROM ""@VID_FEPLANCTA""";
}
oRecordSet.DoQuery(s);
oForm.SupportedModes = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? 1 : 3);
oForm.Mode = (((System.Int32)oRecordSet.Fields.Item("cant").Value) > 0 ? BoFormMode.fm_OK_MODE : BoFormMode.fm_ADD_MODE);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FEPLANCTA");
if (((System.Int32)oRecordSet.Fields.Item("cant").Value) == 0)
{
FSBOApp.StatusBar.SetText("Iniciando carga de cuentas SII", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Warning);
CargarCtaSII();
}
// Ok Ad Fnd Vw Rq Sec
Lista.Add("grid , t, t, f, t, n, 1 ");
FSBOf.SetAutoManaged(oForm, Lista);
oForm.DataSources.UserDataSources.Add("Cuenta", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 30);
oEditText = ((EditText)oForm.Items.Item("Cuenta").Specific);
oEditText.DataBind.SetBound(true, "", "Cuenta");
oForm.DataSources.UserDataSources.Add("Descr", SAPbouiCOM.BoDataType.dt_LONG_TEXT, 60);
oEditText = ((EditText)oForm.Items.Item("Descr").Specific);
oEditText.DataBind.SetBound(true, "", "Descr");
oDataTable = oForm.DataSources.DataTables.Add("VID_FEPLANCTA");
oGrid = ((SAPbouiCOM.Grid)oForm.Items.Item("grid").Specific);
oGrid.DataTable = oDataTable;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
CargarGrilla();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
finally
{
oForm.Freeze(false);
}
return(Result);
}//fin InitForm
/// <summary>
/// Busca la información de acuerdo a los filtros capturados
/// </summary>
/// <param name="efiscal"></param>
/// <param name="codigo"></param>
/// <param name="descripcion"></param>
/// <param name="combos"></param>
public void BuscarDatos()
{
try
{
_oForma.Freeze(true);
string qryFechas = null;
string qryAlmacen = null;
if (!string.IsNullOrEmpty(_oTxtFechaInicial.Value) || !string.IsNullOrEmpty(_oTxtFechaFinal.Value) ||
!string.IsNullOrEmpty(_oTxtOficina.Value))
{
if (!_oTxtFechaInicial.Value.Equals("") && !_oTxtFechaFinal.Value.Equals(""))
{
string fechaDesde = _oTxtFechaInicial.Value.Substring(0, 4) + "-" + _oTxtFechaInicial.Value.Substring(4, 2) + "-" +
_oTxtFechaInicial.Value.Substring(6, 2);
string fechaHasta = _oTxtFechaFinal.Value.Substring(0, 4) + "-" + _oTxtFechaFinal.Value.Substring(4, 2) + "-" +
_oTxtFechaFinal.Value.Substring(6, 2);
DateTime fInicial = Convert.ToDateTime(fechaDesde);
DateTime fFinal = Convert.ToDateTime(fechaHasta);
if (fInicial <= fFinal)
{
qryFechas = " AND T1.DocDate BETWEEN '" + _oTxtFechaInicial.Value + "' AND '" + _oTxtFechaFinal.Value + "'";
}
else
{
_Application.MessageBox("La fecha inicial es mayor a la final");
return;
}
}
else if (!_oTxtFechaInicial.Value.Equals(""))
{
qryFechas = " AND T1.DocDate = '" + _oTxtFechaInicial.Value + "'";
}
else if (!_oTxtFechaFinal.Value.Equals(""))
{
qryFechas = " AND T1.DocDate = '" + _oTxtFechaFinal.Value + "'";
}
if (!_oTxtOficina.Value.Equals(""))
{
if (_oTxtOficina.Value == "GDLV97")
{
qryAlmacen = " AND T1.Filler = 'GDLCONS'";
}
else
{
qryAlmacen = " AND T1.Filler = '" + _oTxtOficina.Value + "'";
}
}
_oForma.DataSources.DataTables.Item(DT_PRECONTRATOS)
.ExecuteQuery(@"SELECT T1.DocEntry AS DocEntry,
'Crear' AS Crear,
T4.USER_CODE AS CodigoUsuario,
T1.DocNum AS DocNum,
T0.U_Serie AS Serie,
T0.U_CodPromotor AS CodigoPromotor,
T0.U_NombrePromotor AS NombrePromotor,
T0.ItemCode AS CodigoPlan,
T0.Dscription AS NombrePlan,
T0.U_FormaPago AS FormaDePago,
T2.NAME AS OrigenSolicitud,
T0.U_InvInicial AS InversionInicial,
T0.U_Comision AS Comision,
T0.U_PapeleriaSol AS ImportePapeleria,
T0.U_Importe AS ImporteRecibido,
T0.U_ExcInvIni AS ExcedenteInvIni,
T0.U_Bono AS Bono
FROM dbo.WTR1 T0
LEFT JOIN dbo.OWTR T1 ON T1.DocEntry = T0.DocEntry
INNER JOIN dbo.[@ORIGSOLICITUD] T2 ON T2.Code = T0.U_OrigenSolicitud
LEFT JOIN dbo.OUSR T4 ON T1.UserSign = T4.USERID
WHERE NOT EXISTS ( SELECT T3.U_TraspasoRel AS DocNum,
T3.U_SolicitudInt AS Serie
FROM dbo.OCRD T3
WHERE T3.U_TraspasoRel = T1.DocNum
AND T3.U_SolicitudInt = T0.U_Serie AND T3.U_TraspasoRel IS NOT NULL)
AND T1.U_TipoMov IN( 'OFICINAS - CONTRATOS','PROMOTOR - ADMON CONTRATOS')
AND T0.U_FormaPago IS NOT NULL
AND T0.U_OrigenSolicitud IS NOT NULL
AND T0.U_Importe IS NOT NULL
AND T0.U_InvInicial IS NOT NULL
AND T0.U_StatusSolicitud <> 'N' -- ERRONEO
AND T0.U_StatusSolicitud <> 'C' -- CANCELADO
AND T0.U_StatusSolicitud <> 'A' -- ATRACO
AND T0.U_StatusSolicitud <> 'E' -- EXTRAVIO
AND T0.U_Serie IS NOT NULL
AND T1.Comments IS NULL
AND T1.DataSource <> 'N'
AND T1.DocStatus <> 'C' " +
qryFechas + qryAlmacen +
" ORDER BY T0.DocEntry,T0.LineNum ASC ");
}
else
{
_oForma.DataSources.DataTables.Item(DT_PRECONTRATOS)
.ExecuteQuery(@"SELECT T1.DocEntry AS DocEntry,
'Crear' AS Crear,
T4.USER_CODE AS CodigoUsuario,
T1.DocNum AS DocNum,
T0.U_Serie AS Serie,
T0.U_CodPromotor AS CodigoPromotor,
T0.U_NombrePromotor AS NombrePromotor,
T0.ItemCode AS CodigoPlan,
T0.Dscription AS NombrePlan,
T0.U_FormaPago AS FormaDePago,
T2.NAME AS OrigenSolicitud,
T0.U_InvInicial AS InversionInicial,
T0.U_Comision AS Comision,
T0.U_PapeleriaSol AS ImportePapeleria,
T0.U_Importe AS ImporteRecibido,
T0.U_ExcInvIni AS ExcedenteInvIni,
T0.U_Bono AS Bono
FROM dbo.WTR1 T0
LEFT JOIN dbo.OWTR T1 ON T1.DocEntry = T0.DocEntry
INNER JOIN dbo.[@ORIGSOLICITUD] T2 ON T2.Code = T0.U_OrigenSolicitud
LEFT JOIN dbo.OUSR T4 ON T1.UserSign = T4.USERID
WHERE NOT EXISTS ( SELECT T3.U_TraspasoRel AS DocNum,
T3.U_SolicitudInt AS Serie
FROM dbo.OCRD T3
WHERE T3.U_TraspasoRel = T1.DocNum
AND T3.U_SolicitudInt = T0.U_Serie AND T3.U_TraspasoRel IS NOT NULL)
AND T1.U_TipoMov IN( 'OFICINAS - CONTRATOS','PROMOTOR - ADMON CONTRATOS')
AND T0.U_FormaPago IS NOT NULL
AND T0.U_OrigenSolicitud IS NOT NULL
AND T0.U_Importe IS NOT NULL
AND T0.U_InvInicial IS NOT NULL
AND T0.U_Serie IS NOT NULL
AND T0.U_StatusSolicitud <> 'N' -- ERRONEO
AND T0.U_StatusSolicitud <> 'C' -- CANCELADO
AND T0.U_StatusSolicitud <> 'A' -- ATRACO
AND T0.U_StatusSolicitud <> 'E' -- EXTRAVIO
AND T0.U_Serie IS NOT NULL
AND T1.DocStatus <> 'C'
AND T1.DataSource <> 'N'
AND T1.Comments IS NULL
ORDER BY T0.DocEntry,T0.LineNum ASC
");
}
_oGridPrecontratos = (SAPbouiCOM.Grid)_oForma.Items.Item(GRDPRECONTRATO).Specific;
_oGridPrecontratos.DataTable = _oForma.DataSources.DataTables.Item(DT_PRECONTRATOS);
FormatoGrid(_oGridPrecontratos);
}
catch (Exception ex)
{
throw new Exception("Error al buscar datos *BuscarDatos* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
/// <summary>
/// Busca la información de acuerdo a los filtros capturados
/// </summary>
/// <param name="efiscal"></param>
/// <param name="codigo"></param>
/// <param name="descripcion"></param>
/// <param name="combos"></param>
public void BuscarDatos(string codeCobrador, string nameCobrador)
{
try
{
_oForma.Freeze(true);
string qryCobrador = null;
qryCobrador = " and REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"REPLACE(LOWER( " +
"U_Cobrador),'á','a') ), " +
"'é','e') ), " +
"'í','i') ), " +
"'ó','o') ), " +
"'ú','u') LIKE '%" + nameCobrador.ToLower().Replace('á', 'a').
Replace('é', 'e').
Replace('í', 'i').
Replace('ó', 'o').
Replace('ú', 'u') + "%' ";
_oGridComisionesCobradores = _oForma.Items.Item(GRD_COMISIONES_COBRADORES).Specific;
_oGridComisionesCobradores.DataTable = _oForma.DataSources.DataTables.Item(DT_COMISIONES_COBRADORES);
_oGridComisionesCobradores.DataTable.ExecuteQuery(@"SELECT T1.empID AS CodigoID,
T0.U_Codigo_Cobrador AS CodCobrador,
T0.U_Cobrador AS NomCobrador,
T0.U_Serie_Programa AS SeriePrograma,
--T0.U_Serie_Malba AS SerieMalba,
T0.U_Serie_Cooperativa AS SerieCooperativa,
T0.U_Serie_Panteon AS SeriePanteon,
ISNULL(T0.U_Comision_Panteon, 0.00) AS ComisionPanteon,
ISNULL(T0.U_Sueldo_Cooperativa, 0.00) AS SueldoCooperativa,
ISNULL(T0.U_Sueldo_Apoyo, 0.00) AS SueldoApoyo,
ISNULL(T0.U_Comision_Coop, 0.00) AS ComisionCooperativa,
ISNULL(T0.U_Comision_Apoyo, 0.00) AS ComisionApoyo,
ISNULL(T0.U_Efectividad, 0.00) AS Efectividad,
T0.U_SueldoBase AS SueldoBase
FROM dbo.[@COMISION_COBRADORES] T0
LEFT JOIN dbo.OHEM T1 ON T1.firstName = T0.U_Codigo_Cobrador
--AND ( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador
WHERE --( T1.middleName + ' ' + T1.lastName ) = T0.U_Cobrador
-- AND
T0.U_Codigo_Cobrador LIKE '%" + codeCobrador + "%' " + qryCobrador +
"ORDER BY T0.U_Codigo_Cobrador, " +
"T1.empID ASC ");
if (_oGridComisionesCobradores.DataTable.IsEmpty)
{
_Application.MessageBox("No se encontraron registros");
_oGridComisionesCobradores.DataTable.Clear();
_oForma.Update();
}
else
{
//_oGridComisionesCobradores.AutoResizeColumns();
FormatoGrid(_oGridComisionesCobradores);
_oGridComisionesCobradores.AutoResizeColumns();
}
_oBotonUpdate.Caption = "Ok";
}
catch (Exception ex)
{
throw new Exception("Error al buscar datos *BuscarDatos* : " + ex.Message);
}
finally
{
_oForma.Freeze(false);
}
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_Monitor.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1282", false); //Crear
oForm.EnableMenu("1281", false); //Actualizar
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@VID_FELOG");
oDBDSD = oForm.DataSources.DBDataSources.Add("@VID_FELOGD");
oForm.DataSources.UserDataSources.Add("FechaD", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("FechaD").Specific);
oEditText.DataBind.SetBound(true, "", "FechaD");
oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
oForm.DataSources.UserDataSources.Add("FechaH", BoDataType.dt_DATE, 10);
oEditText = (EditText)(oForm.Items.Item("FechaH").Specific);
oEditText.DataBind.SetBound(true, "", "FechaH");
oEditText.Value = DateTime.Now.ToString("yyyyMMdd");
oForm.DataSources.UserDataSources.Add("chk_Todo", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("chk_Todo").Specific);
oCheckBox.DataBind.SetBound(true, "", "chk_Todo");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("Rechazados", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Rechazados").Specific);
oCheckBox.DataBind.SetBound(true, "", "Rechazados");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oForm.DataSources.UserDataSources.Add("Pendientes", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Pendientes").Specific);
oCheckBox.DataBind.SetBound(true, "", "Pendientes");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oForm.DataSources.UserDataSources.Add("Aceptados", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Aceptados").Specific);
oCheckBox.DataBind.SetBound(true, "", "Aceptados");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("DadoBaja", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("DadoBaja").Specific);
oCheckBox.DataBind.SetBound(true, "", "DadoBaja");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = false;
oForm.DataSources.UserDataSources.Add("Errores", BoDataType.dt_SHORT_TEXT, 1);
oCheckBox = (CheckBox)(oForm.Items.Item("Errores").Specific);
oCheckBox.DataBind.SetBound(true, "", "Errores");
oCheckBox.ValOn = "Y";
oCheckBox.ValOff = "N";
oCheckBox.Checked = true;
oDataTable = oForm.DataSources.DataTables.Add("dt");
oGrid = (Grid)(oForm.Items.Item("grid").Specific);
oGrid.DataTable = oDataTable;
if (GlobalSettings.RunningUnderSQLServer)
{
s = "select ISNULL(TaxIdNum,'') TaxIdNum from OADM ";
}
else
{
s = @"select IFNULL(""TaxIdNum"",'') ""TaxIdNum"" from ""OADM"" ";
}
oRecordSet.DoQuery(s);
if (oRecordSet.RecordCount == 0)
{
throw new Exception("Debe ingresar RUC de Emisor, Gestión -> Inicialización Sistema -> Detalle Sociedad -> Datos de Contabilidad -> ID fiscal general 1");
}
else
{
RUC = ((System.String)oRecordSet.Fields.Item("TaxIdNum").Value).Trim();
}
CargarDatosPE();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public virtual void ET_grd1_AFValidate(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_TRANSAMT")).ColumnSetting.SumValue = TR_COMMON_HRD.GetGridCalc_SumValue(ref oForm, "U_TRANSAMT").ToString();
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
}
public static void Linkto(ref SAPbouiCOM.Grid grid, BoLinkedObject boLinkedObject)
{
Linkto(ref grid, ((int)boLinkedObject).ToString());
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
FSBOf.LoadForm(xmlPath, "FM_NOTES.srf", uid);
oForm = FSBOApp.Forms.Item(uid);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
Flag = false;
oForm.Freeze(true);
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select count(*) Cont from [@FM_NOTES]";
}
else
{
s = @"select count(*) ""Cont"" from ""@FM_NOTES"" ";
}
oRecordSet.DoQuery(s);
if ((System.Int32)(oRecordSet.Fields.Item("Cont").Value) > 0)
{
oForm.Mode = BoFormMode.fm_UPDATE_MODE;
}
else
{
oForm.Mode = BoFormMode.fm_ADD_MODE;
}
oGrid = (Grid)(oForm.Items.Item("3").Specific);
oDBDSHeader = oForm.DataSources.DBDataSources.Add("@FM_NOTES");
oDataTable = oForm.DataSources.DataTables.Add("Notes");
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select Code, Name, U_TypeCode from [@FM_NOTES]
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50))";
}
else
{
s = @"select ""Code"", ""Name"", ""U_TypeCode"" from ""@FM_NOTES""
UNION ALL
select CAST('' as varchar(20)), CAST('' as varchar(20)), CAST('' as varchar(50)) FROM DUMMY ";
}
oDataTable.ExecuteQuery(s);
oGrid.DataTable = oDataTable;
oGrid.Columns.Item("Code").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Code"));
var oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Codigo";
oGrid.Columns.Item("Name").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("Name"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Descripción";
oGrid.Columns.Item("U_TypeCode").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(oGrid.Columns.Item("U_TypeCode"));
oEditCol = (EditTextColumn)(oColumn);
oEditCol.Editable = true;
oEditCol.TitleObject.Caption = "Codigo SUNAT";
oGrid.AutoResizeColumns();
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
public virtual bool ET_grd1_BFValidate(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.ItemChanged)
{
oForm.Freeze(true);
try
{
switch (oGrid.Columns.Item(pVal.ColUID).UniqueID)
{
case "U_TRANSAMT":
int iRowIndex = oGrid.GetDataTableRowIndex(pVal.Row);
string U_CHK = oGrid.DataTable.GetValue("U_CHK", iRowIndex).ToString().Trim();
if (U_CHK == "N")
{
oGrid.DataTable.SetValue("U_CHK", iRowIndex, "Y");
if (oGrid.Rows.IsSelected(pVal.Row) == false)
{
oGrid.Rows.SelectedRows.Add(pVal.Row);
}
}
break;
default:
break;
}
}
catch (Exception)
{
throw;
}
finally
{
oForm.Freeze(false);
}
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
return true;
}
public new bool InitForm(string uid, string xmlPath, ref Application application, ref SAPbobsCOM.Company company, ref CSBOFunctions SBOFunctions, ref TGlobalVid _GlobalSettings)
{
bool Result = base.InitForm(uid, xmlPath, ref application, ref company, ref SBOFunctions, ref _GlobalSettings);
try
{
oRecordSet = (SAPbobsCOM.Recordset)(FCmpny.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
//Lista := New list<string>;
FSBOf.LoadForm(xmlPath, "VID_FEDetalleLog.srf", uid);
//EnableCrystal := true;
oForm = FSBOApp.Forms.Item(uid);
oForm.Freeze(true);
oForm.AutoManaged = false;
oForm.SupportedModes = -1; // afm_All
oForm.EnableMenu("1282", false); //Crear
oForm.EnableMenu("1281", false); //Actualizar
//oForm.DataBrowser.BrowseBy := "DocNum";
// Ok Ad Fnd Vw Rq Sec
//Lista.Add('DocNum , f, f, t, f, n, 1');
//Lista.Add('DocDate , f, t, f, f, r, 1');
//Lista.Add('CardCode , f, t, t, f, r, 1');
//FSBOf.SetAutoManaged(var oForm, Lista);
//s := '1';
//oCombo.Select(s, BoSearchKey.psk_ByValue);
oForm.Items.Item("grid").Enabled = false;
ogrid = (Grid)(oForm.Items.Item("grid").Specific);
dt = oForm.DataSources.DataTables.Add("dt");
ogrid.DataTable = dt;
if (GlobalSettings.RunningUnderSQLServer)
{
s = @"select U_TipoDoc
,LTRIM(STR(U_FolioNum,18,0)) 'U_FolioNum'
,U_ID_Log
,U_Glosa
,U_FechaIn
from [@VID_FELOG] T0
join [@VID_FELOGD] T1 ON T1.DocEntry = T0.DocEntry
where T0.DocEntry = {0}
order by T1.LineId DESC";
}
else
{
s = @"select ""U_TipoDoc""
,LTRIM(ROUND(""U_FolioNum"",0)) ""U_FolioNum""
,""U_ID_Log""
,""U_Glosa""
,""U_FechaIn""
from ""@VID_FELOG"" T0
join ""@VID_FELOGD"" T1 ON T1.""DocEntry"" = T0.""DocEntry""
where T0.""DocEntry"" = {0}
order by T1.""LineId"" DESC ";
}
s = String.Format(s, prmKey);
dt.ExecuteQuery(s);
ogrid.AutoResizeColumns();
ogrid.Columns.Item("U_TipoDoc").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_TipoDoc"));
var oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Tipo Documento";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_FolioNum").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FolioNum"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Número Folio";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_ID_Log").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_ID_Log"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "ID Log Portal";
oEditColumn.RightJustified = true;
ogrid.Columns.Item("U_Glosa").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_Glosa"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Glosa";
oEditColumn.RightJustified = false;
ogrid.Columns.Item("U_FechaIn").Type = BoGridColumnType.gct_EditText;
oColumn = (GridColumn)(ogrid.Columns.Item("U_FechaIn"));
oEditColumn = (EditTextColumn)(oColumn);
oEditColumn.Editable = false;
oEditColumn.TitleObject.Caption = "Fecha Movimiento";
oEditColumn.RightJustified = false;
oForm.Mode = BoFormMode.fm_OK_MODE;
}
catch (Exception e)
{
OutLog("InitForm: " + e.Message + " ** Trace: " + e.StackTrace);
FSBOApp.MessageBox(e.Message + " ** Trace: " + e.StackTrace, 1, "Ok", "", "");
}
oForm.Freeze(false);
return(Result);
}//fin InitForm
/// <summary>
/// 폼(Form) 및 아이템들(Items)의 기본값으로 설정되야하는 항목들을 정의합니다.
/// </summary>
private void Act03_DefualtSetting(SAPbouiCOM.Form oForm, string pStrPFormUID)
{
try
{
//메트릭스 첫줄 선택시 팝업박스 뜨는것 막는다.
oForm.Settings.EnableRowFormat = false;
// UDO, 네비게이션 사용하지 않음
oForm.SupportedModes = 1;
// 메트릭스 설정
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Auto;
// 부모창 ID 저장
oForm.DataSources.UserDataSources.Item("pFORMUID").Value = pStrPFormUID;
// 부보창에 현재창 ID 저장
pForm = B1Connections.theAppl.Forms.Item(pStrPFormUID);
pForm.DataSources.UserDataSources.Item("cFORMUID").Value = oForm.UniqueID;
oForm.DataSources.DataTables.Add("grd");
FindData(oForm);
}
catch (Exception)
{
throw;
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
try
{
oForm.Freeze(true);
//* 미발행 그리드 초기화 */
oForm.DataSources.DataTables.Add("grd");
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
oGrid.SelectionMode = BoMatrixSelect.ms_NotSupported;
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("SetGridTitle " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
/// <summary>
/// CMS신청 취소 실행 전 실행 가능여부 체크
/// </summary>
/// <param name="oForm"></param>
/// <returns></returns>
private bool BeforeCancel_ValidationCheck(SAPbouiCOM.Form oForm)
{
bool rtnValue = false;
string pDocEntry = string.Empty;
try
{
oGrid = oForm.Items.Item("grd").Specific;
if (oGrid.Rows.SelectedRows.Count == 0)
return rtnValue;
int idx = oGrid.GetDataTableRowIndex(oGrid.Rows.SelectedRows.Item(0, BoOrderType.ot_SelectionOrder));
pDocEntry = FN.GetGridCellValue(ref oGrid, "DocEntry", idx);
if (string.IsNullOrEmpty(pDocEntry))
{
B1Connections.theAppl.StatusBar.SetText("선택한 자료가 존재하지 않습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
rtnValue = false;
}
else
rtnValue = true;
}
catch (Exception)
{
throw;
}
return rtnValue;
}
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();
}
/// <summary>
/// Grid 조회
/// </summary>
/// <param name="oForm">폼</param>
internal static void FindData(SAPbouiCOM.Form oForm)
{
string pFORMUID = oForm.DataSources.UserDataSources.Item("pFORMUID").ValueEx;
SAPbouiCOM.Form pForm = (SAPbouiCOM.Form)B1Connections.theAppl.Forms.Item(pFORMUID);
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string edtDOCDTF = pForm.DataSources.UserDataSources.Item("edtDOCDTF").Value;
string edtDOCDTT = pForm.DataSources.UserDataSources.Item("edtDOCDTT").Value;
string cboSLPCD = pForm.DataSources.UserDataSources.Item("cboSLPCD").Value;
string cboBILLTP = pForm.DataSources.UserDataSources.Item("cboBILLTP").Value;
string edtCARDCDF = pForm.DataSources.UserDataSources.Item("edtCARDCDF").Value;
string cboPRCCD2 = pForm.DataSources.UserDataSources.Item("cboPRCCD2").Value;
string edtBPCDF = pForm.DataSources.UserDataSources.Item("edtBPCDF").Value;
string cboPRCCD = pForm.DataSources.UserDataSources.Item("cboPRCCD").Value;
string edtDOCDTF2 = pForm.DataSources.UserDataSources.Item("edtDOCDTF2").Value;
string edtDOCDTT2 = pForm.DataSources.UserDataSources.Item("edtDOCDTT2").Value;
string cboPUBLICA = pForm.DataSources.UserDataSources.Item("cboPUBLICA").Value;
string cboPAYTP = pForm.DataSources.UserDataSources.Item("cboPAYTP").Value;
string edtPAYMTH = pForm.DataSources.UserDataSources.Item("edtPAYMTH").Value;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
pQuery.AppendLine(" EXEC [KIS_SP_SD0140F_HRD] ");
pQuery.AppendLine(" @edtDOCDTF = '{0}' ");
pQuery.AppendLine(" ,@edtDOCDTT = '{1}' ");
pQuery.AppendLine(" ,@cboSLPCD = '{2}' ");
pQuery.AppendLine(" ,@cboBILLTP = '{3}' ");
pQuery.AppendLine(" ,@edtCARDCDF = '{4}' ");
pQuery.AppendLine(" ,@cboPRCCD2 = '{5}' ");
pQuery.AppendLine(" ,@edtBPCDF = '{6}' ");
pQuery.AppendLine(" ,@cboPRCCD = '{7}' ");
pQuery.AppendLine(" ,@edtDOCDTF2 = '{8}' ");
pQuery.AppendLine(" ,@edtDOCDTT2 = '{9}' ");
pQuery.AppendLine(" ,@cboPUBLICA = '{10}' ");
pQuery.AppendLine(" ,@cboPAYTP = '{11}' ");
pQuery.AppendLine(" ,@edtPAYMTH = '{12}' ");
string sQry = string.Format(pQuery.ToString(), edtDOCDTF, edtDOCDTT, cboSLPCD, cboBILLTP, edtCARDCDF, cboPRCCD2, edtBPCDF, cboPRCCD, edtDOCDTF2, edtDOCDTT2, cboPUBLICA, cboPAYTP, edtPAYMTH);
try
{
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
string cv_ColumnsUID_s = "ORDERBY,U_DOCDT,U_DOCDT2,DocEntry,U_PUBLICA,U_CARDCD,U_CARDNM,U_BILLTP,U_PAYTP,U_PAYMNM,U_DEPAMT,U_DEDUTION,AMTSUM,U_BPCD,U_BPNM,U_DOCTOT,U_PRCNM,U_SLPNM,IDX";
string cv_NoEditable_s = "ORDERBY,U_DOCDT,U_DOCDT2,DocEntry,U_PUBLICA,U_CARDCD,U_CARDNM,U_BILLTP,U_PAYTP,U_PAYMNM,U_DEPAMT,U_DEDUTION,AMTSUM,U_BPCD,U_BPNM,U_DOCTOT,U_PRCNM,U_SLPNM,IDX";
string cv_ColumnsNAM_s = "ORDERBY,수금전기일,매출전기일,문서번호,간행물,매출처,매출처명,수금유형,지급유형,지급방법,입금합계,공제금액,총수금액,대행사,대행사명,매출합계,수금부서,영업사원,IDX";
string cv_Right_Just_s = "U_DEPAMT,U_DEDUTION,AMTSUM,U_DOCTOT";
string cv_No_Visible_s = "ORDERBY,IDX";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && oGrid.DataTable.GetValue(2, 0).ToString() == "")
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
//FN.SetGridSumField(ref oGrid, cv_Right_Just_s);
FN.SetGirdColumnLinkedObjec(ref oGrid, "DocEntry", BoLinkedObject.lf_BusinessPartner);
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CARDCD", BoLinkedObject.lf_BusinessPartner);
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_BPCD", BoLinkedObject.lf_BusinessPartner);
//지급유형
SAPbouiCOM.EditTextColumn oEditCol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_PAYTP");
oEditCol.Type = BoGridColumnType.gct_ComboBox;
SAPbouiCOM.ComboBoxColumn oComboCol = (SAPbouiCOM.ComboBoxColumn)oGrid.Columns.Item("U_PAYTP");
oComboCol.ValidValues.Add("1", "현금");
oComboCol.ValidValues.Add("2", "은행이체");
oComboCol.ValidValues.Add("3", "어음");
oComboCol.ValidValues.Add("4", "대체");
oComboCol.DisplayType = BoComboDisplayType.cdt_Description;
//수금유형
oEditCol = (SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_BILLTP");
oEditCol.Type = BoGridColumnType.gct_ComboBox;
oComboCol = (SAPbouiCOM.ComboBoxColumn)oGrid.Columns.Item("U_BILLTP");
oComboCol.ValidValues.Add("1", "입금");
oComboCol.ValidValues.Add("2", "선수입금");
oComboCol.ValidValues.Add("3", "대행료 대체입금");
oComboCol.ValidValues.Add("4", "지급");
oComboCol.ValidValues.Add("5", "기타 대체");
oComboCol.DisplayType = BoComboDisplayType.cdt_Description;
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
oGrid.RowHeaders.Width = 0;
//FN.SetGirdSort(ref oGrid1);
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
/// <summary>
/// 그리드 컬럼 합계를 계산하고 헤더테이블의 DBDataSource에 갱신합니다.
/// </summary>
private void SetGridCalc_Sum()
{
try
{
oGrid = oForm.Items.Item("grd1").Specific;
XDocument root = XDocument.Parse(oGrid.DataTable.SerializeAsXML(BoDataTableXmlSelect.dxs_DataOnly));
//필터링 : 선택된 행의 컬랙션을 조회합니다.
var query =
from
c in root.Descendants("Row")
where c.Elements("Cells").Elements("Cell").Any(o => o.Element("ColumnUid").Value == "U_CHK" && o.Element("Value").Value == "Y")
select c;
//금액 집계
double U_OPENAMT = TR_COMMON_HRD.GetCoumnValue(query, "U_OPENAMT").Sum();//총 입금액
double U_TRANSAMT = TR_COMMON_HRD.GetCoumnValue(query, "U_TRANSAMT").Sum();//총 지급액
//double U_DEDUTION = GetCoumnValue(query, "U_DEDUTION").Sum();//공제액
///*컬럼 합계*/
((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_OPENAMT")).ColumnSetting.SumValue = U_OPENAMT.ToString();
((SAPbouiCOM.EditTextColumn)oGrid.Columns.Item("U_TRANSAMT")).ColumnSetting.SumValue = U_TRANSAMT.ToString();
}
catch (Exception)
{
throw;
}
}
private void ClearUnManagedObject()
{
if (oButton != null) { Marshal.ReleaseComObject(oButton); } oButton = null;
if (oGrid != null) { Marshal.ReleaseComObject(oGrid); } oGrid = null;
if ((oForm != null)) { Marshal.ReleaseComObject(oForm); } oForm = null;
// ADD YOUR ACTION CODE HERE ...
System.GC.Collect();
System.GC.WaitForPendingFinalizers();
}
public virtual bool ET_grd_BFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.Row == -1)
{
oGrid.SelectionMode = BoMatrixSelect.ms_None;
}
else { oGrid.SelectionMode = BoMatrixSelect.ms_Single; }
return true;
}
public virtual void ET_grd_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.Row != -1)
{
//string cboTAKEYM = FN.GetGridCellValue(ref oGrid, "U_TAKEYM", pVal.Row);
//string edtTAKEDT = FN.GetGridCellValue(ref oGrid, "U_TAKEDT", pVal.Row);
//oUDS = oForm.DataSources.UserDataSources;
//oUDS.Item("cboTAKEYM").Value = cboTAKEYM;
//oUDS.Item("edtTAKEDT").Value = FN.SetDateFormatToDB(edtTAKEDT, FN.eDateType.n_YYYYMMDD);
oGrid.Rows.SelectedRows.Add(pVal.Row);
}
}
catch (Exception)
{
throw;
}
}
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.ColUID == "DocEntry")
{
KIS_SO0391A_HRD KIS_SO0391A_HRD = new KIS_SO0391A_HRD();
KIS_SO0391A_HRD.Act0_SubFormInit(oForm.UniqueID, FN.GetGridCellValue(ref oGrid, "DocEntry", pVal.Row));
return false;
}
return true;
}
internal static void FindData(SAPbouiCOM.Form oForm)
{
string pFORMUID = oForm.DataSources.UserDataSources.Item("pFORMUID").ValueEx;
SAPbouiCOM.Form pForm = (SAPbouiCOM.Form)B1Connections.theAppl.Forms.Item(pFORMUID);
SAPbouiCOM.Grid oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
string cboBPLID = string.Empty;
string edtFRDT = string.Empty;
string edtTODT = string.Empty;
string edtFRPRCCD = string.Empty;
string edtTOPRCCD = string.Empty;
string cboTRANSTY = string.Empty;
string strReportFiles = string.Empty;
StringBuilder pQuery = new StringBuilder();
string query = string.Empty;
try
{
oForm.Items.Item("grd").Enabled = false;
cboBPLID = pForm.DataSources.UserDataSources.Item("cboBPLID").Value;
edtFRDT = pForm.DataSources.UserDataSources.Item("edtFRDT").Value;
edtTODT = pForm.DataSources.UserDataSources.Item("edtTODT").Value;
edtFRPRCCD = pForm.DataSources.UserDataSources.Item("edtFRPRCCD").Value;
edtTOPRCCD = pForm.DataSources.UserDataSources.Item("edtTOPRCCD").Value;
cboTRANSTY = pForm.DataSources.UserDataSources.Item("cboTRANSTY").Value;
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
pQuery.Append(" EXEC KIS_SP_FI0050F1_HRD @cboBPLID = '{0}' ");
pQuery.Append(" , @edtFRDT = '{1}' ");
pQuery.Append(" , @edtTODT = '{2}' ");
pQuery.Append(" , @edtFRPRCCD = '{3}' ");
pQuery.Append(" , @edtTOPRCCD = '{4}' ");
pQuery.Append(" , @cboTRANSTY = '{5}' ");
string cv_ColumnsUID_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate";
string cv_NoEditable_s = "ROWSID,U_BPLID,RefDate,TransId,U_PRCNM,Debit,Credit,JEDT,U_PRCCD,BatchNum,TransType,TransNM,CreateDate";
string cv_ColumnsNAM_s = "#,사업장,전기일자,분개번호,코스트센터명,차변,대변,분개장 전기일,코스트센터,분개장 번호,입력경로코드,입력경로,분개 생성일";
string cv_Right_Just_s = "Debit,Credit";
string cv_No_Visible_s = "TransType";
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oForm.Freeze(true);
string sQry = (string.Format(pQuery.ToString()
, cboBPLID
, edtFRDT
, edtTODT
, edtFRPRCCD
, edtTOPRCCD
, cboTRANSTY
));
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(sQry);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 0)
{
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
B1Connections.theAppl.StatusBar.SetText("데이터가 없습니다.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터가 없습니다.
}
else
{
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
/* 링크버튼 조작 */
FN.SetGirdColumnLinkedObjec(ref oGrid, "TransId", BoLinkedObject.lf_JournalPosting);//분개
FN.SetGirdColumnLinkedObjec(ref oGrid, "BatchNum", BoLinkedObject.lf_JournalVoucher);//분개장
/* 자동정렬 */
oGrid.AutoResizeColumns();
/*컬럼 길이 조작*/
oGrid.RowHeaders.Width = 0;
B1Connections.theAppl.StatusBar.SetText("조회완료", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success); //조회완료
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("btnFIND_OnAfterItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
public virtual bool ET_grd_BFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.Row != -1)
oGrid.Rows.SelectedRows.Clear();
else
return false;
return true;
}
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
if (pVal.ColUID == "U_READCD")
{
// 메모리에
SO.SO_COMMON_HRD.KeyValue = FN.GetGridCellValue(ref oGrid, "U_READCD", pVal.Row);
B1Connections.theAppl.ActivateMenuItem("KIS_SO0030A_HRD");
return false;
}
else if (pVal.ColUID == "U_CENTCD")
{
// 메모리에
SO.SO_COMMON_HRD.KeyValue = FN.GetGridCellValue(ref oGrid, "U_CENTCD", pVal.Row);
B1Connections.theAppl.ActivateMenuItem("KIS_SO0040A_HRD");
return false;
}
return true;
}
public virtual void ET_grd_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.Row > -1)
{
oGrid.Rows.SelectedRows.Clear();
oGrid.Rows.SelectedRows.Add(pVal.Row);
}
}
catch (Exception)
{
throw;
}
}
private SAPbouiCOM.DataTable FindData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strCALLPER = string.Empty;
string strColYyyyMm = string.Empty;
string strCENTCE_FR = string.Empty;
string strCENTCE_TO = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
strCALLPER = oUDS.Item("edtCALLPER").ValueEx;
strCENTCE_FR = oUDS.Item("edtCENTCD1").ValueEx;
strCENTCE_TO = oUDS.Item("edtCENTCD2").ValueEx;
sb = new StringBuilder();
//조회
sb.AppendLine(" EXEC KIS_SP_SO0260F1_HRD @pQUERY_TYPE = '{0}' ");
sb.AppendLine(" , @pPERSON = '{1}' ");
sb.AppendLine(" , @pCENTCD_FR = '{2}' ");
sb.AppendLine(" , @pCENTCD_TO = '{3}' ");
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), "Q", strCALLPER, strCENTCE_FR, strCENTCE_TO));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_READCD", 0).ToString() == null || oGrid.DataTable.GetValue("U_READCD", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
strColYyyyMm = FN.GetRecordsetValue(string.Format(sb.ToString(), "C", "", "", "", "")).Replace("[", "").Replace("]", "");
FN.SetGrdColumnNumber(ref oGrid, "", GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm, "", "");
// 독자 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_READCD", BoLinkedObject.lf_BusinessPartner);
// 지국 링크버튼추가
FN.SetGirdColumnLinkedObjec(ref oGrid, "U_CENTCD", BoLinkedObject.lf_BusinessPartner);
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable) + "," + strColYyyyMm
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight) + "," + strColYyyyMm);
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
//oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("ET_btnFind_AFItemPressed " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
SAPbouiCOM.DataTable dt = oForm.DataSources.DataTables.Item("grd");
return dt;
}
private void FindRequestData(SAPbouiCOM.Form oForm)
{
//ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Grid oGrid;
StringBuilder sb;
string strREADCD = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
oDB_M = oForm.DataSources.DBDataSources.Item("@KIS_SO0030M_HRD");
strREADCD = oDB_M.GetValue("Code", 0).Trim();
sb = new StringBuilder();
//조회
/*
sb.AppendLine(" SELECT M.U_REQYM AS U_YYYYMM ");
sb.AppendLine(" , M.U_AMT AS REQAMT ");
sb.AppendLine(" , M.U_DATE AS DEPO_DATE ");
sb.AppendLine(" , M.U_INAMT AS DEPO_AMT ");
sb.AppendLine(" , M.U_SMLNM + ' ' + M.U_SMLNM2 AS U_PMETHOD ");
sb.AppendLine(" , M.U_STATUS AS U_STATUS ");
sb.AppendLine(" FROM ( ");
sb.AppendLine(" SELECT A.U_READCD ");
sb.AppendLine(" , A.U_REQYM ");
sb.AppendLine(" , (SELECT SUM(CASE ISNULL(F.U_TYPE, '') WHEN '110' THEN ISNULL(F.U_DEBIT, 0) ");
sb.AppendLine(" WHEN '120' THEN (-1) * ISNULL(F.U_CREDIT, 0) ");
sb.AppendLine(" ELSE 0 END) ");
sb.AppendLine(" FROM [@KIS_SO01403_HRD] F ");
sb.AppendLine(" WHERE A.DocEntry = F.DocEntry ");
sb.AppendLine(" AND A.LineId = F.U_UPLINEID ");
sb.AppendLine(" AND F.U_TYPE IN ('110', '120') ) AS U_AMT ");
sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110', '120','150') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT ");
sb.AppendLine(" , B.U_DATE ");
sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT ");
sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT ");
sb.AppendLine(" , B.U_TYPE ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 ");
sb.AppendLine(" , A.U_STATUS ");
sb.AppendLine(" FROM [@KIS_SO01401_HRD] A ");
sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry ");
sb.AppendLine(" AND A.LineId = B.U_UPLINEID ");
sb.AppendLine(" AND B.U_TYPE NOT IN ('110', '120', '150') ");
sb.AppendLine(" ) M ");
sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' ");
sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM ");
*/
sb.AppendLine(" SELECT CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_REQYM ELSE NULL END AS U_YYYYMM ");
sb.AppendLine(" , CASE WHEN ROW_NUMBER() OVER (PARTITION BY M.U_READCD, M.U_REQYM ORDER BY M.U_READCD, M.U_REQYM, M.U_AMT, M.DocEntry, M.LineId, M.U_DATE) = 1 THEN M.U_AMT ELSE NULL END AS REQAMT ");
sb.AppendLine(" , M.U_DATE AS DEPO_DATE ");
sb.AppendLine(" , M.U_INAMT AS DEPO_AMT ");
sb.AppendLine(" , M.U_SMLNM + (CASE ISNULL(M.U_SMLNM2,'') WHEN '' THEN '' ELSE ' ' + M.U_SMLNM2 END) AS U_PMETHOD ");
sb.AppendLine(" , M.U_STATUS AS U_STATUS ");
sb.AppendLine(" FROM ( ");
sb.AppendLine(" SELECT A.U_READCD ");
sb.AppendLine(" , A.U_REQYM ");
sb.AppendLine(" , A.DocEntry ");
sb.AppendLine(" , A.LineId ");
sb.AppendLine(" , ISNULL((SELECT SUM(ISNULL(F.U_DEBIT, 0)) ");
sb.AppendLine(" FROM [@KIS_SO01403_HRD] F ");
sb.AppendLine(" WHERE A.DocEntry = F.DocEntry ");
sb.AppendLine(" AND A.LineId = F.U_UPLINEID ");
sb.AppendLine(" AND F.U_TYPE IN ('110') ), 0) AS U_AMT ");
sb.AppendLine(" , CASE WHEN ISNULL(B.U_TYPE, '') NOT IN ('110','150','910','920','000') THEN ISNULL(B.U_CREDIT, 0) ELSE 0 END AS U_INAMT ");
sb.AppendLine(" , B.U_DATE ");
sb.AppendLine(" , ISNULL(B.U_DEBIT,0) AS U_DEBIT ");
sb.AppendLine(" , ISNULL(B.U_CREDIT,0) AS U_CREDIT ");
sb.AppendLine(" , B.U_TYPE ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO54' AND F.U_CD = B.U_TYPE) AS U_SMLNM ");
sb.AppendLine(" , (SELECT F.U_SMLNM FROM [@KIS_AD00201] F WHERE F.Code = 'SO51' AND F.U_SMLCD = B.U_SUBTYPE) AS U_SMLNM2 ");
sb.AppendLine(" , A.U_STATUS ");
sb.AppendLine(" FROM [@KIS_SO01401_HRD] A ");
sb.AppendLine(" LEFT OUTER JOIN [@KIS_SO01403_HRD] B ON A.DocEntry = B.DocEntry ");
sb.AppendLine(" AND A.LineId = B.U_UPLINEID ");
sb.AppendLine(" AND B.U_TYPE NOT IN ('110','150','910','920','000') ");
sb.AppendLine(" ) M ");
sb.AppendLine(" WHERE M.U_AMT <> 0 AND M.U_READCD = '{0}' ");
sb.AppendLine(" ORDER BY M.U_READCD, M.U_REQYM ");
B1Connections.theAppl.StatusBar.SetText("데이터 조회중입니다", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning); //데이터 조회중입니다
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), strREADCD));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
//1. 납부방법
//FN.SetComboBoxValidValues(oGrid, "U_PMETHOD", " SELECT U_SMLCD, U_SMLNM FROM [@KIS_AD00201] WHERE Code ='SO09' ", FN.Enum_WholeTp.m_Nothing);
//2. 상태
FN.SetComboBoxValidValues(oGrid, "U_STATUS", " SELECT 'O' [Code], '미납' AS [Name] UNION ALL SELECT 'C' [Code], '완납' AS [Name] ", FN.Enum_WholeTp.m_Nothing);
//조회된 내역이 없어도 1줄이 추가되므로 키값을 체크하여 조회안된 경우 1줄 삭제
if (oGrid.DataTable.Rows.Count == 1 && (oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == null || oGrid.DataTable.GetValue("U_YYYYMM", 0).ToString() == ""))
{
FN.SetGridTitle(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable));
}
else
{
FN.BindGrid(oGrid
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnUid)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.ColumnName)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotEditable)
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.NotVisible)
, ""
, GetGridFieldInfo(oForm, SO.SO_COMMON_HRD.GridTitleType.AlignRight));
//FN.SetColoumnColor(oForm, "grd3", "#E0ECF8", "ETAX_YN,DTINO,DTSTAT"); //그리드 BG 기본색(#E6E6FA)
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText("FindRequestData " + ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oForm.Freeze(false);
oForm.Refresh();
}
}
public void SetGridTitle(SAPbouiCOM.Form oForm)
{
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd");
string cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
string cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 ";
string cv_No_Visible_s = " ";
FN.SetGridTitle(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_No_Visible_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
//string expr = "BackColor=#DBE4F6&Width(ZIP_CD=80,ADDR_KOR=345)";
//FN.SetColumnProperty(oForm, "grd", expr);
}
public virtual void ET_OnFormResize(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
// ADD YOUR ACTION CODE HERE ...
SAPbouiCOM.Item oItemRet = oForm.Items.Item("retFOLD");
SAPbouiCOM.Item oItemGrd = oForm.Items.Item("grd");
oGrid = oForm.Items.Item("grd").Specific;
SAPbouiCOM.Item oItem1Mtx = oForm.Items.Item("mtx1_DUMY");
SAPbouiCOM.Item oItem2Mtx = oForm.Items.Item("mtx2_DUMY");
SAPbouiCOM.Item oItem3Mtx = oForm.Items.Item("mtx1_ORIG");
SAPbouiCOM.Item oItem4Mtx = oForm.Items.Item("mtx2_ORIG");
// 폴더박스 리사이즈
oItemRet.Height = oForm.Height - 110;
oItemRet.Width = oForm.Width - 30;
// 상담이력 메트릭스
oItem2Mtx.Top = oItem1Mtx.Height + 200;
oItem2Mtx.Width = oForm.Width - 425;
oItem2Mtx.Height = 140;
// 청구데이터(그리드)
oItemGrd.Top = oItem1Mtx.Height + 200;
oItemGrd.Width = 360;
oItemGrd.Height = 140;
// 안보이는 메트릭스
oItem3Mtx.Left = oForm.Width + 100;
oItem4Mtx.Left = oForm.Width + 100;
if (oGrid.Columns.Count > 0) oGrid.AutoResizeColumns();
((SAPbouiCOM.Matrix)oForm.Items.Item("mtx1_DUMY").Specific).AutoResizeColumns();
((SAPbouiCOM.Matrix)oForm.Items.Item("mtx2_DUMY").Specific).AutoResizeColumns();
}
private void FindData(SAPbouiCOM.Form oForm)
{
string cv_ColumnsUID_s;
string cv_NoEditable_s;
string cv_ColumnsNAM_s;
string cv_Right_Just_s;
string cv_No_Visible_s;
StringBuilder sb = new StringBuilder();
string cboTAKEYM = string.Empty;
string edtTAKEDT = string.Empty;
try
{
oForm.Freeze(true);
oUDS = oForm.DataSources.UserDataSources;
cboTAKEYM = oUDS.Item("cboTAKEYM").ValueEx.Trim();
edtTAKEDT = oUDS.Item("edtTAKEDT").ValueEx;
oGrid = (SAPbouiCOM.Grid)oForm.Items.Item("grd").Specific;
oGrid.SelectionMode = BoMatrixSelect.ms_Single;
cv_ColumnsUID_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
cv_NoEditable_s = " DocEntry, U_TAKEYM, U_TAKEDT, U_SFILE, U_EFILE, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT, CreateDate, CreateTime, USER_CODE ";
cv_ColumnsNAM_s = " 문서번호, 신청접수년월, 신청접수일자, 신청파일이름, 결과파일이름, 총건수, 신규등록건수, 변경등록건수, 해지등록건수, 임의해지건수, 실행일자, 실행시간, 실행자 ";
cv_Right_Just_s = " DocEntry, U_TOTCNT, U_NEWCNT, U_MODCNT, U_CLOCNT, U_RCLCNT ";
cv_No_Visible_s = " ";
sb.AppendLine(" SELECT T0.DocEntry ");
sb.AppendLine(" , T0.U_TAKEYM ");
sb.AppendLine(" , T0.U_TAKEDT ");
//sb.AppendLine(" , T0.U_DESC ");
sb.AppendLine(" , T0.U_SFILE ");
sb.AppendLine(" , T0.U_EFILE ");
sb.AppendLine(" , T0.U_TOTCNT ");
sb.AppendLine(" , T0.U_NEWCNT ");
sb.AppendLine(" , T0.U_MODCNT ");
sb.AppendLine(" , T0.U_CLOCNT ");
sb.AppendLine(" , T0.U_RCLCNT ");
sb.AppendLine(" , T0.CreateDate ");
sb.AppendLine(" , T0.CreateTime ");
sb.AppendLine(" , (SELECT F.USER_CODE FROM OUSR F WHERE F.USERID = T0.UserSign) AS USER_CODE ");
sb.AppendLine(" FROM [@KIS_SO0390T_HRD] T0 ");
sb.AppendLine(" WHERE (ISNULL('{0}','') = '' OR (T0.U_TAKEYM = '{0}')) ");
sb.AppendLine(" AND (ISNULL('{1}','') = '' OR (T0.U_TAKEDT = '{1}')) ");
sb.AppendLine(" ORDER BY T0.U_TAKEYM, T0.U_TAKEDT ");
oForm.DataSources.DataTables.Item("grd").ExecuteQuery(string.Format(sb.ToString(), cboTAKEYM, edtTAKEDT));
oGrid.DataTable = oForm.DataSources.DataTables.Item("grd"); //데이터 그리드에 Display
if (oGrid.DataTable.Rows.Count == 1)
{
if (oGrid.DataTable.Columns.Item("DocEntry").Cells.Item(0).Value.ToString().Trim() == "0")
{
oGrid.DataTable.Rows.Clear();
}
}
FN.SetGirdColumnLinkedObjec(ref oGrid, "DocEntry", BoLinkedObject.lf_ProfitCenter);
FN.BindGrid(oGrid, cv_ColumnsUID_s, cv_ColumnsNAM_s, cv_NoEditable_s, cv_No_Visible_s, "", cv_Right_Just_s);
oGrid.RowHeaders.Width = 0;
oGrid.AutoResizeColumns();
}
catch (Exception)
{
//oForm.Freeze(false);
throw;
}
finally
{
oForm.Freeze(false);
oGrid = null;
}
}
public virtual bool ET_grd_BFMatrixLinkPressed(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
int oRowIndex = oGrid.GetDataTableRowIndex(pVal.Row);
string KeyValue = string.Empty;
switch (pVal.ColUID)
{
case "DocEntry":
KeyValue = FN.GetGridCellValue(ref oGrid, "DocEntry", pVal.Row);
LoadSubForm(oForm, "KIS_SD0080_HRD", KeyValue);
return false;
default:
break;
}
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
return true;
}
private bool ExecuteData(SAPbouiCOM.Form oForm)
{
bool rtnValue = true;
string cboTAKEYM = FN.GetDataSourceValue(oForm, "cboTAKEYM");
string edtTAKEDT = FN.GetDataSourceValue(oForm, "edtTAKEDT");
if (!FN.CondValidationChk(oForm, "cboTAKEYM,edtTAKEDT", "sttTAKEYM,sttTAKEDT"))
return false;
StringBuilder sb = new StringBuilder();
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
sb.AppendLine(" EXEC KIS_SP_SO0390B_HRD ");
sb.AppendFormat(" @pTAKEYM = '{0}' ", cboTAKEYM);
sb.AppendFormat(" , @pTAKEDT = '{0}' ", FN.SetDateFormatToDB(edtTAKEDT, FN.eDateType.n_YYYYMMDD));
sb.AppendFormat(" , @pUserSign = '{0}' ", B1Connections.diCompany.UserSignature.ToString());
sb.AppendFormat(" , @pWorkGubun = '{0}' ", "I");
oRS.DoQuery(sb.ToString());
B1Connections.theAppl.StatusBar.SetText("CMS 출금이체신청 내역 생성을 완료 하였습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
catch (Exception ex)
{
rtnValue = false;
B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oGrid = null;
if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null;
}
return rtnValue;
}
public virtual void ET_grd_AFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd").Specific));
// ADD YOUR ACTION CODE HERE ...
if ((oGrid.Rows.Count > 0) && (pVal.Row >= 0))
{
oGrid.Rows.SelectedRows.Add(pVal.Row);
}
}
private bool CancelData(SAPbouiCOM.Form oForm)
{
bool rtnValue = true;
StringBuilder sb = new StringBuilder();
string strValue = string.Empty;
string pDocEntry = string.Empty;
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oGrid = oForm.Items.Item("grd").Specific;
int idx = oGrid.GetDataTableRowIndex(oGrid.Rows.SelectedRows.Item(0, BoOrderType.ot_SelectionOrder));
pDocEntry = FN.GetGridCellValue(ref oGrid, "DocEntry", idx);
oRS = (SAPbobsCOM.Recordset)B1Connections.diCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
sb.AppendLine(" EXEC KIS_SP_SO0390B_HRD ");
sb.AppendFormat(" @pDocEntry = '{0}' " , pDocEntry);
sb.AppendFormat(" , @pWorkGubun = '{0}' " , "D");
oRS.DoQuery(sb.ToString());
B1Connections.theAppl.StatusBar.SetText("CMS 출금이체신청 내역 삭제를 완료 하였습니다.", BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Success);
}
catch (Exception ex)
{
rtnValue = false;
B1Connections.theAppl.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
finally
{
oGrid = null;
if (oRS != null) { Marshal.ReleaseComObject(oRS); } oRS = null;
}
return rtnValue;
}
private void UDO_Add_Data(string U_FILENM)
{
SAPbobsCOM.GeneralService oGeneralService = null;
SAPbobsCOM.GeneralData oGeneralData = null;
SAPbobsCOM.GeneralDataCollection oChildren = null;
SAPbobsCOM.GeneralData oChild = null;
SAPbobsCOM.GeneralDataParams oGeneralParams = null;
SAPbobsCOM.CompanyService oCompanyService = (SAPbobsCOM.CompanyService)B1Connections.diCompany.GetCompanyService();
try
{
oGrid = oForm.Items.Item("grd1").Specific;
oGeneralService = oCompanyService.GetGeneralService("KIS_TR0031_HRD");
oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData);
//헤더 추가
//FN.SetGeneralDataTHeader(ref oGeneralData, ref oKIS_SD0080T_HRD, BoUDOObjectType.udo_Document);
string U_BPLID = oForm.DataSources.UserDataSources.Item("cboBPLID").Value;
string U_VATRNUM = oForm.DataSources.UserDataSources.Item("edtVATRNUM").Value;
string U_ACCOUNT = oForm.DataSources.UserDataSources.Item("edtACCOUNT").Value;
string U_ACCTCD = oForm.DataSources.UserDataSources.Item("edtACCTCD").Value;
string U_ACCTNM = oForm.DataSources.UserDataSources.Item("edtACCTNM").Value;
string U_PAYDT = FN.SetDateFormatToDB( oForm.DataSources.UserDataSources.Item("edtPAYDT").Value);
string U_PRCCD = oForm.DataSources.UserDataSources.Item("edtPRCCD").Value;
string U_PRCNM = oForm.DataSources.UserDataSources.Item("edtPRCNM").Value;
string U_DOCDT = Convert.ToDateTime(B1Connections.theAppl.Company.ServerDate).ToString("yyyy-MM-dd");
#region 헤더추가
oGeneralData.SetProperty("U_BPLID", U_BPLID);//사업장
oGeneralData.SetProperty("U_VATRNUM", U_VATRNUM);//주민등록번호
oGeneralData.SetProperty("U_ACCOUNT", U_ACCOUNT);//출금계좌
oGeneralData.SetProperty("U_ACCTCD", U_ACCTCD);//출금계정
oGeneralData.SetProperty("U_ACCTNM", U_ACCTNM);//출금계정명
oGeneralData.SetProperty("U_PAYDT", U_PAYDT);//지급일
oGeneralData.SetProperty("U_PRCCD", U_PRCCD);//코스트센터
oGeneralData.SetProperty("U_PRCNM", U_PRCNM);//코스트센터
oGeneralData.SetProperty("U_FILENM", U_FILENM);//파일이름
oGeneralData.SetProperty("U_DOCDT", U_DOCDT);//생성일
#endregion
#region 라인추가
oChildren = oGeneralData.Child("KIS_TR00311_HRD");
string sXML = oGrid.DataTable.SerializeAsXML(BoDataTableXmlSelect.dxs_DataOnly);
XDocument root = XDocument.Parse(sXML);
//필터링 : 선택된 행의 컬랙션을 조회합니다.
var query =
from
c in root.Descendants("Row")
where c.Elements("Cells").Elements("Cell").Any(o => o.Element("ColumnUid").Value == "U_CHK" && o.Element("Value").Value == "Y")
select c;
foreach (XElement r in query)
{
oChild = oChildren.Add();
//변수 => 매핑
foreach (XElement c in r.Descendants("Cell"))
{
switch (c.Element("ColumnUid").Value)
{
case "U_DOCDT"://전기일
case "U_DUEDT"://만기일
oChild.SetProperty(c.Element("ColumnUid").Value,FN.SetDateFormatToDB(c.Element("Value").Value));
break;
case "U_CARDCD"://거래처코드
case "U_CARDNM"://거래처명
case "U_ACCTCD"://계정코드
case "U_OBJTP"://원천유형
case "U_OBJENTRY"://원천번호
case "U_TRANSID"://분개번호
case "U_PRCCD"://코스트센터
case "U_TRANSAMT"://이체금액
case "U_MEMO"://분개비고
case "U_OWNER"://예금주
case "U_BANKCD"://은행
case "U_BANKNM"://은행명
case "U_ACCOUNT"://거래처 계좌번호
oChild.SetProperty(c.Element("ColumnUid").Value, c.Element("Value").Value);
break;
default:
break;
}
}
oChild = null;
}
oChildren = null;
#endregion
//B1Connections.diCompany.StartTransaction();
//oGeneralService에 oGeneralData 추가하고 추가된 GeneralData 반환값 얻기
oGeneralParams = oGeneralService.Add(oGeneralData);
string str_DocEntry = ((int)oGeneralParams.GetProperty("DocEntry")).ToString();
LoadSubForm(oForm, "KIS_TR0031_HRD", str_DocEntry);
}
catch (Exception ex)
{
if (B1Connections.diCompany.InTransaction)
{
B1Connections.diCompany.EndTransaction(BoWfTransOpt.wf_RollBack);
}
throw;
}
finally
{
if (oGeneralService != null) { Marshal.ReleaseComObject(oGeneralService); oGeneralService = null; }
if (oGeneralData != null) { Marshal.ReleaseComObject(oGeneralData); oGeneralData = null; }
if (oChildren != null) { Marshal.ReleaseComObject(oChildren); oChildren = null; }
if (oChild != null) { Marshal.ReleaseComObject(oChild); oChild = null; }
if (oGeneralParams != null) { Marshal.ReleaseComObject(oGeneralParams); oGeneralParams = null; }
if (oCompanyService != null) { Marshal.ReleaseComObject(oCompanyService); oCompanyService = null; }
}
}
public virtual bool ET_grd1_BFClick(ItemEvent pVal)
{
oForm = B1Connections.theAppl.Forms.Item(pVal.FormUID);
oGrid = ((SAPbouiCOM.Grid)(oForm.Items.Item("grd1").Specific));
// ADD YOUR ACTION CODE HERE ...
try
{
if (pVal.ColUID == "U_CHK")
{
#region U_CHK 클릭시 기능 구현
if (pVal.Row >= 0)
{
oForm.Freeze(true);
try
{
#region 문서단위 그룹선택 기능구현
int iRowIndex = oGrid.GetDataTableRowIndex(pVal.Row);
string U_CHK = oGrid.DataTable.GetValue("U_CHK", iRowIndex).ToString().Trim();
if (U_CHK == "N")
{
oGrid.DataTable.SetValue("U_CHK", iRowIndex, "Y");
if (oGrid.Rows.IsSelected(pVal.Row) == false)
{
oGrid.Rows.SelectedRows.Add(pVal.Row);
}
}
else
{
oGrid.DataTable.SetValue("U_CHK", iRowIndex, "N");
if (oGrid.Rows.IsSelected(pVal.Row))
{
oGrid.Rows.SelectedRows.Remove(pVal.Row);
}
}
#endregion
}
catch (Exception)
{
throw;
}
finally
{
SetGridCalc_Sum();
oForm.Freeze(false);
}
return false;
}
else
{
//전체선택
SetGridColumn_CheckBox_SelectAll(ref oGrid, "U_CHK");
SetGridCalc_Sum();
return false;
}
#endregion
}// end (pVal.ColUID == "U_CHK")
}
catch (Exception ex)
{
B1Connections.theAppl.StatusBar.SetText(ex.Message, BoMessageTime.bmt_Short, BoStatusBarMessageType.smt_Error);
}
return true;
}
