public int fncAlta()
{
string vNumSer = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerPedProv, true, cParamXml.strConec);
string vValores = cUtil.fncCargaValoresSQLDefault(vTabla, cParamXml.strConec, "Id", "NumPed,Empresa,Estado,FechaPedido", vNumSer.ToString() + "," + cParamXml.Emp + ",P," + DateTime.Now.ToShortDateString());
string vCampos = cUtil.Piece(vValores, "#", 2);
string vValoresDef = cUtil.Piece(vValores, "#", 5);
string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresDef;
int vIdentity = 0;
try
{
vIdentity = SQLDataAccess.GEN_ExecuteScalarIdentity(vSql, cParamXml.strConec);
_Id = vIdentity;
//_NumPed = 0;
_FechaPedido = DateTime.Now;
_FechaEntrega = DateTime.Now;
_CodProv = "";
_NomProv = "";
_Dirección = "";
_Población = "";
_Provincia = "";
_CP = "";
_FPago = "";
_Divisa = "";
_SuPedido = "";
}
catch { }
return(vIdentity);
}
public int fncAlta()
{
string vNumSer = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerAlbProv, true, cParamXml.strConec);
string vValores = cUtil.fncCargaValoresSQLDefault(vTabla, cParamXml.strConec, "Id", "NumAlb,Empresa,Estado,FechaAlbaran", vNumSer.ToString() + "," + cParamXml.Emp + ",P," + DateTime.Now.ToShortDateString());
string vCampos = cUtil.Piece(vValores, "#", 2);
string vValoresDef = cUtil.Piece(vValores, "#", 5);
string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresDef;
int vIdentity = 0;
try
{
vIdentity = SQLDataAccess.GEN_ExecuteScalarIdentity(vSql, cParamXml.strConec);
_Id = vIdentity;
_FechaAlbaran = DateTime.Now;
_CodProv = "";
_NombreProv = "";
_RecepcionadoPor = "";
_NumPed = "";
_SuAlbaran = "";
}
catch { }
return(vIdentity);
}
public int fncAlta()
{
//int vNumSer = cUtil.fncTraeNumSerIntDbf("claves", "NPEDCLI", true, cParamXml.strOleDBConecDbf);
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerPrep, true, cParamXml.strConec);
int vNumSer = Convert.ToInt32(vNumSerie);
string vValores = cUtil.fncCargaValoresSQLDefault(vTabla, cParamXml.strConec, "Id,Estado", "NumPrep,Empresa,FechaPrep", vNumSer.ToString() + "," + cParamXml.Emp + "," + DateTime.Now.ToShortDateString());
string vCampos = cUtil.Piece(vValores, "#", 2);
string vValoresDef = cUtil.Piece(vValores, "#", 5);
string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresDef;
int vIdentity = 0;
try
{
vIdentity = SQLDataAccess.GEN_ExecuteScalarIdentity(vSql, cParamXml.strConec);
_Id = vIdentity;
_Estado = "P";
//_NumPed = 0;
_FechaPrep = DateTime.Now;
_FechaEntrega = DateTime.Now;
_CodCli = "";
_NomCli = "";
_Dirección = "";
_Población = "";
_Provincia = "";
_CP = "";
_FPago = "";
_Divisa = "";
_SuPedido = "";
_DtoPP = 0;
_DtoESP = 0;
}
catch { }
return(vIdentity);
}
public int fncAlta()
{
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerOrdProd, true, cParamXml.strConec);
return(fncAlta(vNumSerie));
}
public bool fncAltaCab(ref int vPrep)
{
bool vOk = false;
try
{
string vTabla = "GC_CabPrepEntregas";
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerPrep, true, cParamXml.strConec);
int vNumSer = Convert.ToInt32(vNumSerie);
vPrep = vNumSer;
string vValoresCab = cUtil.fncCargaValoresSQL(vTabla, cParamXml.strConec, "Id");
int vNumCampos = Convert.ToInt16(cUtil.Piece(vValoresCab, "#", 3));
string vCampos = cUtil.Piece(vValoresCab, "#", 2);
vValoresCab = cUtil.Piece(vValoresCab, "#", 1);
string vCamposRelp = vCampos.Substring(1, vCampos.Length - 2);
string[] vDatos = new string[vNumCampos];
for (int i = 0; i < vNumCampos; i++)
{
vDatos[i] = "";
}
vDatos[1] = _Empresa.ToString();
vDatos[2] = vNumSer.ToString();
vDatos[3] = _Estado;
vDatos[4] = _FechaPrep.ToShortDateString();
vDatos[5] = _FechaEntrega.ToShortDateString();
vDatos[6] = _CodCli;
vDatos[7] = _NomCli;
vDatos[8] = _Dirección;
vDatos[9] = _Población;
vDatos[10] = _Provincia;
vDatos[11] = _CP;
vDatos[12] = _FPago;
vDatos[13] = _Divisa;
vDatos[14] = _SuPedido;
vDatos[15] = _DtoPP.ToString().Replace(",", ".");
vDatos[16] = _DtoESP.ToString().Replace(",", ".");
vDatos[17] = _Ent_Dirección;
vDatos[18] = _Ent_Población;
vDatos[19] = _Ent_Provincia;
vDatos[20] = _Ent_CP;
vDatos[21] = _Ent_ID.ToString();
string vValoresNew = cUtil.fncReplaceValoresSQL(vDatos, vValoresCab, vNumCampos);
string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresNew;
int vCor = SQLDataAccess.GEN_ExecuteNonQuery(vSql, cParamXml.strConecProduc_Prueb);
if (vCor == 1)
{
vOk = true;
}
else
{
_Error = "Error al dar de Alta";
}
}
catch (Exception ex)
{
_Error = ex.Message;
vOk = false;
}
return(vOk);
}
//public bool fncBaja(string vID)
//{
// bool vOk = false;
// string vSql = "";
// string vWhere = " Id = " + _Id;
// vSql = cConstantes.SQL_UP_Delete;
// vSql = vSql.Replace("[?1]", vWhere);
// vSql = vSql.Replace("[?99]", vTabla);
// int viOk = SQLDataAccess.GEN_ExecuteNonQuery(vSql, cParamXml.strConecProduc_Prueb);
// if (viOk == 1)
// {
// vOk = true;
// aCampoModif = "";
// aValor = "";
// aValorAnt = "";
// }
// return vOk;
//}
//public int fncAlta()
//{
// string vValores = cUtil.fncCargaValoresSQLDefault(vTabla, "", "Id", "Empresa,NumPed,LinPed", cParamXml.Emp + "," + _NumPed + ",");
// string vCampos = cUtil.Piece(vValores, "#", 2);
// string vValoresDef = cUtil.Piece(vValores, "#", 5);
// string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresDef;
// int vIdentity = 0;
// try
// {
// vIdentity = SQLDataAccess.GEN_ExecuteScalarIdentity(vSql, cParamXml.strConecProduc_Prueb);
// _Id = vIdentity;
// _NumPed = "0";
// _LinPed = 0;
// _Producto = "";
// _Descripción = "";
// _Cantidad = 0;
// _CantidadEntregada = 0;
// _IVA = 0;
// _Precio = 0;
// _DTO = 0;
// }
// catch { }
// return vIdentity;
//}
public bool fncAltaLin()
{
bool vOk = false;
try
{
string vTabla = "GC_AlbProv";
string vValoresCab = cUtil.fncCargaValoresSQL(vTabla, cParamXml.strConec, "Id");
int vNumCampos = Convert.ToInt16(cUtil.Piece(vValoresCab, "#", 3));
string vCampos = cUtil.Piece(vValoresCab, "#", 2);
vValoresCab = cUtil.Piece(vValoresCab, "#", 1);
string vCamposRelp = vCampos.Substring(1, vCampos.Length - 2);
string[] vDatos = new string[vNumCampos];
for (int i = 0; i < vNumCampos; i++)
{
vDatos[i] = "";
}
if (_NumSerie == "")
{
_NumSerie = SQLDataAccess.GenTraeNumSerie("ProductoLote", true, cParamXml.strConec);
}
int vLin = _Linea;
if (vLin == 0)
{
vLin = fncNumLinea(_NumAlb.ToString());
}
vDatos[1] = _Empresa.ToString();
vDatos[2] = _NumAlb.ToString();
vDatos[3] = vLin.ToString();
vDatos[4] = _FechaEntrega.ToShortDateString();
vDatos[5] = _Producto;
vDatos[6] = _Descripción;
vDatos[7] = _CodProv;
vDatos[8] = _NombreProv;
vDatos[9] = _Cantidad.ToString().Replace(",", ".");
vDatos[10] = _Lote;
vDatos[11] = _RecepcionadoPor;
vDatos[12] = _Grabado.ToString().Replace(",", ".");
vDatos[16] = _NumSerie;
string vValoresNew = cUtil.fncReplaceValoresSQL(vDatos, vValoresCab, vNumCampos);
string vSql = "INSERT INTO " + vTabla + vCampos + " " + vValoresNew;
int vCor = SQLDataAccess.GEN_ExecuteNonQuery(vSql, cParamXml.strConecProduc_Prueb);
if (vCor == 1)
{
vOk = true;
}
else
{
_Error = "Error al dar de Alta";
}
}
catch (Exception ex)
{
_Error = ex.Message;
vOk = false;
}
return(vOk);
}
private void sbrGrabaMov()
{
if (cParamXml.ActProv == "False")
{
return;
}
tiProces.Enabled = false;
lbMen.Text = "Grabando Movimientos de Proveedor";
Application.DoEvents();
DataTable dt = new DataTable();
string vSql = cConstantes.SQL_AlbCompra_Pend;
vSql = vSql.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql = vSql.Replace("[?vbLf]", cConstantes.vbLF.ToString());
vSql = vSql.Replace("[?Emp]", cParamXml.Emp.ToString());
vSql = vSql.Replace("[?Grabado]", "= 0 ");
dt = SQLDataAccess.Trae(vSql, cUtil.SQLConec(cParamXml.strConecProduc_Prueb));
cAlbaranesCompra.LinAlbCompra oLinAlb = new cAlbaranesCompra.LinAlbCompra();
foreach (DataRow dr in dt.Rows)
{
string vNumAlb = dr["NumAlb"].ToString();
string vLinAlb = dr["Linea"].ToString();
string vNumPed = dr["NumPed"].ToString();
string vProd = dr["Producto"].ToString();
string vNomProd = dr["Descripción"].ToString();
string vCan = dr["Cantidad"].ToString();
string vLote = dr["Lote"].ToString();
string vRecep = dr["RecepcionadoPor"].ToString();
string vCert = dr["Cert"].ToString();
string vUbi = dr["Ubi"].ToString();
string vSerie = dr["NumSerie"].ToString();
int vId = Convert.ToInt32(dr["Id"].ToString());
if (vCan == "")
{
vCan = "0";
}
decimal vCanEnt = Convert.ToDecimal(vCan);
oLinAlb.Id = vId;
if (vCert == "")
{
oLinAlb.fncGrabaCampo("Grabado", "14");
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
return;
}
if (vLote == "")
{
oLinAlb.fncGrabaCampo("Grabado", "15");
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
return;
}
//if (vRecep == "")
//{
// oLinAlb.fncGrabaCampo("Grabado", "16");
// lbMen.Text = "";
// Application.DoEvents();
// tiProces.Enabled = true;
// return;
//}
//Busco el Producto en anexos
string vWhere = " Empresa = " + cParamXml.Emp + " and Producto = N'" + vProd + "'";
string vProdAnex = cUtil.fncTraeCampo("Producto", "GC_ProductoAnexos", vWhere, "", cParamXml.strConecProduc_Prueb, "SQL", true);
if (vProdAnex == "***Inex***")
{
oLinAlb.fncGrabaCampo("Grabado", "12");
}
else
{
//Crear movimientos de producto y materia prima
cMovimientos.Articulo oMov = new cMovimientos.Articulo();
cProductoLote oPL = new cProductoLote();
//Movimiento de producto
if (oMov.fncAlta(cParamXml.Emp, "Entrada", DateTime.Now, DateTime.Now, cParamXml.AlmacenMat, vProd, vNomProd,
vCan, vNumAlb, "", vUbi, vLote))
{
oLinAlb.fncGrabaCampo("Grabado", "1");
string vNumSer = vSerie;
if (vNumSer == "")
{
vNumSer = SQLDataAccess.GenTraeNumSerie("ProductoLote", true, cParamXml.strConec);
}
oPL.fncAlta(cParamXml.Emp, vNumSer, vProd, vLote, vNumAlb, Convert.ToInt32(vLinAlb));
}
else
{
oLinAlb.fncGrabaCampo("Grabado", "11");
}
}
}
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
}
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;
}
private void sbrProcesoPedCli()
{
if (cParamXml.ActPedCli == "False")
{
return;
}
tiProces.Enabled = false;
lbMen.Text = "Procesando Pedidos de Cliente";
Application.DoEvents();
DataTable dt = new DataTable();
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerPedCli, false, cParamXml.strConec);
string vSql = cConstantes.SQL_CabPed_Dbf;
vSql = vSql.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql = vSql.Replace("[?vbLf]", cConstantes.vbLF.ToString());
vSql = vSql.Replace("[?NumPed]", vNumSerie);
try
{
dt = SQLDataAccess.TraeDBF(vSql, cUtil.DBFConec(cParamXml.strOleDBConecDbf));
cPedidosVenta.CabVenta oCabPed = new cPedidosVenta.CabVenta();
cPedidosVenta.LinVenta oLinPed = new cPedidosVenta.LinVenta();
string vNumPed = "";
string vErr = "";
foreach (DataRow dr in dt.Rows)
{
vNumPed = dr["nnumped"].ToString();
if (oCabPed.fncAlta(dr))
{
string vSql2 = cConstantes.SQL_LinPed_Dbf;
vSql2 = vSql2.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql2 = vSql2.Replace("[?vbLf]", cConstantes.vbLF.ToString());
vSql2 = vSql2.Replace("[?NumPed]", vNumPed);
DataTable dt2 = SQLDataAccess.TraeDBF(vSql2, cUtil.DBFConec(cParamXml.strOleDBConecDbf));
foreach (DataRow dr2 in dt2.Rows)
{
//DataRow dr2 = dt2.Rows[0];
if (!oLinPed.fncAltaLin(dr2))
{
vErr = oLinPed.Error;
lbError.Text = vErr;
Application.DoEvents();
Thread.Sleep(5000);
}
}
}
else
{
vErr = oCabPed.Error;
lbError.Text = vErr;
Application.DoEvents();
Thread.Sleep(5000);
}
SQLDataAccess.GenSetNumSerie(cParamXml.NSerPedCli, vNumPed, cParamXml.strConec);
}
}
catch (Exception ex)
{
lbError.Text = DateTime.Now.ToLongDateString() + "-- " + ex.Message;
}
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
}
private void sbrProcesoCli()
{
if (cParamXml.ActCli == "False")
{
return;
}
tiProces.Enabled = false;
lbMen.Text = "Procesando Albaranes de Cliente";
Application.DoEvents();
DataTable dt = new DataTable();
string vNumSerie = SQLDataAccess.GenTraeNumSerie(cParamXml.NSerOrdAlbCli, false, cParamXml.strConec);
string vSql = cConstantes.SQL_Alb_Cli_Dbf;
vSql = vSql.Replace("[?vbCr]", cConstantes.vbCtr.ToString());
vSql = vSql.Replace("[?vbLf]", cConstantes.vbLF.ToString());
vSql = vSql.Replace("[?NumAlb]", vNumSerie);
try
{
dt = SQLDataAccess.TraeDBF(vSql, cUtil.DBFConec(cParamXml.strOleDBConecDbf));
cAlbaranesVenta.LinAlbVenta oLinAlb = new cAlbaranesVenta.LinAlbVenta();
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 vCli = dr["ccodcli"].ToString();
string vNomCli = cClientes.fncTraeC("cnomcli", vCli);
string vLote = dr["cprop2"].ToString();
string vLinea = dr["nlinea"].ToString();
if (vLinea == "")
{
vLinea = "0";
}
if (vCan == "")
{
vCan = "0";
}
decimal vCanEnt = Convert.ToDecimal(vCan);
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.CodCli = vCli;
oLinAlb.NombreCli = vNomCli;
oLinAlb.Cantidad = vCanEnt;
oLinAlb.Lote = vLote;
oLinAlb.Grabado = 10;
if (oLinAlb.fncAltaLin())
{
SQLDataAccess.GenSetNumSerie(cParamXml.NSerOrdAlbCli, vNumAlb, cParamXml.strConec);
}
}
}
catch (Exception ex)
{
lbError.Text = DateTime.Now.ToLongDateString() + "-- " + ex.Message;
}
lbMen.Text = "";
Application.DoEvents();
tiProces.Enabled = true;
}
