Пример #1
0
 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("");
     }
 }
Пример #2
0
        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!");
            }
        }
Пример #3
0
        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();
            }
        }
Пример #4
0
        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\" !");
            }
        }