public static List<LinhaDocCompra> GetComprasArtigo(string id, int year)
{
StdBELista objList;
Model.LinhaDocCompra lindv;
List<Model.LinhaDocCompra> purchases = new List<Model.LinhaDocCompra>();
if (PriEngine.InitializeCompany(project.Properties.Settings.Default.Company.Trim(), project.Properties.Settings.Default.User.Trim(), project.Properties.Settings.Default.Password.Trim()) == true)
{
objList = PriEngine.Engine.Consulta("SELECT LinhasCompras.Quantidade, LinhasCompras.PrecUnit from LinhasCompras WHERE Artigo = '" + id + "' AND YEAR(LinhasCompras.Data = " + year);
purchases = new List<Model.LinhaDocCompra>();
while (!objList.NoFim())
{
lindv = new Model.LinhaDocCompra();
lindv.Quantidade = objList.Valor("Quantidade");
lindv.PrecoUnitario = objList.Valor("PrecUnit");
purchases.Add(lindv);
objList.Seguinte();
}
return purchases;
}
else
return null;
}
public static List<Model.DocCompra> VGR_List()
{
StdBELista objListCab;
StdBELista objListLin;
Model.DocCompra dc = new Model.DocCompra();
List<Model.DocCompra> listdc = new List<Model.DocCompra>();
Model.LinhaDocCompra lindc = new Model.LinhaDocCompra();
List<Model.LinhaDocCompra> listlindc = new List<Model.LinhaDocCompra>();
if (PriEngine.InitializeCompany(project.Properties.Settings.Default.Company.Trim(), project.Properties.Settings.Default.User.Trim(), project.Properties.Settings.Default.Password.Trim()) == true)
{
objListCab = PriEngine.Engine.Consulta("SELECT id, NumDocExterno, Entidade, DataDoc, NumDoc, TotalMerc, Serie From CabecCompras where TipoDoc='VGR'");
while (!objListCab.NoFim())
{
dc = new Model.DocCompra();
dc.id = objListCab.Valor("id");
dc.NumDocExterno = objListCab.Valor("NumDocExterno");
dc.Entidade = objListCab.Valor("Entidade");
dc.NumDoc = objListCab.Valor("NumDoc");
dc.Data = objListCab.Valor("DataDoc");
dc.TotalMerc = objListCab.Valor("TotalMerc");
dc.Serie = objListCab.Valor("Serie");
objListLin = PriEngine.Engine.Consulta("SELECT idCabecCompras, Artigo, Descricao, Quantidade, Unidade, PrecUnit, Desconto1, TotalILiquido, PrecoLiquido, Armazem, Lote from LinhasCompras where IdCabecCompras='" + dc.id + "' order By NumLinha");
listlindc = new List<Model.LinhaDocCompra>();
while (!objListLin.NoFim())
{
lindc = new Model.LinhaDocCompra();
lindc.IdCabecDoc = objListLin.Valor("idCabecCompras");
lindc.Artigo = objListLin.Valor("Artigo");
lindc.Descricao = objListLin.Valor("Descricao");
lindc.Quantidade = objListLin.Valor("Quantidade");
lindc.Unidade = objListLin.Valor("Unidade");
lindc.Desconto = objListLin.Valor("Desconto1");
lindc.PrecoUnitario = objListLin.Valor("PrecUnit");
lindc.TotalILiquido = objListLin.Valor("TotalILiquido");
lindc.TotalLiquido = objListLin.Valor("PrecoLiquido");
lindc.Armazem = objListLin.Valor("Armazem");
lindc.Lote = objListLin.Valor("Lote");
listlindc.Add(lindc);
objListLin.Seguinte();
}
dc.LinhasCompras = listlindc;
listdc.Add(dc);
objListCab.Seguinte();
}
}
return listdc;
}