private void TableCreation()
{
try
{
____bobCompany.StartTransaction();
AddTables("AW_B1CZHDR", "B1 Customize Header", SAPbobsCOM.BoUTBTableType.bott_MasterData);
AddTables("AW_B1CZDTL", "B1 Customize Rows", SAPbobsCOM.BoUTBTableType.bott_MasterDataLines);
AddFields("@AW_B1CZHDR", "DocEntry", "DocEntry", SAPbobsCOM.BoFieldTypes.db_Numeric, SAPbobsCOM.BoFldSubTypes.st_None, 11, null, null, false, null);
AddFields("@AW_B1CZDTL", "DocEntry", "DocEntry", SAPbobsCOM.BoFieldTypes.db_Numeric, SAPbobsCOM.BoFldSubTypes.st_None, 11, null, null, false, null);
AddFields("@AW_B1CZDTL", "AsColNotes", "Collection Notes", SAPbobsCOM.BoFieldTypes.db_Memo, SAPbobsCOM.BoFldSubTypes.st_None, 254, null, null, false, null);
AddFields("@AW_B1CZDTL", "UpdateDate", "Update Date", SAPbobsCOM.BoFieldTypes.db_Date, SAPbobsCOM.BoFldSubTypes.st_None, 12, null, null, false, null);
if (-1 == RegisterObject("UDOB1CZHDR", "B1 Customize", "MD", "AW_B1CZHDR", "AW_B1CZDTL", false, false, false, true, true, false, false, "DocEntry", false, "", true))
{
__app.StatusBar.SetText("Object Registration failed.....", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error); return;
}
if (____bobCompany.InTransaction == true)
{
____bobCompany.EndTransaction(SAPbobsCOM.BoWfTransOpt.wf_Commit);
}
}
catch (Exception ex)
{
__app.SetStatusBarMessage(ex.Message.ToString(), SAPbouiCOM.BoMessageTime.bmt_Short, true);
}
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
oUserTable = oCompany.UserTables.Item("SECCIONESCOL");
oUserTable.Code = EditText0.Value.ToString();
oUserTable.Name = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_CodigoSEC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreSEC").Value = EditText1.Value.ToString();
oUserTable.UserFields.Fields.Item("U_SupraSeccionSEC").Value = EditText3.Value.ToString();
oUserTable.UserFields.Fields.Item("U_PrecioSEC").Value = EditText2.Value.ToString();
oUserTable.UserFields.Fields.Item("U_ProyectoSEC").Value = "";
//oUserTable.Add();
int i = oUserTable.Add();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm = oApp.Forms.Item("creasecc");
oForm.Close();
}
}
public void Button2_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
try
{
if (oGrid.Rows.SelectedRows.Count > 0) //VERIFICA QUE EXISTA UN ROW SELECCIONADO
{
if (viejaSel != -1)
{
oGrid.CommonSetting.SetRowFontStyle(viejaSel, SAPbouiCOM.BoFontStyle.fs_Plain);
}
int nSelecRow = (oGrid.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder));
viejaSel = nSelecRow + 1;
//oApp.SetStatusBarMessage("El dato es " + oldSelection + nSelecRow);
//seleccion el row y se destaca en negrita
oGrid.CommonSetting.SetRowFontStyle(nSelecRow + 1, SAPbouiCOM.BoFontStyle.fs_Bold);
sValorGrid = Convert.ToString(oGrid.DataTable.GetValue("Código", nSelecRow));
// Button0.Caption = "Update";
//if (Button0.Caption=="OK"){
Button0.Caption = "Update";
// oForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE;
//}
}
}
catch (Exception)
{
oApp.SetStatusBarMessage("Error en el boton: " + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, true);
}
}
private void Button2_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
//oApp = (SAPbouiCOM.Application)Application.SBO_Application;
//oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
oUserTable.Code = EditText4.Value.ToString();
oUserTable.Name = EditText4.Value.ToString();
oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText4.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreEDC").Value = EditText7.Value.ToString();
oUserTable.UserFields.Fields.Item("U_ProyectoEDC").Value = EditText5.Value.ToString();
//oUserTable.Add();
int i = oUserTable.Add();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm = oApp.Forms.Item("fmcred");
oForm.Close();
}
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
oUserTable = oCompany.UserTables.Item("SECCIONESCOL");
//hago un getbykey para obtener el valor key necesario para actualizar los datos
if (oUserTable.GetByKey(EditText0.Value.ToString()))
{
// oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreSEC").Value = EditText1.Value.ToString();
}
oUserTable.UserFields.Fields.Item("U_SupraSeccionSEC").Value = EditText2.Value.ToString();
oUserTable.UserFields.Fields.Item("U_PrecioSEC").Value = EditText4.Value.ToString();
//oUserTable.Update();
int i = oUserTable.Update();
//oApp.SetStatusBarMessage("valor"+ i);
if (i != 0)
{
oApp.SetStatusBarMessage("Error en la actualización: " + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la actualizacón", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
//oForm = oApp.Forms.Item("fmacted");
//oForm.Close();
}
}
//private void OApplication_ItemEvent(string FormUID, ref SAPbouiCOM.ItemEvent pVal, out bool BubbleEvent)
//{
// throw;
//}
private void OApplication_MenuEvent(ref SAPbouiCOM.MenuEvent pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (pVal.BeforeAction)
{
oApplication.SetStatusBarMessage("Menu Item: " + pVal.MenuUID + "Enviou o evento ANTES do SAP B1 processa-lo",
SAPbouiCOM.BoMessageTime.bmt_Long, true);
}
else
{
oApplication.SetStatusBarMessage("Menu Item: " + pVal.MenuUID + "Enviou o evento DEPOIS do SAP B1 processa-lo!",
SAPbouiCOM.BoMessageTime.bmt_Long, true);
}
}
//Approve Button
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
if (DocEntry_ODRF > 0)
{
SAPbobsCOM.ApprovalRequestsService oApprovalRequestsService = (SAPbobsCOM.ApprovalRequestsService)oCompany.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ApprovalRequestsService);
SAPbobsCOM.ApprovalRequestsParams oApprovalRequestsParams = (SAPbobsCOM.ApprovalRequestsParams)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequestsParams);
SAPbobsCOM.ApprovalRequest oApprovalRequest = (SAPbobsCOM.ApprovalRequest)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequest);
SAPbobsCOM.ApprovalRequestParams oApprovalRequestParams = (SAPbobsCOM.ApprovalRequestParams)oApprovalRequestsService.GetDataInterface(SAPbobsCOM.ApprovalRequestsServiceDataInterfaces.arsApprovalRequestParams);
oApprovalRequestParams.Code = WddCode;
//Approve request
oApprovalRequest = oApprovalRequestsService.GetApprovalRequest(oApprovalRequestParams);
oApprovalRequest.ApprovalRequestDecisions.Add();
oApprovalRequest.ApprovalRequestDecisions.Item(0).Remarks = EditText0.Value;
oApprovalRequest.ApprovalRequestDecisions.Item(0).Status = SAPbobsCOM.BoApprovalRequestDecisionEnum.ardApproved;
try
{
oApprovalRequestsService.UpdateRequest(oApprovalRequest);
oApp.MessageBox("Phê duyệt thành công");
oApprovalRequest = oApprovalRequestsService.GetApprovalRequest(oApprovalRequestParams);
if (oApprovalRequest.Status == SAPbobsCOM.BoApprovalRequestStatusEnum.arsApproved)
{
try
{
//Approved Document Add to Valid Document
SAPbobsCOM.Documents oDraft = (SAPbobsCOM.Documents)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oDrafts);
oDraft.GetByKey(oApprovalRequest.ObjectEntry);
int ErrorCode = oDraft.SaveDraftToDocument();
if (ErrorCode == 0)
{
oApp.SetStatusBarMessage("Document added successfully", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage(ErrorCode.ToString() + "|" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, true);
}
}
catch
{
}
}
}
catch (Exception ex)
{
oApp.MessageBox("Phê duyệt không thành công |" + ex.Message);
}
}
}
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>
/// 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);
}
}
public void SetApplication()
{
SAPbouiCOM.SboGuiApi SboGuiApi = null;
string sConnectionString = null;
SboGuiApi = new SAPbouiCOM.SboGuiApi();
sConnectionString = System.Convert.ToString(Environment.GetCommandLineArgs().GetValue(1));
// connect to a running SBO Application
try
{
SboGuiApi.Connect(sConnectionString);
// get an initialized application object
SBO_Application = SboGuiApi.GetApplication();
SBO_Application.SetStatusBarMessage("Se ha iniciado el Add-on de FE_DIAN", SAPbouiCOM.BoMessageTime.bmt_Short, false);
oCompany = new SAPbobsCOM.Company();
//get DI company (via UI)
oCompany = (SAPbobsCOM.Company)SBO_Application.Company.GetDICompany();
}
catch (Exception ex)
{ // Connection failed
System.Windows.Forms.MessageBox.Show("Error al iniciar el Add-on de Youse" + ex.Message, "Error de conexión",
System.Windows.Forms.MessageBoxButtons.OKCancel, System.Windows.Forms.MessageBoxIcon.Error,
System.Windows.Forms.MessageBoxDefaultButton.Button1, System.Windows.Forms.MessageBoxOptions.DefaultDesktopOnly);
System.Environment.Exit(0);
}
}
private void Button2_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if (Grid0.Rows.SelectedRows.Count > 0) //VERIFICA QUE EXISTA UN ROW SELECCIONADO
{
int nSelecRow = (Grid0.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder));
String sValorGrid = Convert.ToString(Grid0.DataTable.GetValue("CÓDIGO", nSelecRow));
// oApp.SetStatusBarMessage("codigo" + sValorGrid);
actua_secc crear_form = new actua_secc(sValorGrid);
crear_form.Show();
}
else
{
oApp.SetStatusBarMessage("Error, no has seleccionado una fila", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
}
private void oApplication_AppEvent(SAPbouiCOM.BoAppEventTypes EventType)
{
if (EventType == SAPbouiCOM.BoAppEventTypes.aet_CompanyChanged || EventType == SAPbouiCOM.BoAppEventTypes.aet_LanguageChanged || EventType == SAPbouiCOM.BoAppEventTypes.aet_ServerTerminition || EventType == SAPbouiCOM.BoAppEventTypes.aet_ShutDown)
{
//string strFileName = (System.Windows.Forms.Application.StartupPath).ToString() + @"\" + "Remove Menus.xml";
//clsSBO.LoadFromXML(ref strFileName, oApplication);
oApplication.SetStatusBarMessage("eOrderEntry Addon Disconnected successfully - SAP", SAPbouiCOM.BoMessageTime.bmt_Short, false);
GC.Collect();
System.Windows.Forms.Application.Exit();
TmpThread.Start();
}
}
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
SAPbobsCOM.GeneralService oGeneralService = null;
SAPbobsCOM.GeneralDataParams oGeneralParams = null;
SAPbobsCOM.CompanyService sCmp = null;
SAPbobsCOM.GeneralData oGeneralData = null;
SAPbobsCOM.GeneralData oChild = null;
SAPbobsCOM.GeneralDataCollection oChildren = null;
sCmp = oCompany.GetCompanyService();
oGeneralService = sCmp.GetGeneralService("BaseLine");
//Create data for new row in main UDO
oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData);
//Financial Project
oGeneralData.SetProperty("U_FProject", FProject);
//Date
oGeneralData.SetProperty("U_BaseDate", DateTime.Today);
//Note
oGeneralData.SetProperty("U_Note", EditText2.Value.Trim());
//Add Quy trinh duyet
DataTable rs = Get_Approve_Process_BASELINE();
if (rs.Rows.Count > 0)
{
oChildren = oGeneralData.Child("BASELINE_APPR");
foreach (DataRow r in rs.Rows)
{
oChild = oChildren.Add();
oChild.SetProperty("U_Level", r["LEVEL"].ToString());
oChild.SetProperty("U_Posistion", r["Position"].ToString());
oChild.SetProperty("U_DeptName", r["DeptName"].ToString());
oChild.SetProperty("U_PosName", r["PosName"].ToString());
}
}
oGeneralParams = oGeneralService.Add(oGeneralData);
if (!string.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString()))
{
int BaseLine_DocEntry = 0;
int.TryParse(oGeneralParams.GetProperty("DocEntry").ToString(), out BaseLine_DocEntry);
//Add BaseLine Data
Add_Data(BaseLine_DocEntry);
oApp.SetStatusBarMessage("Add Completed - DocEntry: " + oGeneralParams.GetProperty("DocEntry").ToString(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
this.UIAPIRawForm.Close();
}
}
private void SaveAsXML()
{
System.Xml.XmlDocument oXmlDoc = null;
oXmlDoc = new System.Xml.XmlDocument();
string sXmlString = null;
sXmlString = oForm.GetAsXML();
oXmlDoc.LoadXml(sXmlString);
string sPath = null;
sPath = System.IO.Directory.GetParent(Application.StartupPath).ToString();
oXmlDoc.Save(sPath + @"\FormSimples.xml");
oApplication.SetStatusBarMessage("Dir:" + sPath, SAPbouiCOM.BoMessageTime.bmt_Short, false);
}
internal static void removeTable(UserTablesMD ut, string name, SAPbouiCOM.Application app,
SAPbobsCOM.Company company)
{
int ret;
string errMsg;
if (ut.GetByKey(name))
{
ret = ut.Remove();
if (ret != 0)
{
company.GetLastError(out ret, out errMsg);
app.SetStatusBarMessage("Error removing table " + name, SAPbouiCOM.BoMessageTime.bmt_Short, true);
throw new Exception(errMsg);
}
app.StatusBar.SetSystemMessage("Removed table " + name,
SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
}
internal static void removeUDO(UserObjectsMD uo, string name,
SAPbouiCOM.Application app, SAPbobsCOM.Company company)
{
int ret;
string errMsg;
if (uo.GetByKey(name))
{
ret = uo.Remove();
if (ret != 0)
{
company.GetLastError(out ret, out errMsg);
app.SetStatusBarMessage(string.Format("Error removing object {0}", name),
SAPbouiCOM.BoMessageTime.bmt_Short, true);
throw new Exception(errMsg);
}
app.StatusBar.SetSystemMessage(string.Format("Removed field {0}", name),
SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
}
internal static void removeField(UserFieldsMD uf, string tableName, int fieldID,
SAPbouiCOM.Application app, SAPbobsCOM.Company company)
{
int ret;
string errMsg;
if (uf.GetByKey(tableName, fieldID))
{
ret = uf.Remove();
if (ret != 0)
{
company.GetLastError(out ret, out errMsg);
app.SetStatusBarMessage(string.Format("Error removing field {0}-{1}",
tableName, fieldID), SAPbouiCOM.BoMessageTime.bmt_Short, true);
throw new Exception(errMsg);
}
app.StatusBar.SetSystemMessage(string.Format("Removed field {0}-{1}",
tableName, fieldID),
SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success);
}
}
public void crearForma()
{
//se comprueba que la forma no este creada para poder
//crear una forma
try
{
forma = app.Forms.Item("FSDC");
}
catch
{
// se carga el archivo desde el xml
string xmlCargado = Config.getConfig().cargarDesdeXML("FSolicitud de compra.srf");
app.LoadBatchActions(ref xmlCargado);
forma = app.Forms.Item("FSDC");
crearChooseFromList();
llenarComboBox();
setFecha();
setMatrix();
setImpuesto();
// se posiciona el campo proveedor como
// el primer campo activo de la forma
forma.ActiveItem = "txtCodProv";
// el browseby activa las flechas de navegacion
// para navegar entre documentos ya procesados
forma.DataBrowser.BrowseBy = "txtDcEntry";
// se asigna el indice a la columna
setColCount();
forma.Visible = true;
app.SetStatusBarMessage("Se inicializado del Add-On", SAPbouiCOM.BoMessageTime.bmt_Short, false);
// se guarda el elemento xml
Config.getConfig().guardarComoXML(forma.GetAsXML(), "FSolicitud de compra.xml");
}
app.ItemEvent += new SAPbouiCOM._IApplicationEvents_ItemEventEventHandler(app_ItemEvent);
}
private void Form_DataDeleteBefore(ref SAPbouiCOM.BusinessObjectInfo pVal, out bool BubbleEvent)
{
BubbleEvent = true;
//Get ObjectKey has created
XmlDocument xmldoc = new XmlDocument();
xmldoc.LoadXml(((SAPbouiCOM.BusinessObjectInfo)pVal).ObjectKey.Replace("Khối lượng thanh toán", "KLTT"));
XmlNodeList nodeList = xmldoc.GetElementsByTagName("DocEntry");
string Object_Key = string.Empty;
if (nodeList.Count > 0)
{
Object_Key = nodeList.Item(0).InnerText;
}
int DocEntry = 0;
int.TryParse(Object_Key, out DocEntry);
if (Check_Approve_KLTT(DocEntry))
{
oApp.SetStatusBarMessage("Bill was approved ! Delete failed !", SAPbouiCOM.BoMessageTime.bmt_Medium, true);
BubbleEvent = false;
}
}
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");
}
}
private void Form_DataAddAfter(ref SAPbouiCOM.BusinessObjectInfo pVal)
{
//throw new System.NotImplementedException();
if (pVal.ActionSuccess)
{
//Get Batch Num has created
XmlDocument xmldoc = new XmlDocument();
xmldoc.LoadXml(((SAPbouiCOM.BusinessObjectInfo)pVal).ObjectKey);
XmlNodeList nodeList = xmldoc.GetElementsByTagName("BatchNum");
string BatchNum = string.Empty;
try
{
if (nodeList.Count > 0)
{
BatchNum = nodeList.Item(0).InnerText;
}
}
catch
{
BatchNum = string.Empty;
}
if (!string.IsNullOrEmpty(BatchNum))
{
//Check if exist in JV_APPROVE
if (!Check_Approve_Process_Exist(BatchNum))
{
//Get Info BatchNum
SAPbobsCOM.Recordset oR_RecordSet = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oR_RecordSet.DoQuery("Select top 1 U_LCP,Project from OBTF where BatchNum=" + BatchNum + " order by TransID desc");
string U_LCP = oR_RecordSet.Fields.Item("U_LCP").Value.ToString();
//string BCH = oR_RecordSet.Fields.Item("U_CP").Value.ToString();
string FProject = oR_RecordSet.Fields.Item("Project").Value.ToString();
string Type_JV = "";
DataTable tb_lstappr = null;
if (U_LCP == "VP")
{
Type_JV = "VP";
}
else if (U_LCP == "BCH")
{
Type_JV = "BCH";
}
if (Type_JV == "VP" || Type_JV == "BCH")
{
if (Check_Accountant())
{
Button0.Item.Visible = false;
}
}
else
{
if (Check_Accountant())
{
Button0.Item.Visible = true;
}
}
tb_lstappr = GetList_Approve(FProject, Type_JV);
if (tb_lstappr.Rows.Count > 0)
{
SAPbobsCOM.GeneralService oGeneralService = null;
SAPbobsCOM.GeneralDataParams oGeneralParams = null;
SAPbobsCOM.CompanyService sCmp = null;
SAPbobsCOM.GeneralData oGeneralData = null;
SAPbobsCOM.GeneralData oChild = null;
SAPbobsCOM.GeneralDataCollection oChildren = null;
sCmp = oCompany.GetCompanyService();
oGeneralService = sCmp.GetGeneralService("JVAPPROVE");
//Create data for new row in main UDO
oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData);
oGeneralData.SetProperty("U_JVBatchNum", int.Parse(BatchNum));
oGeneralData.SetProperty("U_Type", Type_JV);
//Create data for a row in the child table
oChildren = oGeneralData.Child("JV_APROVE_D");
foreach (DataRow r in tb_lstappr.Rows)
{
oChild = oChildren.Add();
oChild.SetProperty("U_Level", r["LEVEL"].ToString());
oChild.SetProperty("U_Position", r["Position"].ToString());
}
oGeneralParams = oGeneralService.Add(oGeneralData);
if (!String.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString()))
{
oApp.SetStatusBarMessage("Approve Process Added !!!", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
if (Check_Accountant())
{
Button0.Item.Visible = false;
}
}
else
{
//Close Voucher
//SAPbobsCOM.JournalVouchers oVoucher = (SAPbobsCOM.JournalVouchers)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oJournalVouchers);
}
}
}
}
}
}
//Add Button
private void Button0_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
SAPbobsCOM.GeneralService oGeneralService = null;
SAPbobsCOM.GeneralDataParams oGeneralParams = null;
SAPbobsCOM.CompanyService sCmp = null;
SAPbobsCOM.GeneralData oGeneralData = null;
SAPbobsCOM.GeneralData oChild = null;
SAPbobsCOM.GeneralDataCollection oChildren = null;
try
{
BpCode = EditText0.Value;
Get_BpName();
sCmp = oCompany.GetCompanyService();
oGeneralService = sCmp.GetGeneralService("BILLVP");
//Create data for new row in main UDO
oGeneralData = (SAPbobsCOM.GeneralData)oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData);
//Financial Project
oGeneralData.SetProperty("U_FProject", ComboBox0.Selected.Value);
//Project Name
oGeneralData.SetProperty("U_ProjectName", EditText1.Value);
//BpCode
oGeneralData.SetProperty("U_BPCode", BpCode);
//BpName
oGeneralData.SetProperty("U_BPName", BpName);
//Bill Type
int btype = 2;
int.TryParse(ComboBox1.Selected.Value, out btype);
oGeneralData.SetProperty("U_BType", btype);
//Date From
oGeneralData.SetProperty("U_DateFr", DateTime.ParseExact(EditText3.Value, "yyyyMMdd", CultureInfo.InvariantCulture));
//Date To
oGeneralData.SetProperty("U_DateTo", DateTime.ParseExact(EditText4.Value, "yyyyMMdd", CultureInfo.InvariantCulture));
//Period
oGeneralData.SetProperty("U_Period", EditText2.Value);
//Remarks
oGeneralData.SetProperty("Remark", EditText7.Value);
//Add Bill Tam ung
if (ComboBox1.Selected.Value == "1")
{
Double tmp_tu = 0;
Double.TryParse(EditText5.Value, out tmp_tu);
oGeneralData.SetProperty("U_Tamung", tmp_tu);
}
//Add Bill thanh toan
else if (ComboBox1.Selected.Value == "2")
{
//Khau tru tam ung
Double tmp_ktu = 0;
Double.TryParse(EditText6.Value, out tmp_ktu);
oGeneralData.SetProperty("U_KhautruTU", tmp_ktu);
DataTable rs = Get_Data_BILLVP(ComboBox0.Selected.Value, DateTime.ParseExact(EditText4.Value, "yyyyMMdd", CultureInfo.InvariantCulture), BpCode);
Double t = 0;
if (rs.Rows.Count > 0)
{
//Create data for a row in the child table
oChildren = oGeneralData.Child("BILLVP1");
foreach (DataRow r in rs.Rows)
{
oChild = oChildren.Add();
//So chung tu
oChild.SetProperty("U_GRPO_Key", int.Parse(r["GRPOKey"].ToString()));
//Line details
oChild.SetProperty("U_GRPO_Line", int.Parse(r["GRPORowKey"].ToString()));
//Ma phong ban
oChild.SetProperty("U_DistRule", r["MaPB"].ToString());
//Ten phong ban
oChild.SetProperty("U_DisRule_Name", r["TenPB"].ToString());
//Du an
oChild.SetProperty("U_Project", r["DA"].ToString());
//Level 1
oChild.SetProperty("U_Level1", r["U_ParentID1"].ToString());
//Level 1 Name
oChild.SetProperty("U_Level1Name", r["Name1"].ToString());
//Level 2
oChild.SetProperty("U_Level2", r["U_ParentID2"].ToString());
//Level 2 Name
oChild.SetProperty("U_Level2Name", r["Name2"].ToString());
//Level 3
oChild.SetProperty("U_Level3", r["U_ParentID3"].ToString());
//Level 3 Name
oChild.SetProperty("U_Level3Name", r["Name3"].ToString());
//Level 4
oChild.SetProperty("U_Level4", r["U_ParentID4"].ToString());
//Level 4 Name
oChild.SetProperty("U_Level4Name", r["Name4"].ToString());
//Level 5
oChild.SetProperty("U_Level5", r["U_ParentID5"].ToString());
//Level 5 Name
oChild.SetProperty("U_Level5Name", r["Name5"].ToString());
//Ma CP
oChild.SetProperty("U_MaCP", r["MaCP"].ToString());
//Ten CP
oChild.SetProperty("U_TenCP", r["TenCP"].ToString());
//Noi dung
oChild.SetProperty("U_Noidung", r["DetailsName"].ToString());
//GT
t = 0;
Double.TryParse(r["Gross_Total"].ToString(), out t);
oChild.SetProperty("U_GrossTotal", t);
//GT no VAT
t = 0;
Double.TryParse(r["Total"].ToString(), out t);
oChild.SetProperty("U_Total", t);
}
}
}
//Add Quy trinh duyet
DataTable rs2 = Get_Approve_Process_BILLVP();
if (rs2.Rows.Count > 0)
{
oChildren = oGeneralData.Child("BILLVP2");
foreach (DataRow r in rs2.Rows)
{
oChild = oChildren.Add();
oChild.SetProperty("U_Level", r["LEVEL"].ToString());
oChild.SetProperty("U_Position", r["Position"].ToString());
oChild.SetProperty("U_DeptName", r["DeptName"].ToString());
oChild.SetProperty("U_PosName", r["PosName"].ToString());
}
}
//Add UDO
oGeneralParams = oGeneralService.Add(oGeneralData);
if (!string.IsNullOrEmpty(oGeneralParams.GetProperty("DocEntry").ToString()))
{
oApp.SetStatusBarMessage("Add Completed - DocEntry: " + oGeneralParams.GetProperty("DocEntry").ToString(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
Load_Grid_Period(BpCode, ComboBox0.Selected.Value);
CheckBox0.Checked = false;
}
}
catch (Exception ex)
{
oApp.MessageBox(ex.Message, 1, "OK");
}
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
SAPbouiCOM.Form oForm = oApp.Forms.ActiveForm;
switch (oForm.Mode)
{
case SAPbouiCOM.BoFormMode.fm_ADD_MODE:
oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
oUserTable.Code = EditText0.Value.ToString();
oUserTable.Name = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreEDC").Value = EditText1.Value.ToString();
oUserTable.UserFields.Fields.Item("U_ProyectoEDC").Value = EditText2.Value.ToString();
oUserTable.Add();
int i = oUserTable.Add();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm = oApp.Forms.Item("edm");
oForm.Close();
}
break;
case SAPbouiCOM.BoFormMode.fm_UPDATE_MODE:
oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
//hago un getbykey para obtener el valor key necesario para actualizar los datos
if (oUserTable.GetByKey(EditText0.Value.ToString()))
{
// oUserTable.UserFields.Fields.Item("U_CodigoEDC").Value = EditText0.Value.ToString();
oUserTable.UserFields.Fields.Item("U_NombreEDC").Value = EditText1.Value.ToString();
}
oUserTable.UserFields.Fields.Item("U_ProyectoEDC").Value = EditText2.Value.ToString();
//oUserTable.Update();
int J = oUserTable.Update();
//oApp.SetStatusBarMessage("valor"+ i);
if (J != 0)
{
oApp.SetStatusBarMessage("Error en la actualización: " + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la actualizacón", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
//oForm = oApp.Forms.Item("fmacted");
//oForm.Close();
}
break;
case SAPbouiCOM.BoFormMode.fm_FIND_MODE:
break;
}
}
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);
}
}
private void Button0_ClickBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
oUserTable = oCompany.UserTables.Item("SUPRASECCIONESCOL");
if (oForm.Mode.Equals(SAPbouiCOM.BoFormMode.fm_OK_MODE) || (Grid0.Rows.SelectedRows.Count == 0))
{
Button0.Caption = "OK";
}
else
{
//if (Grid2.Rows.SelectedRows.Count > 0) //VERIFICA QUE EXISTA UN ROW SELECCIONADO
//{
int nRow = Grid0.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder);
oApp.SendKeys("({TAB})");//aca aplico tabular para que tome el campo para actualizar
//Grid2.Rows.SelectedRows.Equals(nRow);
String sValorGrid = Convert.ToString(Grid0.DataTable.GetValue("Código", nRow));
// Grid2.Columns.Item("CODE").Click();
//bool num = (Grid2.Rows.SelectedRows.Count > 0);
if (oUserTable.GetByKey(sValorGrid.ToString())) // Esto devuelve true si existe el registro
{
//
string nom = (string)(Grid0.DataTable.GetValue("Nombre", nRow));
// oCompany.StartTransaction();
oUserTable.Code = sValorGrid;
oUserTable.Name = sValorGrid;
oUserTable.UserFields.Fields.Item("U_CodigoSS").Value = sValorGrid;
oUserTable.UserFields.Fields.Item("U_NombreSS").Value = nom;
int i = oUserTable.Update();
if (i != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la Actualización", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE;
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT U_CodigoSS AS 'Código',U_NombreSS AS 'Nombre' FROM [@SUPRASECCIONESCOL]");
Grid0.DataTable = oForm.DataSources.DataTables.Item("DTSPSEC");
Grid0.DataTable.Rows.Add(1);
for (int j = 1; j <= this.Grid0.DataTable.Rows.Count; j += 1)
{
if (j < this.Grid0.DataTable.Rows.Count)
{
Grid0.Rows.SelectedRows.Add(j);
}
}
RowNumberGrid(Grid0);
BubbleEvent = false;
}
}
//si no existe el dato, lo agregara
else
{
// Button0.Caption = "Agregar";
// oUserTable = oCompany.UserTables.Item("EDICIONESCOL");
int nRow2 = Grid0.Rows.SelectedRows.Item(0, SAPbouiCOM.BoOrderType.ot_RowOrder);
String sValorGrid2 = Convert.ToString(Grid0.DataTable.GetValue("Código", nRow2));
//string nNOM2 = (string)Grid2.DataTable.GetValue("NOM", nRow2);
// string cod2 = (string)(Grid2.DataTable.GetValue("Código", nRow2));
string nom2 = (string)(Grid0.DataTable.GetValue("Nombre", nRow2));
oUserTable.Code = sValorGrid2;
oUserTable.Name = sValorGrid2;
oUserTable.UserFields.Fields.Item("U_CodigoSS").Value = sValorGrid2;
oUserTable.UserFields.Fields.Item("U_NombreSS").Value = nom2;
int j = oUserTable.Add();
if (j != 0)
{
oApp.SetStatusBarMessage("Error" + oCompany.GetLastErrorDescription(), SAPbouiCOM.BoMessageTime.bmt_Medium, false);
}
else
{
oApp.SetStatusBarMessage("Exito en la inserción", SAPbouiCOM.BoMessageTime.bmt_Medium, false);
oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE;
Grid0.DataTable.Rows.Add(1);
oForm.DataSources.DataTables.Item(0).ExecuteQuery("SELECT U_CodigoSS AS 'Código',U_NombreSS AS 'Nombre' FROM [@SUPRASECCIONESCOL]");
Grid0.DataTable = oForm.DataSources.DataTables.Item("DTSPSEC");
for (int i = 1; i <= this.Grid0.DataTable.Rows.Count; i += 1)
{
if (i < this.Grid0.DataTable.Rows.Count)
{
Grid0.Rows.SelectedRows.Add(i);
}
}
RowNumberGrid(Grid0);
BubbleEvent = false;
}
}
}
}
private void Button1_PressedAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
//throw new System.NotImplementedException();
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(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();
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: {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 NCC
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_4").Cells.Item(i + 1).Specific).Value = r["CP_NCC"].ToString();
//CP NTP
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_5").Cells.Item(i + 1).Specific).Value = r["CP_NTP"].ToString();
//CP DTC
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_6").Cells.Item(i + 1).Specific).Value = r["CP_DTC"].ToString();
//CP VTP
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_7").Cells.Item(i + 1).Specific).Value = r["CP_VTP"].ToString();
//CP VC
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_8").Cells.Item(i + 1).Specific).Value = r["CP_VC"].ToString();
//CP CN
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_9").Cells.Item(i + 1).Specific).Value = r["CP_CN"].ToString();
//CP DP
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_10").Cells.Item(i + 1).Specific).Value = r["CP_DP"].ToString();
//CP DP2
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_11").Cells.Item(i + 1).Specific).Value = r["CP_DP2"].ToString();
//CP PRELIM
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_12").Cells.Item(i + 1).Specific).Value = r["CP_PRELIM"].ToString();
//CP TB
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_13").Cells.Item(i + 1).Specific).Value = r["CP_TB"].ToString();
//CP Khac
((SAPbouiCOM.EditText)oMtx.Columns.Item("C_0_14").Cells.Item(i + 1).Specific).Value = r["CP_Khac"].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);
}
}
