Esempio n. 1
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);
                }
            }
        }
Esempio n. 2
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;
     }
 }