Пример #1
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM ProvDescFunc WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #2
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM LancFinanceiro WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #3
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM AGENDAVISITA WHERE ID_LANC=" + IdLanc.ToString().Trim());
     }
 }
Пример #4
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM PagamentoMFE WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #5
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM MvCaixaBalcao WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #6
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM GradeComodatoVinc WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #7
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM MOVCHEQUEPRE WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #8
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM REGCOBRANCA WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #9
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM MAPAENTREGAITENS WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #10
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM MapaProducaoItens WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #11
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM CUPOMFISCAL WHERE Id_LANC=" + IdLanc.ToString().Trim());
     }
 }
Пример #12
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM PremiacaoMesAno WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #13
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM CONTROLEINSTALACAO WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #14
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM ComissaoPrdCliente  WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #15
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM CotaGrupoPrdVendedor WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #16
0
 public void AtualizaQtdeVd(string Op, decimal Qtde)
 {
     if (IdLanc > 0)
     {
         if (Op == "I")
         {
             Controle.ExecutaSQL("UPDATE PROMOCOES SET QTDEVENDA=QTDEVENDA + " + Controle.FloatToStr(Qtde) + " WHERE Id_Lanc=" + IdLanc.ToString().Trim());
         }
         else
         {
             Controle.ExecutaSQL("UPDATE PROMOCOES SET QTDEVENDA=QTDEVENDA - " + Controle.FloatToStr(Qtde) + " WHERE Id_Lanc=" + IdLanc.ToString().Trim());
         }
     }
 }
Пример #17
0
        public void Cancelar()
        {
            string sSQL = "UPDATE CONTROLEINSTALACAO Set Status=2,DtConcluido=Null Where Id_Lanc=" + IdLanc.ToString();

            Controle.ExecutaSQL(sSQL);
            Status = 2;
        }
Пример #18
0
        public void Concluir()
        {
            string sSQL = "UPDATE CONTROLEINSTALACAO Set Status=1,DtConcluido=Convert(DateTime,'" + DateTime.Now.Date.ToShortDateString() + "',103) Where Id_Lanc=" + IdLanc.ToString();

            Controle.ExecutaSQL(sSQL);
            Status = 1;
        }
Пример #19
0
 public void Excluir()
 {
     if (IdLanc > 0)
     {
         Controle.ExecutaSQL("DELETE FROM  FECHAMENTOCXBALCAO WHERE Id_Lanc=" + IdLanc.ToString().Trim());
     }
 }
Пример #20
0
 public void CancelarBaixa()
 {
     if (IdLanc > 0)
     {
         string sSQL = "UPDATE LancFinanceiro Set Id_UsuBaixa=0,Status=0,DtBaixa=Null,VlrJuro=0,VlrMulta=0,VlrDesconto=0,VlrBaixa=0 Where Id_Lanc=" + IdLanc.ToString();
         Controle.ExecutaSQL(sSQL);
         // Estorno no Movimento do Livro Caixa
         SqlDataReader Tabela;
         Tabela = Controle.ConsultaSQL("SELECT * FROM MvContaCaixa WHERE Id_LancOrig=" + IdLanc.ToString().Trim());
         if (Tabela.HasRows)
         {
             MvContaCaixa MvContaCx = new MvContaCaixa();
             MvContaCx.Controle    = Controle;
             MvContaCx.IdLanc      = 0;
             MvContaCx.IdCaixa     = IdCaixa;
             MvContaCx.IdAgente    = IdAgente;
             MvContaCx.Data        = DtBaixa;
             MvContaCx.IdDocumento = IdTipoDocumento;
             MvContaCx.IdPessoa    = IdPessoa;
             MvContaCx.Descricao   = "ESTORNO <-> " + "Doc:" + NumDoc.Trim();
             MvContaCx.IdLancOrig  = IdLanc;
             MvContaCx.IdUsuario   = IdUsuBaixa;
             MvContaCx.Valor       = VlrBaixa;
             MvContaCx.Observacao  = Referente;
             if (PagRec == 1)
             {
                 MvContaCx.TpLanc = 2;
             }
             else
             {
                 MvContaCx.TpLanc = 1;
             }
             MvContaCx.GravarDados();
             MvContaCx.Estorno();
         }
         //--------------------------------------------
         Status      = 0;
         VlrMulta    = 0;
         VlrJuro     = 0;
         VlrDesconto = 0;
         VlrBaixa    = 0;
     }
 }
Пример #21
0
        public void Baixar()
        {
            if (IdLanc > 0)
            {
                ArrayList Nm_param = new ArrayList();
                ArrayList Vr_param = new ArrayList();
                string    sSQL     = "UPDATE LancFinanceiro Set Id_Caixa=@IdCaixa,Id_TipoDocumento=@IdTipoDoc,Id_UsuBaixa=@IdUsuBaixa,Status=1,DtBaixa=Convert(DateTime,@Dt,103),VlrJuro=@VlrJuro,VlrMulta=@VlrMulta,VlrDesconto=@VlrDesc,VlrBaixa=@VlrBaixa Where Id_Lanc=" + IdLanc.ToString();
                Nm_param.Add("@Dt");         Vr_param.Add(DtBaixa.ToShortDateString());
                Nm_param.Add("@VlrJuro");    Vr_param.Add(Controle.FloatToStr(VlrJuro, 2));
                Nm_param.Add("@VlrMulta");   Vr_param.Add(Controle.FloatToStr(VlrMulta, 2));
                Nm_param.Add("@VlrDesc");    Vr_param.Add(Controle.FloatToStr(VlrDesconto, 2));
                Nm_param.Add("@VlrBaixa");   Vr_param.Add(Controle.FloatToStr(VlrBaixa, 2));
                Nm_param.Add("@IdUsuBaixa"); Vr_param.Add(IdUsuBaixa);
                Nm_param.Add("@IdCaixa");    Vr_param.Add(IdCaixa);
                Nm_param.Add("@IdTipoDoc");  Vr_param.Add(IdTipoDocumento);
                Controle.ExecutaSQL(sSQL, Nm_param, Vr_param);
                Status = 1;

                // Lançamento no Movimento do Livro Caixa
                if (IdCaixa > 0 && IdTipoDocumento > 0)
                {
                    MvContaCaixa MvContaCx = new MvContaCaixa();
                    MvContaCx.Controle    = Controle;
                    MvContaCx.IdLanc      = 0;
                    MvContaCx.IdCaixa     = IdCaixa;
                    MvContaCx.IdAgente    = IdAgente;
                    MvContaCx.Data        = DtBaixa;
                    MvContaCx.IdDocumento = IdTipoDocumento;
                    MvContaCx.IdPessoa    = IdPessoa;
                    MvContaCx.Descricao   = "Doc:" + NumDoc.Trim();
                    MvContaCx.IdLancOrig  = IdLanc;
                    MvContaCx.IdUsuario   = IdUsuBaixa;
                    MvContaCx.Valor       = VlrBaixa;
                    MvContaCx.Observacao  = Referente;

                    if (PagRec == 1)
                    {
                        MvContaCx.TpLanc = 1;
                    }
                    else
                    {
                        MvContaCx.TpLanc = 2;
                    }
                    MvContaCx.GravarDados();
                    MvContaCx.Atlz_SaldoContaCaixa(MvContaCx.TpLanc, IdCaixa, IdTipoDocumento, DtBaixa, VlrBaixa);
                }
            }
        }