internal void Criar(Sumario_Procedimento v_oSumario_Procedimento)
{
try
{
sbSQL.Length = 0;
sbSQL.Append("INSERT INTO TBINT063(");
sbSQL.Append("IDINT058,");
sbSQL.Append("DSPRC,");
sbSQL.Append("DTPRC");
sbSQL.Append(") VALUES (");
sbSQL.Append(":IDINT058,");
sbSQL.Append(":DSPRC,");
sbSQL.Append(":DTPRC");
sbSQL.Append(")");
sbSQL = TratarSQLParametroBanco(sbSQL.ToString());
oCmd = ObterCommand(sbSQL.ToString());
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("IDINT058").ToString(), Convert.ToInt32(UtSessao.Sessao["Id058"]));
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("DSPRC").ToString(), v_oSumario_Procedimento.nome);
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("DTPRC").ToString(), v_oSumario_Procedimento.dtprc);
oCmd.ExecuteNonQuery();
v_oSumario_Procedimento.Codigo = ObterNovoCodigo(oCmd, "SEQTBINT063");
oCmd.Dispose();
}
catch (Exception en)
{
throw new Dor.Util.OperacaoInvalidaBD(en);
}
}
internal void Salvar(Sumario_Procedimento v_oSumario_Procedimento)
{
try
{
sbSQL.Length = 0;
sbSQL.Append(" UPDATE TBINT063 SET IDINT058 =:IDINT058, DSPRC =:DSPRC, DTPRC =:DTPRC");
sbSQL.Append(" WHERE IDINT063 =:IDINT063");
sbSQL = TratarSQLParametroBanco(sbSQL.ToString());
oCmd = ObterCommand(sbSQL.ToString());
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("IDINT058").ToString(), Convert.ToInt32(UtSessao.Sessao["Id058"]));
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("DSPRC").ToString(), v_oSumario_Procedimento.nome);
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("DTPRC").ToString(), v_oSumario_Procedimento.dtprc);
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("IDINT063").ToString(), v_oSumario_Procedimento.Codigo);
oCmd.ExecuteNonQuery();
oCmd.Dispose();
}
catch (Exception en)
{
throw new Dor.Util.OperacaoInvalidaBD(en);
}
}
internal void Obter(Sumario_Procedimento v_oSumario_Procedimento, long v_iCodigo)
{
try
{
sbSQL.Length = 0;
sbSQL.Append(" SELECT IDINT063, IDINT058, DSPRC, DTPRC");
sbSQL.Append(" FROM TBINT063");
sbSQL.Append(" WHERE IDINT063 =:IDINT063");
sbSQL = TratarSQLParametroBanco(sbSQL.ToString());
oCmd = ObterCommand(sbSQL.ToString());
UtDbNet.AdicionarParametro(oCmd, TratarSQLParametroBanco("IDINT063").ToString(), v_iCodigo);
oReader = oCmd.ExecuteReader();
if (oReader.Read())
{
v_oSumario_Procedimento.Codigo = UtDbNet.CampoLongo(oReader["IDINT063"]);
v_oSumario_Procedimento.idint058 = UtDbNet.CampoLongo(oReader["IDINT058"]);
v_oSumario_Procedimento.nome = UtDbNet.CampoLiteral(oReader["DSPRC"]);
v_oSumario_Procedimento.dtprc = UtDbNet.CampoData(oReader["DTPRC"]);
}
oReader.Close();
oCmd.Dispose();
}
catch (Exception en)
{
throw new Dor.Util.OperacaoInvalidaBD(en);
}
}
