private void bb_cheque_Click(object sender, EventArgs e)
{
using (Financeiro.TFLanTitulo fTitulo = new Financeiro.TFLanTitulo())
{
fTitulo.Cd_empresa = pCd_empresa;
fTitulo.Tp_titulo = "R";
fTitulo.Cd_contager = pCd_contager;
fTitulo.Ds_contager = pDs_contager;
fTitulo.Cd_historico = pCd_historico;
fTitulo.Ds_historico = pDs_historico;
fTitulo.CD_Empresa.Enabled = false;
fTitulo.BB_Empresa.Enabled = false;
fTitulo.tp_titulo.Enabled = false;
if (fTitulo.ShowDialog() == DialogResult.OK)
{
if (fTitulo.BS_Titulo.Current != null)
{
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rFatura = null;
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCartaFrete = null;
bb_cartao.Text = "Trocar Cartão";
bb_cartafrete.Text = "Trocar Carta Frete";
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCheque =
fTitulo.BS_Titulo.Current as CamadaDados.Financeiro.Titulo.TRegistro_LanTitulo;
//Calcular taxa administrativa
object obj = new CamadaDados.Financeiro.Cadastros.TCD_CadPortador().BuscarEscalar(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "isnull(a.st_controletitulo, 'N')",
vOperador = "=",
vVL_Busca = "'S'"
}
}, "isnull(a.pc_txtroca, 0)");
if (obj != null)
{
if (decimal.Parse(obj.ToString()) > decimal.Zero)
{
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin =
Math.Round(decimal.Divide(decimal.Multiply((bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCheque.Vl_titulo, decimal.Parse(obj.ToString())), 100), 2);
}
}
if ((bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin.Equals(decimal.Zero))
{
using (Componentes.TFQuantidade fValor = new Componentes.TFQuantidade())
{
fValor.Casas_decimais = 2;
fValor.Vl_saldo = (bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCheque.Vl_titulo;
fValor.Ds_label = "Taxa Administrativa";
if (fValor.ShowDialog() == DialogResult.OK)
{
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin = fValor.Quantidade;
}
}
}
bb_cheque.Text = bb_cheque.Text + "\r\n" + (bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCheque.Vl_titulo.ToString("C2", new System.Globalization.CultureInfo("en-US")) +
((bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin > decimal.Zero ?
"\r\nTaxa Adm.: " + (bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin.ToString("N2", new System.Globalization.CultureInfo("en-US")) : string.Empty);
using (Financeiro.TFTrocoPDV fTroco = new Financeiro.TFTrocoPDV())
{
fTroco.Cd_empresa = pCd_empresa;
fTroco.Id_caixaPDV = pId_caixa;
fTroco.Vl_troco = (fTitulo.BS_Titulo.Current as CamadaDados.Financeiro.Titulo.TRegistro_LanTitulo).Vl_titulo -
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_TaxaFin;
fTroco.St_desativarCred = true;
if (fTroco.ShowDialog() == DialogResult.OK)
{
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).Vl_trocoD = fTroco.Vl_trocoDinheiro;
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).lTrocoCHP = fTroco.lChTroco;
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).lTrocoCHT = fTroco.lChRepasse;
}
else
{
MessageBox.Show("Obrigatorio informar valor total troco para especie.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
(bsTrocaEspecie.Current as CamadaDados.Faturamento.PDV.TRegistro_TrocaEspecie).rCheque = null;
bb_cheque.Text = "Trocar Cheque";
}
}
}
}
}
}
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); }
}
}
}
}
}
}