示例#1
0
        public void GravarDados()
        {
            string    sSQL     = "";
            ArrayList Nm_param = new ArrayList();
            ArrayList Vr_param = new ArrayList();

            if (IdLanc > 0)
            {
                sSQL = "UPDATE MOVCHEQUEPRE SET Id_Lanc=@Id,DataLanc=Convert(DateTime,@DataLanc,103),Id_Pessoa=@IdPessoa,Titular=@Titular,NumBanco=@NumBanco,NumAgencia=@NumAgencia,DocumVenda=@DocumVenda," +
                       "NumConta=@NumConta,NumCheque=@NumCheque,DtVencimento=Convert(DateTime,@DtVencimento,103),Valor=@Valor,Observacao=@Observacao,Status=@Status,Id_PessoaDest=@IdPessoaDest,Id_Filial=@IdFilial,CnpjCPF=@CnpjCpf Where Id_Lanc=@Chave";
                Nm_param.Add("@Chave"); Vr_param.Add(IdLanc);
            }
            else
            {
                IdLanc = Controle.ProximoID("MVCHEQUE");
                sSQL   = "INSERT INTO MOVCHEQUEPRE (Id_Lanc,DataLanc,Id_Pessoa,Titular,NumBanco,NumAgencia,NumConta,NumCheque,DtVencimento,Valor,Observacao,Status,Id_PessoaDest,DocumVenda,Id_Filial,CnpjCpf) " +
                         "VALUES (@Id,Convert(DateTime,@DataLanc,103),@IdPessoa,@Titular,@NumBanco,@NumAgencia,@NumConta,@NumCheque,Convert(DateTime,@DtVencimento,103),@Valor,@Observacao,@Status,@IdPessoaDest,@DocumVenda,@IdFilial,@CnpjCpf)";
            }
            if (sSQL != "")
            {
                Nm_param.Add("@Id"); Vr_param.Add(IdLanc);
                Nm_param.Add("@DataLanc"); Vr_param.Add(DataLanc.ToShortDateString());
                Nm_param.Add("@IdPessoa"); Vr_param.Add(IdPessoa);
                Nm_param.Add("@Titular"); Vr_param.Add(Titular);
                Nm_param.Add("@NumBanco"); Vr_param.Add(NumBanco);
                Nm_param.Add("@NumAgencia"); Vr_param.Add(NumAgencia);
                Nm_param.Add("@NumConta"); Vr_param.Add(NumConta);
                Nm_param.Add("@NumCheque"); Vr_param.Add(NumCheque);
                Nm_param.Add("@DtVencimento"); Vr_param.Add(DtVencimento.ToShortDateString());
                Nm_param.Add("@Valor"); Vr_param.Add(Controle.FloatToStr(Valor, 2));
                Nm_param.Add("@Observacao"); Vr_param.Add(Observacao);
                Nm_param.Add("@Status"); Vr_param.Add(Status);
                Nm_param.Add("@IdPessoaDest"); Vr_param.Add(IdPessoaDest);
                Nm_param.Add("@DocumVenda"); Vr_param.Add(DocumVenda);
                Nm_param.Add("@IdFilial"); Vr_param.Add(IdFilial);
                Nm_param.Add("@CnpjCpf"); Vr_param.Add(CnpjCpf);
                Controle.ExecutaSQL(sSQL, Nm_param, Vr_param);
            }
        }
