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);
}
}
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);
}
}
