//Grid Approve
private void Load_Grid_Period()
{
//Load Grid
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
cmd = new SqlCommand("PR_Get_List_Approve", conn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.AddWithValue("@UserName", oCompany.UserName);
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
this.UIAPIRawForm.Freeze(true);
Grid0.DataTable = Convert_SAP_DataTable(result);
Grid0.AutoResizeColumns();
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
this.UIAPIRawForm.Freeze(false);
conn.Close();
cmd.Dispose();
}
}
private System.Data.DataTable Get_MenuUID(string pReportName)
{
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
cmd = new SqlCommand("GET_MENUUID_TV", conn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.AddWithValue("@ReportName", pReportName);
cmd.CommandTimeout = 0;
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
conn.Close();
cmd.Dispose();
}
return(result);
}
System.Data.DataTable Load_Data_KLTT()
{
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
int DocEntry = 0;
int.TryParse(((SAPbouiCOM.EditText)(this.GetItem("0_U_E").Specific)).Value, out DocEntry);
cmd = new SqlCommand("KLTT_GT_KYNAY", conn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.AddWithValue("@DocEntry", DocEntry);
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
conn.Close();
cmd.Dispose();
}
return(result);
}
System.Data.DataTable Get_Data(DateTime pFrDate, DateTime pToDate)
{
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
cmd = new SqlCommand("CCM_HQDP", conn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.AddWithValue("@FromDate", pFrDate);
cmd.Parameters.AddWithValue("@ToDate", pToDate);
cmd.CommandTimeout = 0;
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
conn.Close();
cmd.Dispose();
}
return(result);
}
System.Data.DataTable Get_Approve_Process_BASELINE()
{
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
cmd = new SqlCommand("BASELINE_GetList_Approve", conn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.AddWithValue("@Usr", oCompany.UserName);
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
conn.Close();
cmd.Dispose();
}
return(result);
}
System.Data.DataTable Get_List_Distribution()
{
DataTable result = new DataTable();
SqlCommand cmd = null;
try
{
cmd = new SqlCommand("CCM_DISTRIBUTION_RULE_LIST", conn);
cmd.CommandType = CommandType.StoredProcedure;
//cmd.Parameters.AddWithValue("@Username", oCompany.UserName);
conn.Open();
SqlDataReader rd = cmd.ExecuteReader();
result.Load(rd);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
conn.Close();
cmd.Dispose();
}
return(result);
}
public static void Info(string msg, bool popup = false)
{
SBOApplication.StatusBar.SetText(msg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
if (popup)
{
SBOApplication.MessageBox(msg);
}
}
private string FindFile()
{
try
{
System.Diagnostics.Process cProcess = System.Diagnostics.Process.GetCurrentProcess();
cParentID = getProcessParentID(cProcess.ProcessName, cProcess.Id);
System.Diagnostics.Process cParent = System.Diagnostics.Process.GetProcessById(cParentID, cProcess.MachineName);
cMachineName = cProcess.MachineName;
if (cProcess.ProcessName.EndsWith("vshost")) // 'This part is for RUNTIME Mode
{
_App.StatusBar.SetText(cProcess.Id + " 2N " + cProcess.ProcessName + " << " + cParent.Id + " N " + cParent.ProcessName + " <<< This is DESIGN-TIME >>>", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
cParentID = 0;
}
}
catch
{
_App.StatusBar.SetText("Process Reading Fail!", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
System.Threading.Thread ShowFileBrowserThread;
System.Threading.Timer oTimer = new System.Threading.Timer(new System.Threading.TimerCallback(TimerKeepAlive));
oTimer.Change(0, 60 * 1000); //Set the timer for
try
{
ShowFileBrowserThread = new System.Threading.Thread(new System.Threading.ThreadStart(ShowFileBrowser));
if (ShowFileBrowserThread.ThreadState == System.Threading.ThreadState.Unstarted)
{
ShowFileBrowserThread.SetApartmentState(System.Threading.ApartmentState.STA);
ShowFileBrowserThread.Start();
}
else if (ShowFileBrowserThread.ThreadState == System.Threading.ThreadState.Stopped)
{
ShowFileBrowserThread.Start();
ShowFileBrowserThread.Join();
}
while (ShowFileBrowserThread.ThreadState == System.Threading.ThreadState.Running)
{
System.Windows.Forms.Application.DoEvents();
}
if (FileName != "")
{
return(FileName);
}
}
catch (Exception ex)
{
_App.MessageBox("FindFile. " + ex.Message, 1, "OK", null, null);
}
finally
{
oTimer.Dispose();
}
return("");
}
/// <summary>
/// Connect sap using UI API.
/// </summary>
/// <param name="connString">If you not define the string connection, the string connection will be default</param>
public static void Connect(string connString = null)
{
try
{
SAPbouiCOM.SboGuiApi SboGuiApi = null;
string sConnectionString = null;
SboGuiApi = new SAPbouiCOM.SboGuiApi();
sConnectionString = connString ?? sap.ui.E.ConnString;
SboGuiApi.Connect(sConnectionString);
conn = SboGuiApi.GetApplication(-1);
var debug = false;
#if DEBUG
debug = true;
#endif
if (R.DebugMode && !debug)
{
conn.MessageBox("Addon is connected as debug mode.");
}
else
{
conn.SetStatusBarMessage($"{R.CompanyName} addon is connected.", SAPbouiCOM.BoMessageTime.bmt_Short, false);
}
}
catch (Exception ex)
{
k.Diagnostic.Error(LOG, ex);
throw new Exception($"Error to connect SAP using DI UIAPI.", ex);
}
}
private void OnCustomInitialize()
{
this.CheckBox0.ValOff = "0";
this.CheckBox0.ValOn = "1";
this.oApp = (SAPbouiCOM.Application)SAPbouiCOM.Framework.Application.SBO_Application;
this.oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
//Create Connection SQL
SAPbobsCOM.Recordset oR_RecordSet = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oR_RecordSet.DoQuery("Select * from [@ADDONCFG]");
if (oR_RecordSet.RecordCount > 0)
{
string uid = oR_RecordSet.Fields.Item("Code").Value.ToString();
string pwd = oR_RecordSet.Fields.Item("Name").Value.ToString();
conn = new SqlConnection(string.Format("Data Source={0}; Initial Catalog={1}; User id={2}; Password={3};", oCompany.Server, oCompany.CompanyDB, uid, pwd));
}
else
{
oApp.MessageBox("Can't connect DB !");
}
//Get MenuUID KLTT
MenuUID = Get_MenuUID_BILLVP();
if (string.IsNullOrEmpty(MenuUID))
{
oApp.SetStatusBarMessage("Can't find MenuUID for BILLVP", SAPbouiCOM.BoMessageTime.bmt_Short, true);
}
Load_Financial_Project();
}
/// <summary>
/// Metodo para cargar los XSD(Solo se cargan una vez debido a que el proceso tarda aprox 2 minutos)
/// </summary>
private void cargarXSD()
{
#region ENVIO ENTRE EMPRESAS
if (trEnvioSobre == null)
{
trEnvioSobre = new XmlTextReader(RutasXSD.RutaXsdEnvioCFEentreEmpresa);
}
if (trEempresas == null)
{
trEempresas = new XmlTextReader(RutasXSD.RutaXsdCFEEmpresasType);
}
#endregion ENVIO ENTRE EMPRESAS
#region ENVIO CON DGI
//if (trEnvioSobre == null)
//{
// trEnvioSobre = new XmlTextReader(RutasXSD.RutaXsdEnvioSobre);
//}
#endregion ENVIO CON DGI
#region XSD HOJAS(SIEMPRE SE USAN)
if (trTipoDGI == null)
{
trTipoDGI = new XmlTextReader(RutasXSD.RutaXsdTipoDgi);
}
if (trTipoCFE == null)
{
trTipoCFE = new XmlTextReader(RutasXSD.RutaXsdTipoCfe);
}
#endregion XSD HOJAS(SIEMPRE SE USAN)
if (xsc == null)
{
xsc = new XmlSchemaCollection();
try
{
//Se cargan los XSD al esquema
xsc.Add(null, trTipoDGI);
xsc.Add(null, trTipoCFE);
xsc.Add(null, trEempresas);//no se usa con envio a DGI
xsc.Add(null, trEnvioSobre);
}
catch (Exception ex)
{
app.MessageBox("ValidarSobre/CArgarXSD/Error: " + ex.ToString());
}
}
}
private SAPbobsCOM.Company instanciarCompania()
{
try
{
return(application.Company.GetDICompany());
}
catch (Exception e)
{
application.MessageBox(e.Message);
}
return(null);
}
public SAPbobsCOM.Company SetCompany()
{
// //*************************************************************
// // Set The Connection Context
// //*************************************************************
if (!(SetConnectionContext() == 0))
{
SBO_Application.MessageBox("SDK:Failed setting a connection to DI API", 1, "Ok", "", "");
System.Environment.Exit(0); // Terminating the Add-On Application
}
// //*************************************************************
// // Connect To The Company Data Base
// //*************************************************************
if (!(ConnectToCompany() == 0))
{
SBO_Application.MessageBox("SDK:Failed connecting to the company's Data Base", 1, "Ok", "", "");
System.Environment.Exit(0); // Terminating the Add-On Application
}
return(oCompany);
}
public HelloWorld()
{
//*************************************************************
// set SBO_Application with an initialized application object
//*************************************************************
SetApplication();
//*************************************************************
// send an "hello world" message
//*************************************************************
SBO_Application.MessageBox("Hello World", 1, "Ok", "", "");
}
private void Class_Init()
{
SetApplication();
if (SetConnectionContext() == 0)
{
if (ConnectToCompany() != 0)
{
oApplication.StatusBar.SetText("Failed Connecting to Company's Database", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
int i;
String errCode;
oCompany.GetLastError(out i, out errCode);
oApplication.MessageBox(i + " " + errCode, 1, "OK", "", "");
}
else
{
SboAddon.Create("ANS", "B1", oApplication, oCompany);
}
}
else
{
oApplication.StatusBar.SetText("Cannot make a connection to the DI API", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
}
private void UIAPILog(LoggingEvent loggingEvent, SAPbouiCOM.Application app, string asm)
{
string msg = String.Format("{0}: {1}", asm, loggingEvent.RenderedMessage);
if (loggingEvent.Level == Level.Alert)
{
if (!SilentMode)
{
app.StatusBar.SetText(msg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_None);
}
}
else if (loggingEvent.Level == Level.Info || loggingEvent.Level == Level.Debug)
{
if (!SilentMode)
{
app.StatusBar.SetText(msg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
}
else if (loggingEvent.Level == Level.Warn)
{
if (!SilentMode)
{
app.StatusBar.SetText(msg, SAPbouiCOM.BoMessageTime.bmt_Medium, SAPbouiCOM.BoStatusBarMessageType.smt_Warning);
}
}
else
{
app.StatusBar.SetText(msg, SAPbouiCOM.BoMessageTime.bmt_Long, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
}
if (loggingEvent.ExceptionObject != null)
{
var traceForm = ContainerManager.Container.Resolve <ExceptionTrace>();
if (traceForm.UIAPIRawForm != null)
// if it's an error on Dover Boot, B1SResourceManager may not have XML form on hand.
{
traceForm.ex = loggingEvent.ExceptionObject;
traceForm.Show();
}
else
{
app.MessageBox(string.Format("{0}\n\n{1}",
loggingEvent.ExceptionObject.Message, loggingEvent.ExceptionObject.StackTrace));
}
}
}
private void OnCustomInitialize()
{
this.oApp = (SAPbouiCOM.Application)SAPbouiCOM.Framework.Application.SBO_Application;
this.oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
//Create Connection SQL
SAPbobsCOM.Recordset oR_RecordSet = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oR_RecordSet.DoQuery("Select * from [@ADDONCFG]");
if (oR_RecordSet.RecordCount > 0)
{
string uid = oR_RecordSet.Fields.Item("Code").Value.ToString();
string pwd = oR_RecordSet.Fields.Item("Name").Value.ToString();
conn = new SqlConnection(string.Format("Data Source={0}; Initial Catalog={1}; User id={2}; Password={3};", oCompany.Server, oCompany.CompanyDB, uid, pwd));
}
else
{
oApp.MessageBox("Can't connect DB !");
}
}
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
//Thiet bi
if (pVal.FormMode == 1)
{
//Get DATA SUM CCM
int DocEntry = int.Parse(((SAPbouiCOM.EditText)(this.GetItem("0_U_E").Specific)).Value);
string Project = ((SAPbouiCOM.EditText)(this.GetItem("20_U_E").Specific)).Value;
DataTable Sum_DUTRU = Load_Data_DUTRU_TB(Project, DocEntry);
oApp.ActivateMenuItem("DUTRU");
SAPbouiCOM.Form oForm = Application.SBO_Application.Forms.ActiveForm;
//Get DocNum CTG
try
{
((SAPbouiCOM.EditText)oForm.Items.Item("20_U_E").Specific).Value = DocEntry.ToString();
try
{
//Select Type DUTRU
((SAPbouiCOM.ComboBox)oForm.Items.Item("21_U_Cb").Specific).Select("2", SAPbouiCOM.BoSearchKey.psk_ByValue);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
oForm.Freeze(true);
oForm.PaneLevel = 1;
SAPbouiCOM.Matrix oMtx = (SAPbouiCOM.Matrix)oForm.Items.Item("0_U_G").Specific;
for (int i = 0; i < Sum_DUTRU.Rows.Count; i++)
{
oApp.SetStatusBarMessage(string.Format("Creating DUTRU TB: {0}", (i + 1) + "/" + Sum_DUTRU.Rows.Count), SAPbouiCOM.BoMessageTime.bmt_Short, false);
DataRow r = Sum_DUTRU.Rows[i];
//Subproject Code
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_2").Cells.Item(i + 1).Specific).Value = r["High_Level_SUM"].ToString();
//Subproject Description
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_3").Cells.Item(i + 1).Specific).Value = r["High_Level_Name"].ToString();
//CP Mua ban
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_8").Cells.Item(i + 1).Specific).Value = r["CP_MB"].ToString();
//CP Thue
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_9").Cells.Item(i + 1).Specific).Value = r["CP_THUE"].ToString();
//CP Van hanh
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_10").Cells.Item(i + 1).Specific).Value = r["CP_VH"].ToString();
//CP VC
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_11").Cells.Item(i + 1).Specific).Value = r["CP_VC"].ToString();
if (i < Sum_DUTRU.Rows.Count - 1)
{
oMtx.AddRow();
((SAPbouiCOM.EditText)oMtx.Columns.Item(1).Cells.Item(i + 2).Specific).Value = (i + 2).ToString();
}
}
oForm.Freeze(false);
}
catch (Exception ex)
{
}
finally
{
oForm.Freeze(false);
}
}
else
{
Application.SBO_Application.MessageBox("Function works only on View Mode");
}
}
static public void BankfileArchive_DO(ref SAPbouiCOM.Application application, ref SAPbobsCOM.Company company)
{
SAPbouiCOM.Form form = application.Forms.ActiveForm;
string vcardFolder = @"\\core.com\core\Shared\Accounting\Accounts Payable\Virtual Card\TEST\HUNT-VIRTUAL_VCARD\HUNT_Vcard";
string achfolder = @"\\core.com\core\Shared\Accounting\Accounts Payable\Virtual Card\TEST\HUNT-VIRTUAL_VCARD\HUNT_ACH";
string toFolder = @"\\core.com\core\Shared\Accounting\Accounts Payable\Virtual Card\TEST\HUNT-VIRTUAL_VCARD\Archive";
string currentDTM = DateTime.Now.ToString("yyyyMMdd_HHmmss");
string achfromfile = "";
string vcardfromfile = "";
string vcarddestFile = "";
string achdestFile = "";
int vcardcount = 0;
int achcount = 0;
int choice = 0;
string showmsg = "";
//Get varcfile
if (System.IO.Directory.Exists(vcardFolder))
{
string[] files = System.IO.Directory.GetFiles(vcardFolder);
foreach (string s in files)
{
if (System.IO.Path.GetExtension(s).ToUpper() == ".CSV")
{
showmsg = showmsg + "Vcard file : " + System.IO.Path.GetFileNameWithoutExtension(s) + " Last Modified " + System.IO.File.GetLastWriteTime(s).ToString() + "\r\n";
vcardcount++;
}
}
}
//get achfile
if (System.IO.Directory.Exists(achfolder))
{
string[] files = System.IO.Directory.GetFiles(achfolder);
foreach (string s in files)
{
if (System.IO.Path.GetExtension(s).ToUpper() == ".CSV")
{
showmsg = showmsg + "ACH file : " + System.IO.Path.GetFileNameWithoutExtension(s) + " Last Modified " + System.IO.File.GetLastWriteTime(s).ToString() + "\r\n";
achcount++;
}
}
}
//show user and choose
if (showmsg != "")
{
showmsg = showmsg + " Please choose which file you want to archive";
choice = application.MessageBox(showmsg, 3, "vcard", "ACH", "Both");
}
try
{
if (choice == 1 || choice == 3)
{
application.MessageBox("run vcard", 1, "OK", "", "");
//vcard file conversion.
if (System.IO.Directory.Exists(vcardFolder))
{
string[] files = System.IO.Directory.GetFiles(vcardFolder);
foreach (string s in files)
{
if (System.IO.Path.GetExtension(s).ToUpper() == ".CSV")
{
vcardfromfile = "VCARD_" + System.IO.Path.GetFileNameWithoutExtension(s) + "_" + currentDTM + System.IO.Path.GetExtension(s);
vcarddestFile = System.IO.Path.Combine(toFolder, vcardfromfile);
System.IO.File.Copy(s, vcarddestFile, true);
}
}
}
}
if (choice == 2 || choice == 3)
{
application.MessageBox("run ACH", 1, "OK", "", "");
//ach file conversion.
if (System.IO.Directory.Exists(achfolder))
{
string[] files = System.IO.Directory.GetFiles(achfolder);
foreach (string s in files)
{
if (System.IO.Path.GetExtension(s).ToUpper() == ".CSV")
{
achfromfile = "ACH_" + System.IO.Path.GetFileNameWithoutExtension(s) + "_" + currentDTM + System.IO.Path.GetExtension(s);
achdestFile = System.IO.Path.Combine(toFolder, achfromfile);
System.IO.File.Copy(s, achdestFile, true);
}
}
}
}
}
catch (Exception ex)
{
application.SetStatusBarMessage("File Archived Failed" + ex.Message.ToString(), SAPbouiCOM.BoMessageTime.bmt_Short, true);
}
}
public int Connect()
{
try
{
__GUI = new SAPbouiCOM.SboGuiApi();
__GUI.Connect(Environment.GetCommandLineArgs().GetValue(1).ToString());
__app = __GUI.GetApplication(-1);
__app.MenuEvent += new SAPbouiCOM._IApplicationEvents_MenuEventEventHandler(__app_MenuEvent);
__app.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(__app_ItemEvent);
__app.AppEvent += new SAPbouiCOM._IApplicationEvents_AppEventEventHandler(__app_AppEvent);
__app.FormDataEvent += new SAPbouiCOM._IApplicationEvents_FormDataEventEventHandler(__app_FormDataEvent);
//return 0;
int i = 0;
//Check For License
//string LicenseKey = ConfigurationManager.AppSettings["LicenseDate"].ToString();
//DateTime LicenseDate = DateTime.Parse(LicenseKey);
//if (DateTime.Now.Date <= LicenseDate)
//{
____bobCompany = (SAPbobsCOM.Company)__app.Company.GetDICompany();
TableCreation();
//int RetVal = ____bobCompany.Connect();
//Int32 ErrorCode = 0;
//string ErrorMessage = "";
//if (RetVal == 0)
//{
XmlDocument oXMLDoc = new XmlDocument();
string MenuPath = Application.StartupPath + "\\FileGen_Menu.xml";
if (__app.Menus.Exists("MDC_MNU"))
{
__app.Menus.RemoveEx("MDC_MNU");
}
oXMLDoc.Load(MenuPath);
__app.LoadBatchActions(oXMLDoc.InnerXml);
i = 0;
return(i);
}
catch (COMException e)
{
if (e.ErrorCode == -7201)
{
return(e.ErrorCode);
}
else
{
__app.MessageBox(e.Message, 0, "Ok", null, null);
return(0);
}
}
}
public int RegisterObject(string Code, string Name, string ObjectType, string TableName, string ChildTableName, bool CanCancel, bool CanClose, bool CanCreateDefaultForm, bool CanDelete, bool CanFind, bool CanYearTransfer, bool ManageSeries, string FindColumns, bool defaultform, string defaultformFields, bool CanLog)
{
try
{
int errCode;
string errMsg = "";
if (!____bobCompany.Connected)
{
____bobCompany.Connect();
}
SAPbobsCOM.UserObjectsMD UDO = ____bobCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD);
if (UDO.GetByKey(Code) == false)
{
// UDO.CanCancel = GetYesNo(CanCancel)
// UDO.CanClose = GetYesNo(CanClose)
// UDO.CanDelete = GetYesNo(CanDelete)
UDO.CanCancel = GetYesNo(false);
UDO.CanClose = GetYesNo(false);
UDO.CanDelete = GetYesNo(CanDelete);
UDO.CanFind = GetYesNo(CanFind);
UDO.CanCreateDefaultForm = GetYesNo(defaultform);
UDO.ManageSeries = GetYesNo(ManageSeries);
UDO.CanLog = GetYesNo(CanLog);
if (UDO.CanCreateDefaultForm == SAPbobsCOM.BoYesNoEnum.tYES)
{
string[] s = defaultformFields.Split(',');
foreach (string o in s)
{
string[] s1 = o.Split('|');
if (s1.Length > 0)
{
UDO.FormColumns.FormColumnAlias = s1[0].ToString();
}
if (s1.Length > 1)
{
UDO.FormColumns.FormColumnDescription = s1[1].ToString();
}
UDO.FormColumns.Add();
}
}
if (UDO.CanFind == SAPbobsCOM.BoYesNoEnum.tYES)
{
if (FindColumns != "")
{
string[] s = FindColumns.Split(',');
// If s.Length > 1 Then
if (s.Length > 0)
{
foreach (string o in s)
{
string s1 = "";
if (o.ToString() == "Code" | o.ToString() == "Name" | o.ToString() == "DocNum" | o.ToString() == "DocEntry")
{
s1 = o.ToString();
}
else
{
s1 = "U_" + o.ToString();
}
UDO.FindColumns.ColumnAlias = s1;
UDO.FindColumns.Add();
}
}
}
}
if (UDO.CanLog == SAPbobsCOM.BoYesNoEnum.tYES)
{
UDO.LogTableName = "A" + TableName;
}
UDO.Code = Code;
UDO.Name = Name;
UDO.ObjectType = GetUDOType(ObjectType);
UDO.TableName = TableName;
if (ChildTableName != "")
{
string[] childTables = ChildTableName.Split(',');
if (childTables.Length > 0)
{
foreach (string o in childTables)
{
UDO.ChildTables.TableName = o.ToString();
UDO.ChildTables.Add();
}
}
}
int i = -1;
i = UDO.Add();
if (i != 0)
{
____bobCompany.GetLastError(out errCode, out errMsg);
__app.MessageBox(errMsg);
__app.StatusBar.SetText(errMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
UDO.Update();
if (Marshal.IsComObject(UDO))
{
Marshal.ReleaseComObject(UDO);
UDO = null /* TODO Change to default(_) if this is not a reference type */;
GC.Collect();
return(errCode);
}
}
UDO.Update();
if (Marshal.IsComObject(UDO))
{
Marshal.ReleaseComObject(UDO);
}
UDO = null /* TODO Change to default(_) if this is not a reference type */;
// GC.WaitForPendingFinalizers();
GC.Collect();
// oProgressBar.Value = oProgressBar.Value + 1
return(0);
}
else
{
__app.StatusBar.SetText("Table Already Exists......", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_None);
}
return(0);
}
catch (Exception ex)
{
GC.Collect();
return(-1);
}
}
/// <summary>
/// Procesa la respuesta del web service de DGI
/// </summary>
/// <param name="xmlRespuesta"></param>
/// <param name="parametros"></param>
public void ProcesarRespuesta(string xmlRespuesta, object parametros, ControlSobres controlSobres)
{
string estadoRespuesta = "", token = "", idReceptor = "";
ParametrosJobWsDGIMasivo parametrosJob = parametros as ParametrosJobWsDGIMasivo;
ManteUdoControlSobres manteUdoControlSobres = new ManteUdoControlSobres();
ManteUdoCFE manteUdoCfe = new ManteUdoCFE();
try
{
XmlDocument xmlDocumento = new XmlDocument();
xmlDocumento.LoadXml(xmlRespuesta);
idReceptor = xmlDocumento.GetElementsByTagName("IDReceptor").Item(0).InnerText;
estadoRespuesta = xmlDocumento.GetElementsByTagName("Estado").Item(0).InnerText;
if (estadoRespuesta.Equals("AS"))
{
manteUdoControlSobres.Eliminar(controlSobres);
token = xmlDocumento.GetElementsByTagName("Token").Item(0).InnerText;
string hora = xmlDocumento.GetElementsByTagName("Fechahora").Item(0).InnerText;
SobreTransito sobreTransito = new SobreTransito();
sobreTransito.NombreSobre = parametrosJob.NombreSobre;
sobreTransito.Token = token;
sobreTransito.IdReceptor = idReceptor;
sobreTransito.TipoReceptor = SobreTransito.ETipoReceptor.DGI;
sobreTransito.Serie = parametrosJob.Serie;
sobreTransito.Numero = parametrosJob.Numero;
sobreTransito.Tipo = parametrosJob.Tipo;
ManteUdoSobreTransito manteTransito = new ManteUdoSobreTransito();
manteTransito.Almacenar(sobreTransito);
ManteUdoSobre manteSobre = new ManteUdoSobre();
//True = AS, no se agrega detalle correspondiente a info de rechazo
manteSobre.cargarSobreXml(xmlDocumento, parametrosJob.NombreSobre, true);
}
else if (estadoRespuesta.Equals("BS"))
{
manteUdoControlSobres.Eliminar(controlSobres);
ManteUdoSobre manteSobre = new ManteUdoSobre();
//False = BS, se agrega detalle correspondiente a info de rechazo
manteSobre.cargarSobreXml(xmlDocumento, parametrosJob.NombreSobre, false);
}
}
catch (Exception)
{
controlSobres.Estado = "Pendiente";
manteUdoControlSobres.Actualizar(controlSobres);
app.MessageBox("No se pudo enviar a DGI");
}
finally
{
if (parametrosJob != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(parametrosJob);
GC.Collect();
}
if (manteUdoControlSobres != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(manteUdoControlSobres);
GC.Collect();
}
if (manteUdoCfe != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(manteUdoCfe);
GC.Collect();
}
}
}
private void MessageBox(string msg)
{
SBO_Application.MessageBox("SDK : " + msg, 0, "確定", "", "");
}
/// <summary>
/// Consume el web service
/// </summary>
/// <param name="parametros"></param>
/// <returns></returns>
public string Consumir(object parametros)
{
string respuesta = "";
WebServiceDGI webServiceDgi = new WebServiceDGI(parametros);
ParametrosJobWsDGI parametrosJobWsDGI = parametros as ParametrosJobWsDGI;
XmlDocument xmlDocumento = new XmlDocument();
try
{
if (File.Exists((RutasCarpetas.RutaCarpetaSobresDgi + "\\" + parametrosJobWsDGI.SobreDgi.Nombre + ".xml")))
{
xmlDocumento.Load(RutasCarpetas.RutaCarpetaSobresDgi + "\\" + parametrosJobWsDGI.SobreDgi.Nombre + ".xml");
}
else if (File.Exists((RutasCarpetas.RutaCarpetaContingenciaSobresDgi + "\\" + parametrosJobWsDGI.SobreDgi.Nombre + ".xml")))
{
xmlDocumento.Load(RutasCarpetas.RutaCarpetaContingenciaSobresDgi + "\\" + parametrosJobWsDGI.SobreDgi.Nombre + ".xml");
}
//SAPbouiCOM.Framework.Application.SBO_Application.MessageBox("Envio a DGI " + xmlDocumento.InnerXml);
respuesta = webServiceDgi.WSDGI.SendWSDGI(xmlDocumento.InnerXml, clsWSDGI.WsMethod.Envelope);
//SAPbouiCOM.Framework.Application.SBO_Application.MessageBox("Respuesta " + respuesta);
//respuesta = respuesta.Replace("<IDEmisor>0</IDEmisor>", "<IDEmisor>" + xmlDocumento.GetElementsByTagName("DGICFE:Idemisor").Item(0).InnerText + "</IDEmisor>");
//respuesta = respuesta.Replace("<IDEmisor>0</IDEmisor>", "<IDEmisor>" + xmlDocumento.GetElementsByTagName("Idemisor").Item(0).InnerText + "</IDEmisor>");
}
catch (Exception)
{
app.MessageBox("No se pudo enviar a DGI por problemas de conexión, recordar reenvio de documento.");
respuesta = "";
}
finally
{
if (webServiceDgi != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(webServiceDgi);
GC.Collect();
}
if (parametrosJobWsDGI != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(parametrosJobWsDGI);
GC.Collect();
}
if (xmlDocumento != null)
{
//Libera de memoria el objeto factura
GC.SuppressFinalize(xmlDocumento);
GC.Collect();
}
}
return(respuesta);
}
static public void PLA_COCVAL_DO(ref SAPbouiCOM.Application application, ref SAPbobsCOM.Company company)
{
//SAPbouiCOM.Application application = new SAPbouiCOM.Application();
//application = Global.oapplication;
//SAPbobsCOM.Company company = new SAPbobsCOM.Company();
//company = Global.ocompany;
SAPbouiCOM.Form form = application.Forms.ActiveForm;
SAPbouiCOM.Form gridForm = null;
SAPbouiCOM.Item oItem = null;
SAPbouiCOM.Grid oGrid = null;
SAPbouiCOM.Button oBtn = null;
string COC1;
string COC2 = "BOS_VW_COCP2_T1";
string COC3 = "BOS_VW_COCP3";
string COCP = "BOS_VW_COC_PIVOT";
int errorSection = 0;
string errorMsg = "";
try
{
SAPbobsCOM.Recordset coc1Record = (SAPbobsCOM.Recordset)(company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
SAPbobsCOM.Recordset oRecord2 = (SAPbobsCOM.Recordset)(company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset));
form.DataSources.DataTables.Add()
string docEntry = form.DataSources.DBDataSources.Item("ODLN").GetValue("DocEntry", 0);
if (docEntry == null)
{
errorMsg += "No Document Number found" + "\r\n";
throw new Exception("COCERROR");
}
string draftkey = form.DataSources.DBDataSources.Item("ODLN").GetValue("draftKey", 0);
bool draftDoc;
if (draftkey == "-1")
{
draftDoc = true;
COC1 = "BOS_VW_COCP1_DFT";
}
else
{
draftDoc = false;
COC1 = "BOS_VW_COCP1";
}
coc1Record.DoQuery("select a.*, b.*, c.U_VAC_SPEC_VIS, U_VAC_SPEC1, U_VAC_SPEC2, U_VAC_SPEC3,U_VAC_SPEC4,U_VAC_SPEC5, U_VAC_SPEC6 " +
"from " + COC1 + " a left outer join OBTN b on a.\"BlockItem\" = b.\"ItemCode\" and a.\"BatchNum\" = b.\"DistNumber\" " +
" left outer join RDR1 C on a.\"RdrEntry\" = c.\"DocEntry\" and a.\"RdrLine\" = c.\"LineNum\" " +
" where a.\"DLNEntry\" =" + docEntry.ToString());
if (coc1Record.RecordCount == 0)
{
errorMsg += "No COC Header Document found for :" + docEntry.ToString() + "\r\n";
throw new Exception("COCERROR");
}
for (int i = 0; i < coc1Record.RecordCount; i++)
{
if (coc1Record.Fields.Item("RESULT").ToString() == "")
{
errorSection++;
errorMsg += "No COC Header Document found for :" + docEntry.ToString() + "\r\n";
}
}
int x = 0;
x.ToString()
}
catch (Exception e)
{
errorSection++;
errorMsg += "Exception caught: " + e.Message.ToString() + "\r\n";
}
finally
{
if (errorMsg != "")
{
application.MessageBox(errorMsg, 1, "OK", "", "");
return;
}
}
//application.MessageBox("Found DocEntry : " + docEntry.ToString() + " and this is the draft key " + draftkey.ToString(), 1, "ok", "", "");
//try
//{
// gridForm = application.Forms.GetForm("PopForm", 0);
// gridForm.Close();
//}
//catch { }
//gridForm = application.Forms.Add("PopForm", SAPbouiCOM.BoFormTypes.ft_Fixed);
//gridForm.Title = "Found error";
//gridForm.Left = 100;
//gridForm.Width = 450;
//gridForm.Top = 100;
//gridForm.Height = 280;
//gridForm.Visible = true;
//gridForm.DataSources.DataTables.Add("myDataTable");
//gridForm.DataSources.DataTables.Item(0).ExecuteQuery("select " + docEntry + " as DOCENTRY, " + draftkey + " as DRAFTKEY from Dummy;");
//oItem = gridForm.Items.Add("1", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
//oItem.Left = 15;
//oItem.Top = 220;
//oItem.Width = 60;
//oBtn = (SAPbouiCOM.Button)oItem.Specific;
//oBtn.Caption = "OK";
//oItem = gridForm.Items.Add("2", SAPbouiCOM.BoFormItemTypes.it_BUTTON);
//oItem.Left = 100;
//oItem.Top = 220;
//oItem.Width = 60;
//oBtn = (SAPbouiCOM.Button)oItem.Specific;
//oBtn.Caption = "Cancel";
//oItem = gridForm.Items.Add("myGrid", SAPbouiCOM.BoFormItemTypes.it_GRID);
//oItem.Left = 15;
//oItem.Top = 15;
//oItem.Width = 420;
//oItem.Height = 200;
//oItem.Enabled = false;
//oGrid = (SAPbouiCOM.Grid)oItem.Specific;
//oGrid.DataTable = gridForm.DataSources.DataTables.Item("myDataTable");
//oGrid.AutoResizeColumns();
}
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
int GoiThauKey = -1;
if (ComboBox1.Selected.Value == "")
{
oApp.MessageBox("Please select Subproject !");
return;
}
int.TryParse(ComboBox1.Selected.Value, out GoiThauKey);
//throw new System.NotImplementedException();
Microsoft.Office.Interop.Excel.Application oXL;
Microsoft.Office.Interop.Excel._Workbook oWB;
Microsoft.Office.Interop.Excel._Worksheet oSheet;
//Microsoft.Office.Interop.Excel.Range oRng;
object misvalue = System.Reflection.Missing.Value;
//Start Excel and get Application object.
oXL = new Microsoft.Office.Interop.Excel.Application();
oXL.Visible = true;
//Open Template
oWB = oXL.Workbooks.Open(System.Windows.Forms.Application.StartupPath + @"\TMP_EQ_BCDT.xlsx");
oSheet = (Microsoft.Office.Interop.Excel._Worksheet)oWB.ActiveSheet;
try
{
//Fill Header
//Project Name
oSheet.Cells[2, 4] = "Dự án: " + this.ComboBox0.Selected.Description;
//Subproject Name
oSheet.Cells[3, 4] = "Gói thầu: " + this.ComboBox1.Selected.Description;
//Thang
//oSheet.Cells[4, 3] = "Tháng: " + this.ComboBox2.Selected.Value;
//Get DATA
DataTable A = Get_Data_DUTRU(this.ComboBox0.Selected.Value, -1, GoiThauKey);
int row_num = 8;
int STT = 1;
int Group_row_num = 0;
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "I";
oSheet.Cells[row_num, 2] = "THIẾT BỊ NÂNG HẠ";
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'TBNH'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "II";
oSheet.Cells[row_num, 2] = "THIẾT BỊ BAO CHE";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'TBBC'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "III";
oSheet.Cells[row_num, 2] = "THIẾT BỊ CHỐNG ĐỠ";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'TBCD'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "IV";
oSheet.Cells[row_num, 2] = "COPPHA NHÔM";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'CFN'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "V";
oSheet.Cells[row_num, 2] = "THIẾT BỊ AN TOÀN";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'TBAT'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "VI";
oSheet.Cells[row_num, 2] = "MÁY MÓC";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'MM'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
oSheet.Range["A" + row_num, "T" + row_num].Interior.Color = System.Drawing.Color.FromArgb(180, 198, 231);
oSheet.Range["A" + row_num, "T" + row_num].Font.Bold = true;
oSheet.Cells[row_num, 1] = "VI";
oSheet.Cells[row_num, 2] = "THIẾT BỊ KHÁC";
STT = 1;
Group_row_num = row_num;
row_num++;
foreach (DataRow r in A.Select("U_001 = 'TBK'"))
{
oSheet.Cells[row_num, 1] = STT;
oSheet.Cells[row_num, 2] = /*r["U_MATHIETBI"].ToString() + " - " +*/ r["U_TENTHIETBI"];
oSheet.Cells[row_num, 3] = r["U_DVTTB"];
oSheet.Cells[row_num, 4] = r["U_TLTB"];
oSheet.Cells[row_num, 5] = r["U_SLDUTRU"];
oSheet.Cells[row_num, 6] = r["U_SLTHUE"];
oSheet.Cells[row_num, 7] = r["U_SLVANCHUYEN"];
oSheet.Cells[row_num, 8] = r["U_SLVANHANH"];
oSheet.Cells[row_num, 9] = r["U_NGAYCAP"];
oSheet.Cells[row_num, 10] = r["U_NGAYTRA"];
oSheet.Cells[row_num, 11].Formula = string.Format("=J{0}-I{0}", row_num);
oSheet.Cells[row_num, 12] = r["U_DGMUABAN"];
oSheet.Cells[row_num, 13] = r["U_DGTHUE"];
oSheet.Cells[row_num, 14] = r["U_DGVCTB"];
oSheet.Cells[row_num, 15] = r["U_DGVH"];
oSheet.Cells[row_num, 16] = r["U_GTMB"];
oSheet.Cells[row_num, 17] = r["U_GTTHUE"];
oSheet.Cells[row_num, 18] = r["U_GTVANCHUYEN"];
oSheet.Cells[row_num, 19] = r["U_GTVANHANH"];
STT++;
row_num++;
}
//GROUP TOTAL
if (row_num - Group_row_num > 1)
{
oSheet.Cells[Group_row_num, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", Group_row_num + 1, row_num - 1);
oSheet.Cells[Group_row_num, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", Group_row_num + 1, row_num - 1);
}
//TOTAL DUTRU
oSheet.Cells[7, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", 8, row_num - 1);
oSheet.Cells[7, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", 8, row_num - 1);
oSheet.Cells[7, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", 8, row_num - 1);
oSheet.Cells[7, 8].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", 8, row_num - 1);
oSheet.Cells[7, 16].Formula = string.Format("=SUBTOTAL(9,P{0}:P{1})", 8, row_num - 1);
oSheet.Cells[7, 17].Formula = string.Format("=SUBTOTAL(9,Q{0}:Q{1})", 8, row_num - 1);
oSheet.Cells[7, 18].Formula = string.Format("=SUBTOTAL(9,R{0}:R{1})", 8, row_num - 1);
oSheet.Cells[7, 19].Formula = string.Format("=SUBTOTAL(9,S{0}:S{1})", 8, row_num - 1);
//Border
((Microsoft.Office.Interop.Excel.Range)oSheet.get_Range("A8", "T" + (row_num - 1))).Cells.Borders.LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous;
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
}
}
private void SBO_Application_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
// SOCIO DE NEGOCIOS
if ((pVal.FormType == 134 & pVal.EventType != SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) & (pVal.Before_Action == true))
{
oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount);
if ((pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_LOAD) & (pVal.BeforeAction == true))
{
DibujaItems.BtnCoRuc(oOrderForm);
}
if (pVal.ItemUID == "btnCRu" & (pVal.EventType == SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED))
{
/*VALIDAMOS LICENCIA*/
DateTime dt1, dt2;
dt1 = DateTime.Parse("01/01/2021");
dt2 = DateTime.Now;
TimeSpan ts = dt2 - dt1;
if (ts.Days < 15)
{
if ((oOrderForm.Mode == SAPbouiCOM.BoFormMode.fm_ADD_MODE))
{
try
{
txtRuc = (SAPbouiCOM.EditText)oOrderForm.Items.Item("41").Specific;
oCardType = (SAPbouiCOM.ComboBox)oOrderForm.Items.Item("40").Specific;
Ruc = txtRuc.Value;
if (Ruc.Length == 11)
{
oSocioNegocio = new SocioNegocio();
DatosSunat = ClassDatosSN.GetDatosSN(Ruc);
oSocioNegocio.CardType = oCardType.Value; // [C] cliente [S] Proveedor
oSocioNegocio.ruc = DatosSunat[0];
oSocioNegocio.razonSocial = DatosSunat[1];
oSocioNegocio.estado = DatosSunat[2];
oSocioNegocio.condicion = DatosSunat[3];
oSocioNegocio.direccion = DatosSunat[4];
oSocioNegocio.departamento = DatosSunat[5];
oSocioNegocio.provincia = DatosSunat[6];
oSocioNegocio.distrito = DatosSunat[7];
if (!(SetConnectionContext() == 0))
{
SBO_Application.MessageBox("Failed setting a connection to DI API", 1, "Ok", "", "");
System.Environment.Exit(0); // Terminating the Add-On Application
}
if (!(ConnectToCompany() == 0))
{
SBO_Application.MessageBox("Failed connecting to the company's Data Base", 1, "Ok", "", "");
System.Environment.Exit(0); // Terminating the Add-On Application
}
if (oSocioNegocio.estado == "ACTIVO" && oSocioNegocio.condicion == "HABIDO")
{
if (SBO_Application.MessageBox("Esta seguro de [Cear] Socio de negocios:" + oSocioNegocio.razonSocial, 2, "Ok", "Cancelar") == 1)
{
int res = AddSocioNegocioController.CreaSoNe(oCompany, oSocioNegocio);
if (res == 0)
{
SBO_Application.MessageBox("Socio de negocios creado: " + oCompany.CompanyName + Constants.vbNewLine, 1, "Ok", "", "");
oOrderForm.Close();
}
else
{
string LastError = "";
oCompany.GetLastError(out res, out LastError);
SBO_Application.MessageBox(res + "-" + LastError);
}
}
}
else
{
if (SBO_Application.MessageBox("El SN: " + oSocioNegocio.razonSocial + "\r\n" + "Estado: " + oSocioNegocio.estado + " Condición: " + oSocioNegocio.condicion + "\r\n" + "Desea crear SN de todas formas?", 2, "Ok", "Cancelar") == 1)
{
int res = AddSocioNegocioController.CreaSoNe(oCompany, oSocioNegocio);
if (res == 0)
{
SBO_Application.MessageBox("Socio de negocios creado: " + oCompany.CompanyName + Constants.vbNewLine, 1, "Ok", "", "");
oOrderForm.Close();
}
else
{
string LastError = "";
oCompany.GetLastError(out res, out LastError);
SBO_Application.MessageBox(res + "-" + LastError);
}
}
}
}
else
{
SBO_Application.MessageBox("Nùmero de RUC debe de contener 12 caracteres");
}
}
catch (Exception ex)
{
SBO_Application.MessageBox(ex.Message);
}
}
else
{
SBO_Application.MessageBox("Esta obcion solo esta activada para [Crear] Socio de negocio.");
}
}
else
{
SBO_Application.MessageBox("Periodo de prueba [terminado]");
}
}
}
}
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
if (string.IsNullOrEmpty(EditText0.Value))
{
oApp.MessageBox("Please enter value !");
return;
}
try
{
DateTime todate = DateTime.ParseExact(EditText0.Value, "yyyyMMdd", CultureInfo.InvariantCulture);
DataTable rs_detail = Get_Data(todate);
if (rs_detail.Rows.Count > 0)
{
Microsoft.Office.Interop.Excel.Application oXL;
Microsoft.Office.Interop.Excel._Workbook oWB;
Microsoft.Office.Interop.Excel._Worksheet oSheet;
object misvalue = System.Reflection.Missing.Value;
//Start Excel and get Application object.
oXL = new Microsoft.Office.Interop.Excel.Application();
oXL.Visible = true;
//Open Template
oWB = oXL.Workbooks.Open(System.Windows.Forms.Application.StartupPath + @"\TMP_TH_CP_VP.xlsx");
oSheet = (Microsoft.Office.Interop.Excel._Worksheet)oWB.ActiveSheet;
//Project Code
//oSheet.Cells[1, 3] = "Dự án: " + ComboBox0.Selected.Description;
//Project Name
//oSheet.Cells[2, 3] = "Hạng mục: Chi phí quản lý văn phòng" ;
//Period
//oSheet.Cells[3, 3] = string.Format("Kỳ: {0}", period);
//Date view report
oSheet.Cells[3, 1] = string.Format("Từ ngày {0} đến ngày {1}", new DateTime(todate.Year, 1, 1).ToString("dd/MM/yyyy"), todate.ToString("dd/MM/yyyy"));
int STT = 1;
int STT_G = 1;
int current_row = 5, g_row = 5;
string NCP = "";
string CP = "";
foreach (DataRow r in rs_detail.Rows)
{
//Print Nhom chi phi
if (r["MA_NHOM_CP"].ToString() != NCP)
{
string NCP_old = NCP;
NCP = r["MA_NHOM_CP"].ToString();
//STT Group
oSheet.Cells[current_row, 1].Formula = string.Format("=ROMAN({0})", STT_G);
//Ten nhom CP
oSheet.Cells[current_row, 2] = r["TEN_NHOM_CP"].ToString();
//Gia tri cho Khau tru TSCD
if (NCP == "C8")
{
//KT No VAT
oSheet.Cells[current_row, 4] = r["KT_NO_VAT"];
//CCM no VAT
oSheet.Cells[current_row, 5] = r["GT_NO_VAT"];
}
//Format style
oSheet.Range["A" + current_row, "H" + current_row].Font.Bold = true;
oSheet.Range["A" + current_row, "H" + current_row].Interior.Color = System.Drawing.Color.FromArgb(169, 208, 142);
//Total Group
if (g_row < current_row)
{
oSheet.Cells[g_row, 3].Formula = string.Format("=SUBTOTAL(9,C{0}:C{1})", g_row + 1, current_row - 1);
if (NCP_old != "C8")
{
oSheet.Cells[g_row, 4].Formula = string.Format("=SUBTOTAL(9,D{0}:D{1})", g_row + 1, current_row - 1);
oSheet.Cells[g_row, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", g_row + 1, current_row - 1);
oSheet.Cells[g_row, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", g_row + 1, current_row - 1);
}
else
{
oSheet.Cells[g_row, 6].Formula = string.Format("=C{0}-E{0}", g_row);
}
}
STT_G++;
STT = 1;
g_row = current_row;
current_row++;
}
//STT
oSheet.Cells[current_row, 1] = STT;
//Ten CP
oSheet.Cells[current_row, 2] = r["TEN_CP"].ToString();
//Du Tru
oSheet.Cells[current_row, 3] = r["DuTru"];
if (NCP != "C8")
{
//KT No VAT
oSheet.Cells[current_row, 4] = r["KT_NO_VAT"];
//CCM no VAT
oSheet.Cells[current_row, 5] = r["GT_NO_VAT"];
//CP Con lai
oSheet.Cells[current_row, 6].Formula = string.Format("=C{0}-E{0}", current_row);
}
else
{
//KT No VAT
oSheet.Cells[current_row, 4] = 0;
//CCM no VAT
oSheet.Cells[current_row, 5] = 0;
//CP Con lai
oSheet.Cells[current_row, 6] = 0;
}
//Phan tram hoan thanh
oSheet.Cells[current_row, 7].Formula = string.Format("=IF(ISERROR(E{0}/C{0}),0,E{0}/C{0})", current_row);
STT++;
current_row++;
}
//Total Last CP
//if (g2_row < current_row)
//{
// //oSheet.Cells[g2_row, 4].Formula = string.Format("=SUBTOTAL(9,D{0}:D{1})", g2_row + 1, current_row - 1);
// oSheet.Cells[g2_row, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", g2_row + 1, current_row - 1);
// oSheet.Cells[g2_row, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", g2_row + 1, current_row - 1);
// oSheet.Cells[g2_row, 7].Formula = string.Format("=SUBTOTAL(9,G{0}:G{1})", g2_row + 1, current_row - 1);
// oSheet.Cells[g2_row, 7].Formula = string.Format("=SUBTOTAL(9,H{0}:H{1})", g2_row + 1, current_row - 1);
//}
//Total Last Group
if (g_row < current_row)
{
oSheet.Cells[g_row, 3].Formula = string.Format("=SUBTOTAL(9,C{0}:C{1})", g_row + 1, current_row - 1);
oSheet.Cells[g_row, 4].Formula = string.Format("=SUBTOTAL(9,D{0}:D{1})", g_row + 1, current_row - 1);
oSheet.Cells[g_row, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", g_row + 1, current_row - 1);
oSheet.Cells[g_row, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", g_row + 1, current_row - 1);
}
//TOTAL
oSheet.Range["A" + current_row, "B" + current_row].Merge();
oSheet.Range["A" + current_row, "B" + current_row].HorizontalAlignment = Microsoft.Office.Interop.Excel.XlHAlign.xlHAlignCenter;
oSheet.Range["A" + current_row, "H" + current_row].Font.Bold = true;
oSheet.Range["A" + current_row, "H" + current_row].Interior.Color = System.Drawing.Color.FromArgb(255, 217, 102);
oSheet.Cells[current_row, 1] = "TỔNG CỘNG";
oSheet.Cells[current_row, 3].Formula = string.Format("=SUBTOTAL(9,C{0}:C{1})", 5, current_row - 1);
oSheet.Cells[current_row, 4].Formula = string.Format("=SUBTOTAL(9,D{0}:D{1})", 5, current_row - 1);
oSheet.Cells[current_row, 5].Formula = string.Format("=SUBTOTAL(9,E{0}:E{1})", 5, current_row - 1);
oSheet.Cells[current_row, 6].Formula = string.Format("=SUBTOTAL(9,F{0}:F{1})", 5, current_row - 1);
current_row++;
//Border
((Microsoft.Office.Interop.Excel.Range)oSheet.get_Range("A5", "H" + (current_row - 1))).Cells.Borders.LineStyle = Microsoft.Office.Interop.Excel.XlLineStyle.xlContinuous;
oXL.ActiveWindow.Activate();
}
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
}
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
try
{
DateTime frdate = DateTime.Today;
DateTime todate = DateTime.Today;
if (string.IsNullOrEmpty(EditText0.Value))
{
oApp.MessageBox("Please Enter From Date !");
return;
}
else
{
frdate = DateTime.ParseExact(EditText0.Value, "yyyyMMdd", CultureInfo.InvariantCulture);
}
if (string.IsNullOrEmpty(EditText1.Value))
{
oApp.MessageBox("Please Enter To Date !");
return;
}
else
{
todate = DateTime.ParseExact(EditText1.Value, "yyyyMMdd", CultureInfo.InvariantCulture);
}
if (string.IsNullOrEmpty(EditText2.Value))
{
oApp.MessageBox("Please Enter Level !");
return;
}
else
{
int.TryParse(EditText2.Value.Trim(), out Level);
}
DataTable result = Get_Data(Level, frdate, todate);
this.UIAPIRawForm.Freeze(true);
Grid0.DataTable = Convert_SAP_DataTable(result);
Grid0.AutoResizeColumns();
for (int i = 0; i < Grid0.Columns.Count; i++)
{
if (i >= 4)
{
Grid0.Columns.Item(i).RightJustified = true;
}
}
for (int i = 0; i < Grid0.Rows.Count; i++)
{
int t_level = 0;
int.TryParse(Grid0.DataTable.GetValue("Cap", i).ToString(), out t_level);
if (t_level < Level)
{
//Dark Gray
Grid0.CommonSetting.SetRowBackColor(i + 1, 14277081);
}
else
{
//White Color
Grid0.CommonSetting.SetRowBackColor(i + 1, 16777215);
}
}
Grid0.Columns.Item(0).Visible = false;
Grid0.Columns.Item(3).Visible = false;
Grid0.AutoResizeColumns();
oApp.SetStatusBarMessage("Load Data Completed !", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message);
}
finally
{
this.UIAPIRawForm.Freeze(false);
}
}
public void OlaSapB11()
{
SetApplication();
oApplication.MessageBox("OLÁ SAP B1", 1, "OK", "", "");
}