public bool salvar()
{
String SQL;
if (alterado)
{
ADODB.Recordset RSDados = new ADODB.Recordset();
RSDados.CursorLocation = ADODB.CursorLocationEnum.adUseClient;
RSDados.LockType = ADODB.LockTypeEnum.adLockOptimistic;
RSDados.CursorType = ADODB.CursorTypeEnum.adOpenKeyset;
if (cod != 0)
{
SQL = "SELECT Duplicatas.* FROM Duplicatas WHERE (((Duplicatas.Código)=" + cod + "));";
}
else
{
SQL = "SELECT Duplicatas.* FROM Duplicatas;";
}
RSDados.Open(SQL, new Conexao().getContas());
if (cod == 0)
{
RSDados.AddNew();
}
RSDados.Fields["data"].Value = Vencimento.ToShortDateString();
RSDados.Fields["Origem"].Value = Origem;
RSDados.Fields["informação"].Value = Informacao;
RSDados.Fields["complemento"].Value = Complemento;
RSDados.Fields["Valor"].Value = Valor;
RSDados.Fields["Pago"].Value = Pago;
RSDados.Fields["Classificação"].Value = Classificacao;
RSDados.Fields["DataNota"].Value = DataNota.ToShortDateString();
RSDados.Fields["Empresa"].Value = Empresa;
RSDados.Update();
if (cod == 0)
{
cod = Convert.ToInt32(RSDados.Fields["cod"].Value);
}
RSDados.Close();
return(true);
}
return(false);
}
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);
}
}