private void FrmFechaMovimento_Shown(object sender, EventArgs e)
{
SqlDataReader Tabela;
if (NumVd > 0)
{
Tabela = Controle.ConsultaSQL("SELECT * FROM LancFinanceiro WHERE Id_Venda > 0 and Id_Venda=" + NumVd.ToString());
}
else
{
Tabela = Controle.ConsultaSQL("SELECT * FROM LancFinanceiro WHERE Id_Mov > 0 and Id_Mov=" + NumMov.ToString());
}
int NParc = 0;
DataTable TabLanc = CriarTabela();
while (Tabela.Read())
{
NParc++;
DateTime DtVenc = DateTime.Parse(Tabela["Vencimento"].ToString());
decimal VrParc = decimal.Parse(Tabela["VlrOriginal"].ToString());
TabLanc.Rows.Add(NParc, 0, DtVenc.Date, VrParc, int.Parse(Tabela["Id_TipoDocumento"].ToString()));
}
if (NParc > 0)
{
Source_Lanc.DataSource = TabLanc;
Source_Lanc.DataMember = TabLanc.TableName;
GridDados.DataSource = Source_Lanc;
GridDados.Refresh();
GridDados.Focus();
}
}
private void GridDados_CellEndEdit(object sender, DataGridViewCellEventArgs e)
{
if (e.ColumnIndex == 1)
{
if (NumVd > 0)
{
decimal Rentab = VerificaRentab(NumVd);
if (CadPessoa.NaoVerPrazoPg == 0 && int.Parse(GridDados.CurrentCell.Value.ToString()) > 60 && Rentab <= decimal.Parse("2,40") && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0)
{
MessageBox.Show("Numero de dias não pode ser superior a 60, Motivo Rentabilidade inferior a 2,4% ", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
Source_Lanc.CancelEdit();
CalcularParcelas(IdPgto, 0);
return;
}
if (CadPessoa.NaoVerPrazoPg == 0 && int.Parse(GridDados.CurrentCell.Value.ToString()) > 35 && TxtVlrTotal.Value <= FrmPgto.VlrParcelamento && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0)
{
MessageBox.Show("Numero de dias não pode ser superior a 30 ", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
Source_Lanc.CancelEdit();
CalcularParcelas(IdPgto, 0);
return;
}
}
GridDados.CurrentRow.Cells[2].Value = TxtDtBase.Value.Date.AddDays(int.Parse(GridDados.CurrentCell.Value.ToString()));
}
else if (e.ColumnIndex == 2)
{
DateTime Dt = DateTime.Parse(GridDados.CurrentCell.Value.ToString());
if (NumVd > 0)
{
decimal Rentab = VerificaRentab(NumVd);
if (CadPessoa.NaoVerPrazoPg == 0 && (Dt.Date - DateTime.Now.Date).Days > 60 && Rentab <= decimal.Parse("2,40") && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
MessageBox.Show("Numero de dias não pode ser superior a 60, Motivo Rentabilidade inferior a 2,4% ", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
Source_Lanc.CancelEdit();
Source_Lanc.ResetCurrentItem();
CalcularParcelas(IdPgto, 0);
return;
}
if (CadPessoa.NaoVerPrazoPg == 0 && (Dt.Date - DateTime.Now.Date).Days > 35 && TxtVlrTotal.Value <= FrmPgto.VlrParcelamento && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
MessageBox.Show("Vencimento não pode ser superior a 30 dias ", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
Source_Lanc.CancelEdit();
CalcularParcelas(IdPgto, 0);
return;
}
}
if (Dt.Date < TxtDtBase.Value.Date)
{
MessageBox.Show("Vencimento não pode ser inferior a data base", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
Source_Lanc.CancelEdit();
GridDados.Refresh();
}
}
}
private void TxtIdVenda_Validated(object sender, EventArgs e)
{
if (TxtIdVenda.Text.Trim() == "")
{
return;
}
Vendas.LerDados(int.Parse(TxtIdVenda.Value.ToString()));
if (Vendas.IdVenda == 0)
{
MessageBox.Show("Atenção Venda não Localizada", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
TxtIdVenda.Text = "";
TxtIdVenda.Focus();
return;
}
else
{
/* if (Vendas.Status != 2 && Vendas.TpVenda!="OE")
* {
* MessageBox.Show("Atenção Venda não esta faturada", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
* TxtIdVenda.Text = "";
* TxtIdVenda.Focus();
* return;
* }*/
if (Vendas.TpVenda == "OE" && (Vendas.Status == 1 || Vendas.Status == 4))
{
MessageBox.Show("Atenção Ordem de Entrega não esta Faturada ou Entregue", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
TxtIdVenda.Text = "";
TxtIdVenda.Focus();
return;
}
if (GridDados.CurrentRow != null)
{
if (Source_Lanc.Find("Id_Venda", Vendas.IdVenda) > -1)
{
MessageBox.Show("Venda ja foi informada", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
TxtIdVenda.Text = "";
TxtIdVenda.Focus();
return;
}
}
TxtPessoa.Text = Vendas.NmPessoa.Trim();
TabLancVenda.Rows.Add(Vendas.IdVenda, Vendas.NumDocumento, Vendas.NmPessoa);
Source_Lanc.DataSource = TabLancVenda;
Source_Lanc.DataMember = TabLancVenda.TableName;
GridDados.DataSource = Source_Lanc;
GridDados.Refresh();
TxtIdVenda.Text = "";
TxtIdVenda.Focus();
}
}
private void BtnNovoMapa_Click(object sender, EventArgs e)
{
TabLancVenda = CriarTabela();
Source_Lanc.DataSource = TabLancVenda;
Source_Lanc.DataMember = TabLancVenda.TableName;
GridDados.DataSource = Source_Lanc;
GridDados.Refresh();
TxtIdVenda.Text = "";
TxtPessoa.Text = "";
TxtIdVenda.Focus();
}
private void BtnImpGrupo_Click(object sender, EventArgs e)
{
if (int.Parse(LstGrupo.SelectedValue.ToString()) == 0)
{
MessageBox.Show("Favor Selecionar um Grupo", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (MessageBox.Show("Confirma a importação do Grupo: " + LstGrupo.Text.ToString().Trim(), "Confirmação", MessageBoxButtons.YesNo) == DialogResult.Yes)
{
TabLancItens = CriarTabela();
Source_Itens.DataSource = TabLancItens;
Source_Itens.DataMember = TabLancItens.TableName;
GridDados.DataSource = Source_Itens;
GridDados.Refresh();
SqlDataReader Tab = Controle.ConsultaSQL("SELECT ID_PRODUTO,REFERENCIA,DESCRICAO,PRCSENSACIONAL,PRCESPECIAL,PRCVAREJO,PRCMINIMO,PRCATACADO,CODBARRA,SALDOESTOQUE,UNIDADE FROM PRODUTOS WHERE ATIVO=1 AND ID_GRUPO=" + LstGrupo.SelectedValue.ToString());
if (Tab.HasRows)
{
decimal PrcItem = 0;
while (Tab.Read())
{
PrcItem = 0;
if (Rb_PrcSensac.Checked)
{
PrcItem = decimal.Parse(Tab["PRCSENSACIONAL"].ToString());
}
else if (Rb_PrcEspecial.Checked)
{
PrcItem = decimal.Parse(Tab["PRCESPECIAL"].ToString());
}
else if (Rb_PrcVarejo.Checked)
{
PrcItem = decimal.Parse(Tab["PRCVAREJO"].ToString());
}
else if (Rb_PrcMinimo.Checked)
{
PrcItem = decimal.Parse(Tab["PRCMINIMO"].ToString());
}
TabLancItens.Rows.Add(int.Parse(Tab["ID_PRODUTO"].ToString()), Tab["REFERENCIA"].ToString().Trim(), Tab["DESCRICAO"].ToString().Trim(), PrcItem, decimal.Parse(Tab["SALDOESTOQUE"].ToString()), Tab["CODBARRA"].ToString(), int.Parse(TxtQtdeEtq.Value.ToString()), Tab["UNIDADE"].ToString().Trim());
Source_Itens.DataSource = TabLancItens;
Source_Itens.DataMember = TabLancItens.TableName;
GridDados.DataSource = Source_Itens;
GridDados.Refresh();
}
}
}
}
private void BtnBuscaPrd_Click(object sender, EventArgs e)
{
FrmBuscaProduto BuscaPrd = new FrmBuscaProduto();
BuscaPrd.FrmPrincipal = this.FrmPrincipal;
BuscaPrd.IdProduto = 0;
BuscaPrd.ShowDialog();
decimal PrcItem = 0;
if (BuscaPrd.IdProduto > 0)
{
TxtCodPrd.Text = BuscaPrd.CadProd.IdProduto.ToString();
TxtDescricao.Text = BuscaPrd.CadProd.Descricao;
PrcItem = 0;
if (Rb_PrcSensac.Checked)
{
PrcItem = BuscaPrd.CadProd.PrcSensacional;
}
else if (Rb_PrcEspecial.Checked)
{
PrcItem = BuscaPrd.CadProd.PrcEspecial;
}
else if (Rb_PrcVarejo.Checked)
{
PrcItem = BuscaPrd.CadProd.PrcVarejo;
}
else if (Rb_PrcMinimo.Checked)
{
PrcItem = BuscaPrd.CadProd.PrcMinimo;
}
TabLancItens.Rows.Add(BuscaPrd.CadProd.IdProduto, BuscaPrd.CadProd.Referencia.Trim(), BuscaPrd.CadProd.Descricao.Trim(), PrcItem, BuscaPrd.CadProd.SaldoEstoque, BuscaPrd.CadProd.CodBarra.ToString(), int.Parse(TxtQtdeEtq.Value.ToString()), BuscaPrd.CadProd.Unidade);
Source_Itens.DataSource = TabLancItens;
Source_Itens.DataMember = TabLancItens.TableName;
GridDados.DataSource = Source_Itens;
GridDados.Refresh();
}
else
{
TxtCodPrd.Text = "0";
}
}
private void CalcularParcelas(int NumParc)
{
DataTable TabLanc = CriarTabela();
int NParc = 1;
DateTime DtVenc = TxtDtBase.Value;
decimal VrParc = LancFinanc.VlrOriginal;
int dia = TxtDtBase.Value.Day;
int mes = TxtDtBase.Value.Month;
int ano = TxtDtBase.Value.Year;
DtVenc = new DateTime(ano, mes, dia);
while (NParc <= NumParc)
{
TabLanc.Rows.Add(NParc, DtVenc.Date, VrParc, LancFinanc.NumDoc.Trim());
DtVenc = DtVenc.AddMonths(1);
dia = TxtDtBase.Value.Day;
mes = DtVenc.Date.Month;
ano = DtVenc.Date.Year;
try
{
if (mes == 2 && dia > 28)
{
dia = 28;
}
DtVenc = new DateTime(ano, mes, dia);
}
catch
{ }
NParc++;
}
Source_Lanc.DataSource = TabLanc;
Source_Lanc.DataMember = TabLanc.TableName;
GridDados.DataSource = Source_Lanc;
GridDados.Refresh();
GridDados.Focus();
}
private void CalcularParcelas(int IdFormaPgto, int NumParc)
{
TxtNumParc.Enabled = true;
FrmPgto.LerDados(IdFormaPgto);
Venda.LerDados(NumVd);
CadPessoa.LerDados(Venda.IdPessoa);
if (FrmPgto.IdFormaPgto > 0)
{
if (FrmPgto.BloqPF == 1 && CadPessoa.Tipo == 1 && Venda.IdUsuboleto == 0 && NumVd > 0)
{
MessageBox.Show("Atenção: Forma de pagamento não autorizada para Pessoa Fisica.", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information);
LstFormaPgto.SelectedValue = Venda.IdFormaPgto.ToString();
return;
}
DataTable TabLanc = CriarTabela();
int NParc = 1;
int NumParcelas = 1;
NumParcelas = FrmPgto.NumParcelas;
if (NumParc > 0)
{
NumParcelas = NumParc;
}
TxtNumParc.Value = NumParcelas;
DateTime DtVenc = TxtDtBase.Value.AddDays(FrmPgto.PrimParcela);
decimal VrParc = Math.Round(TxtVlrTotal.Value / NumParcelas, 2);
decimal VrPrimParc = VrParc + (TxtVlrTotal.Value - (Math.Round(VrParc * NumParcelas, 2)));
int Dias = FrmPgto.PrimParcela;
decimal Rentab = 0;
if (NumVd > 0)
{
Rentab = VerificaRentab(NumVd);
}
while (NParc <= NumParcelas)
{
TabLanc.Rows.Add(NParc, Dias, DtVenc.Date, VrPrimParc, FrmPgto.IdTpDocumento);
if (FrmPgto.Intervalo == 0)
{
if (CadPessoa.NaoVerPrazoPg == 0 && TxtVlrTotal.Value <= FrmPgto.VlrParcelamento && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
DtVenc = DtVenc;
Dias = Dias;
}
else if (CadPessoa.NaoVerPrazoPg == 0 && NumVd > 0 && Rentab <= decimal.Parse("2,40") && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
DtVenc = DtVenc;
Dias = Dias;
}
else
{
DtVenc = DtVenc.AddDays(30);
Dias = Dias + 30;
}
}
else
{
if (CadPessoa.NaoVerPrazoPg == 0 && TxtVlrTotal.Value <= FrmPgto.VlrParcelamento && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
DtVenc = DtVenc;
Dias = Dias;
}
else if (CadPessoa.NaoVerPrazoPg == 0 && NumVd > 0 && Rentab <= decimal.Parse("2,40") && Venda.TpVenda == "PV" && Venda.IdUsuLibParc == 0 && !FrmPrincipal.VersaoDistribuidor)
{
DtVenc = DtVenc;
Dias = Dias;
}
else
{
DtVenc = DtVenc.AddDays(FrmPgto.Intervalo);
Dias = Dias + FrmPgto.Intervalo;
}
}
VrPrimParc = VrParc;
NParc++;
}
Source_Lanc.DataSource = TabLanc;
Source_Lanc.DataMember = TabLanc.TableName;
GridDados.DataSource = Source_Lanc;
GridDados.Refresh();
GridDados.Focus();
}
}
