Esempio n. 1
0
        public IList <AccountDTO> GetBankAccounts(string pStrBankCode)
        {
            SAPbobsCOM.Recordset lObjResults  = (SAPbobsCOM.Recordset)DIApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
            IList <AccountDTO>   lLstObjBanks = new List <AccountDTO>();

            try
            {
                string lStrQuery = this.GetSQL("GetBankAccounts").InjectSingleValue("BankCode", pStrBankCode);
                lObjResults.DoQuery(lStrQuery);
                if (lObjResults.RecordCount > 0)
                {
                    for (int i = 0; i < lObjResults.RecordCount; i++)
                    {
                        AccountDTO lObjAccount = new AccountDTO();
                        lObjAccount.BankCode  = lObjResults.GetColumnValue <string>("BankCode");
                        lObjAccount.Account   = lObjResults.GetColumnValue <string>("Account");
                        lObjAccount.Branch    = lObjResults.GetColumnValue <string>("Branch");
                        lObjAccount.GLAccount = lObjResults.GetColumnValue <string>("GLAccount");
                        lLstObjBanks.Add(lObjAccount);
                        lObjResults.MoveNext();
                    }
                }
                return(lLstObjBanks);
            }
            catch (Exception e)
            {
                LogService.WriteError("GetBankAccounts (GetFilterssVouchers): " + e.Message);
                LogService.WriteError(e);
                return(lLstObjBanks);
            }
            finally
            {
                MemoryUtility.ReleaseComObject(lObjResults);
            }
        }