コード例 #1
0
 public override void afterBusca()
 {
     base.afterBusca();
     this.modoBotoes(this.vTP_Modo, true, false, false, false, false, true, false);
     habilitarControls(true);
     CD_Clifor_Aprovador.Clear();
     DS_Clifor_Aprovador.Clear();
     QTD_Aprovada.Value = 0;
 }
コード例 #2
0
 public override void afterNovo()
 {
     base.afterNovo();
     this.modoBotoes(this.vTP_Modo, true, false, false, false, false, true, false);
     BS_Requisicao.Clear();
     pd_Filtrar.LimparRegistro();
     CD_Clifor_Aprovador.Clear();
     DS_Clifor_Aprovador.Clear();
     QTD_Aprovada.Value = 0;
 }
コード例 #3
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\" !");
            }
        }