private void TFDT_Vencto_PreVenda_Load(object sender, EventArgs e)
{
Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
pDados.set_FormatZero();
bsPreVenda.DataSource = new CamadaDados.Faturamento.PDV.TList_PreVenda()
{
rprevenda
};
vl_venda.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).lItens.Sum(p => p.Vl_subtotal + p.Vl_frete + p.Vl_acrescimo - p.Vl_desconto);
vl_juro_fin.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).lItens.Sum(p => p.Vl_juro_fin);
vl_devcred.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).Vl_devcred;
vl_total.Value = (bsPreVenda.Current as CamadaDados.Faturamento.PDV.TRegistro_PreVenda).DT_Vencto.Sum(p => p.Vl_parcela);
if (BS_PARCELAS.Count > 0)
{
BB_CondPGTO.Select();
}
//Buscar solicitação p/ alterar Dt.Vencto
if (!string.IsNullOrEmpty(CD_CondPGTO.Text))
{
object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.CD_CondPGTO",
vOperador = "=",
vVL_Busca = "'" + CD_CondPGTO.Text.Trim() + "'"
}
}, "a.ST_SolicitarDTVencto");
if (obj != null)
{
if (obj.ToString().Equals("S"))
{
dt_vencto.Enabled = true;
diasvencimento.Enabled = true;
}
}
}
//Verificar se Parcelas é a cartão
if (St_cartao)
{
gDt_vencto.Visible = false;
rgVencto.Visible = false;
parcelasCartao.Location = new Point(6, 41);
}
else
{
gId_parcela.Visible = false;
}
}
private void TFDuplicataPDV_Load(object sender, EventArgs e)
{
this.Icon = Utils.ResourcesUtils.TecnoAliance_ICO;
//Preencher Cond. Pagamento
CamadaDados.Financeiro.Cadastros.TList_CadCondPgto lCond =
new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.qt_parcelas",
vOperador = ">",
vVL_Busca = "0"
}
}, 0, string.Empty);
cbCondPgto.DataSource = lCond.OrderBy(p => p.Qt_parcelas).ToList();
cbCondPgto.DisplayMember = "ds_condpgto";
cbCondPgto.ValueMember = "cd_condpgto";
//Preencher Config. Boleto
CamadaDados.Financeiro.Cadastros.TList_CadCFGBanco lCfgBoleto =
CamadaNegocio.Financeiro.Cadastros.TCN_CadCFGBanco.Buscar(string.Empty,
string.Empty,
rDup.Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
"A",
string.Empty,
0,
null);
cbBoleto.DataSource = lCfgBoleto;
cbBoleto.DisplayMember = "ds_config";
cbBoleto.ValueMember = "id_config";
bsDuplicata.DataSource = new CamadaDados.Financeiro.Duplicata.TList_RegLanDuplicata()
{
rDup
};
bsDuplicata.ResetCurrentItem();
cbBoleto.Enabled = !rDup.Id_configBoleto.HasValue;
}
private void bbBuscar_Click(object sender, EventArgs e)
{
if (bsDespesas.Current != null)
{
if (panelDados2.validarCampoObrigatorio())
{
if (tp_pagamento.SelectedIndex.Equals(0) && string.IsNullOrWhiteSpace(cd_fornecedor.Text))
{
MessageBox.Show("Obrigatório informar fornecedor para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
cd_fornecedor.Focus();
return;
}
else if (tp_pagamento.SelectedIndex.Equals(1) && string.IsNullOrWhiteSpace(cd_funcionario.Text))
{
MessageBox.Show("Obrigatório informar funcionário para tipo de pagamento selecionado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
cd_funcionario.Focus();
return;
}
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa = vCd_Empresa;
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Id_orcamentostr = vId_Orcamento;
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_versaostr = vNr_Versao;
//Buscar config abast
CamadaDados.Empreendimento.Cadastro.TList_CadCFGEmpreendimento lCfg =
CamadaNegocio.Empreendimento.Cadastro.TCN_CadCFGEmpreendimento.Busca((bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Cd_empresa,
string.Empty,
null);
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].tp_dup))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
else
{
MessageBox.Show("Não existe CFG.empreendimento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
//Despesa de funcionário com abatimento de adiantamento
if (tp_pagamento.SelectedIndex.Equals(1))
{
//Buscar conf. adiantamento
CamadaDados.Financeiro.Cadastros.TList_ConfigAdto lCnfAdto = CamadaNegocio.Financeiro.Cadastros.TCN_CadConfigAdto.Buscar(vCd_Empresa, string.Empty, string.Empty, string.Empty, string.Empty, 0, string.Empty, null);
if (lCnfAdto.Count.Equals(0))
{
MessageBox.Show("Não existe CFG.adiantamento cadastrado para a empresa informada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return;
}
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup = new CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata();
rDup.Cd_empresa = vCd_Empresa;
rDup.Cd_clifor = cd_funcionario.Text;
object lEndClifor = new CamadaDados.Financeiro.Cadastros.TCD_CadEndereco().BuscarEscalar(new Utils.TpBusca[] { new Utils.TpBusca()
{
vNM_Campo = "a.cd_clifor", vOperador = "=", vVL_Busca = "'" + rDup.Cd_clifor.Trim() + "'"
} }, "a.cd_endereco");
if (!lEndClifor.Equals(null))
{
rDup.Cd_endereco = lEndClifor.ToString().Trim();
}
rDup.Tp_docto = 2; //Duplicata
rDup.Tp_duplicata = "01";
rDup.Tp_mov = lCnfAdto[0].Tp_mov_ADTO_C;
rDup.Cd_historico = rDup.Cd_historico_Dup = vCd_Historico = lCnfAdto[0].Cd_historico_ADTO_C;
rDup.Cd_portador = lCnfAdto[0].CD_Portador;
rDup.Dt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao;
rDup.Vl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
rDup.Nr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto;
DataTable rCond = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().Buscar(null, 1);
rDup.Cd_condpgto = rCond.Rows[0].ItemArray[0].ToString();
rDup.Cd_moeda = rCond.Rows[0].ItemArray[5].ToString();
rDup.Cd_juro = rCond.Rows[0].ItemArray[9].ToString();
rDup.Qt_parcelas = 0;
DataTable cd_contager = new CamadaDados.Financeiro.Cadastros.TCD_CadContaGer().Buscar(null, 1);
if (cd_contager != null)
{
rDup.Cd_contager = cd_contager.Rows[0].ItemArray[0].ToString();
}
rDup.Parcelas.Add(new CamadaDados.Financeiro.Duplicata.TRegistro_LanParcela()
{
Vl_parcela = rDup.Vl_documento, Dt_vencto = rDup.Dt_emissao, Cd_parcela = 1
});
rDup.lCred.AddRange(CamadaNegocio.Financeiro.Adiantamento.TCN_LanAdiantamento.Buscar(string.Empty,
rDup.Cd_empresa,
rDup.Cd_clifor,
string.Empty,
"'C'",
string.Empty,
decimal.Zero,
string.Empty,
string.Empty,
decimal.Zero,
decimal.Zero,
false,
false,
true,
string.Empty,
false,
false,
string.Empty,
string.Empty,
0,
string.Empty,
null));
if (rDup.lCred.Count.Equals(0))
{
MessageBox.Show("Funcionário não possui adiantamento quitado para efetuar o débito de saldo.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information); return;
}
//Validar saldo a devolver do funcionário
rDup.lCred.ForEach(p =>
{
if (rDup.Vl_documento <= p.Vl_total_devolver)
{
rDup.cVl_adiantamento = rDup.Vl_documento;
}
});
if (rDup.cVl_adiantamento.Equals(0))
{
MessageBox.Show("Crédito do funcionário é menor do que o valor da despesa."); return;
}
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = rDup;
}
else
{
//Procedimento para despesa da empresa
using (Financeiro.TFLanDuplicata fDup = new Financeiro.TFLanDuplicata())
{
fDup.vCd_empresa = vCd_Empresa;
fDup.vNm_empresa = vNm_empresa;
fDup.vCd_clifor = tp_pagamento.SelectedIndex.Equals(1) ? cd_funcionario.Text : cd_fornecedor.Text;
fDup.vNm_clifor = tp_pagamento.SelectedIndex.Equals(1) ? nm_funcionario.Text : nm_fornecedor.Text;
//Buscar endereco
CamadaDados.Financeiro.Cadastros.TList_CadEndereco lEnd =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(fDup.vCd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
null);
if (lEnd.Count > 0)
{
fDup.vCd_endereco = lEnd[0].Cd_endereco;
fDup.vDs_endereco = lEnd[0].Ds_endereco;
}
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].tp_dup))
{
MessageBox.Show("Não existe Tp.duplicata na CFG.empreendimento cadastrada!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
fDup.vTp_docto = lCfg[0].tp_docto;
fDup.vDs_tpdocto = lCfg[0].ds_docto;
fDup.vTp_duplicata = string.Empty;
fDup.vDs_tpduplicata = string.Empty;
fDup.vTp_mov = "P";
fDup.vDt_emissao = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucaostr;
fDup.vVl_documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
fDup.vNr_docto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Nr_docto;
fDup.St_bloquearccusto = true;
if (fDup.ShowDialog() == DialogResult.OK)
{
if (fDup.dsDuplicata.Count > 0)
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).rDuplicata = fDup.dsDuplicata.Current as CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata;
}
vCd_Historico = fDup.vCd_historico;
}
}
else
{
MessageBox.Show("Não existe configuração frota para lançar duplicata!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
}
if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_EMPRESA",
vCd_Empresa,
null).Trim().ToUpper().Equals("S"))
{
//Verificar se historico possui centro resultado cadastrado
object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadHistorico().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.cd_historico",
vOperador = "=",
vVL_Busca = "'" + vCd_Historico.Trim() + "'"
}
}, "a.cd_centroresult");
if (obj == null ? false : !string.IsNullOrEmpty(obj.ToString()))
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto.Add(
new CamadaDados.Financeiro.CCustoLan.TRegistro_LanCCustoLancto()
{
Cd_empresa = vCd_Empresa,
Cd_centroresult = obj.ToString(),
Vl_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado,
Dt_lancto = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao,
Tp_registro = "A"
});
}
else
{
using (Financeiro.TFRateioCResultado fRateio = new Financeiro.TFRateioCResultado())
{
fRateio.vVl_Documento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).vl_executado;
fRateio.Tp_mov = "P";
fRateio.Dt_movimento = (bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).Dt_execucao;
if (fRateio.ShowDialog() == DialogResult.OK)
{
(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas).lCCusto = fRateio.lCResultado;
}
else
{
return;
}
}
}
}
try
{
CamadaNegocio.Empreendimento.TCN_ExecDespesas.Gravar(bsDespesas.Current as CamadaDados.Empreendimento.TRegistro_ExecDespesas, null);
MessageBox.Show("Despesa gravada com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.DialogResult = DialogResult.OK;
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
private void ImprimirCheques()
{
//Verificar se a condicao pagamento e a vista e se o portador movimenta cheque
CamadaDados.Financeiro.Cadastros.TList_CfgFolhaPagamento lFolha =
CamadaNegocio.Financeiro.Cadastros.TCN_CfgFolhaPagamento.Buscar((bsFolhaPgto.Current as CamadaDados.Financeiro.Folha_Pagamento.TRegistro_FolhaPagamento).Cd_empresa,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
null);
if (lFolha.Count > 0)
{
object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadCondPgto().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.cd_condpgto",
vOperador = "=",
vVL_Busca = "'" + lFolha[0].Cd_condpgto.Trim() + "'"
}
}, "a.qt_parcelas");
if (obj == null ? false : obj.ToString().Trim().Equals("0"))
{
obj = new CamadaDados.Financeiro.Cadastros.TCD_CadPortador().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "cd_portador",
vOperador = "=",
vVL_Busca = "'" + lFolha[0].Cd_portador.Trim() + "'"
}
}, "st_controletitulo");
if (obj == null ? false : obj.ToString().Trim().ToUpper().Equals("S"))
{
//Buscar lista de cheques amarradas ao lote de folha
CamadaDados.Financeiro.Titulo.TList_RegLanTitulo lCheques =
new CamadaDados.Financeiro.Titulo.TCD_LanTitulo().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_fin_titulo_x_caixa x " +
"inner join tb_fin_caixa y " +
"on x.cd_contager = y.cd_contager " +
"and x.cd_lanctocaixa = y.cd_lanctocaixa " +
"inner join tb_fin_liquidacao z " +
"on y.cd_contager = z.cd_contager " +
"and y.cd_lanctocaixa = z.cd_lanctocaixa " +
"inner join tb_fin_parcela w " +
"on z.cd_empresa = w.cd_empresa " +
"and z.nr_lancto = w.nr_lancto " +
"inner join tb_fin_folha_x_funcionarios folha " +
"on w.cd_empresa = folha.cd_empresa " +
"and w.nr_lancto = folha.nr_lancto " +
"where a.cd_empresa = x.cd_empresa " +
"and a.cd_banco = x.cd_banco " +
"and a.nr_lanctocheque = x.nr_lanctocheque " +
"and x.tp_lancto = 'OR' " +
"and folha.id_folha = " + (bsFolhaPgto.Current as CamadaDados.Financeiro.Folha_Pagamento.TRegistro_FolhaPagamento).Id_folha.Value.ToString() + ")"
}
}, 0, string.Empty, "a.nr_cheque");
if (lCheques.Count > 0)
{
if (MessageBox.Show("Imprimir cheques emitidos?", "Pergunta", MessageBoxButtons.YesNo,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) == DialogResult.Yes)
{
try
{
CamadaNegocio.Financeiro.Titulo.TCN_LanTitulo.ImprimirCheque(lCheques);
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
}
}
}
