public override string gravarRegistro()
{
if (pDados.validarCampoObrigatorio())
{
return(TCN_LanCMP_Requisicao.Grava_LanCMP_Requisicao((BS_LanCMP_Requisicao.Current as TRegistro_LanCMP_Requisicao), null));
}
else
{
return("");
}
}
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!");
}
}
private void bb_ReprovarCotacao_Click(object sender, EventArgs e)
{
//LancaOrdemCompra("C");
if ((BS_Cotacao.Current as TRegistro_LanCotacao).ID_Cotacao > 0M &&
(BS_Requisicoes.Current as TRegistro_LanCMP_Requisicao).ID_Requisicao > 0M)
{
(BS_Requisicoes.Current as TRegistro_LanCMP_Requisicao).ST_Requisicao = "RE";
(BS_Cotacao.Current as TRegistro_LanCotacao).ST_Cotacao = "RF";
//GRAVA A ALTERAÇÃO DO STATUS
TCN_LanCMP_Requisicao.Grava_LanCMP_Requisicao((BS_Requisicoes.Current as TRegistro_LanCMP_Requisicao), null);
TCN_LanCotacao.Grava_LanCotacao((BS_Cotacao.Current as TRegistro_LanCotacao), null);
buscarRegistros();
}
}
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\" !");
}
}
