private void Btn_Reprova_Click(object sender, EventArgs e)
{
if (CD_Clifor_Aprovador.Text != "")
{
if (((BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao == "AA") ||
((BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao == "AP"))
{
TRegistro_LanCMP_Requisicao LanRep = new TRegistro_LanCMP_Requisicao();
LanRep.ID_Requisicao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ID_Requisicao.Value;
LanRep.CD_Empresa = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Empresa;
LanRep.NM_Empresa = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).NM_Empresa;
LanRep.CD_CCusto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_CCusto;
LanRep.DS_CCusto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_CCusto;
LanRep.CD_Clifor_Requisitante = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Requisitante;
LanRep.DS_Clifor_Requisitante = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Requisitante;
LanRep.CD_Clifor_Aprovador = CD_Clifor_Aprovador.Text;
LanRep.DS_Clifor_Aprovador = DS_Clifor_Aprovador.Text;
LanRep.DS_Clifor_Comprador = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Comprador;
LanRep.CD_Clifor_Comprador = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Comprador;
LanRep.CD_Produto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Produto;
LanRep.DS_Produto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Produto;
LanRep.Dt_EntregaSolicitada = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Dt_EntregaSolicitada;
LanRep.Dt_Requisicao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Dt_Requisicao;
LanRep.ST_Prioridade = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Prioridade;
LanRep.TP_Aplicacao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).TP_Aplicacao;
LanRep.Quantidade = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Quantidade;
LanRep.DS_Marca = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Marca;
LanRep.DS_Observacao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Observacao;
LanRep.ST_Requisicao = "RE";
LanRep.QTD_Aprovada = 0;
LanRep.Quantidade = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Quantidade;
TCN_LanCMP_Requisicao.Grava_LanCMP_Requisicao(LanRep, null);
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao = "RE";
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).QTD_Aprovada = 0;
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Aprovador = CD_Clifor_Aprovador.Text;
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Aprovador = DS_Clifor_Aprovador.Text;
BS_Requisicao.ResetCurrentItem();
MessageBox.Show("Requisição Reprovada!");
}
else
{
MessageBox.Show("Status deve estar como \"Aguardando Aprovação\" ou \"Aprovado\" !");
}
}
else
{
MessageBox.Show("Aprovador Deve ser Preenchido!");
}
}
public static string Grava_LanCMP_Requisicao(TRegistro_LanCMP_Requisicao val, BancoDados.TObjetoBanco banco)
{
bool pode_comitar = false;
TCD_LanCMP_Requisicao cd = new TCD_LanCMP_Requisicao();
try
{
if (banco == null)
{
cd.CriarBanco_Dados(true);
pode_comitar = true;
}
else
{
cd.Banco_Dados = banco;
}
//Grava requisicao
string retreq = cd.Grava(val);
for (int x = 0; x < val.lDetalheRequisicao.Count; x++)
{
val.lDetalheRequisicao[x].Id_Requisicao = Convert.ToDecimal(Querys.TDataQuery.getPubVariavel(retreq, "@P_ID_REQUISICAO"));
TCN_LanDetalheRequisicao.Grava_LanDetalheRequisicao(val.lDetalheRequisicao[x], cd.Banco_Dados);
}
if (pode_comitar)
{
cd.Banco_Dados.Commit_Tran();
}
return(retreq);
}
catch (System.Data.SqlClient.SqlException ex)
{
if (pode_comitar)
{
cd.Banco_Dados.RollBack_Tran();
}
else
{
throw new Exception(ex.Message);
}
return("");
}
finally
{
if (pode_comitar)
{
cd.deletarBanco_Dados();
}
}
}
public static void Deleta_LanCMP_Requisicao(TRegistro_LanCMP_Requisicao val)
{
TCD_LanCMP_Requisicao cd = new TCD_LanCMP_Requisicao();
cd.Deleta(val);
}
private void Btn_Aprova_Click(object sender, EventArgs e)
{
if (((BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao == "AA") ||
((BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao == "RE") ||
((BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao == "AP"))
{
if (CD_Clifor_Aprovador.Text != "")
{
if (QTD_Aprovada.Value > 0)
{
if (QTD_Aprovada.Value <= (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Quantidade)
{
{
TRegistro_LanCMP_Requisicao LanAp = new TRegistro_LanCMP_Requisicao();
LanAp.ID_Requisicao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ID_Requisicao.Value;
LanAp.CD_Empresa = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Empresa;
LanAp.NM_Empresa = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).NM_Empresa;
LanAp.CD_CCusto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_CCusto;
LanAp.DS_CCusto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_CCusto;
LanAp.CD_Clifor_Requisitante = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Requisitante;
LanAp.DS_Clifor_Requisitante = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Requisitante;
LanAp.CD_Clifor_Aprovador = CD_Clifor_Aprovador.Text;
LanAp.DS_Clifor_Aprovador = DS_Clifor_Aprovador.Text;
LanAp.DS_Clifor_Comprador = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Comprador;
LanAp.CD_Clifor_Comprador = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Comprador;
LanAp.CD_Produto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Produto;
LanAp.DS_Produto = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Produto;
LanAp.Dt_EntregaSolicitada = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Dt_EntregaSolicitada;
LanAp.Dt_Requisicao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Dt_Requisicao;
LanAp.ST_Prioridade = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Prioridade;
LanAp.TP_Aplicacao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).TP_Aplicacao;
LanAp.Quantidade = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).Quantidade;
LanAp.DS_Marca = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Marca;
LanAp.DS_Observacao = (BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Observacao;
LanAp.ST_Requisicao = "AP";
LanAp.QTD_Aprovada = QTD_Aprovada.Value;
TCN_LanCMP_Requisicao.Grava_LanCMP_Requisicao(LanAp, null);
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao = "AP";
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).QTD_Aprovada = QTD_Aprovada.Value;
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).CD_Clifor_Aprovador = CD_Clifor_Aprovador.Text;
(BS_Requisicao.Current as TRegistro_LanCMP_Requisicao).DS_Clifor_Aprovador = DS_Clifor_Aprovador.Text;
BS_Requisicao.ResetCurrentItem();
MessageBox.Show("Requisição Aprovada Com Sucesso!");
}
}
else
{
MessageBox.Show("Quantidade APROVADA Não Pode Ser Maior que a Quantidade SOLICITADA!");
QTD_Aprovada.Focus();
}
}
else
{
MessageBox.Show("Quantidade Aprovada Não Pode Ser Igual a 0");
QTD_Aprovada.Focus();
}
}
else
{
MessageBox.Show("Campo Aprovador Deve Ser Preenchido!");
CD_Clifor_Aprovador.Focus();
}
}
else
{
MessageBox.Show("O Status deve estar como \"Reprovado\" ou \"Aguardando Aprovação\" !");
}
}
