public List <Cliente> ConsultaClientes() { if (!ValidaAutenticacao()) { throw new Exception("Credenciais de acesso inválidas"); } Interop.ErpBS900.ErpBS BSO = new Interop.ErpBS900.ErpBS(); //BSO.AbreEmpresaTrabalho(0, "DEMO", "primavera", "123"); BSO = ERP.AbrirERP(); string sql = "SELECT cliente,nome, NumContrib FROM Clientes"; List <Cliente> result = new List <Cliente>(); Interop.StdBE900.StdBELista objLista; objLista = BSO.Consulta(sql); while (!objLista.NoFim()) { Cliente objCliente = new Cliente(); objCliente.cliente = objLista.Valor("Cliente").ToString(); objCliente.nome = objLista.Valor("Nome").ToString(); objCliente.nif = objLista.Valor("NumContrib").ToString(); result.Add(objCliente); objLista.Seguinte(); } return(result); }
public EncomendaResultado CriarEncomenda(Encomenda enc) { EncomendaResultado resultado = new EncomendaResultado(); try { Interop.ErpBS900.ErpBS BSO = new Interop.ErpBS900.ErpBS(); //BSO.AbreEmpresaTrabalho(0, "DEMO", "primavera", "123"); BSO = ERP.AbrirERP(); Interop.GcpBE900.GcpBEDocumentoVenda objDocVenda = new Interop.GcpBE900.GcpBEDocumentoVenda(); objDocVenda.set_Tipodoc(enc.tipodoc); objDocVenda.set_Serie(BSO.Comercial.Series.DaSerieDefeito("V", enc.tipodoc)); objDocVenda.set_TipoEntidade("C"); objDocVenda.set_Entidade(enc.cliente); BSO.Comercial.Vendas.PreencheDadosRelacionados(objDocVenda); foreach (LinhaEncomenda linha in enc.linhas) { BSO.Comercial.Vendas.AdicionaLinha(objDocVenda, linha.artigo, linha.quantidade, PrecoUnitario: linha.precoUnitario); } BSO.Comercial.Vendas.Actualiza(objDocVenda); string strRefDoc = objDocVenda.get_Tipodoc() + objDocVenda.get_NumDoc() + "/" + objDocVenda.get_Serie(); resultado.erro = false; resultado.referencia = strRefDoc; } catch (Exception ex) { resultado.erro = true; resultado.descricaoErro = ex.Message; } return(resultado); }