private void button2_Click(object sender, EventArgs e)
{
string ruta = this.ruta;
StreamReader lectr = new StreamReader(ruta);
int numProc = Convert.ToInt16(lectr.ReadLine());
lectr.Close();
StreamWriter Escritor = new StreamWriter(@"C: \Users\frodo\Desktop\Planificacion\GantAlterno.txt");
// cola de usados
Queue usados = new Queue(numProc);
// crear vector de procesos
Proceso[] vectProc = new Proceso[numProc];
for (int i = 0; i < vectProc.Length; i++)
vectProc[i] = new Proceso();
// crear cola de procesos
Queue colaProc = new Queue(numProc);
Queue colaCop = new Queue(numProc);
// crear un planificador
Planificador plnfcdr1 = new Planificador();
// leer archivos y meterlos en el vector
Planificador.leerArchivo(vectProc,ruta);
int llegada = vectProc[0].GSTiempoLLegada;
int maximo = 0;
foreach (Proceso P in vectProc)
maximo += P.GSduracion;
plnfcdr1.gant = new string[numProc, maximo*2];
plnfcdr1.InicarGant(numProc, maximo*2);
// decidir segund el algoritmo de planificacion
switch (this.comboBox1.Text)
{
case "SJF":
int espera = 1;
int Tinicio = 1;
int Tfinal = 1;
int yValue = 1;
int cont = 0;
while ( cont < numProc )
{
Proceso Procesado = plnfcdr1.PlanificarSJF(colaProc, vectProc, Tinicio,Tfinal, espera);
plnfcdr1.LLenarGant(Procesado, cont, maximo);
if ( !this.GantAlterno.Checked )
Graficar(Procesado, yValue, espera);
colaCop.Enqueue(Procesado);
if (Procesado != null)
{
Tinicio += Procesado.GSTiempoLLegada;
Tfinal += Procesado.GSduracion;
espera += Procesado.GSduracion;
this.display(Procesado);
yValue++;
cont++;
}
Tfinal++;
}
break;
case "FcFs":
yValue = 1;
espera = 1;
foreach(Proceso p in vectProc)
{
colaProc.Enqueue(p);
Proceso Procesado = plnfcdr1.PlanificarFcFs(colaProc, espera);
plnfcdr1.LLenarGant(Procesado, yValue -1, maximo);
colaCop.Enqueue(Procesado);
Graficar(Procesado, yValue, espera);
espera += Procesado.GSduracion ;
yValue++;
this.display(Procesado);
}
break;
case "SJFX":
ArrayList l = new ArrayList();
foreach (Proceso p in vectProc)
l.Add(p);
int i = 0;
Queue Procesados = plnfcdr1.PlanificarSJFX(l);
foreach (Proceso p in Procesados)
{
this.display(p);
try
{
this.GraficarProceso(p, i + 1 , p.Tinicio);
i++;
}
catch(Exception Ex)
{
i++;
}
}
colaCop = Procesados;
break;
case "SRTF":
// meter procesos a la lista
ArrayList ListaProc = new ArrayList();
foreach (Proceso P in vectProc )
ListaProc.Add(P);
i = 0;
Queue ProcesadosSRTF = plnfcdr1.PlanificarSRFT(ListaProc);
// dar salida grafica
foreach( Proceso P in ProcesadosSRTF )
{
this.display(P);
try
{
this.GraficarProceso(P, i + 1, P.Tinicio);
}
finally
{
i++;
}
}
colaCop = ProcesadosSRTF;
break;
case "Round Robin":
// meter procesos a la lista
ArrayList ListaProcRR = new ArrayList();
foreach (Proceso P in vectProc)
ListaProcRR.Add(P);
i = 0;
// planificar RR
Queue ProcesadosRR = plnfcdr1.PlanificarRR(ListaProcRR);
// graficar procesos
foreach (Proceso P in ProcesadosRR)
{
this.display(P);
try
{
this.GraficarProceso(P, i + 1, P.Tinicio);
}
finally
{
i++;
}
}
colaCop = ProcesadosRR;
break;
case "Priority":
ArrayList lentrada = new ArrayList();
foreach (Proceso p in vectProc)
lentrada.Add(p);
colaCop = plnfcdr1.PlanificarPrioridad(lentrada);
i = 1;
foreach (Proceso p in colaCop)
{
this.display(p);
this.GraficarProceso(p, i, p.Tinicio);
i++;
}
break;
case "PriorityX":
ArrayList lentradaP = new ArrayList();
foreach (Proceso p in vectProc)
lentradaP.Add(p);
colaCop = plnfcdr1.PlanificarPrioridadX(lentradaP);
i = 1;
foreach (Proceso p in colaCop)
{
this.display(p);
this.GraficarProceso(p, i, p.Tinicio);
i++;
}
break;
case "HRRN":
ArrayList ListaEntrada = new ArrayList();
ArrayList ListaEstatica = new ArrayList();
foreach (Proceso p in vectProc)
{
ListaEntrada.Add(p);
ListaEstatica.Add(p);
}
colaCop = plnfcdr1.PlanificarHRRN(ListaEntrada);
foreach( Proceso p in colaCop)
{
this.display(p);
this.GraficarProceso(p, 1+ plnfcdr1.ConvertIndx(p, ListaEstatica), p.Tinicio);
}
break;
}
// poner el tiempo promedio en la etiqeta
plnfcdr1.ImprimirGantTxt(Escritor, numProc, maximo*2, vectProc);
Escritor.Close();
if (this.GantAlterno.Checked)
this.DsplGantAlt();
this.lblPromedio.Text = string.Format("{0:C2}" , Convert.ToString( (float)plnfcdr1.GetStdstcs(colaCop, numProc) ));
}
private void CargaAlterno(Planificador Pactual,Proceso Procesado, int numProc, int maximo, int Iesimo)
{
// generar grafica alterna obligada
this.GantAlterno.Checked = true;
Pactual.GantAlterno(Procesado, numProc, maximo, Iesimo);
// desplegar el gant en la caja de texto
for (int i = 0; i < numProc; i++)
{
for (int j = 0; j < maximo; j++)
{
// mostrar el gant en la caja de texto
this.txtAlt.Text += String.Format("{0}",Pactual.gant[i,j]);
txtAlt.Refresh();
}
txtAlt.Text += @"
";
}
}
internal DataTable ObtenerEmailPersonal(Sesion poSesion, int pnClavePersonal)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "SELECT E_MAIL,CLAVE FROM PERSONAL WHERE CLAVE = " + pnClavePersonal;
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.Text;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
public void PasarAModoAhorroEnergia()
{
Inteligente Tele = new Inteligente("TV", "DDEAEA7C1ADE458991D496812D5D41FA");
Inteligente LavaRopa = new Inteligente("LAVARROPAS", "A0BA3245EAFC4EC994CC841698B835C0");
Tele.Encender();
Tele.RegistroDeActivaciones.ElementAt(0).FechaDeRegistro = Tele.RegistroDeActivaciones.ElementAt(0).FechaDeRegistro.AddHours(-300);
LavaRopa.Encender();
LavaRopa.RegistroDeActivaciones.ElementAt(0).FechaDeRegistro = LavaRopa.RegistroDeActivaciones.ElementAt(0).FechaDeRegistro.AddHours(-60);
List <Inteligente> lista = new List <Inteligente>();
lista.Add(Tele);
lista.Add(LavaRopa);
Assert.IsFalse(Tele.EstaApagado);
Planificador pl = Planificador.getInstance();
pl.Iniciar();
pl.agregarTareaTest(lista, 1);
Thread.Sleep(3000);
pl.Detener();
Assert.IsTrue(Tele.EstaApagado);
}
internal DataTable ObtenerListasPrecios(Sesion poSesion)
{
try
{
Sentencia loSentencia = new Sentencia();
string lsSucursales = string.Empty;
loSentencia.Parametros = new List<Parametro>() {
#region Parametros
new Parametro() {
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_COMUN.PROC_CAT_LISTA_PRECIOS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List<Sentencia>() { loSentencia });
return loResultado;
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerPedidos(Sesion poSesion, DateTime poFechaInicio, DateTime poFechaFin)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_INICIO",
Tipo = DbType.Date,
Valor = poFechaInicio
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_FIN",
Tipo = DbType.Date,
Valor = poFechaFin
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = poSesion.Usuario.Sucursal[0].Clave
},
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_ALMACEN_PEDIDO.PROC_MENSAJERO";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable obtenerVentasResumenPorMarca(Sesion poSesion, DateTime poFechaInicio, DateTime poFechaFin, string psSucursal)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_INICIO",
Tipo = DbType.DateTime,
Valor = poFechaInicio
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_FIN",
Tipo = DbType.DateTime,
Valor = poFechaFin
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = psSucursal
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_COMPRAS.PROC_REP_VENTAS_RESUMEN_MARCA";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Informes.General.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerConsignatario(Sesion poSesion, string psClienteID, DateTime poFecha)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClienteID
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA",
Tipo = DbType.Date,
Valor = poFecha
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = poSesion.Usuario.Sucursal[0].Clave
},
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_CREDITO_NCR.PROC_SOBRES_CONSIGNATARIO";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
static void Main(string[] args)
{
Planificador planificador = new Planificador();
planificador.Simular();
Console.ReadKey();
}
internal DataTable ObtenerClientes(Sesion poSesion, int psClaveSucursal, string psClaveVendedor, string psCliente)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = psClaveSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_VENDEDOR",
Tipo = DbType.Int32,
Valor = psClaveVendedor
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psCliente
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_CREDITO.PROC_REP_REFERENCIAS_BANCARIAS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerAnalisisAnualMarcas(Sesion poSesion, string psClaveCliente, string psClaveMarca)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClaveCliente
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_VENTAS.PROC_REP_ANALISIS_MARCAS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
if (!string.IsNullOrEmpty(psClaveMarca))
{
loSentencia.Parametros.Add(new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_MARCA",
Tipo = DbType.Int32,
Valor = int.Parse(psClaveMarca)
});
}
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Informes.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerLineasArticulos(Sesion poSesion, int pnCveMarca, int pnIndicadorFila)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_MARCA",
Tipo = DbType.Int32,
Valor = pnCveMarca
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_INDICADOR_FILA",
Tipo = DbType.Int32,
Valor = pnIndicadorFila
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_COMUN.PROC_CAT_LINEAS_ARTICULOS";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
if (loResultado.Rows[0]["DESCRIPCION"].ToString() == " [SELECCIONAR]")
{
loResultado.Rows[0]["DESCRIPCION"] = "LINEA";
}
return(loResultado);
}
catch (Exception ex)
{
throw new Ventas.Pedidos.BackOrder.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerAlmacenes(Sesion poSesion, int pnIndicadorFila)
{
try
{
Sentencia loSentencia = new Sentencia();
string lsSucursales = string.Empty;
loSentencia.Parametros = new List<Parametro>() {
#region Parametros
new Parametro() {
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro() {
Direccion = ParameterDirection.Input,
Nombre = "PNI_INDICADOR_FILA",
Tipo = DbType.Int32,
Valor = pnIndicadorFila
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_COMUN.PROC_CAT_ALMACENES";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
foreach (Sucursal oSucursal in poSesion.Usuario.Sucursal)
lsSucursales += oSucursal.Clave + ",";
if (lsSucursales != string.Empty)
loSentencia.Parametros.Add(new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVES_SUCURSALES",
Tipo = DbType.String,
Valor = lsSucursales.TrimEnd(',')
});
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List<Sentencia>() { loSentencia });
return loResultado;
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerRemitente(Sesion poSesion, string psRazonSocial)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = poSesion.Usuario.Sucursal[0].Clave
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_RAZON_SOCIAL",
Tipo = DbType.String,
Valor = psRazonSocial
},
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_ALMACEN_PEDIDO_TRAZA.PROC_DOC_REMITENTE";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerClienteEncabezado(Sesion poSesion, string psClaveCliente)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClaveCliente
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = poSesion.Usuario.Sucursal[0].Clave
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_MONITOREO.PROC_CTE_CREDITO_ENCABEZADO";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Dapesa.Credito.Clientes.Cartera.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerAuxiliares(Sesion poSesion, string psClaveSucursal, int pnClaveAuxiliar)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVES_SUCURSALES",
Tipo = DbType.String,
Valor = psClaveSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_USUARIO",
Tipo = DbType.Int32,
Valor = pnClaveAuxiliar
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_CXC_LAYOUT.PROC_AUXILIAR_CXC_LISTADO";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
private void btnPlanificar_Click(object sender, EventArgs e)
{
planificador = new Planificador();
actualizarProcesos();
actualizarRecursos();
limpiarDtProcesadores();
btnSimular.Enabled = true;
planificador.agregarProcesadores();
limpiarDtProcesadores();
}
public bool Validar(Conexion poConexion)
{
try
{
Planificador loPlanificador = new Planificador();
return(loPlanificador.Servir(poConexion));
}
catch (Exception ex)
{
throw new Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerMarcas(Sesion poSesion, int pnIndicadorFila)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_INDICADOR_FILA",
Tipo = DbType.Int32,
Valor = pnIndicadorFila
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_COMUN.PROC_CAT_MARCAS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Informes.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerEmailPersonal(Sesion poSesion, int pnSucursal)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = pnSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_CREDITO_CTES.PROC_MOS_PERSONAL";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerCliente(Sesion poSesion, string psCliente)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CLIENTE",
Tipo = DbType.String,
Valor = psCliente
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_MONITOREO.PROC_BUSCAR_CLIENTE";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal int ObtenerClienteSinAsignar(Sesion poSesion, int psClaveSucursal)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = psClaveSucursal
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_CXC_LAYOUT.PROC_CXC_CLIENTES_SIN_ASIGNAR";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado.Rows.Count);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerTransportistas(Sesion poSesion)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_ALMACEN_PEDIDO_TRAZA.PROC_DOC_TRANSPORTISTAS";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
public object Despachar(Conexion poConexion, List <Sentencia> poSentencia)
{
try
{
Planificador loPlanificador = new Planificador();
object loResultado = loPlanificador.Servir(poConexion, poSentencia);
if (loResultado is DataTable)
{
Serializacion loSerializador = new Serializacion();
return(poConexion.Credenciales.Cifrado.Cifrar(
loSerializador.SerializarTabla((DataTable)loResultado)
));
}
return(loResultado);
}
catch (Exception ex)
{
throw new Excepcion(ex.Message, ex);
}
}
public void TestClientesBd()
{
object loResultado = null;
try
{
List <Sentencia> loSentencia = new List <Sentencia>();
Planificador loPlanificador = new Planificador();
Conexion loConexionMySql = new Conexion();
Conexion loConexionOracle = new Conexion();
Conexion loConexionSqlSvr = new Conexion();
#region Recuperacion de conjuntos de datos
#region MySql
Sentencia loQryMySql = new Sentencia();
loConexionMySql.Nombre = "WORLD";
loConexionMySql.Tipo = Dapesa.Comun.Definiciones.TipoConexion.NombreConexion;
loConexionMySql.TipoCliente = Dapesa.Comun.Definiciones.TipoCliente.MySql;
loQryMySql.TextoComando = "SELECT * FROM world.city";
loQryMySql.Tipo = Definiciones.TipoSentencia.Query;
loQryMySql.TipoComando = CommandType.Text;
loQryMySql.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQryMySql.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Add(loQryMySql);
loResultado = loPlanificador.Servir(loConexionMySql, loSentencia);
#endregion
#region Oracle
Sentencia loQryOracle = new Sentencia();
loConexionOracle.Nombre = "SIIL_DEMO";
loConexionOracle.Tipo = Dapesa.Comun.Definiciones.TipoConexion.NombreConexion;
loConexionOracle.TipoCliente = Dapesa.Comun.Definiciones.TipoCliente.Oracle;
loQryOracle.TextoComando = "SELECT * FROM SIIL_DEMO.DAP_CAJA";
loQryOracle.Tipo = Definiciones.TipoSentencia.Query;
loQryOracle.TipoComando = CommandType.Text;
loQryOracle.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQryOracle.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loQryOracle);
loResultado = loPlanificador.Servir(loConexionOracle, loSentencia);
#endregion
#region SqlServer
Sentencia loQrySqlSvr = new Sentencia();
loConexionSqlSvr.Nombre = "NORTHWIND";
loConexionSqlSvr.Tipo = Dapesa.Comun.Definiciones.TipoConexion.NombreConexion;
loConexionSqlSvr.TipoCliente = Dapesa.Comun.Definiciones.TipoCliente.SqlServer;
loQrySqlSvr.TextoComando = "SELECT C.CategoryID, C.CategoryName FROM Northwind.dbo.Categories C";
loQrySqlSvr.Tipo = Definiciones.TipoSentencia.Query;
loQrySqlSvr.TipoComando = CommandType.Text;
loQrySqlSvr.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQrySqlSvr.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loQrySqlSvr);
loResultado = loPlanificador.Servir(loConexionSqlSvr, loSentencia);
#endregion
#endregion
#region Recuperacion de escalares
#region Cadena
Sentencia loValCadena = new Sentencia();
loValCadena.TextoComando = "SELECT 'HOLA' AS MENSAJE";
loValCadena.Tipo = Definiciones.TipoSentencia.Escalar;
loValCadena.TipoComando = CommandType.Text;
loValCadena.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loValCadena.TipoResultado = Definiciones.TipoResultado.Cadena;
loSentencia.Clear();
loSentencia.Add(loValCadena);
loResultado = loPlanificador.Servir(loConexionMySql, loSentencia);
#endregion
#region Decimal
Sentencia loValDecimal = new Sentencia();
loValDecimal.TextoComando = "SELECT AVG(VALOR) FROM (SELECT 4 AS VALOR FROM DUAL UNION SELECT 5 FROM DUAL) R";
loValDecimal.Tipo = Definiciones.TipoSentencia.Escalar;
loValDecimal.TipoComando = CommandType.Text;
loValDecimal.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loValDecimal.TipoResultado = Definiciones.TipoResultado.Decimal;
loSentencia.Clear();
loSentencia.Add(loValDecimal);
loResultado = loPlanificador.Servir(loConexionOracle, loSentencia);
#endregion
#region Entero
Sentencia loValEntero = new Sentencia();
loValEntero.TextoComando = "SELECT COUNT(*) FROM Northwind.dbo.Categories";
loValEntero.Tipo = Definiciones.TipoSentencia.Escalar;
loValEntero.TipoComando = CommandType.Text;
loValEntero.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loValEntero.TipoResultado = Definiciones.TipoResultado.Entero;
loSentencia.Clear();
loSentencia.Add(loValEntero);
loResultado = loPlanificador.Servir(loConexionSqlSvr, loSentencia);
#endregion
#endregion
#region Uso de parametros en consultas
#region MySql
Sentencia loQryParamMySql = new Sentencia();
#region Parametros
Parametro loParamCodPais = new Parametro();
loParamCodPais.Direccion = ParameterDirection.Input;
loParamCodPais.Nombre = "codigoPais";
loParamCodPais.Tipo = DbType.String;
loParamCodPais.Valor = "AF%";
#endregion
loQryParamMySql.Parametros = new List <Parametro>();
loQryParamMySql.Parametros.Add(loParamCodPais);
loQryParamMySql.TextoComando = "SELECT * FROM world.city C WHERE C.CountryCode LIKE @codigoPais";
loQryParamMySql.Tipo = Definiciones.TipoSentencia.Query;
loQryParamMySql.TipoComando = CommandType.Text;
loQryParamMySql.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQryParamMySql.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loQryParamMySql);
loResultado = loPlanificador.Servir(loConexionMySql, loSentencia);
#endregion
#region Oracle
Sentencia loQryParamOracle = new Sentencia();
#region Parametros
Parametro loParamFolPedido = new Parametro();
loParamFolPedido.Direccion = ParameterDirection.Input;
loParamFolPedido.Nombre = "folioPedido";
loParamFolPedido.Tipo = DbType.String;
loParamFolPedido.Valor = "A";
Parametro loParamNumPedido = new Parametro();
loParamNumPedido.Direccion = ParameterDirection.Input;
loParamNumPedido.Nombre = "numeroPedido";
loParamNumPedido.Tipo = DbType.Int32;
loParamNumPedido.Valor = 450685;
#endregion
loQryParamOracle.Parametros = new List <Parametro>();
loQryParamOracle.Parametros.Add(loParamFolPedido);
loQryParamOracle.Parametros.Add(loParamNumPedido);
loQryParamOracle.TextoComando = "SELECT P.SUBTOTAL, P.IVA, P.TOTAL FROM SIIL_DEMO.PEDIDOS P WHERE P.FOLPED_FOLIO=:1 AND P.NUMERO=:2";
loQryParamOracle.Tipo = Definiciones.TipoSentencia.Query;
loQryParamOracle.TipoComando = CommandType.Text;
loQryParamOracle.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQryParamOracle.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loQryParamOracle);
loResultado = loPlanificador.Servir(loConexionOracle, loSentencia);
#endregion
#region SqlServer
Sentencia loQryParamSqlSvr = new Sentencia();
#region Parametros
Parametro loParamCategoria = new Parametro();
loParamCategoria.Direccion = ParameterDirection.Input;
loParamCategoria.Nombre = "categoria";
loParamCategoria.Tipo = DbType.Int32;
loParamCategoria.Valor = 1;
#endregion
loQryParamSqlSvr.Parametros = new List <Parametro>();
loQryParamSqlSvr.Parametros.Add(loParamCategoria);
loQryParamSqlSvr.TextoComando = "SELECT C.CategoryID, C.CategoryName FROM Northwind.dbo.Categories C WHERE C.CategoryID=@categoria";
loQryParamSqlSvr.Tipo = Definiciones.TipoSentencia.Query;
loQryParamSqlSvr.TipoComando = CommandType.Text;
loQryParamSqlSvr.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loQryParamSqlSvr.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loQryParamSqlSvr);
loResultado = loPlanificador.Servir(loConexionSqlSvr, loSentencia);
#endregion
#endregion
#region Llamada a procedimientos almacenados
#region MySql
Sentencia loProcMySql = new Sentencia();
#region Parametros
Parametro loParamIdPelicula = new Parametro();
loParamIdPelicula.Direccion = ParameterDirection.Input;
loParamIdPelicula.Nombre = "p_film_id";
loParamIdPelicula.Tipo = DbType.Int32;
loParamIdPelicula.Valor = 1;
Parametro loParamIdTienda = new Parametro();
loParamIdTienda.Direccion = ParameterDirection.Input;
loParamIdTienda.Nombre = "p_store_id";
loParamIdTienda.Tipo = DbType.Int32;
loParamIdTienda.Valor = 1;
Parametro loParamNumCoincidencias = new Parametro();
loParamNumCoincidencias.Direccion = ParameterDirection.Output;
loParamNumCoincidencias.Nombre = "p_film_count";
loParamNumCoincidencias.Tipo = DbType.Int32;
#endregion
loProcMySql.Parametros = new List <Parametro>();
loProcMySql.Parametros.Add(loParamIdPelicula);
loProcMySql.Parametros.Add(loParamIdTienda);
loProcMySql.Parametros.Add(loParamNumCoincidencias);
loProcMySql.TextoComando = "sakila.film_in_stock";
loProcMySql.Tipo = Definiciones.TipoSentencia.Query;
loProcMySql.TipoComando = CommandType.StoredProcedure;
loProcMySql.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loProcMySql.TipoResultado = Definiciones.TipoResultado.Conjunto;
loConexionMySql.Nombre = "SAKILA";
loSentencia.Clear();
loSentencia.Add(loProcMySql);
loResultado = loPlanificador.Servir(loConexionMySql, loSentencia);
loResultado = loParamNumCoincidencias.Valor;
#endregion
#region Oracle
Sentencia loProcOracle = new Sentencia();
#region Parametros
Parametro loParamValor = new Parametro();
loParamValor.Direccion = ParameterDirection.InputOutput;
loParamValor.Nombre = "VALOR";
loParamValor.Tipo = DbType.Int64;
loParamValor.Valor = 100;
#endregion
loProcOracle.Parametros = new List <Parametro>();
loProcOracle.Parametros.Add(loParamValor);
loProcOracle.TextoComando = "SIIL_DEMO.DAP_TEST";
loProcOracle.Tipo = Definiciones.TipoSentencia.Query;
loProcOracle.TipoComando = CommandType.StoredProcedure;
loProcOracle.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loProcOracle.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loProcOracle);
loResultado = loPlanificador.Servir(loConexionOracle, loSentencia);
loResultado = loParamValor.Valor;
#endregion
#region SqlServer
Sentencia loProcSqlSvr = new Sentencia();
#region Parametros
Parametro loParamIdOrden = new Parametro();
loParamIdOrden.Direccion = ParameterDirection.Input;
loParamIdOrden.Nombre = "OrderID";
loParamIdOrden.Tipo = DbType.Int32;
loParamIdOrden.Valor = 10248;
#endregion
loProcSqlSvr.Parametros = new List <Parametro>();
loProcSqlSvr.Parametros.Add(loParamIdOrden);
loProcSqlSvr.TextoComando = "Northwind.dbo.CustOrdersDetail";
loProcSqlSvr.Tipo = Definiciones.TipoSentencia.Query;
loProcSqlSvr.TipoComando = CommandType.StoredProcedure;
loProcSqlSvr.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loProcSqlSvr.TipoResultado = Definiciones.TipoResultado.Conjunto;
loSentencia.Clear();
loSentencia.Add(loProcSqlSvr);
loResultado = loPlanificador.Servir(loConexionSqlSvr, loSentencia);
#endregion
#endregion
#region Manejo de transacciones
//Primera sentencia de insercion
Sentencia loQryInsercion1 = new Sentencia();
loQryInsercion1.TextoComando = "INSERT INTO test.prueba VALUES(4,'CUATRO');";
loQryInsercion1.Tipo = Definiciones.TipoSentencia.NoQuery;
loQryInsercion1.TipoComando = CommandType.Text;
loQryInsercion1.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.IniciarTransaccion;
loQryInsercion1.TipoResultado = Definiciones.TipoResultado.Entero;
//Segunda sentencia de insercion
Sentencia loQryInsercion2 = new Sentencia();
loQryInsercion2.TextoComando = "INSERT INTO test.prueba VALUES(5,'CINCO');";
loQryInsercion2.Tipo = Definiciones.TipoSentencia.NoQuery;
loQryInsercion2.TipoComando = CommandType.Text;
loQryInsercion2.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.ContinuarTransaccion;
loQryInsercion2.TipoResultado = Definiciones.TipoResultado.Entero;
//Tercera sentencia de insercion
Sentencia loQryInsercion3 = new Sentencia();
loQryInsercion3.TextoComando = "INSERT INTO test.prueba VALUES(3,'TRES');";
loQryInsercion3.Tipo = Definiciones.TipoSentencia.NoQuery;
loQryInsercion3.TipoComando = CommandType.Text;
loQryInsercion3.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.FinalizarTransaccion;
loQryInsercion3.TipoResultado = Definiciones.TipoResultado.Entero;
loConexionMySql.Nombre = "TEST";
loSentencia.Clear();
loSentencia.Add(loQryInsercion1);
loSentencia.Add(loQryInsercion2);
loSentencia.Add(loQryInsercion3);
loResultado = loPlanificador.Servir(loConexionMySql, loSentencia);
#endregion
}
catch (Exception ex)
{
Console.WriteLine(ex.Source + ": " + ex.Message);
}
}
internal DataTable ObtenerBackOrderPedidos(Sesion poSesion, DateTime poFechaInicio, DateTime poFechaFin, int pnSucursal, int?pnClaveVendedor, string psClaveCliente, int?pnPedidoNumero, string psPedidoFolio, string psArticuloClave, int?pnLineaClave, int?pnMarcaClave, int pnMostrarArticulos)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_INICIO",
Tipo = DbType.Date,
Valor = poFechaInicio
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_FIN",
Tipo = DbType.Date,
Valor = poFechaFin
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = pnSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_VENDEDOR",
Tipo = DbType.Int32,
Valor = pnClaveVendedor
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClaveCliente
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_PED_NUMERO",
Tipo = DbType.Int32,
Valor = pnPedidoNumero
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_PED_FOLPED_FOLIO",
Tipo = DbType.String,
Valor = psPedidoFolio
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_ART_CLAVE",
Tipo = DbType.String,
Valor = psArticuloClave
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_LIN_ART_CLAVE",
Tipo = DbType.Int32,
Valor = pnLineaClave
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_MCA_CLAVE",
Tipo = DbType.Int32,
Valor = pnMarcaClave
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_MONITOREO.PROC_BACKORDER_PEDIDOS";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
if (pnMostrarArticulos != (int)Comun.Definiciones.MostrarArticulos.Todos)
{
DataTable dtAuxiliar = loResultado.Clone();
if (pnMostrarArticulos == (int)Comun.Definiciones.MostrarArticulos.ConExistencia)
{
DataRow[] loQueryGesClave = loResultado.Select("EXISTENCIA > 0");
foreach (DataRow loFila in loQueryGesClave)
{
dtAuxiliar.Rows.Add(loFila[0], loFila[1], loFila[2], loFila[3], loFila[4], loFila[5], loFila[6], loFila[7], loFila[8], loFila[9], loFila[10], loFila[11], loFila[12], loFila[13]);
}
}
else if (pnMostrarArticulos == (int)Comun.Definiciones.MostrarArticulos.SinExistencia)
{
DataRow[] loQueryGesClave = loResultado.Select("EXISTENCIA <= 0");
foreach (DataRow loFila in loQueryGesClave)
{
dtAuxiliar.Rows.Add(loFila[0], loFila[1], loFila[2], loFila[3], loFila[4], loFila[5], loFila[6], loFila[7], loFila[8], loFila[9], loFila[10], loFila[11], loFila[12], loFila[13]);
}
}
loResultado.Rows.Clear();
loResultado.Merge(dtAuxiliar);
}
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerAntiguedadSaldosAuxiliar(Sesion poSesion, int psClaveSucursal, DateTime poFecha, int pnDiasPeriodo, int pnTipoFecha, int pnDiasAdicionales, string psClaveGestor, string psCliente, int pnIndicadorUsuario)
{
try
{
Sentencia loSentencia = new Sentencia();
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = psClaveSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA",
Tipo = DbType.DateTime,
Valor = poFecha
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_DIAS_PERIODO",
Tipo = DbType.Int32,
Valor = pnDiasPeriodo
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_TIPO_FECHA",
Tipo = DbType.Int32,
Valor = pnTipoFecha
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_DIAS_ADICIONALES",
Tipo = DbType.Int32,
Valor = pnDiasAdicionales
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_GESTOR",
Tipo = DbType.Int32,
Valor = psClaveGestor
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = ((string.IsNullOrEmpty(psCliente)) ? null : psCliente)
}, /// añadido
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_INDICADOR_USUARIO",
Tipo = DbType.Int32,
Valor = pnIndicadorUsuario
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_CREDITO.PROC_REP_ANTIGUEDAD_SALDOS_AUX";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerArticulosPedidosDias(Sesion poSesion, string psClaveCliente, int piClaveSucursal, DateTime poFechaInicial, string psFolio, int piNumero, int piClaveVendedor, string psClavesComodines)
{
try
{
Sentencia loSentencia = new Sentencia();
int lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.Ninguno;
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClaveCliente
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = piClaveSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_INICIO",
Tipo = DbType.String,
Valor = poFechaInicial.ToString("dd/MM/yyyy")
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_FOLPED_FOLIO",
Tipo = DbType.String,
Valor = psFolio
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_PED_NUMERO",
Tipo = DbType.Int32,
Valor = piNumero
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_INDICADOR",
Tipo = DbType.Int32,
Valor = lnIndicadorFiltros
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE1",
Tipo = DbType.Int32,
Valor = piClaveVendedor
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSO_CVE2",
Tipo = DbType.String,
Valor = psClavesComodines
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_VENTAS.PROC_REP_PEDIDOS_ARTICULOS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
#region Definir filtros del reporte
if (piClaveVendedor != 0)
{
lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.Ambos;
}
//else
//{
// //if (!string.IsNullOrEmpty(psClaveCliente))
// //{
// // lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.SoloCliente;
// //}
//}
loSentencia.Parametros[6].Valor = lnIndicadorFiltros;
#endregion
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
DataTable dtAuxiliar = loResultado.Clone();
return(loResultado);
}
catch (Exception ex)
{
throw new Informes.Comun.Excepcion(ex.Message, ex);
}
}
internal DataTable ObtenerConsignatario(Sesion poSesion, string psClienteID, string psPolizaSeguro)
{
try
{
Sentencia loSentencia = new Sentencia();
string lsSucursales = string.Empty;
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_CVE_CLIENTE",
Tipo = DbType.String,
Valor = psClienteID
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSI_POLIZA_SEGURO",
Tipo = DbType.String,
Valor = psPolizaSeguro
},
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_ALMACEN_PEDIDO_TRAZA.PROC_DOC_CONSIGNATARIO";
loSentencia.Tipo = Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = Definiciones.TipoResultado.Conjunto;
foreach (Sucursal oSucursal in poSesion.Usuario.Sucursal)
{
loSentencia.Parametros.Add(new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL" + oSucursal.Clave,
Tipo = DbType.Int64,
Valor = oSucursal.Clave
});
}
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Comun.Excepcion(ex.Message, ex);
}
}
private void Form1_Load(object sender, EventArgs e)
{
planificador = new Planificador();
inicializarControlesFormulario();
cargarConfiguracionesSimulador();
}
internal DataTable BuscarPedidos(Sesion poSesion, int pnRangoDias, int pnSucursal, string psMarcas, string psLineas, string psArticulos, String psEstados, String psClientes, bool poCoincidirEstados, bool poCoincidirClientes)
{
try
{
Sentencia loSentencia = new Sentencia();
int lnIndicadorFiltros = (int)Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.Ninguno;
int lnIndicadorCoincidir = (int)Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidoCoincidir.Ninguno;
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_RANGO_DIAS",
Tipo = DbType.Int32,
Valor = pnRangoDias
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_ESTADO",
Tipo = DbType.String,
Valor = psEstados
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_CVE_MARCA",
Tipo = DbType.String,
Valor = psMarcas
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = pnSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_INDICADOR",
Tipo = DbType.Int32,
Valor = lnIndicadorFiltros
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSO_CVE1",
Tipo = DbType.String,
Valor = psClientes
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSO_CVE2",
Tipo = DbType.String,
Valor = psLineas
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSO_CVE3",
Tipo = DbType.String,
Valor = psArticulos
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_COINCIDIR",
Tipo = DbType.Int32,
Valor = lnIndicadorCoincidir
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_MONITOREO.PROC_MONITOREO_PEDIDOS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
Planificador loPlanificador = new Planificador();
#region Definir filtros
if (psClientes.Length > 0)
{
lnIndicadorFiltros = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.SoloCliente;
}
if (psLineas.Length > 0)
{
lnIndicadorFiltros = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.SoloLinea;
}
if (psClientes.Length > 0 & psLineas.Length > 0)
{
lnIndicadorFiltros = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.LineaCliente;
}
if (psArticulos.Length > 0 & psLineas.Length > 0)
{
lnIndicadorFiltros = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.LineaArticulo;
}
if (psClientes.Length > 0 & psLineas.Length > 0 & psArticulos.Length > 0)
{
lnIndicadorFiltros = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidos.Ambos;
}
if (poCoincidirEstados)
{
lnIndicadorCoincidir = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidoCoincidir.SoloEstado;
}
if (poCoincidirClientes)
{
lnIndicadorCoincidir = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidoCoincidir.SoloCliente;
}
if (poCoincidirClientes & poCoincidirEstados)
{
lnIndicadorCoincidir = (int)Dapesa.Ventas.Pedidos.Comun.Definiciones.FiltroMonitoreoPedidoCoincidir.Ambos;
}
loSentencia.Parametros[5].Valor = lnIndicadorFiltros;
loSentencia.Parametros[9].Valor = lnIndicadorCoincidir;
#endregion
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
return(loResultado);
}
catch (Exception ex)
{
throw new Dapesa.Comun.Informes.Comun.Excepcion(ex.Message, ex);
}
}
//agregado
internal DataTable ObtenerVentasPorDias(Sesion poSesion, DateTime poFechaInicial, DateTime poFechaFinal, int piCantidadDias, string psClaveSucursal, string psClaveVendedor, string psClavesComodines, bool pbMostrarClienteEliminado, bool pbMostrarClienteCeroPedidos)
{
try
{
Sentencia loSentencia = new Sentencia();
int lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.Ninguno;
loSentencia.Parametros = new List <Parametro>()
{
#region Parametros
new Parametro()
{
Direccion = ParameterDirection.Output,
Nombre = "PCO_CURSOR",
Tipo = DbType.Object
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_INICIO",
Tipo = DbType.String,
Valor = poFechaInicial.ToString("dd/MM/yyyy")
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PDI_FECHA_FIN",
Tipo = DbType.String,
Valor = poFechaFinal.ToString("dd/MM/yyyy")
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CANTIDAD_DIAS",
Tipo = DbType.Int32,
Valor = piCantidadDias
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_SUCURSAL",
Tipo = DbType.Int32,
Valor = psClaveSucursal
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE_INDICADOR",
Tipo = DbType.Int32,
Valor = lnIndicadorFiltros
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PNI_CVE1",
Tipo = DbType.Int32,
Valor = int.Parse(psClaveVendedor)
},
new Parametro()
{
Direccion = ParameterDirection.Input,
Nombre = "PSO_CVE2",
Tipo = DbType.String,
Valor = psClavesComodines
}
#endregion
};
loSentencia.TextoComando = "PKG_DAP_INFORMES_VENTAS.PROC_REP_DIAS_CON_PEDIDOS";
loSentencia.Tipo = AccesoDatos.Comun.Definiciones.TipoSentencia.Query;
loSentencia.TipoComando = CommandType.StoredProcedure;
loSentencia.TipoManejadorTransaccion = AccesoDatos.Comun.Definiciones.TipoManejadorTransaccion.NoTransaccion;
loSentencia.TipoResultado = AccesoDatos.Comun.Definiciones.TipoResultado.Conjunto;
#region Definir filtros del reporte
if (!string.IsNullOrEmpty(psClaveVendedor) && psClaveVendedor != "0")
{
lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.Ambos;
//if (!string.IsNullOrEmpty(psClaveCliente))
//{
// lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.Ambos;
//}
}
else
{
//if (!string.IsNullOrEmpty(psClaveCliente))
//{
// lnIndicadorFiltros = (int)Informes.Comun.Definiciones.TipoFiltrosReporteVentasPorDias.SoloCliente;
//}
}
loSentencia.Parametros[5].Valor = lnIndicadorFiltros;
#endregion
Planificador loPlanificador = new Planificador();
DataTable loResultado = (DataTable)loPlanificador.Servir(poSesion.Conexion, new List <Sentencia>()
{
loSentencia
});
DataTable dtAuxiliar = loResultado.Clone();
if (!pbMostrarClienteEliminado && !pbMostrarClienteCeroPedidos)
{
DataRow[] loQueryGesClave = loResultado.Select("(GES_CLAVE < 1000 OR GES_CLAVE>2000) AND TDIAS > 0");
foreach (DataRow loFila in loQueryGesClave)
{
dtAuxiliar.Rows.Add(loFila[0], loFila[1], loFila[2], loFila[3], loFila[4], loFila[5], loFila[6], loFila[7]);
}
loResultado.Rows.Clear();
loResultado.Merge(dtAuxiliar);
}
if (!pbMostrarClienteEliminado && pbMostrarClienteCeroPedidos)
{
DataRow[] loQueryGesClave = loResultado.Select("(GES_CLAVE < 1000 OR GES_CLAVE>2000)");
foreach (DataRow loFila in loQueryGesClave)
{
dtAuxiliar.Rows.Add(loFila[0], loFila[1], loFila[2], loFila[3], loFila[4], loFila[5], loFila[6], loFila[7]);
}
loResultado.Rows.Clear();
loResultado.Merge(dtAuxiliar);
}
if (pbMostrarClienteEliminado && !pbMostrarClienteCeroPedidos)
{
DataRow[] loQueryGesClave = loResultado.Select("TDIAS > 0");
foreach (DataRow loFila in loQueryGesClave)
{
dtAuxiliar.Rows.Add(loFila[0], loFila[1], loFila[2], loFila[3], loFila[4], loFila[5], loFila[6], loFila[7]);
}
loResultado.Rows.Clear();
loResultado.Merge(dtAuxiliar);
}
return(loResultado);
}
catch (Exception ex)
{
throw new Informes.Comun.Excepcion(ex.Message, ex);
}
}
