public static T GetTableObject <T>(this SAPbobsCOM.Recordset pObjRecordSet) where T : Table
{
T lObtResult = (T)Activator.CreateInstance(typeof(T));
lObtResult.RowCode = pObjRecordSet.Fields.Item("Code").Value.ToString();
lObtResult.RowName = pObjRecordSet.Fields.Item("Name").Value.ToString();
foreach (PropertyInfo lObjProperty in lObtResult.GetType().GetProperties().Where(x => x.GetMethod.IsPublic && !x.GetMethod.IsVirtual))
{
string lStrFieldName = string.Format("U_{0}", lObjProperty.Name);
Type lObjFieldType = lObjProperty.PropertyType;
object lUnkFieldValue = pObjRecordSet.Fields.Item(lStrFieldName).Value;
if (lObjFieldType == typeof(bool))
{
lObjProperty.SetValue(lObtResult, lUnkFieldValue.ToString() == "Y" || lUnkFieldValue.ToString() == "S" ? true : false);
}
else
{
lObjProperty.SetValue(lObtResult, Convert.ChangeType(lUnkFieldValue, lObjFieldType));
}
}
return(lObtResult);
}
public static int obtenerIdInterno()
{
int res = -1;
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRS.DoQuery("select \"id\" as \"Result\" from " + BdMobile.BD_NAME + "." + BdMobile.TB_EMPRESAS + " where \"base_datos\" = '" + Conexion.company.CompanyDB + "'");
if (oRS.RecordCount > 0)
{
res = int.Parse(oRS.Fields.Item("Result").Value.ToString().Trim());
}
}
catch (Exception)
{
res = -1;
}
finally
{
if (oRS != null)
{
LiberarObjetoGenerico(oRS);
}
}
return(res);
}
public static bool registrar(EmpresaBean bean)
{
var res = true;
SAPbobsCOM.Recordset mRS = null;
try
{
string query = "INSERT INTO " + BdMobile.BD_NAME + "." + BdMobile.TB_EMPRESAS + " (\"id\", \"descripcion\", \"base_datos\", \"estado\", " +
" \"usuario\", \"clave\", \"observacion\", \"LINEAS_ORDR\", \"EST_ORDR\", \"EST_ORCT\", \"MOTIVO\") " +
" VALUES(" + obtenerUltimoId() + ", '" + bean.descripcion + "', '" + bean.base_datos + "', '" +
bean.estado + "', '" + bean.usuario + "', '" + bean.password + "', '', " +
bean.maximoLineas + ", '" + bean.estadoOrden + "', '" + bean.estadoPago + "', '" + bean.motivoTraslado + "')";
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery(query);
}
catch (Exception e)
{
res = false;
StatusMessageError("EmpresaDAO > registrar() > " + e.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
public static bool registrar(string codigo, string descripcion)
{
var res = true;
SAPbobsCOM.Recordset mRS = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery(" INSERT INTO " + BdMobile.BD_NAME + "." + BdMobile.TB_MENUAPP +
" (\"id\", \"CODIGO\", \"descripcion\") VALUES(" + obtenerUltimoId() + ", '" + codigo + "', '" + descripcion + "')");
}
catch (Exception e)
{
res = false;
StatusMessageError("MenuAppDAO > registrar() > " + e.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
public static int obtenerUltimoId()
{
int res = 1;
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRS.DoQuery("select IFNULL(max(\"id\"),0) + 1 as \"Result\" from " + BdMobile.BD_NAME + "." + BdMobile.TB_EMPRESAS);
if (oRS.RecordCount > 0)
{
res = int.Parse(oRS.Fields.Item("Result").Value.ToString().Trim());
}
}
catch (Exception)
{
res = 1;
}
finally
{
if (oRS != null)
{
LiberarObjetoGenerico(oRS);
}
}
return(res);
}
public string GetEmpName(string pStrEmpId)
{
SAPbobsCOM.Recordset lObjRecordset = null;
string lStrEmpName = string.Empty;
try
{
Dictionary <string, string> lLstStrParameters = new Dictionary <string, string>();
lLstStrParameters.Add("EmpId", pStrEmpId);
string lStrQuery = this.GetSQL("GetEmployeeName").Inject(lLstStrParameters);
//this.UIAPIRawForm.DataSources.DataTables.Item("RESULT").ExecuteQuery(lStrQuery);
lObjRecordset = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordset.DoQuery(lStrQuery);
if (lObjRecordset.RecordCount > 0)
{
lStrEmpName = lObjRecordset.Fields.Item("EmployeeName").Value.ToString();
}
}
catch (Exception ex)
{
//UIApplication.ShowMessageBox(string.Format("InitDataSourcesException: {0}", ex.Message));
LogService.WriteError("PurchasesDAO (GetAttachPath): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lStrEmpName);
}
public string GetAttachPath()
{
SAPbobsCOM.Recordset lObjRecordset = null;
string lStrAttachPath = string.Empty;
try
{
string lStrQuery = this.GetSQL("GetAttachPath");
//this.UIAPIRawForm.DataSources.DataTables.Item("RESULT").ExecuteQuery(lStrQuery);
lObjRecordset = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordset.DoQuery(lStrQuery);
if (lObjRecordset.RecordCount > 0)
{
lStrAttachPath = lObjRecordset.Fields.Item("AttachPath").Value.ToString();
}
}
catch (Exception ex)
{
//UIApplication.ShowMessageBox(string.Format("InitDataSourcesException: {0}", ex.Message));
LogService.WriteError("PurchasesDAO (GetAttachPath): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lStrAttachPath);
}
public bool GetLastDelivery(int pIntTicket)
{
SAPbobsCOM.Recordset lObjRecordsetCT = null;
try
{
lObjRecordsetCT = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string lStrQuery = (string.Format("SELECT * FROM DLN1 WHERE U_PL_Ticket ='{0}'", pIntTicket));
lObjRecordsetCT.DoQuery(lStrQuery);
if (lObjRecordsetCT.RecordCount > 0)
{
return(true);
}
}
catch (Exception ex)
{
LogService.WriteError("[RemoveTicketDetail]: " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowError("Error: " + ex.Message);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordsetCT);
}
return(false);
}
public async Task <IActionResult> GetList(string date)
{
SAPContext context = HttpContext.RequestServices.GetService(typeof(SAPContext)) as SAPContext;
SAPbobsCOM.Documents items = (SAPbobsCOM.Documents)context.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oPurchaseDeliveryNotes);
SAPbobsCOM.Recordset oRecSet = (SAPbobsCOM.Recordset)context.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
List <Object> list = new List <Object>();
oRecSet.DoQuery("Select * From OPDN Where \"DocDate\" = '" + date + "'");
int rc = oRecSet.RecordCount;
if (rc == 0)
{
return(NotFound());
}
items.Browser.Recordset = oRecSet;
items.Browser.MoveFirst();
while (items.Browser.EoF == false)
{
JToken temp = context.XMLTOJSON(items.GetAsXML());
temp["OPDN"] = temp["OPDN"][0];
temp["PDN4"]?.Parent.Remove();
temp["PDN12"]?.Parent.Remove();
temp["BTNT"]?.Parent.Remove();
list.Add(temp);
items.Browser.MoveNext();
}
return(Ok(list));
}
public List <string> GetServerDatetime()
{
string lStrQuery = "select getdate(), SUBSTRING( convert(varchar, getdate(),108),1,5)";
List <string> lStrResult = new List <string>();
SAPbobsCOM.Recordset lObjRecordSet = null;
try
{
lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordSet.DoQuery(lStrQuery);
if (lObjRecordSet.RecordCount > 0)
{
lStrResult.Add(lObjRecordSet.Fields.Item(0).Value.ToString());
lStrResult.Add(lObjRecordSet.Fields.Item(1).Value.ToString());
}
}
catch (Exception ex)
{
LogService.WriteError("[GetServerDatetime]: " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowMessageBox(string.Format("Error de consulta", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordSet);
}
return(lStrResult);
}
public static void addActivityTypes(string newType)
{
SAPbobsCOM.ActivityTypes type = null;
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRS.DoQuery("SELECT COUNT(*) as \"Counter\" FROM OCLT WHERE \"Name\" like '" + newType + "'");
if (int.Parse(oRS.Fields.Item("Counter").Value.ToString()) == 0)
{
type = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oActivityTypes);
type.Name = newType;
type.Add();
}
}
catch (Exception e)
{
System.Windows.Forms.MessageBox.Show(Constantes.PREFIX_MSG_ADDON +
" Error creando el tipo de actividad " + newType + " ! " + e.Message);
}
finally
{
if (type != null)
{
LiberarObjetoGenerico(type);
}
LiberarObjetoGenerico(oRS);
}
}
private void OnCustomInitialize()
{
oApp = (SAPbouiCOM.Application)Application.SBO_Application;
oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
//busca con recorset los datos y los muestros en los textboxes
SAPbobsCOM.Recordset oRecordset = ((SAPbobsCOM.Recordset)(oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
SAPbouiCOM.EditText oEditStatus = EditText1;
SAPbouiCOM.EditText oEditStatus2 = EditText2;
SAPbouiCOM.EditText oEditStatus3 = EditText3;
//oApp.SetStatusBarMessage("El dato es..." + EditText0.Value);
string SqlCad1 = "select t0.U_NombreEDC as 'Nombre',t0.U_ProyectoEDC as 'Proyecto',t1.U_NombrePyto as 'NombreProyecto' from [@EDICIONESCOL] as t0 left join [@PROYECTOSCOSTE] as t1 on t0.U_ProyectoEDC = (CAST (t1.U_CentroPyto AS VARCHAR) + '' + CAST (t1.U_DeptoPyto AS VARCHAR) + '' + CAST (t1.U_CodigoPyto AS VARCHAR)) where t0.U_CodigoEDC= '" + sValorGrid2 + "'";
// oApp.SetStatusBarMessage("El dato es " + SqlCad1);
oRecordset.DoQuery(SqlCad1);
string Extraerdequery = oRecordset.Fields.Item("Nombre").Value.ToString();
string Extraerdequery2 = oRecordset.Fields.Item("Proyecto").Value.ToString();
string Extraerdequery3 = oRecordset.Fields.Item("NombreProyecto").Value.ToString();
oEditStatus.Value = Extraerdequery;
oEditStatus2.Value = Extraerdequery2;
oEditStatus3.Value = Extraerdequery3;
CleanComboBox(ComboBox0);
string SqlCad = (" SELECT CAST (U_CentroPyto AS VARCHAR) + '' + CAST (U_DeptoPyto AS VARCHAR) + '' + CAST (U_CodigoPyto AS VARCHAR) As Codigo,U_NombrePyto FROM [@PROYECTOSCOSTE]");
// oApp.SetStatusBarMessage("El dato es " + SqlCad );
LoadComboQueryRecordset(SqlCad, ComboBox0, "Codigo", "U_NombrePyto", oCompany);
}
public List <string> GetAuthorizers(string pStrConfigName)
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
List <string> lStrUsers = new List <string>();
try
{
Dictionary <string, string> lLstParams = new Dictionary <string, string>();
lLstParams.Add("ConfigName", pStrConfigName);
string lStrQuery = this.GetSQL("GetAuthorizers").Inject(lLstParams);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
lStrUsers.Add(lObjResults.Fields.Item("U_Value").Value.ToString());
lObjResults.MoveNext();
}
}
}
catch (Exception ex)
{
LogService.WriteError("CommissionDAO (GetAauthorizers): " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowError(string.Format("GetAauthorizers: {0}", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
return(lStrUsers);
}
public static bool eliminar(string codigo)
{
var res = true;
SAPbobsCOM.Recordset mRS = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery("DELETE FROM " + BdMobile.BD_NAME + "." + BdMobile.TB_MENUAPP + " where \"CODIGO\" = '" + codigo + "'");
}
catch (Exception ex)
{
res = false;
StatusMessageError("MenuAppDAO > eliminar() > " + ex.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
public static bool actualizar(string codigo, string descripcion)
{
var res = true;
SAPbobsCOM.Recordset mRS = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery(" UPDATE " + BdMobile.BD_NAME + "." + BdMobile.TB_MENUAPP +
" SET \"descripcion\" = '" + descripcion.Trim() + "' where \"CODIGO\" = '" + codigo + "'");
}
catch (Exception e)
{
res = false;
StatusMessageError("MenuAppDAO > actualizar() > " + e.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
public InvoiceDTO GetInvoice(int pDocNumber)
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
string lStrQuery = this.GetSQL("GetInvoice").InjectSingleValue("DocNum", pDocNumber);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount == 0)
{
return(null);
}
InvoiceDTO lObjInvoiceDTO = new InvoiceDTO();
lObjInvoiceDTO.DocNum = Convert.ToInt32(lObjResults.Fields.Item("DocNum").Value.ToString());
lObjInvoiceDTO.DocEntry = Convert.ToInt32(lObjResults.Fields.Item("DocEntry").Value.ToString());
lObjInvoiceDTO.CardCode = lObjResults.Fields.Item("CardCode").Value.ToString();
return(lObjInvoiceDTO);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[DocumentDAO - GetInvoice] Error al obtener la factura con DocNum {0}: {1}", pDocNumber, e.Message));
throw new Exception(string.Format("Error al obtener la factura con DocNum {0}: {1}", pDocNumber, e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public static string obtenerIdxCodigo(string codigo)
{
string res = string.Empty;
SAPbobsCOM.Recordset oRS = null;
try
{
oRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRS.DoQuery("select \"id\" as \"Result\" from " + BdMobile.BD_NAME + "." + BdMobile.TB_MENUAPP + " where \"CODIGO\" = '" + codigo + "'");
if (oRS.RecordCount > 0)
{
res = oRS.Fields.Item("Result").Value.ToString().Trim();
}
}
catch (Exception ex)
{
StatusMessageError("obtenerIdXcodigo() > " + ex.Message);
res = string.Empty;
}
finally
{
if (oRS != null)
{
LiberarObjetoGenerico(oRS);
}
}
return(res);
}
//select sum(U_netWeight) as NetWeight from [@UG_PL_TCKD] where U_Folio = '258'
public string GetNetWeight(string pStrFolio)
{
Dictionary <string, string> lLstStrParameters = null;
string lStrNetWeight = "0";
SAPbobsCOM.Recordset lObjRecordsetCT = null;
try
{
lObjRecordsetCT = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string lStrQuery = ("select sum(U_netWeight) as NetWeight from [@UG_PL_TCKD] where U_Folio = '{Folio}'");
lLstStrParameters = new Dictionary <string, string>();
lLstStrParameters.Add("Folio", pStrFolio);
lStrQuery = lStrQuery.Inject(lLstStrParameters);
lObjRecordsetCT.DoQuery(lStrQuery);
if (lObjRecordsetCT.RecordCount > 0)
{
lStrNetWeight = lObjRecordsetCT.Fields.Item(0).Value.ToString();
}
}
catch (Exception ex)
{
LogService.WriteError("[GetNetWeight]: " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowError("Error al consultar cantidades pendientes " + ex.Message);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordsetCT);
}
return(lStrNetWeight);
}
public IList <BankDTO> GetBanks()
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
IList <BankDTO> lLstObjBanks = new List <BankDTO>();
try
{
string lStrQuery = this.GetSQL("GetBanks");
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
BankDTO lObjBank = new BankDTO();
lObjBank.BankCode = lObjResults.GetColumnValue <string>("BankCode");
lObjBank.BankName = lObjResults.GetColumnValue <string>("BankName");
lLstObjBanks.Add(lObjBank);
lObjResults.MoveNext();
}
}
return(lLstObjBanks);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[BankDAO - GetBanks] Error al obtener los bancos: {0}", e.Message));
throw new Exception(string.Format("Error al obtener los bancos: {0}", e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public AccountDTO GetBankAccount(string pStrBankAcctNumber)
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
AccountDTO lObjAccount = new AccountDTO();
try
{
string lStrQuery = this.GetSQL("GetAccountByAcctNumber").InjectSingleValue("BankAcctNumber", pStrBankAcctNumber);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
lObjAccount.BankCode = lObjResults.GetColumnValue <string>("BankCode");
lObjAccount.Account = lObjResults.GetColumnValue <string>("Account");
lObjAccount.Branch = lObjResults.GetColumnValue <string>("Branch");
lObjAccount.GLAccount = lObjResults.GetColumnValue <string>("GLAccount");
lObjResults.MoveNext();
}
}
return(lObjAccount);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[BankDAO - GetBankAccount] Error al obtener la cuenta para el banco {0}: {1}", pStrBankAcctNumber, e.Message));
throw new Exception(string.Format("Error al obtener las cuenta para el banco {0}: {1}", pStrBankAcctNumber, e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public IList <InvoiceRowDTO> GetGroupedLines(int pDocEntry)
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
IList <InvoiceRowDTO> lLstObjInvoiceRows = new List <InvoiceRowDTO>();
try
{
string lStrQuery = this.GetSQL("GetGroupedLines").InjectSingleValue("DocEntry", pDocEntry);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
InvoiceRowDTO lObjInvoiceRowDTO = new InvoiceRowDTO();
lObjInvoiceRowDTO.LineTotal = Convert.ToDouble(lObjResults.Fields.Item("LineTotal").Value.ToString());
lObjInvoiceRowDTO.TaxCode = lObjResults.Fields.Item("TaxCode").Value.ToString();
lObjInvoiceRowDTO.OcrCode = lObjResults.Fields.Item("OcrCode").Value.ToString();
lObjInvoiceRowDTO.OcrCode2 = lObjResults.Fields.Item("OcrCode2").Value.ToString();
lObjInvoiceRowDTO.OcrCode3 = lObjResults.Fields.Item("OcrCode3").Value.ToString();
lLstObjInvoiceRows.Add(lObjInvoiceRowDTO);
lObjResults.MoveNext();
}
}
return(lLstObjInvoiceRows);
}
catch (Exception e)
{
return(lLstObjInvoiceRows);
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public InvoiceDTO GetInvoice(int pDocNumber)
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
string lStrQuery = this.GetSQL("GetInvoice").InjectSingleValue("DocNum", pDocNumber);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount == 0)
{
return(null);
}
InvoiceDTO lObjInvoiceDTO = new InvoiceDTO();
lObjInvoiceDTO.DocNum = Convert.ToInt32(lObjResults.Fields.Item("DocNum").Value.ToString());
lObjInvoiceDTO.DocEntry = Convert.ToInt32(lObjResults.Fields.Item("DocEntry").Value.ToString());
lObjInvoiceDTO.CardCode = lObjResults.Fields.Item("CardCode").Value.ToString();
return(lObjInvoiceDTO);
}
catch (Exception e)
{
return(null);
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public SAPbobsCOM.Recordset ConsultarArchivoImagenArticuloBEAS(string ItemCode)
{
if (!Conexion.oCompany.Connected)
{
Conexion.Conectar_Aplicacion();
}
SAPbobsCOM.Recordset rs = (SAPbobsCOM.Recordset)Conexion.oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
string sql = @"SELECT
ItemCode
,ItemName
,PicturName
,U_picture2
,U_picture3
,BitmapPath
FROM
[SBO_INDUSTRIAL].[DBO].[OITM] CROSS JOIN [SBO_INDUSTRIAL].[DBO].[OADP]
WHERE
ItemCode = '" + ItemCode + "'";
rs.DoQuery(sql);
}
catch (Exception) {}
return(rs);
}
void Load_SubProject(string pFProject)
{
if (this.ComboBox1.ValidValues.Count > 1)
{
//Remove Valid Value
this.ComboBox1.Select("", SAPbouiCOM.BoSearchKey.psk_ByValue);
int itm_count = ComboBox1.ValidValues.Count;
for (int i = 0; i < itm_count - 1; i++)
{
this.ComboBox1.ValidValues.Remove(1, SAPbouiCOM.BoSearchKey.psk_Index);
}
}
SAPbobsCOM.Recordset oR_RecordSet = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
//oR_RecordSet.DoQuery("Select AbsEntry, NAME as 'Description' from OPHA where TYP =1 and ProjectID = " + pProject_AbsEntry.ToString());
oR_RecordSet.DoQuery(string.Format("SELECT AbsEntry,NAME FROM OPMG T0 WHERE T0.[FIPROJECT] = '{0}'and T0.[STATUS] <> 'T' ORDER BY AbsEntry", pFProject));
try
{
this.ComboBox1.ValidValues.Add("", "");
}
catch
{ }
if (oR_RecordSet.RecordCount > 0)
{
while (!oR_RecordSet.EoF)
{
ComboBox1.ValidValues.Add(oR_RecordSet.Fields.Item("AbsEntry").Value.ToString(), oR_RecordSet.Fields.Item("NAME").Value.ToString());
oR_RecordSet.MoveNext();
}
}
}
public void LoadProjetistasCadastrados(string idOOPR)
{
string QryStr = null;
QryStr = "Select Code, Name from [@FLX_FB_PRJ]";
projetistas = ((SAPbobsCOM.Recordset)(ConexaoSAP.Instance.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
projetistas.DoQuery(QryStr);
RecCount = projetistas.RecordCount;
}
public Ambiente(string idOOPR)
{
ambientes = LoadAmbientesCadastrados(idOOPR);
RecCount = ambientes.RecordCount;
}
public string GetIdPendenciasParaUpdate(string descricao, int idOOPR)
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string code = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "SELECT top 1 [Code] FROM [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_PEN] where U_FLX_FB_PEN_DESC = '" + descricao + "' and U_FLX_FB_PEN_IDOOPR ='" + idOOPR + "' order by CreateDate desc";
RecSet.DoQuery(QryStr);
code = Convert.ToString(RecSet.Fields.Item(0).Value);
return code;
}
public string GetProxCodeItensComplementares()
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string proxCod = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "DECLARE @Numero AS INT SELECT @Numero = (select top 1 cast (Code as INT) + 1 from [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_ITC] order by Code desc) if @Numero is null begin set @Numero = 1 end select @Numero";
RecSet.DoQuery(QryStr);
proxCod = Convert.ToString(RecSet.Fields.Item(0).Value);
return proxCod;
}
private void SBO_Application_DataEvent(ref SAPbouiCOM.BusinessObjectInfo pVal, out bool BubbleEvent)
{
BubbleEvent = true;
if ((pVal.FormTypeEx == "320" & pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_DATA_LOAD) & (pVal.BeforeAction == false))
{
string idOOPR = ((SAPbouiCOM.EditText)oForm.Items.Item("74").Specific).Value;
ambiente = new Ambiente(idOOPR);
projetista = new Projetista(idOOPR);
projetistas = projetista.getProjetistas();
if (ambiente.possuiAmbientesCadastrados())
{
//Seta todas a Matrizes para carregar os ambientes cadastrados.
LoadAmbientesInMatrix();
oMatrix.LoadFromDataSource();
}
//Grids com Tabela de Usuário - Inclui o select em um datatable e seta este datatable para a matriz específica.
idAmbiente = 1000;
iRowAmbiente = 1000;
iIdAmbienteMedicao = 1000;
idAmbientePendencia = 1000;
LoadGridConferenciaMedicao();
LoadGridAvarias();
LoadGridPendencias();
LoadGridItensComplementares();
//Limpa a variável que pega o id do ambiente selecionado e carrega a grid de analise critica com parâmetro idAmbiente = 0
LoadGridAnaliseCritica();
/**** INÍCIO - CARREGAMENTO DE COMBOS *******/
loadCombo("Ent_Amb", ambiente.getAmbientes());
oEditItem = ((SAPbouiCOM.EditText)oForm.Items.Item("Ent_Det").Specific);
string selectedValue = ((SAPbouiCOM.ComboBox)oForm.Items.Item("Ent_Amb").Specific).Value;
oEditItem.Value = ambiente.getDescricaoEntrevista(selectedValue);
//Apresentação - Pega o valor cadastrado na drop de projetistas, lista o nome e todos os projetistas.
loadCombo("Apr_Proj", projetistas);
//Entrevista - Pega o valor cadastrado na drop de projetistas, lista o nome e todos os projetistas.
loadCombo("Ent_Proj", projetistas);
//Medição - Pega o valor cadastrado na drop de projetistas, lista o nome e todos os projetistas.
loadCombo("Med_Proj", projetistas);
if (ambiente.possuiAmbientesCadastrados())
{
//Projetistas - Grid Elaboração
loadComboEmGrid("Ela_Amb", "Ela_Amb_C2", projetistas);
//Projetistas - Grid Detalhamento
loadComboEmGrid("Det_Amb", "Det_Amb_C2", projetistas);
//Projetistas - Grid Verificação
loadComboEmGrid("Ver_Amb", "Ver_Amb_C2", projetistas);
//Projetistas - Grid Aprovação
loadComboEmGrid("Apv_Amb", "Apv_Amb_C1", projetistas);
//Projetistas - Grid Pedido
loadComboEmGrid("Ped_Amb", "Ped_Amb_C5", projetistas);
//Projetistas - Grid Fabrica
loadComboEmGrid("Fab_Amb", "Fab_Amb_C3", projetistas);
//Projetistas - Grid Montagem
loadComboEmGrid("Mon_Amb", "Mon_Amb_C1", projetistas);
//Projetistas - Grid Entrega
loadComboEmGrid("Etg_Amb", "Etg_Amb_C2", projetistas);
}
/**** FIM - CARREGAMENTO DE COMBOS *******/
oNewItem = oForm.Items.Item("Apr_Proj");
oComboItenPrjApr = ((SAPbouiCOM.ComboBox)(oNewItem.Specific));
//Entrevista - Pega o valor cadastrado na drop de projetistas, lista o nome e todos os projetistas.
oNewItem = oForm.Items.Item("Ent_Proj");
oComboItenPrjEntrevista = ((SAPbouiCOM.ComboBox)(oNewItem.Specific));
//Medição - Pega o valor cadastrado na drop de projetistas, lista o nome e todos os projetistas.
oNewItem = oForm.Items.Item("Med_Proj");
oComboItenPrjMed = ((SAPbouiCOM.ComboBox)(oNewItem.Specific));
//LoadComboProjetistaCadastradoElaboracao(idOOPR);
LoadComboProjetistaCadastradoOOPR(oComboItenPrjEntrevista, oComboItenPrjMed, oComboItenPrjApr, idOOPR);
ContarLinhasIniciaisMatrix();
resumo.disableCampos();
PreencherCamposResumo(idOOPR);
}
if (pVal.FormTypeEx == "651" & pVal.EventType == SAPbouiCOM.BoEventTypes.et_FORM_DATA_LOAD & !pVal.BeforeAction)
{
if (oFormAtual.Items.Item("67").Specific.Value == "M")
{
atividade.habilitaBotaoAta();
}
else
{
atividade.desabilitaBotaoAta();
}
}
}
public string GetProxCodeConferenciaMedicao()
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string proxCod = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "DECLARE @Numero AS INT SELECT @Numero = (select top 1 cast (Code as INT) + 1 from [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_CONFMED] order by Code desc) if @Numero is null begin set @Numero = 0000000 + 1 end SELECT case len(CAST(@Numero AS varchar(7))) WHEN 1 THEN '000000' + CAST(@Numero AS varchar(7)) WHEN 2 THEN '00000' + CAST(@Numero AS varchar(7)) WHEN 3 THEN '0000' + CAST(@Numero AS varchar(7)) WHEN 4 THEN '000' + CAST(@Numero AS varchar(7)) WHEN 5 THEN '00' + CAST(@Numero AS varchar(7)) WHEN 6 THEN '0' + CAST(@Numero AS varchar(7)) WHEN 7 THEN CAST(@Numero AS varchar(7)) END";
RecSet.DoQuery(QryStr);
proxCod = Convert.ToString(RecSet.Fields.Item(0).Value);
return proxCod;
}
private void LoadDataHoraMedicao(SAPbouiCOM.EditText data, SAPbouiCOM.EditText hora, SAPbouiCOM.EditText dataResumo, string idOOPR)
{
RecSet = null;
string QryStr = null;
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "Select CONVERT(char,U_FLX_FB_MED_DATAMED,103), Convert(varchar(05),U_FLX_FB_MED_HORAMED,108) from [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_MED] where U_FLX_FB_MED_IDOOPR =" + idOOPR;
RecSet.DoQuery(QryStr);
data.Value = RecSet.Fields.Item(0).Value.ToString();
dataResumo.Value = RecSet.Fields.Item(0).Value.ToString();
hora.Value = RecSet.Fields.Item(1).Value.ToString();
}
public string GetIdConferenciaMedicaoParaUpdate(string data, int idOOPR, string conferente, int idAmbiente)
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string code = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "SELECT top 1 [Code] FROM [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_CONFMED] where U_FLX_FB_CONFMED_DAT = '" + data + "' and U_FLX_FB_CONFMED_PRJ = '" + conferente +
"' and U_FLX_FB_CONFMED_ID ='" + idOOPR + "' and U_FLX_FB_CONFMED_IDA ='" + iIdAmbienteMedicao + "' order by CreateDate desc";
RecSet.DoQuery(QryStr);
code = Convert.ToString(RecSet.Fields.Item(0).Value);
return code;
}
public string[] VerificarSeExisteCadastroMedicao(int idOOPR)
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string retorno = "";
string code = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = " declare @retorno INT declare @code INT select @retorno = (select U_FLX_FB_MED_IDOOPR from [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_MED] where U_FLX_FB_MED_IDOOPR =" + idOOPR + ") if @retorno is null begin set @retorno = 0 select @retorno, @code end else begin select @retorno, Code from [SBO_SEA_Design_Prod].[dbo].[@FLX_FB_MED] where U_FLX_FB_MED_IDOOPR =" + idOOPR + " end";
RecSet.DoQuery(QryStr);
retorno = Convert.ToString(RecSet.Fields.Item(0).Value);
code = Convert.ToString(RecSet.Fields.Item(1).Value);
string[] valores = { retorno, code };
return valores;
}
private void LoadResumo(SAPbouiCOM.EditText etvResp, SAPbouiCOM.EditText medResp, SAPbouiCOM.EditText elbIni, SAPbouiCOM.EditText elbFim, SAPbouiCOM.EditText elbResp, SAPbouiCOM.EditText verificacao, SAPbouiCOM.EditText verResp, SAPbouiCOM.EditText apsResp, SAPbouiCOM.EditText aprovacao, SAPbouiCOM.EditText aprResp, SAPbouiCOM.EditText pedido, SAPbouiCOM.EditText pedResp, SAPbouiCOM.EditText detIni, SAPbouiCOM.EditText detFim, SAPbouiCOM.EditText detResp, SAPbouiCOM.EditText fabIni, SAPbouiCOM.EditText fabFim, SAPbouiCOM.EditText fabResp, SAPbouiCOM.EditText montagem, SAPbouiCOM.EditText montagemFim, SAPbouiCOM.EditText montResp, SAPbouiCOM.EditText entrega, SAPbouiCOM.EditText etgResp, string idOOPR)
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "SELECT TOP 1 T2.Name as etvResp, T4.Name as medResp,CONVERT(char,T0.U_FLX_FB_ELB_INICIOR,103) as elaboracaoIni, CONVERT(char,T0.U_FLX_FB_ELB_TERMINR,103) as elaboracaoFim, T5.Name as elbResp, CONVERT(char,T0.U_FLX_FB_VRF_DATEVER,103) as verificacao, T0.U_FLX_FB_VRF_VERIFPO as verResp,T6.Name as apsResp,CONVERT(char,T0.U_FLX_FB_APR_DATAAPR,103)as aprovacao, T0.U_FLX_FB_APR_APROVAD as aprovPor,CONVERT(char,T0.U_FLX_FB_PED_DATE,103)as pedido, T0.U_FLX_FB_PED_SOLICIT as pedSolicitante,CONVERT(char,T0.U_FLX_FB_DET_INICIRE,103)as detIni,CONVERT(char,T0.U_FLX_FB_DET_TERMINO,103) as detFim, T7.Name as detResp,CONVERT(char,T0.U_FLX_FB_FAB_EXPEDIC,103)as fabIni,CONVERT(char,T0.U_FLX_FB_FAB_RECEBIM,103)as fabFim,T0.U_FLX_FB_FAB_CONFERE as fabConf,T0.U_FLX_FB_MTG_RESPONS as montResp,CONVERT(char,T0.U_FLX_FB_ENT_ENTREGA,103)as entrega, T0.U_FLX_FB_ENT_RESPONS as etgResp FROM OPR4 T0 left join OOPR T1 on T1.OpprId = T0.OprId left join [@FLX_FB_PRJ] T2 on T2.Code = T1.U_FLX_FB_ETV_RESP left join [@FLX_FB_MED] T3 on T3.U_FLX_FB_MED_IDOOPR = T0.OprId left join [@FLX_FB_PRJ] T4 on T4.Code = T3.U_FLX_FB_MED_PROJT left join [@FLX_FB_PRJ] T5 on T5.Code = T0.U_FLX_FB_ELB_PROJETI left join [@FLX_FB_PRJ] T6 on T6.Code = T1.U_FLX_FB_APS_PROJT left join [@FLX_FB_PRJ] T7 on T7.Code = T0.U_FLX_FB_DET_PROJETI WHERE OprId = " + idOOPR + "order by OprId asc";
RecSet.DoQuery(QryStr);
etvResp.Value = RecSet.Fields.Item(0).Value.ToString();
medResp.Value = RecSet.Fields.Item(1).Value.ToString();
elbIni.Value = RecSet.Fields.Item(2).Value.ToString();
elbFim.Value = RecSet.Fields.Item(3).Value.ToString();
elbResp.Value = RecSet.Fields.Item(4).Value.ToString();
verificacao.Value = RecSet.Fields.Item(5).Value.ToString();
verResp.Value = RecSet.Fields.Item(6).Value.ToString();
apsResp.Value = RecSet.Fields.Item(7).Value.ToString();
aprovacao.Value = RecSet.Fields.Item(8).Value.ToString();
aprResp.Value = RecSet.Fields.Item(9).Value.ToString();
pedido.Value = RecSet.Fields.Item(10).Value.ToString();
pedResp.Value = RecSet.Fields.Item(11).Value.ToString();
detIni.Value = RecSet.Fields.Item(12).Value.ToString();
detFim.Value = RecSet.Fields.Item(13).Value.ToString();
detResp.Value = RecSet.Fields.Item(14).Value.ToString();
fabIni.Value = RecSet.Fields.Item(15).Value.ToString();
fabFim.Value = RecSet.Fields.Item(16).Value.ToString();
fabResp.Value = RecSet.Fields.Item(17).Value.ToString();
//montagem.Value = RecSet.Fields.Item(18).Value.ToString();
//montagemFim.Value = RecSet.Fields.Item(18).Value.ToString();
montResp.Value = RecSet.Fields.Item(18).Value.ToString();
entrega.Value = RecSet.Fields.Item(19).Value.ToString();
etgResp.Value = RecSet.Fields.Item(20).Value.ToString();
}
public string GetQtdEmEstoque(string itemCode)
{
SAPbobsCOM.Recordset RecSet = null;
string QryStr = null;
string qtdEstoque = "";
RecSet = ((SAPbobsCOM.Recordset)(conexao.getOCompany().GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)));
QryStr = "SELECT T0.[OnHand] FROM OITM T0 WHERE T0.ItemCode = '" + itemCode + "'";
RecSet.DoQuery(QryStr);
qtdEstoque = Convert.ToString(RecSet.Fields.Item(0).Value);
return qtdEstoque;
}
private void LoadComboProjetistaCadastradoOOPR(SAPbouiCOM.ComboBox oComboEntrevista, SAPbouiCOM.ComboBox oComboMedicao, SAPbouiCOM.ComboBox oComboApresentacao, string idOOPR)
{
RecSet = projetista.trazerProjetistasOportunidade(idOOPR);
RecSet.MoveFirst();
int RecCount = RecSet.RecordCount;
if (RecCount == 0)
{
oComboEntrevista.Select("", SAPbouiCOM.BoSearchKey.psk_ByValue);
oComboApresentacao.Select("", SAPbouiCOM.BoSearchKey.psk_ByValue);
}
for (int RecIndex = 0; RecIndex <= RecCount - 1; RecIndex++)
{
string valorComboEntrevista = RecSet.Fields.Item(0).Value.ToString();
string valorComboApresentacao = RecSet.Fields.Item(1).Value.ToString();
string valorComboMedicao = RecSet.Fields.Item(2).Value.ToString();
oComboEntrevista.Select(valorComboEntrevista, SAPbouiCOM.BoSearchKey.psk_ByValue);
oComboApresentacao.Select(valorComboApresentacao, SAPbouiCOM.BoSearchKey.psk_ByValue);
oComboMedicao.Select(valorComboMedicao, SAPbouiCOM.BoSearchKey.psk_ByValue);
RecSet.MoveNext();
}
RecSet = null;
System.GC.Collect();
}
