public static void LoadComboQuery(string _query, ref SAPbouiCOM.ComboBox oComboBox, string fieldValue, string fieldDesc, SAPbobsCOM.Company oCompany)
{
SAPbobsCOM.Recordset businessObject = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
businessObject.DoQuery(_query);
SAPbouiCOM.ValidValues validValues = oComboBox.ValidValues;
while (oComboBox.ValidValues.Count > 0)
{
oComboBox.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index);
}
if (!string.Equals(fieldDesc, string.Empty))
{
while (!businessObject.EoF)
{
validValues.Add((dynamic)businessObject.Fields.Item(fieldValue).Value, (dynamic)businessObject.Fields.Item(fieldDesc).Value);
businessObject.MoveNext();
}
}
else
{
while (!businessObject.EoF)
{
validValues.Add((dynamic)businessObject.Fields.Item(fieldValue).Value, "");
businessObject.MoveNext();
}
}
}
private void LoadComboQueryRecordset(string _query, dynamic oComboBox, string fieldValue, string fieldDesc, SAPbobsCOM.Company oCompany)
{
//oApp = (SAPbouiCOM.Application)Application.SBO_Application;
//oCompany = (SAPbobsCOM.Company)oApp.Company.GetDICompany();
SAPbobsCOM.Recordset businessObject = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
businessObject.DoQuery(_query);
SAPbouiCOM.ValidValues validValues = oComboBox.ValidValues;
CleanComboBox(oComboBox);
if (!string.Equals(fieldDesc, string.Empty))
{
while (!businessObject.EoF)
{
validValues.Add((dynamic)businessObject.Fields.Item(fieldValue).Value, (dynamic)businessObject.Fields.Item(fieldDesc).Value);
businessObject.MoveNext();
}
}
else
{
while (!businessObject.EoF)
{
validValues.Add((dynamic)businessObject.Fields.Item(fieldValue).Value, "");
businessObject.MoveNext();
}
}
}
private void LoadSchemeCodes()
{
SAPbouiCOM.Form oForm = default(SAPbouiCOM.Form);
try
{
oForm = this.CurrentForm;
oForm.Freeze(true);
SAPbobsCOM.Recordset oRs = SBOCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string sql_GetSchemeCodes = @"select * from ""@AVA_FM_OCRS"" where ""U_Active"" = N'Y' ";
oRs.DoQuery(sql_GetSchemeCodes);
SAPbouiCOM.ComboBox cbxSchemes = oForm.Items.Item(CBX_SCHEMECODE).Specific;
while (cbxSchemes.ValidValues.Count > 0)
{
cbxSchemes.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index);
}
for (int iRSRowCounter = 0; iRSRowCounter < oRs.RecordCount; iRSRowCounter++)
{
cbxSchemes.ValidValues.Add(oRs.Fields.Item("Code").Value, oRs.Fields.Item("Name").Value);
oRs.MoveNext();
}
if (cbxSchemes.ValidValues.Count > 0)
{
cbxSchemes.Select(0, SAPbouiCOM.BoSearchKey.psk_Index);
LoadScheme(cbxSchemes.Selected.Value);
}
}
catch (Exception ex) { throw ex; }
finally { oForm.Freeze(false); }
#endregion
}
public List <string> GetLastAuctions(string pStrCostingCode)
{
SAPbobsCOM.Recordset lObjRecordset = null;
List <string> lLstAuctions = new List <string>();
try
{
string lStrQuery = this.GetSQL("GetLastsAuctions").InjectSingleValue("CostingCode", pStrCostingCode);
lObjRecordset = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordset.DoQuery(lStrQuery);
if (lObjRecordset.RecordCount > 0)
{
for (int i = 0; i < lObjRecordset.RecordCount; i++)
{
string lStrFolio = lObjRecordset.Fields.Item("U_Folio").Value.ToString();
lLstAuctions.Add(lStrFolio);
lObjRecordset.MoveNext();
}
}
}
catch (Exception ex)
{
UIApplication.ShowError(string.Format("GetActions: {0}", ex.Message));
LogService.WriteError("MailSenderDAO (GetActions): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lLstAuctions);
}
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 <CreditCardDTO> GetCreditCards()
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
IList <CreditCardDTO> lLstObjCreditCards = new List <CreditCardDTO>();
try
{
string lStrQuery = this.GetSQL("GetCreditCards");
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
CreditCardDTO lObjCreditCard = new CreditCardDTO();
lObjCreditCard.CreditCard = Convert.ToInt32(lObjResults.Fields.Item("CreditCard").Value.ToString());
lObjCreditCard.CardName = lObjResults.Fields.Item("CardName").Value.ToString();
lObjCreditCard.AcctCode = lObjResults.Fields.Item("AcctCode").Value.ToString();
lObjCreditCard.Country = lObjResults.Fields.Item("Country").Value.ToString();
lLstObjCreditCards.Add(lObjCreditCard);
lObjResults.MoveNext();
}
}
return(lLstObjCreditCards);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[CreditCardDAO - GetCreditCards] Error al obtener las tarjetas de credito: {0}", e.Message));
throw new Exception(string.Format("Error al obtener las tarjetas de crédito: {0}", e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
internal static List <OUTB> RetornaValores()
{
var lista = new List <OUTB>();
SAPbobsCOM.Recordset oRs = SapFramework.Connections.B1AppDomain.RSQuery("select TableName, Descr, TblNum, ObjectType, UsedInObj, LogTable, Archivable, ArchivDate from OUTB");
while (!oRs.EoF)
{
lista.Add(new OUTB()
{
TableName = oRs.Fields.Item("TableName").Value.ToString(),
Descr = oRs.Fields.Item("Descr").Value.ToString(),
TblNum = Convert.ToInt32(oRs.Fields.Item("TblNum").Value.ToString()),
ObjectType = oRs.Fields.Item("ObjectType").Value.ToString(),
Archivable = oRs.Fields.Item("Archivable").Value.ToString(),
ArchivDate = oRs.Fields.Item("ArchivDate").Value.ToString(),
LogTable = oRs.Fields.Item("LogTable").Value.ToString(),
UsedInObj = oRs.Fields.Item("UsedInObj").Value.ToString()
});
oRs.MoveNext();
}
Objects.LimpaMemoria(oRs);
return(lista);
}
public IList <PaymentMethodDTO> GetPaymentMethods()
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
IList <PaymentMethodDTO> lLstObjPaymentMethods = new List <PaymentMethodDTO>();
try
{
string lStrQuery = this.GetSQL("GetPaymentMethods");
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
PaymentMethodDTO lObjPaymentMethodDTO = new PaymentMethodDTO();
lObjPaymentMethodDTO.PayMethCod = lObjResults.Fields.Item("PayMethCod").Value.ToString();
lObjPaymentMethodDTO.Descript = lObjResults.Fields.Item("Descript").Value.ToString();
lLstObjPaymentMethods.Add(lObjPaymentMethodDTO);
lObjResults.MoveNext();
}
}
return(lLstObjPaymentMethods);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[PaymentMethodDAO - GetPaymentMethods] Error al obtener los metodos de pago: {0}", e.Message));
throw new Exception(string.Format("Error al obtener los métodos de pago: {0}", e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
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);
}
}
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 List <PayLoadTypeDTO> GetPayloadTypeList()
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
List <PayLoadTypeDTO> lLstPayloadType = new List <PayLoadTypeDTO>();
try
{
string lStrQuery = this.GetSQL("PayloadTypes");
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
lLstPayloadType.Add(new PayLoadTypeDTO()
{
Name = lObjResults.Fields.Item("Name").Value.ToString(),
Code = lObjResults.Fields.Item("Code").Value.ToString(),
});
lObjResults.MoveNext();
}
}
}
catch (Exception ex)
{
UIApplication.ShowError(string.Format("GetPayloadTypeList: {0}", ex.Message));
LogService.WriteError("RouteListDAO (GetPayloadTypeList): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
return(lLstPayloadType);
}
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 List <string> GetLastAuctions()
{
SAPbobsCOM.Recordset lObjRecordset = null;
List <string> lLstAuctions = new List <string>();
try
{
string lStrQuery = this.GetSQL("GetLastAuction");
lObjRecordset = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordset.DoQuery(lStrQuery);
if (lObjRecordset.RecordCount > 0)
{
for (int i = 0; i < lObjRecordset.RecordCount; i++)
{
string lStrFolio = lObjRecordset.Fields.Item("U_Folio").Value.ToString();
lLstAuctions.Add(lStrFolio);
lObjRecordset.MoveNext();
}
}
}
catch (Exception ex)
{
LogUtility.WriteError(string.Format("[AuctionDAO - GetLastAuctions] Error al obtener la ultima subasta: {0}", ex.Message));
throw new Exception(string.Format("Error al obtener la última subasta: {0}", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lLstAuctions);
}
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);
}
}
private List <object> GetListBatch(string pStrAlmacen, string oStrCardCode, string pStrItemCode, List <object> pLstUsedBatch)
{
SAPbobsCOM.Recordset lObjRecordSet3 = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lObjRecordSet3.DoQuery("SELECT T0.DistNumber AS BatchNumber, T1.Quantity FROM OBTN AS T0 INNER JOIN dbo.OBTQ AS T1 ON T0.ItemCode = T1.ItemCode AND T0.SysNumber = T1.SysNumber where T1.WhsCode = '" + pStrAlmacen + "' and T1.Quantity>0 and MnfSerial is not null and T0.MnfSerial = '" + oStrCardCode + "' and T0.ItemCode = '" + pStrItemCode + "' order by T0.ExpDate asc");
List <object> lLstrLotes = new List <object>();
while (!lObjRecordSet3.EoF)
{
var lObjUsedBatch = pLstUsedBatch.Find(x => ((dynamic)x).Batch == lObjRecordSet3.Fields.Item(0).Value.ToString());
if (lObjUsedBatch == null || ((dynamic)lObjUsedBatch).Quantity < int.Parse(lObjRecordSet3.Fields.Item(1).Value.ToString()))
{
lLstrLotes.Add(new
{
Batch = lObjRecordSet3.Fields.Item(0).Value.ToString(),
Quantity = int.Parse(lObjRecordSet3.Fields.Item(1).Value.ToString())
});
}
lObjRecordSet3.MoveNext();
}
Memory.ReleaseComObject(lObjRecordSet3);
return(lLstrLotes);
}
/// <summary>
/// Obtiene la configuración inicial
/// </summary>
private void ObtenerConfiguracionInicial()
{
try
{
listaDatos.Clear();
_oRec = null;
_oRec = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec2 = null;
_oRec2 = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
_oRec.DoQuery(@"SELECT T0.FieldID,
T0.AliasID,
T3.U_Usuario
FROM dbo.CUFD T0
INNER JOIN dbo.UFD1 T1 ON T1.TableID = T0.TableID
AND T0.FieldID = T1.FieldID,
dbo.[@SAPCP_CONFIGUSUARIO] T3
WHERE T0.TableID = '@SAPCP_CONFIGUSUARIO'
GROUP BY T0.FieldID,
T0.AliasID,
T3.U_Usuario
ORDER BY T3.U_Usuario ASC");
for (int fila = 0; fila < _oRec.RecordCount; fila++)
{
itemDatos = new DatosConfiguracionCampos();
itemDatos.usuario = _oRec.Fields.Item("U_Usuario").Value.ToString();
itemDatos.campo = "U_" + _oRec.Fields.Item("AliasID").Value.ToString();
_oRec2.DoQuery(@"SELECT " + itemDatos.campo.ToString() + " " +
"FROM dbo.[@SAPCP_CONFIGUSUARIO] " +
"WHERE U_Usuario = '" + itemDatos.usuario.ToString() + "'");
itemDatos.activo = _oRec2.Fields.Item(itemDatos.campo.ToString()).Value == "Y" ? true : false;
listaDatos.Add(itemDatos);
_oRec.MoveNext();
}
}
catch (Exception ex)
{
throw new Exception("Error al obtener configuración inicial: " + ex.Message);
}
finally
{
try
{
if (_oRec != null)
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(_oRec);
}
if (_oRec2 != null)
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(_oRec2);
}
}
catch (Exception)
{
}
}
}
public List <CommissionDriverDTO> GetComissionsDriverSaved(string pStrCommissionSaved)
{
List <CommissionDriverDTO> lLstComissionDTO = new List <CommissionDriverDTO>();
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
Dictionary <string, string> lLstParams = new Dictionary <string, string>();
lLstParams.Add("CommissionID", pStrCommissionSaved);
string lStrQuery = this.GetSQL("GetCommissionsDriverSaved").Inject(lLstParams);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
lLstComissionDTO.Add(new CommissionDriverDTO()
{
Type = lObjResults.Fields.Item("Type").Value.ToString(),
Id = lObjResults.Fields.Item("Id").Value.ToString(),
DocNum = lObjResults.Fields.Item("Id").Value.ToString(),
DocDate = Convert.ToDateTime(lObjResults.Fields.Item("DocDate").Value.ToString()),
ItemName = lObjResults.Fields.Item("ItemName").Value.ToString(),
Route = lObjResults.Fields.Item("Route").Value.ToString(),
AF = lObjResults.Fields.Item("AF").Value.ToString(),
TypLoad = lObjResults.Fields.Item("TypLoad").Value.ToString(),
DriverId = lObjResults.Fields.Item("U_DriverId").Value.ToString(),
Driver = lObjResults.Fields.Item("U_Driver").Value.ToString(),
FrgAm = Convert.ToDouble(lObjResults.Fields.Item("U_FrgAm").Value.ToString()),
InsAm = Convert.ToDouble(lObjResults.Fields.Item("U_InsAm").Value.ToString()),
LstDisc = Convert.ToDouble(lObjResults.Fields.Item("U_LstDisc").Value.ToString()),
WkDisc = Convert.ToDouble(lObjResults.Fields.Item("U_WkDisc").Value.ToString()),
Comm = Convert.ToDouble(lObjResults.Fields.Item("U_Comm").Value.ToString()),
TotDisc = Convert.ToDouble(lObjResults.Fields.Item("U_TotComm").Value.ToString()),
Doubt = Convert.ToDouble(lObjResults.Fields.Item("U_Doubt").Value.ToString()),
NoGenerate = lObjResults.Fields.Item("U_NoGenerate").Value.ToString() == "Y" ? true : false,
});
//var ss = lObjResults.Fields.Item("U_NoGenerate").Value.ToString() == "Y" ? true : false,
lObjResults.MoveNext();
}
}
}
catch (Exception ex)
{
LogService.WriteError("CommissionDAO (GetComissionsDrivers): " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowError(string.Format("GetComissionsDrivers: {0}", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
return(lLstComissionDTO);
}
private void cargarRuta()
{
String fechaD, fechaH;
try
{
oForm.Freeze(true);
if (CBoxtpoRuta.ValidValues.Count > 0)
{
for (int i = CBoxtpoRuta.ValidValues.Count - 1; i >= 0; i--)
{
CBoxtpoRuta.ValidValues.Remove(i, SAPbouiCOM.BoSearchKey.psk_Index);
}
}
fechaD = ((System.String)((SAPbouiCOM.EditText)oForm.Items.Item("FechaD").Specific).Value);
fechaH = ((System.String)((SAPbouiCOM.EditText)oForm.Items.Item("FechaH").Specific).Value);
s = @"SELECT T0.""U_RUTA"" ""Code"" , T0.""U_RUTA"" ""Name""
FROM ""ORDR"" T0
WHERE T0.""U_RUTA"" IS NOT NULL
AND T0.""DocDueDate"" BETWEEN '{0}' AND '{1}'
GROUP BY T0.""U_RUTA""
ORDER BY T0.""U_RUTA""";
s = String.Format(s, fechaD, fechaH);
oRecordSet.DoQuery(s);
oRecordSet.MoveFirst();
int a = oRecordSet.RecordCount;
while (!oRecordSet.EoF)
{
string code = (String)(oRecordSet.Fields.Item("Code").Value);
string name = (String)(oRecordSet.Fields.Item("Name").Value);
CBoxtpoRuta.ValidValues.Add(code, name);
oRecordSet.MoveNext();
;
}
if (CBoxtpoRuta.ValidValues.Count > 0)
{
CBoxtpoRuta.ValidValues.Add("Todos", "Todos");
//oRecordSet.MoveNext();
}
}
catch (Exception e)
{
Application.SBO_Application.StatusBar.SetText(e.Message + " ** Trace: " + e.StackTrace, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error);
log.AddLog(e.Message + " ** Trace: ");
}
finally
{
oForm.Freeze(false);
}
}
internal static List <CUFD> RetornaValores()
{
var lista = new List <CUFD>();
SAPbobsCOM.Recordset oRs = SapFramework.Connections.B1AppDomain.RSQuery(@"SELECT TableID
, FieldID
, AliasID
, Descr
, TypeID
, EditType
, SizeID
, EditSize
, Dflt
, NotNull
, IndexID
, RTable
, RField
, Action
, Sys
, DfltDate
, RelUDO
FROM CUFD");
while (!oRs.EoF)
{
lista.Add(new CUFD()
{
TableID = oRs.Fields.Item("TableID").Value.ToString(),
FieldID = Convert.ToInt32(oRs.Fields.Item("FieldID").Value.ToString()),
AliasID = oRs.Fields.Item("AliasID").Value.ToString(),
Descr = oRs.Fields.Item("Descr").Value.ToString(),
TypeID = oRs.Fields.Item("TypeID").Value.ToString(),
EditType = oRs.Fields.Item("EditType").Value.ToString(),
SizeID = Convert.ToInt32(oRs.Fields.Item("SizeID").Value.ToString()),
EditSize = Convert.ToInt32(oRs.Fields.Item("EditSize").Value.ToString()),
Dflt = oRs.Fields.Item("Dflt").Value.ToString(),
NotNull = oRs.Fields.Item("NotNull").Value.ToString(),
IndexID = oRs.Fields.Item("IndexID").Value.ToString(),
RTable = oRs.Fields.Item("RTable").Value.ToString(),
RField = Convert.ToInt32(oRs.Fields.Item("RField").Value.ToString()),
Action = oRs.Fields.Item("Action").Value.ToString(),
Sys = oRs.Fields.Item("Sys").Value.ToString(),
DfltDate = Convert.ToDateTime(oRs.Fields.Item("DfltDate").Value.ToString()),
RelUDO = oRs.Fields.Item("RelUDO").Value.ToString()
});
oRs.MoveNext();
}
Objects.LimpaMemoria(oRs);
return(lista);
}
public IList <SellerReportDTO> GetSellerBatches(string pStrSeller, string pStrAuction)
{
SAPbobsCOM.Recordset lObjRecordSet = null;
Dictionary <string, string> lLstStrParameters = new Dictionary <string, string>();
List <SellerReportDTO> lLstSellerReports = new List <SellerReportDTO>();
lLstStrParameters.Add("Auction", pStrAuction);
lLstStrParameters.Add("Seller", pStrSeller);
try
{
lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string lStrQuery = this.GetSQL("GetSellerBatches").Inject(lLstStrParameters);
lObjRecordSet.DoQuery(lStrQuery);
if (lObjRecordSet.RecordCount > 0)
{
for (int i = 0; i < lObjRecordSet.RecordCount; i++)
{
lLstSellerReports.Add(new SellerReportDTO()
{
BatchNumber = lObjRecordSet.Fields.Item("U_Number").Value.ToString(),
Quantity = Convert.ToInt32(lObjRecordSet.Fields.Item("U_Quantity").Value),
Article = lObjRecordSet.Fields.Item("U_ItemType").Value.ToString(),
AverageWeight = float.Parse(lObjRecordSet.Fields.Item("U_AverageWeight").Value.ToString()),
TotalWeight = float.Parse(lObjRecordSet.Fields.Item("U_Weight").Value.ToString()),
Price = decimal.Parse(lObjRecordSet.Fields.Item("U_Price").Value.ToString()),
Amount = decimal.Parse(lObjRecordSet.Fields.Item("U_Amount").Value.ToString()),
Unsold = lObjRecordSet.Fields.Item("U_Unsold").Value.ToString(),
UnsoldMotive = (string)lObjRecordSet.Fields.Item("U_UnsoldMotive").Value.ToString(),
Reprogrammed = lObjRecordSet.Fields.Item("U_Reprogrammed").Value.ToString(),
Gender = lObjRecordSet.Fields.Item("U_Gender").Value.ToString(),
Buyer = lObjRecordSet.Fields.Item("U_Buyer").Value.ToString(),
Stat = (string)lObjRecordSet.Fields.Item("Stat").Value.ToString(),
Orden = (int)lObjRecordSet.Fields.Item("Orden").Value
});
lObjRecordSet.MoveNext();
}
}
}
catch (Exception lObjException)
{
UIApplication.ShowError(string.Format("GetActions: {0}", lObjException.Message));
LogService.WriteError("MailSenderDAO (GetActions): " + lObjException.Message);
LogService.WriteError(lObjException);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordSet);
}
return(lLstSellerReports);
}
private void LoadScheme(string SchemeCode)
{
SAPbouiCOM.Form oForm = default(SAPbouiCOM.Form);
try
{
oForm = this.CurrentForm;
oForm.Freeze(true);
SAPbouiCOM.Grid oGrid = oForm.Items.Item(GRID_SCHEME).Specific;
oGrid.DataTable.Clear();
SAPbobsCOM.Recordset oRs = SBOCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
string sql_GetScheme = @"select * from ""@AVA_FM_CRS1"" where ""Code"" = N'{0}'";
sql_GetScheme = string.Format(sql_GetScheme, SchemeCode);
oRs.DoQuery(sql_GetScheme);
if (oRs.RecordCount > 0)
{
IList <Scheme> schemes = new List <Scheme>();
Scheme temp = default(Scheme);
for (int iRSRowCounter = 0; iRSRowCounter < oRs.RecordCount; iRSRowCounter++)
{
temp = new Scheme(oRs.Fields.Item("U_RuleSchmsID").Value,
oRs.Fields.Item("U_RuleSchmsDesc").Value,
oRs.Fields.Item("U_RuleSchmsType").Value,
oRs.Fields.Item("U_RuleSchmsLen").Value,
oRs.Fields.Item("U_RuleSchmsDefault").Value,
oRs.Fields.Item("U_Padding").Value == "Y" ? true : false,
oRs.Fields.Item("U_PadString").Value);
oGrid.DataTable.Columns.Add(oRs.Fields.Item("U_RuleSchmsID").Value,
oRs.Fields.Item("U_RuleSchmsType").Value == "I" ? SAPbouiCOM.BoFieldsType.ft_Integer : SAPbouiCOM.BoFieldsType.ft_AlphaNumeric,
oRs.Fields.Item("U_RuleSchmsLen").Value);
oGrid.Columns.Item(oRs.Fields.Item("U_RuleSchmsID").Value).TitleObject.Caption = oRs.Fields.Item("U_RuleSchmsDesc").Value;
schemes.Add(temp);
oRs.MoveNext();
}
Scheme = schemes;
oGrid.DataTable.Rows.Add();
foreach (var item in schemes)
{
if (string.IsNullOrEmpty(item.RuleSchmsDefault))
{
continue;
}
else if (item.RuleSchmsDefault.ToUpper().Equals("NULL"))
{
continue;
}
oGrid.DataTable.SetValue(item.RuleSchmsID, oGrid.DataTable.Rows.Offset, item.RuleSchmsDefault);
}
oGrid.RowHeaders.Width = 20;
}
}
catch (Exception ex) { throw ex; }
finally { oForm.Freeze(false); }
}
public static List <PermisoDetBean> listarDetalle(string codigo)
{
var res = new List <PermisoDetBean>();
SAPbobsCOM.Recordset mRS = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery("select T0.\"id\",T0.\"idMenu\",T1.\"descripcion\",T0.\"accesa\",T0.\"crea\", " +
" T0.\"edita\",T0.\"aprueba\",T0.\"rechaza\",T0.\"escogePrecio\" " +
" from " + BdMobile.BD_NAME + "." + BdMobile.TB_PERMISOS +
" T0 JOIN " + BdMobile.BD_NAME + "." + BdMobile.TB_MENUAPP + " T1 " +
" ON T0.\"idMenu\" = T1.\"id\" " +
" where T0.\"idPerfil\" = '" + codigo +
"' and T0.\"idEmpresa\" = " + EmpresaDAO.obtenerIdInterno() + " order by T0.\"id\"");
if (mRS.RecordCount > 0)
{
while (!mRS.EoF)
{
res.Add(new PermisoDetBean()
{
LineId = int.Parse(mRS.Fields.Item("id").Value.ToString().Trim()),
codigoMenu = mRS.Fields.Item("idMenu").Value.ToString().Trim(),
descripcionMenu = mRS.Fields.Item("descripcion").Value.ToString().Trim(),
accesa = mRS.Fields.Item("accesa").Value.ToString().Trim(),
crea = mRS.Fields.Item("crea").Value.ToString().Trim(),
edita = mRS.Fields.Item("edita").Value.ToString().Trim(),
aprueba = mRS.Fields.Item("aprueba").Value.ToString().Trim(),
rechaza = mRS.Fields.Item("rechaza").Value.ToString().Trim(),
escogePrecio = mRS.Fields.Item("escogePrecio").Value.ToString().Trim()
});
mRS.MoveNext();
}
}
}
catch (Exception ex)
{
StatusMessageError("PermisoDAO > listarDetalle() > " + ex.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
/*
* const string CC_USD = "840";
* const string CC_CAN = "124";
* const string CC_EUR = "978";
* public string getCurrencyCode(string currency)
* {
* if (cfgIsSandbox == "Y")
* return CC_USD;
*
* switch (currency)
* {
*
* case "USD":
* return CC_USD;
* case "CAN":
* return CC_CAN;
* case "$":
* return CC_USD;
* case "CAD":
* return CC_CAN;
* case "EUR":
* return CC_EUR;
* }
* return CC_USD;
* }
* */
public void createAcctList()
{
string sql = "select \"DocEntry\",\"U_GroupName\",\"U_CardType\",\"U_CardName\",\"U_AcctCode\",\"U_CardCode\",\"U_SourceKey\",\"U_Pin\", \"U_Currency\", \"U_BranchID\" from \"@CCCARDACCT\"";
SAPbobsCOM.Recordset oRS = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
initSetupCardAcct();
initUpdateCardAcctWithOCRC("v", "isa");
initUpdateCardAcctWithOCRC("m", "aster");
initUpdateCardAcctWithOCRC("a", "mer");
initUpdateCardAcctWithOCRC("ds", "iscover");
initUpdateCardAcctWithOCRC("eCheck", "eCheck");
string t = "Card name added to List: ";
cardAcctList = new List <CCCardAcct>();
oRS.DoQuery(sql);
while (!oRS.EoF)
{
string g = (string)oRS.Fields.Item(1).Value;
if (g.ToUpper().IndexOf("NOT USE") == -1)
{
CCCardAcct acct = new CCCardAcct();
acct.DocEntry = (int)oRS.Fields.Item(0).Value;
acct.U_GroupName = (string)oRS.Fields.Item(1).Value;
acct.U_CardType = (string)oRS.Fields.Item(2).Value;
acct.U_CardName = (string)oRS.Fields.Item(3).Value;
acct.U_AcctCode = (string)oRS.Fields.Item(4).Value;
acct.U_CardCode = (string)oRS.Fields.Item(5).Value;
acct.U_SourceKey = (string)oRS.Fields.Item(6).Value;
acct.U_Pin = (string)oRS.Fields.Item(7).Value;
acct.U_Currency = (string)oRS.Fields.Item(8).Value;
acct.U_BranchID = (string)oRS.Fields.Item(9).Value;
cardAcctList.Add(acct);
t = t + acct.U_CardName + "," + acct.U_GroupName + "\r\n";
}
oRS.MoveNext();
}
}
catch (Exception ex)
{
errorLog(ex);
errorLog(sql);
}
finally
{
System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS);
oRS = null;
}
}
public static bool registrarMenuDetalleDefault(string codMenu, string descripcion)
{
var res = true;
SAPbobsCOM.Recordset mRS = null;
SAPbobsCOM.Recordset mRSInsert = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRSInsert = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery("select distinct \"idPerfil\", \"idEmpresa\" from " + BdMobile.BD_NAME + "." + BdMobile.TB_PERMISOS);
string idMenu = MenuAppDAO.obtenerIdxCodigo(codMenu);
if (mRS.RecordCount > 0)
{
while (!mRS.EoF)
{
string idPerfil = mRS.Fields.Item("idPerfil").Value.ToString().Trim();
string idEmpresa = mRS.Fields.Item("idEmpresa").Value.ToString().Trim();
mRSInsert.DoQuery("insert into " + BdMobile.BD_NAME + "." + BdMobile.TB_PERMISOS +
" values (" + obtenerUltimoId() + ", " + idEmpresa +
", " + idMenu + ", '" + idPerfil + "', 'N', 'N', 'N', 'N', 'N', 'N')");
mRS.MoveNext();
}
}
}
catch (Exception ex)
{
res = false;
StatusMessageError("PermisoDAO > registrarDetalleDefault() > " + ex.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
if (mRSInsert != null)
{
LiberarObjetoGenerico(mRSInsert);
}
}
return(res);
}
public IList <InvoiceDTO> GetClientInvoices(string pCardCode, string pDocStatus = "%")
{
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
IList <InvoiceDTO> lLstObjInvoices = new List <InvoiceDTO>();
try
{
string lStrQuery = this.GetSQL("GetClientInvoices").InjectSingleValue("CardCode", pCardCode).InjectSingleValue("DocStatus", pDocStatus);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
//lObjResults.GetColumnValue<int>("CheckKey");
InvoiceDTO lObjInvoiceDTO = new InvoiceDTO();
lObjInvoiceDTO.DocStatus = lObjResults.GetColumnValue <string>("DocStatus");
lObjInvoiceDTO.DocNum = lObjResults.GetColumnValue <int>("DocNum");
lObjInvoiceDTO.Series = lObjResults.GetColumnValue <int>("Series");
lObjInvoiceDTO.SeriesName = lObjResults.GetColumnValue <string>("SeriesName");
lObjInvoiceDTO.DocNum = lObjResults.GetColumnValue <int>("DocNum");
lObjInvoiceDTO.DocEntry = lObjResults.GetColumnValue <int>("DocEntry");
lObjInvoiceDTO.TransId = lObjResults.GetColumnValue <int>("TransId");
lObjInvoiceDTO.DocDate = lObjResults.GetColumnValue <DateTime>("DocDate");
lObjInvoiceDTO.DocDueDate = lObjResults.GetColumnValue <DateTime>("DocDueDate");
lObjInvoiceDTO.DocCur = lObjResults.GetColumnValue <string>("DocCur");
lObjInvoiceDTO.DocTotal = lObjResults.GetColumnValue <double>("DocTotal");
lObjInvoiceDTO.DocTotalFC = lObjResults.GetColumnValue <double>("DocTotalFC");
lObjInvoiceDTO.PaidToDate = lObjResults.GetColumnValue <double>("PaidToDate");
lObjInvoiceDTO.DocRemaining = lObjResults.GetColumnValue <double>("DocRemaining");
lObjInvoiceDTO.CardCode = lObjResults.GetColumnValue <string>("CardCode");
lObjInvoiceDTO.OcrCode = lObjResults.GetColumnValue <string>("OcrCode");
lObjInvoiceDTO.ObjType = lObjResults.GetColumnValue <string>("ObjType");
lLstObjInvoices.Add(lObjInvoiceDTO);
lObjResults.MoveNext();
}
}
return(lLstObjInvoices);
}
catch (Exception e)
{
LogUtility.WriteError(string.Format("[DocumentDAO - GetClientInvoices] Error al obtener las facturas del cliente {0}: {1}", pCardCode, e.Message));
throw new Exception(string.Format("Error al obtener las facturas del cliente {0}: {1}", pCardCode, e.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
}
public List <InvoiceDTO> GetInvoices(string pStrCardCode, string pStrOcrCode, char pStrType)
{
SAPbobsCOM.Recordset lObjRecordset = null;
List <InvoiceDTO> lLstCardCodeDTO = new List <InvoiceDTO>();
try
{
Dictionary <string, string> lLstStrParameters = new Dictionary <string, string>();
lLstStrParameters.Add("CardCode", pStrCardCode);
lLstStrParameters.Add("OcrCode", pStrOcrCode);
lLstStrParameters.Add("CYC", pStrType.ToString());
string lStrQuery = this.GetSQL("GetInvoices").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)
{
for (int i = 0; i < lObjRecordset.RecordCount; i++)
{
InvoiceDTO lObjInvoiceDTO = new InvoiceDTO();
lObjInvoiceDTO.DocEntry = lObjRecordset.Fields.Item("DocEntry").Value.ToString();
lObjInvoiceDTO.DocNum = lObjRecordset.Fields.Item("DocNum").Value.ToString();
lObjInvoiceDTO.Date = Convert.ToDateTime(lObjRecordset.Fields.Item("DocDate").Value.ToString());
lObjInvoiceDTO.Days = Convert.ToInt32(lObjRecordset.Fields.Item("Days").Value.ToString());
lObjInvoiceDTO.Area = lObjRecordset.Fields.Item("OcrCode").Value.ToString();
lObjInvoiceDTO.Balance = Convert.ToDecimal(lObjRecordset.Fields.Item("Balance").Value.ToString());
lObjInvoiceDTO.Amount = 0;
lLstCardCodeDTO.Add(lObjInvoiceDTO);
lObjRecordset.MoveNext();
}
}
}
catch (Exception ex)
{
UIApplication.ShowError(string.Format("GetPayments: {0}", ex.Message));
LogService.WriteError("PaymentDAO (GetPayments): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lLstCardCodeDTO);
}
public List <AuctionDTO> GetAuctionDTO(string pStrFolio, string pStrCostingCode, char pCharCYC)
{
SAPbobsCOM.Recordset lObjRecordset = null;
List <AuctionDTO> lLstAuctionDTO = new List <AuctionDTO>();
try
{
Dictionary <string, string> lLstStrParameters = new Dictionary <string, string>();
lLstStrParameters.Add("Folio", pStrFolio);
lLstStrParameters.Add("OcrCode", pStrCostingCode);
lLstStrParameters.Add("CYC", pCharCYC.ToString());
string lStrQuery = this.GetSQL("GetPayments").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)
{
for (int i = 0; i < lObjRecordset.RecordCount; i++)
{
AuctionDTO lObjAuctionDTO = new AuctionDTO();
lObjAuctionDTO.CardCode = lObjRecordset.Fields.Item("CardCode").Value.ToString();
lObjAuctionDTO.CardName = lObjRecordset.Fields.Item("CardName").Value.ToString();
lObjAuctionDTO.TotalSell = lObjRecordset.Fields.Item("Venta").Value.ToString();
lObjAuctionDTO.TotalBuy = lObjRecordset.Fields.Item("Invoice").Value.ToString();
lObjAuctionDTO.AccountD = lObjRecordset.Fields.Item("AccountD").Value.ToString();
lLstAuctionDTO.Add(lObjAuctionDTO);
lObjRecordset.MoveNext();
}
}
}
catch (Exception ex)
{
UIApplication.ShowError(string.Format("GetPayments: {0}", ex.Message));
LogService.WriteError("PaymentDAO (GetPayments): " + ex.Message);
LogService.WriteError(ex);
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordset);
}
return(lLstAuctionDTO);
}
public List <CommissionDTO> GetComission(string pStrDriverId, string pStrDateStart, string pStrDateEnd)
{
List <CommissionDTO> lLstComissionDTO = new List <CommissionDTO>();
SAPbobsCOM.Recordset lObjResults = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
try
{
Dictionary <string, string> lLstParams = new Dictionary <string, string>();
lLstParams.Add("DateStart", pStrDateStart);
lLstParams.Add("DateEnd", pStrDateEnd);
lLstParams.Add("DriverId", pStrDriverId);
string lStrQuery = this.GetSQL("GetCommissionsInv").Inject(lLstParams);
lObjResults.DoQuery(lStrQuery);
if (lObjResults.RecordCount > 0)
{
for (int i = 0; i < lObjResults.RecordCount; i++)
{
lLstComissionDTO.Add(new CommissionDTO()
{
DocEntry = lObjResults.Fields.Item("DocEntry").Value.ToString(),
Date = Convert.ToDateTime(lObjResults.Fields.Item("DocDate").Value.ToString()),
InvFol = lObjResults.Fields.Item("DocNum").Value.ToString(),
OpType = lObjResults.Fields.Item("OpType").Value.ToString(),
Route = lObjResults.Fields.Item("U_TR_Paths").Value.ToString(),
Vcle = lObjResults.Fields.Item("U_TR_VehicleType").Value.ToString(),
PyId = lObjResults.Fields.Item("U_TR_LoadType").Value.ToString(),
Amnt = Convert.ToDouble(lObjResults.Fields.Item("LineTotal").Value.ToString()),
Ins = Convert.ToDouble(lObjResults.Fields.Item("U_Seguro").Value.ToString()),
Cmsn = Convert.ToDouble(lObjResults.Fields.Item("U_Commission").Value.ToString()),
});
lObjResults.MoveNext();
}
}
}
catch (Exception ex)
{
LogService.WriteError("CommissionDAO (GetComission): " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowError(string.Format("GetComission: {0}", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjResults);
}
return(lLstComissionDTO);
}
/* Acomodar
* public List<string> GetDocumentByBP(string pStrTableO, string pStrTableL, string pStrBP)
* {
* SAPbobsCOM.Recordset lObjRecordSet = null;
* List<string> lLstDoc = new List<string>();
*
* try
* {
* lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
* string lStrQuery = string.Format(@"
* select T0.DocEntry from {0} T0
* inner join {1} T1 on T1.DocEntry=T0.DocEntry
* where CardCode ='{2}' and DocStatus !='C' and t1.WhsCode ='PLHE' and DocNum not in(select A0.U_Number from [@UG_PL_TCKT] A0 where A0.U_Status != '0')
* ", pStrTableO, pStrTableL, pStrBP);
*
* lObjRecordSet.DoQuery(lStrQuery);
*
* if (lObjRecordSet.RecordCount > 0)
* {
* for (int i = 0; i < lObjRecordSet.RecordCount; i++)
* {
* lLstDoc.Add(lObjRecordSet.Fields.Item(0).Value.ToString());
* lObjRecordSet.MoveNext();
* }
* }
* }
* catch(Exception lObjException)
* {
* UIApplication.ShowMessageBox(string.Format("Error de consulta", lObjException.Message));
* }
* finally
* {
* MemoryUtility.ReleaseComObject(lObjRecordSet);
* }
*
* return lLstDoc;
* }
*
* public List<string> GetDocumentByFiller(string pStrFiller)
* {
* SAPbobsCOM.Recordset lObjRecordSet = null;
* List<string> lLstDoc = new List<string>();
*
* try
* {
* lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
* string lStrQuery = string.Format(@"
* select DocEntry from OWTQ where DocStatus !='C' and Filler = '{0}' and CardCode is null and DocNum not in(select U_Number from [@UG_PL_TCKT] where U_Status != '0' and U_BPCode = '')
* ", pStrFiller);
* lObjRecordSet.DoQuery(lStrQuery);
*
* if (lObjRecordSet.RecordCount > 0)
* {
* for (int i = 0; i < lObjRecordSet.RecordCount; i++)
* {
* lLstDoc.Add(lObjRecordSet.Fields.Item(0).Value.ToString());
* lObjRecordSet.MoveNext();
* }
* }
* }
* catch (Exception lObjException)
* {
* UIApplication.ShowMessageBox(string.Format("Error de consulta", lObjException.Message));
* }
* finally
* {
* MemoryUtility.ReleaseComObject(lObjRecordSet);
* }
*
* return lLstDoc;
* }
*
* public List<string> GetDocumentByInvoice(string pStrCardCode, string pStrTable, string pStrUpdivnt)
* {
* SAPbobsCOM.Recordset lObjRecordSet = null;
* List<string> lLstDoc = new List<string>();
*
* try
* {
* lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
* string lStrQuery = string.Format(@"
*
* select DocEntry from {0} where UPdinvnt = '{1}' and CardCode = '{2}' and DocStatus != 'C' and CANCELED = 'N' and DocNum not in (select U_Number from [@UG_PL_TCKT] where U_Status != '0')
* ", pStrTable, pStrUpdivnt, pStrCardCode);
* lObjRecordSet.DoQuery(lStrQuery);
*
* if (lObjRecordSet.RecordCount > 0)
* {
* for (int i = 0; i < lObjRecordSet.RecordCount; i++)
* {
* lLstDoc.Add(lObjRecordSet.Fields.Item(0).Value.ToString());
* lObjRecordSet.MoveNext();
* }
* }
* }
* catch (Exception lObjException)
* {
* UIApplication.ShowMessageBox(string.Format("Error de consulta", lObjException.Message));
* }
* finally
* {
* MemoryUtility.ReleaseComObject(lObjRecordSet);
* }
*
* return lLstDoc;
* }
*/
public List <string> GetDocumentByWhs(string pStrWhsCode, string pStrTable, string pStrCardCode)
{
List <string> lLstDoc = new List <string>();
string lStrQuery = "select DocEntry from {Table} where WhsCode='{WhereFieldValue}'";// and CardCode = '{CardCode}'";
SAPbobsCOM.Recordset lObjRecordSet = null;
Dictionary <string, string> lLstStrParameters = null;
try
{
lObjRecordSet = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
lLstStrParameters = new Dictionary <string, string>();
lLstStrParameters.Add("WhereFieldValue", pStrWhsCode);
lLstStrParameters.Add("Table", pStrTable);
//lLstStrParameters.Add("CardCode", pStrCardCode);
lStrQuery = lStrQuery.Inject(lLstStrParameters);
lObjRecordSet.DoQuery(lStrQuery);
if (lObjRecordSet.RecordCount > 0)
{
for (int i = 0; i < lObjRecordSet.RecordCount; i++)
{
lLstDoc.Add(lObjRecordSet.Fields.Item(0).Value.ToString());
lObjRecordSet.MoveNext();
}
return(lLstDoc);
}
return(null);
}
catch (Exception ex)
{
LogService.WriteError("[GetDocumentByWhs]: " + ex.Message);
LogService.WriteError(ex);
UIApplication.ShowMessageBox(string.Format("Error de consulta", ex.Message));
}
finally
{
MemoryUtility.ReleaseComObject(lObjRecordSet);
}
return(lLstDoc);
}
public static List <EquipoBean> listar()
{
var res = new List <EquipoBean>();
SAPbobsCOM.Recordset mRS = null;
try
{
mRS = Conexion.company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
mRS.DoQuery("SELECT * from \"@" + Movil.getTabla().nombre + "\" order by \"DocEntry\"");
if (mRS.RecordCount > 0)
{
while (!mRS.EoF)
{
res.Add(new EquipoBean()
{
docEntry = mRS.Fields.Item("DocEntry").Value,
codigo = mRS.Fields.Item("Code").Value.ToString().Trim(),
descripcion = mRS.Fields.Item("Name").Value.ToString().Trim(),
modelo = mRS.Fields.Item("U_MSSM_MOD").Value.ToString().Trim(),
serie = mRS.Fields.Item("U_MSSM_SER").Value.ToString().Trim(),
color = mRS.Fields.Item("U_MSSM_COL").Value.ToString().Trim(),
codigoUnico = mRS.Fields.Item("U_MSSM_IDU").Value.ToString().Trim(),
verificarId = mRS.Fields.Item("U_MSSM_VAL").Value.ToString().Trim()
});
mRS.MoveNext();
}
}
}
catch (Exception ex)
{
StatusMessageError("EquipoDAO > listar() > " + ex.Message);
}
finally
{
if (mRS != null)
{
LiberarObjetoGenerico(mRS);
}
}
return(res);
}
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();
}
