private bool fncCreaCabPrep(int vPed, ref int vPrep)
{
bool vOk = false;
try
{
cPedidosVenta.CabVenta oCabVenta = new cPedidosVenta.CabVenta();
cEntregas.CabPrepEntrega oCabEnt = new cEntregas.CabPrepEntrega();
//Traemos los datos de la cabezera del Pedido
oCabVenta.fncTrae(vPed);
//Los cargamos en la cabecera de entrega
oCabEnt.Empresa = oCabVenta.Empresa;
oCabEnt.Estado = "P";
oCabEnt.FechaPrep = DateTime.Now;
oCabEnt.FechaEntrega = oCabVenta.FechaEntrega;
oCabEnt.CodCli = oCabVenta.CodCli;
oCabEnt.NomCli = oCabVenta.NomCli;
oCabEnt.Dirección = oCabVenta.Dirección;
oCabEnt.Población = oCabVenta.Población;
oCabEnt.Provincia = oCabVenta.Provincia;
oCabEnt.CP = oCabVenta.CP;
oCabEnt.FPago = oCabVenta.FPago;
oCabEnt.Divisa = oCabVenta.Divisa;
oCabEnt.SuPedido = oCabVenta.SuPedido;
oCabEnt.DtoPP = oCabVenta.DtoPP;
oCabEnt.DtoESP = oCabVenta.DtoESP;
oCabEnt.Ent_Dirección = oCabVenta.Ent_Dirección;
oCabEnt.Ent_Población = oCabVenta.Ent_Población;
oCabEnt.Ent_Provincia = oCabVenta.Ent_Provincia;
oCabEnt.Ent_CP = oCabVenta.Ent_CP;
oCabEnt.Ent_Id = oCabVenta.Ent_Id;
//Damos de alta la cabecera de la Preparación
vOk = oCabEnt.fncAltaCab(ref vPrep);
}
catch { vOk = false; }
return(vOk);
}
private bool fncCreaLinea(int vPrep, int vPed, int vLin)
{
bool vOk = false;
try
{
cPedidosVenta.CabVenta oCabVenta = new cPedidosVenta.CabVenta();
cPedidosVenta.LinVenta oLinVenta = new cPedidosVenta.LinVenta();
cEntregas.LinPrepEntregas oLinEnt = new cEntregas.LinPrepEntregas();
//Traemos los datos de la cabezera del Pedido
oCabVenta.fncTrae(vPed);
//Traemos loa datos de la linea del pedido
oLinVenta.fncTrae(vPed, vLin);
//Los cargamos en la linea de la entrega
oLinEnt.Empresa = oLinVenta.Empresa;
oLinEnt.NumPrep = vPrep;
oLinEnt.Producto = oLinVenta.Producto;
oLinEnt.Descripción = oLinVenta.Descripción;
oLinEnt.Cantidad = oLinVenta.CantidadPendiente;
oLinEnt.Lote = oLinVenta.Lote;
oLinEnt.CantidadServida = 0;
oLinEnt.CanPen = oLinVenta.CantidadPendiente;
oLinEnt.FechaEntrega = oLinVenta.FechaEntrega;
oLinEnt.PedLocal = vPed.ToString();
oLinEnt.LinPedLocal = vLin;
oLinEnt.PedCliente = oCabVenta.SuPedido;
//Damos de alta la linea
vOk = oLinEnt.fncAltaLin();
}
catch { vOk = false; }
return(vOk);
}