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);
}
