public bool Eliminar(ModeloComponentes.Componente c)
{
bool rtn = false;
string sql = "delete from F_AC_COMPONENTE WHERE PK_COD_COMPONENTE = :PK_COD_COMPONENTE";
Pista p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" DelCmp PkComponente={0},NOMBRE_COMPONENTE={1},CODIGO_COMPONENTE={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
OracleCommand cmd = CrearCommand(sql);
cmd.Parameters.Add("PK_COD_COMPONENTE", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
if (Actualizar(cmd))
{
rtn = true;
}
return(rtn);
}
public bool InsertarNodo(ModeloComponentes.Componente c, long pkCodNodo, long TipoRelacion)
{
bool rtn = false;
string sql = @" INSERT
INTO F_AC_RCOMPONENTE_NODO
(
PK_COD_COMPONENTE,
PK_COD_NODO,
D_COD_TIPO_RELACION,
FECHA_INGRESO )
VALUES
(
:PK_COD_COMPONENTE,
:PK_COD_NODO,
:D_COD_TIPO_RELACION,
:FECHA_INGRESO
)";
string campo = string.Empty;
if (TipoRelacion == 3602) // origen
{
campo = "PK_COD_NODO_ORIGEN";
}
else
{
campo = "PK_COD_NODO_DESTINO";
}
string sql2 = string.Format(" update F_AC_COMPONENTE SET {0} = :ppknodo WHERE PK_COD_COMPONENTE = :PPK_COD_COMPONENTE and FECHA_INGRESO =:PFECHA_INGRESO", campo);
OracleCommand cmd = CrearCommand(sql);
cmd.Parameters.Add("PK_COD_COMPONENTE", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
cmd.Parameters.Add("PK_COD_NODO", OracleDbType.Long, pkCodNodo, ParameterDirection.Input);
cmd.Parameters.Add("D_COD_TIPO_RELACION", OracleDbType.Long, TipoRelacion, ParameterDirection.Input);
cmd.Parameters.Add("FECHA_INGRESO", OracleDbType.Date, c.FechaIngreso, ParameterDirection.Input);
if (Actualizar(cmd))
{
OracleCommand cmd2 = CrearCommand(sql2);
cmd2.Parameters.Add("PPK_COD_COMPONENTE", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
cmd2.Parameters.Add("ppknodo", OracleDbType.Long, pkCodNodo, ParameterDirection.Input);
cmd2.Parameters.Add("PFECHA_INGRESO", OracleDbType.Date, c.FechaIngreso, ParameterDirection.Input);
if (Actualizar(cmd2))
{
rtn = true;
}
}
return(rtn);
}
public bool Eliminar(ModeloComponentes.Componente c)
{
bool rtn = false;
string sql = "delete from F_AC_NODO WHERE PK_COD_NODO = :PK_COD_NODO";
OracleCommand cmd = null;
cmd = CrearCommand();
cmd.CommandText = sql;
cmd.Parameters.Add("PK_COD_NODO", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
Pista p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" DelNodo PkCodNodo={0},SiglaNodo={1},NombreNodo={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
if (Actualizar(cmd))
{
rtn = true;
}
return(rtn);
}
private void tsEliminar_Click(object sender, EventArgs e)
{
DataGridViewRow row = _dgvDatos.SelectedRows[0];
ModeloComponentes.Componente Componente = new ModeloComponentes.Componente(row);
if (System.Windows.Forms.DialogResult.Yes == MessageBox.Show("¿Desea eliminar el componente: " + Componente.ToString() + "?", "Eliminar Componente", MessageBoxButtons.YesNo))
{
if (Componente.DTipoComponente == 0)
{
OraDalComponentes.NodoMgr.Instancia.Eliminar(Componente);
}
else
{
OraDalComponentes.ComponenteMgr.Instancia.Eliminar(Componente);
}
}
CargarDatos();
}
public bool ActualizarNodo(ModeloComponentes.Componente c, long pkCodNodo, long TipoRelacion)
{
bool rtn = false;
Pista p = PistaMgr.Instance.Info("Componente", " ACTUALIZAR: Nombre Componente=" + c.NombreComponente);
c.SecLog = (long)p.PK_SecLog;
string sql = @"
UPDATE
f_ac_rcomponente_nodo
SET
fecha_ingreso = :fecha_ingreso
, fecha_salida = :fecha_salida
, sec_log = :sec_log
WHERE
pk_cod_componente = :pk_cod_componente
AND pk_cod_nodo = :pk_cod_nodo
AND d_cod_tipo_relacion = :d_cod_tipo_relacion
";
OracleCommand cmd = CrearCommand(sql);
cmd.Parameters.Add("PK_COD_COMPONENTE", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
cmd.Parameters.Add("PK_COD_NODO", OracleDbType.Long, pkCodNodo, ParameterDirection.Input);
cmd.Parameters.Add("D_COD_TIPO_RELACION", OracleDbType.Long, TipoRelacion, ParameterDirection.Input);
cmd.Parameters.Add("FECHA_INGRESO", OracleDbType.Date, c.FechaIngreso, ParameterDirection.Input);
if (c.TieneFechaSalida)
{
cmd.Parameters.Add("FECHA_SALIDA", OracleDbType.Date, c.FechaSalida, ParameterDirection.Input);
}
else
{
cmd.Parameters.Add("FECHA_SALIDA", OracleDbType.Date, DBNull.Value, ParameterDirection.Input);
}
cmd.Parameters.Add("SEC_LOG", OracleDbType.Long, c.SecLog, ParameterDirection.Input);
rtn = Actualizar(cmd);
return(rtn);
}
public long Guardar(ModeloComponentes.Componente c)
{
long idComponente = -1;
OracleCommand cmd = null;
string sql = string.Empty;
string sqlNodoOrigen = string.Empty;
string sqlNodoDestino = string.Empty;
Pista p = null;
if (c.EsNuevo)
{
idComponente = GetPkCodComponente();
c.PkCodComponente = idComponente;
if (c.TieneFechaSalida)
{
sql = @" INSERT
INTO F_AC_COMPONENTE
(PK_COD_COMPONENTE,
NOMBRE_COMPONENTE,
DESCRIPCION_COMPONENTE,
FECHA_INGRESO,
FECHA_SALIDA,
PROPIETARIO,
CODIGO_COMPONENTE,
D_TIPO_COMPONENTE,
SEC_LOG,
D_COD_ESTADO
)
VALUES
(:PK_COD_COMPONENTE,
:NOMBRE_COMPONENTE,
:DESCRIPCION_COMPONENTE,
:FECHA_INGRESO,
:FECHA_SALIDA,
:PROPIETARIO,
:CODIGO_COMPONENTE,
:D_TIPO_COMPONENTE,
:SEC_LOG
,'VI'
)";
}
else
{
sql = @" INSERT
INTO F_AC_COMPONENTE
(PK_COD_COMPONENTE,
NOMBRE_COMPONENTE,
DESCRIPCION_COMPONENTE,
FECHA_INGRESO,
PROPIETARIO,
CODIGO_COMPONENTE,
D_TIPO_COMPONENTE,
SEC_LOG,
D_COD_ESTADO
)
VALUES
(:PK_COD_COMPONENTE,
:NOMBRE_COMPONENTE,
:DESCRIPCION_COMPONENTE,
:FECHA_INGRESO,
:PROPIETARIO,
:CODIGO_COMPONENTE,
:D_TIPO_COMPONENTE,
:SEC_LOG,
'VI'
)";
}
p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" Insert PkComponente={0},NOMBRE_COMPONENTE={1},CODIGO_COMPONENTE={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
}
else
{
if (c.TieneFechaSalida)
{
sql = @" UPDATE F_AC_COMPONENTE
SET NOMBRE_COMPONENTE = :NOMBRE_COMPONENTE ,
DESCRIPCION_COMPONENTE = :DESCRIPCION_COMPONENTE ,
FECHA_INGRESO = :FECHA_INGRESO ,
FECHA_SALIDA = :FECHA_SALIDA ,
PROPIETARIO = :PROPIETARIO ,
CODIGO_COMPONENTE = :CODIGO_COMPONENTE ,
D_TIPO_COMPONENTE =:D_TIPO_COMPONENTE,
SEC_LOG =:SEC_LOG
WHERE PK_COD_COMPONENTE = :PK_COD_COMPONENTE";
}
else
{
sql = @" UPDATE F_AC_COMPONENTE
SET NOMBRE_COMPONENTE = :NOMBRE_COMPONENTE ,
DESCRIPCION_COMPONENTE = :DESCRIPCION_COMPONENTE ,
FECHA_INGRESO = :FECHA_INGRESO ,
PROPIETARIO = :PROPIETARIO ,
CODIGO_COMPONENTE = :CODIGO_COMPONENTE ,
D_TIPO_COMPONENTE = :D_TIPO_COMPONENTE,
SEC_LOG =:SEC_LOG,
fecha_salida=null
WHERE PK_COD_COMPONENTE = :PK_COD_COMPONENTE";
}
p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" Update PkComponente={0},NOMBRE_COMPONENTE={1},CODIGO_COMPONENTE={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
}
cmd = CrearCommand(sql);
long SecLog = (long)p.PK_SecLog;
cmd.Parameters.Add("PK_COD_COMPONENTE", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
cmd.Parameters.Add("NOMBRE_COMPONENTE", OracleDbType.Varchar2, c.NombreComponente, ParameterDirection.Input);
cmd.Parameters.Add("DESCRIPCION_COMPONENTE", OracleDbType.Varchar2, c.Descripcion, ParameterDirection.Input);
cmd.Parameters.Add("FECHA_INGRESO", OracleDbType.Date, c.FechaIngreso, ParameterDirection.Input);
cmd.Parameters.Add("PROPIETARIO", OracleDbType.Long, c.Propietario, ParameterDirection.Input);
cmd.Parameters.Add("CODIGO_COMPONENTE", OracleDbType.Varchar2, c.CodigoComponente, ParameterDirection.Input);
cmd.Parameters.Add("D_TIPO_COMPONENTE", OracleDbType.Long, c.DTipoComponente, ParameterDirection.Input);
cmd.Parameters.Add("SEC_LOG", OracleDbType.Int64, SecLog, ParameterDirection.Input);
if (c.TieneFechaSalida)
{
cmd.Parameters.Add("FECHA_SALIDA", OracleDbType.Date, c.FechaSalida, ParameterDirection.Input);
}
if (Actualizar(cmd))
{
c.EsNuevo = false;
idComponente = (long)c.PkCodComponente;
}
return(idComponente);
}
public long Guardar(ModeloComponentes.Componente c)
{
long idComponente = -1;
OracleCommand cmd = null;
string sql = string.Empty;
string sqlNodoOrigen = string.Empty;
string sqlNodoDestino = string.Empty;
Pista p = null;
if (c.EsNuevo)
{
idComponente = GetPkCodNodo();
c.PkCodComponente = idComponente;
if (c.TieneFechaSalida)
{
sql = @" INSERT
INTO F_AC_NODO
(
PK_COD_NODO,
SIGLA_NODO,
NOMBRE_NODO,
DESCRIPCION_NODO,
FECHA_INGRESO,
FECHA_SALIDA,
SEC_LOG
)
VALUES
(
:PK_COD_NODO,
:SIGLA_NODO,
:NOMBRE_NODO,
:DESCRIPCION_NODO,
:FECHA_INGRESO,
:FECHA_SALIDA,
:SEC_LOG
)";
}
else
{
sql = @" INSERT
INTO F_AC_NODO
(
PK_COD_NODO,
SIGLA_NODO,
NOMBRE_NODO,
DESCRIPCION_NODO,
FECHA_INGRESO,
SEC_LOG,
FECHA_SALIDA
)
VALUES
(
:PK_COD_NODO,
:SIGLA_NODO,
:NOMBRE_NODO,
:DESCRIPCION_NODO,
:FECHA_INGRESO,
:SEC_LOG,
NULL
)";
}
p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" Insert PkCodNodo={0},SiglaNodo={1},NombreNodo={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
}
else
{
if (c.TieneFechaSalida)
{
sql = @" UPDATE F_AC_NODO
SET SIGLA_NODO =:SIGLA_NODO ,
NOMBRE_NODO=:NOMBRE_NODO,
DESCRIPCION_NODO=:DESCRIPCION_NODO,
FECHA_INGRESO=:FECHA_INGRESO,
FECHA_SALIDA=:FECHA_SALIDA,
SEC_LOG =:SEC_LOG
WHERE PK_COD_NODO = :PK_COD_NODO";
}
else
{
sql = @" UPDATE F_AC_NODO
SET SIGLA_NODO =:SIGLA_NODO ,
NOMBRE_NODO=:NOMBRE_NODO,
DESCRIPCION_NODO=:DESCRIPCION_NODO,
FECHA_INGRESO=:FECHA_INGRESO,
SEC_LOG =:SEC_LOG ,
FECHA_SALIDA= NULL
WHERE PK_COD_NODO = :PK_COD_NODO";
}
p = PistaMgr.Instance.Info("OraDAlComponentes", string.Format(" Update PkCodNodo={0},SiglaNodo={1},NombreNodo={2} ,Descripcion_nodo={3}", c.PkCodComponente, c.CodigoComponente, c.NombreComponente, c.Descripcion));
}
cmd = CrearCommand();
cmd.CommandText = sql;
long SecLog = (long)p.PK_SecLog;
cmd.Parameters.Add("PK_COD_NODO", OracleDbType.Long, c.PkCodComponente, ParameterDirection.Input);
cmd.Parameters.Add("NOMBRE_NODO", OracleDbType.Varchar2, c.CodigoComponente, ParameterDirection.Input);
cmd.Parameters.Add("DESCRIPCION_NODO", OracleDbType.Varchar2, c.Descripcion, ParameterDirection.Input);
cmd.Parameters.Add("FECHA_INGRESO", OracleDbType.Date, c.FechaIngreso, ParameterDirection.Input);
cmd.Parameters.Add("SIGLA_NODO", OracleDbType.Varchar2, c.NombreComponente, ParameterDirection.Input);
cmd.Parameters.Add("SEC_LOG", OracleDbType.Int64, SecLog, ParameterDirection.Input);
if (c.TieneFechaSalida)
{
cmd.Parameters.Add("FECHA_SALIDA", OracleDbType.Date, c.FechaSalida, ParameterDirection.Input);
}
cmd.BindByName = true;
if (Actualizar(cmd))
{
c.EsNuevo = false;
idComponente = (long)c.PkCodComponente;
}
return(idComponente);
}
