private bool fncAltaLinea()
{
bool vOk = false;
cAlbaranesCompra.LinAlbCompra cLinCompra = new cAlbaranesCompra.LinAlbCompra();
if (txCan.Text == "")
{
txCan.Text = "0";
}
if (txRecepPor.Text == "")
{
txRecepPor.Text = "0";
}
if (txLote.Text == "")
{
txLote.Text = "0";
}
cLinCompra.Cantidad = Convert.ToDecimal(txCan.Text);
cLinCompra.Descripción = txDesProd.Text;
cLinCompra.Empresa = cParamXml.Emp;
cLinCompra.Producto = txProd.Text;
vOk = cLinCompra.fncAltaLin();
return(vOk);
}
private void sbrProceso()
{
if (cParamXml.ActProv == "False")
{
return;
}
string vSql = cConstantes.SQL_Insert_Cab_AlbProv;
vSql = vSql.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql = vSql.Replace("[?vbLf]", cConstantes.vbLF.ToString());
SQLDataAccess.GEN_ExecuteNonQuery(vSql, cParamXml.strConec);
tiProces.Enabled = false;
lbMen.Text = "Procesando Albaranes de Proveedor";
Application.DoEvents();
DataTable dt = new DataTable();
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerOrdAlbProv, false, cParamXml.strConec);
vSql = cConstantes.SQL_Alb_Dbf;
vSql = vSql.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql = vSql.Replace("[?vbLf]", cConstantes.vbLF.ToString());
vSql = vSql.Replace("[?NumAlb]", vNumSerie);
lbMen.Text = "Procesando Albaranes de Proveedor: Captura de Datos";
lbError.Text = vSql;
Application.DoEvents();
try
{
dt = SQLDataAccess.TraeDBF(vSql, cUtil.DBFConec(cParamXml.strOleDBConecDbf));
cAlbaranesCompra.LinAlbCompra oLinAlb = new cAlbaranesCompra.LinAlbCompra();
lbMen.Text = "Procesando Albaranes de Proveedor: Proceso";
Application.DoEvents();
foreach (DataRow dr in dt.Rows)
{
string vNumAlb = dr["nnumalb"].ToString();
string vNumPed = dr["nnumped"].ToString();
string vProd = dr["CREF"].ToString();
string vNomProd = dr["cdetalle"].ToString();
string vCan = dr["NCANENT"].ToString();
string vFecha = dr["DFecAlb"].ToString();
string vProv = dr["ccodpro"].ToString();
string vNomProv = cProveedores.fncTraeC("cnompro", vProv);
string vLote = dr["cprop2"].ToString();
string vLinea = dr["nlinea"].ToString();
if (vLinea == "")
{
vLinea = "0";
}
if (vCan == "")
{
vCan = "0";
}
decimal vCanEnt = Convert.ToDecimal(vCan);
string vNumSer = SQLDataAccess.GenTraeNumSerie("ProductoLote", true, cParamXml.strConec);
oLinAlb.Empresa = cParamXml.Emp;
oLinAlb.NumAlb = vNumAlb;
oLinAlb.Linea = Convert.ToInt16(vLinea);
oLinAlb.FechaEntrega = Convert.ToDateTime(vFecha);
oLinAlb.Producto = vProd;
oLinAlb.Descripción = vNomProd;
oLinAlb.CodProv = vProv;
oLinAlb.NombreProv = vNomProv;
oLinAlb.Cantidad = vCanEnt;
oLinAlb.Lote = vLote;
oLinAlb.RecepcionadoPor = "";
oLinAlb.NumSerie = vNumSer;
oLinAlb.Grabado = 10;
lbMen.Text = "Procesando Albaranes de Proveedor: " + vNumAlb;
Application.DoEvents();
if (oLinAlb.fncAltaLin())
{
SQLDataAccess.GenSetNumSerie(cParamXml.NSerOrdAlbProv, vNumAlb, cParamXml.strConec);
}
}
}
catch (Exception ex)
{
lbError.Text = DateTime.Now.ToLongDateString() + "-- " + ex.Message;
}
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
}