示例#2
0
        public void GravarDados()
        {
            string    sSQL     = "";
            ArrayList Nm_param = new ArrayList();
            ArrayList Vr_param = new ArrayList();

            if (IdLanc > 0)
            {
                sSQL = "UPDATE LancFinanceiro SET Id_Lanc=@Id,DataLanc=Convert(DateTime,@DataLanc,103),PagRec=@PagRec,Id_Mov=@IdMov,Id_Venda=@IdVenda,Id_Pessoa=@IdPessoa,Id_Filial=@IdFilial," +
                       "Id_TipoDocumento=@IdTipoDocumento,Id_Custo=@IdCusto,Id_Departamento=@IdDepartamento,Id_Vendedor=@IdVendedor,Id_FormaPgto=@IdFormaPgto,Id_Banco=@IdBanco,Id_Caixa=@IdCaixa,NumDocumento=@NumDocumento," +
                       "NotaFiscal=@NotaFiscal,Referente=@Referente,Vencimento=Convert(DateTime,@Vencimento,103),VlrOriginal=@VlrOriginal,VlrAtual=@VlrAtual,Observacao=@Observacao,Status=@Status,Id_LancOrigem=@IdLancOrigem," +
                       "CodBarraBoleto=@CodBarraBoleto,LinhaBoleto=@LinhaBoleto,NossoNumero=@NossoNumero,Id_UsuLanc=@IdUsulanc,Id_Agente=@IdAgente,Id_CaixaPgto=@IdCaixaPgto,IdLancServ=@IdLancServ,Inativa=@Inativa,DocRec=@DocRec," +
                       "DespForn=@DespForn,Perdido=@Perdido,NSU=@NSUCartao,IDPagMFe=@IDPagMFe,IDRespMFe=@IDRespMFE Where Id_Lanc=@Chave";
                Nm_param.Add("@Chave"); Vr_param.Add(IdLanc);
            }
            else
            {
                IdLanc = Controle.ProximoID("Financeiro");
                sSQL   = "INSERT INTO LancFinanceiro (Id_Lanc,DataLanc,PagRec,Id_Mov,Id_Venda,Id_Pessoa,Id_Filial,Id_TipoDocumento,Id_Custo,Id_Departamento,Id_Vendedor,Id_FormaPgto,Id_Banco,Id_Caixa,NumDocumento," +
                         "NotaFiscal,Referente,Vencimento,VlrOriginal,VlrAtual,VlrJuro,VlrMulta,VlrDesconto,VlrBaixa,Observacao,Status,Id_LancOrigem,CodBarraBoleto,LinhaBoleto,NossoNumero,Id_UsuLanc,Id_UsuBaixa," +
                         "Id_Agente,Id_CaixaPgto,IdLancServ,Inativa,DocRec,DespForn,Perdido,NSU,IDPagMFe,IDRespMFe) " +
                         " VALUES (@Id,Convert(DateTime,@DataLanc,103),@PagRec,@IdMov,@IdVenda,@IdPessoa,@IdFilial,@IdTipoDocumento,@IdCusto,@IdDepartamento,@IdVendedor,@IdFormaPgto,@IdBanco,@IdCaixa,@NumDocumento,@NotaFiscal,@Referente," +
                         "Convert(DateTime,@Vencimento,103),@VlrOriginal,@VlrAtual,0,0,0,0,@Observacao,@Status,@IdLancOrigem,@CodBarraBoleto,@LinhaBoleto,@NossoNumero,@IdUsuLanc,0,@IdAgente,@IdCaixaPgto,@IdLancServ,@Inativa,@DocRec,@DespForn,@Perdido,@NSUCartao,@IDPagMFe,@IDRespMFe)";
            }
            if (sSQL != "")
            {
                //if (IdFormaPgto == 8)
                //    DadosBoleto();
                //else
                // {
                CodBarraBoleto = "";
                LinhaDigBoleto = "";
                NossoNumero    = "";
                //}
                Nm_param.Add("@Id");              Vr_param.Add(IdLanc);
                Nm_param.Add("@DataLanc");        Vr_param.Add(DataLanc.ToShortDateString());
                Nm_param.Add("@PagRec");          Vr_param.Add(PagRec);
                Nm_param.Add("@IdMov");           Vr_param.Add(IdMov);
                Nm_param.Add("@IdVenda");         Vr_param.Add(IdVenda);
                Nm_param.Add("@IdPessoa");        Vr_param.Add(IdPessoa);
                Nm_param.Add("@IdFilial");        Vr_param.Add(IdFilial);
                Nm_param.Add("@IdTipoDocumento"); Vr_param.Add(IdTipoDocumento);
                Nm_param.Add("@IdCusto");         Vr_param.Add(IdCusto);
                Nm_param.Add("@IdDepartamento");  Vr_param.Add(IdDepartamento);
                Nm_param.Add("@IdVendedor");      Vr_param.Add(IdVendedor);
                Nm_param.Add("@IdFormaPgto");     Vr_param.Add(IdFormaPgto);
                Nm_param.Add("@IdBanco");         Vr_param.Add(IdBanco);
                Nm_param.Add("@IdCaixa");         Vr_param.Add(IdCaixa);
                Nm_param.Add("@NumDocumento");    Vr_param.Add(NumDoc);
                Nm_param.Add("@NotaFiscal");      Vr_param.Add(NotaFiscal);
                Nm_param.Add("@Referente");       Vr_param.Add(Referente);
                Nm_param.Add("@Vencimento");      Vr_param.Add(Vencimento.ToShortDateString());
                Nm_param.Add("@VlrOriginal");     Vr_param.Add(Controle.FloatToStr(VlrOriginal, 2));
                Nm_param.Add("@VlrAtual");        Vr_param.Add(Controle.FloatToStr(VlrAtual, 2));
                Nm_param.Add("@Observacao");      Vr_param.Add(Observacao);
                Nm_param.Add("@Status");          Vr_param.Add(Status);
                Nm_param.Add("@IdLancOrigem");    Vr_param.Add(IdLancOrigem);
                Nm_param.Add("@CodBarraBoleto");  Vr_param.Add(CodBarraBoleto);
                Nm_param.Add("@LinhaBoleto");     Vr_param.Add(LinhaDigBoleto);
                Nm_param.Add("@NossoNUmero");     Vr_param.Add(NossoNumero);
                Nm_param.Add("@IdUsuLanc");       Vr_param.Add(IdUsuLanc);
                Nm_param.Add("@IdAgente");        Vr_param.Add(IdAgente);
                Nm_param.Add("@IdCaixaPgto");     Vr_param.Add(IdCaixaPgto);
                Nm_param.Add("@IdLancServ");      Vr_param.Add(IdLancServ);
                Nm_param.Add("@Inativa");         Vr_param.Add(Inativa);
                Nm_param.Add("@DocRec");          Vr_param.Add(DocRec);
                Nm_param.Add("@DespForn");        Vr_param.Add(DespForn);
                Nm_param.Add("@Perdido");         Vr_param.Add(Perdido);
                Nm_param.Add("@NSUCartao");       Vr_param.Add(NSUCartao);
                Nm_param.Add("@IDPagMFe");        Vr_param.Add(IDPagMFe);
                Nm_param.Add("@IDRespMFe");       Vr_param.Add(IDRespMFe);
                Controle.ExecutaSQL(sSQL, Nm_param, Vr_param);
            }
        }