private void BB_Buscar_Click(object sender, EventArgs e)
{
if (tabControl1.SelectedIndex == 0)
{
TList_RegLanDuplicata lDup = TCN_LanDuplicata.Busca(CD_Empresa.Text,
nr_lancto.Text,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
"A",
string.Empty,
string.Empty,
true,
0,
string.Empty,
null);
//Buscr Centro Resultado
lDup.ForEach(p => p.lCustoLancto = TCN_DuplicataXCCusto.BuscarCusto(p.Cd_empresa, p.Nr_lancto.ToString(), null));
BS_Duplicata.DataSource = lDup;
}
else
{
}
}
public static void Gravar(List <TRegistro_AbastVeiculo> lista,
CamadaDados.Financeiro.Duplicata.TRegistro_LanDuplicata rDup,
BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_AbastVeiculo qtb_abast = new TCD_AbastVeiculo();
try
{
if (banco == null)
{
st_transacao = qtb_abast.CriarBanco_Dados(true);
}
else
{
qtb_abast.Banco_Dados = banco;
}
//Gravar duplicata
if (rDup != null)
{
TCN_LanDuplicata.GravarDuplicata(rDup, false, qtb_abast.Banco_Dados);
}
//Gravar abastecidas
lista.ForEach(x =>
{
Gravar(x, qtb_abast.Banco_Dados);
//Amarrar abast x duplicata
if (x.Tp_pagamento.Trim().ToUpper().Equals("E"))
{
TCN_Abast_X_Duplicata.Gravar(new TRegistro_Abast_X_Duplicata
{
Id_abastecimento = x.Id_abastecimento,
Cd_empresa = rDup.Cd_empresa,
Nr_lancto = rDup.Nr_lancto
}, qtb_abast.Banco_Dados);
}
});
if (st_transacao)
{
qtb_abast.Banco_Dados.Commit_Tran();
}
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_abast.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro gravar abastecimentos: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_abast.deletarBanco_Dados();
}
}
}
public static void Excluir(TList_AbastVeiculo val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_AbastVeiculo qtb_abast = new TCD_AbastVeiculo();
try
{
if (banco == null)
{
st_transacao = qtb_abast.CriarBanco_Dados(true);
}
else
{
qtb_abast.Banco_Dados = banco;
}
CamadaDados.Financeiro.Duplicata.TList_RegLanDuplicata lDup = new CamadaDados.Financeiro.Duplicata.TList_RegLanDuplicata();
val.ForEach(x =>
{
TCN_Abast_X_Duplicata.BuscarDup(x.Id_abastecimentostr, qtb_abast.Banco_Dados)
.ForEach(y =>
{
//Excluir abast x duplicata
TCN_Abast_X_Duplicata.Excluir(new TRegistro_Abast_X_Duplicata()
{
Id_abastecimento = x.Id_abastecimento,
Cd_empresa = y.Cd_empresa,
Nr_lancto = y.Nr_lancto
}, qtb_abast.Banco_Dados);
if (!lDup.Exists(w => w.Cd_empresa.Trim().Equals(y.Cd_empresa.Trim()) && w.Nr_lancto.Equals(y.Nr_lancto)))
{
lDup.Add(y);
}
});
qtb_abast.Excluir(x);
});
lDup.ForEach(z => TCN_LanDuplicata.CancelarDuplicata(z, qtb_abast.Banco_Dados));
if (st_transacao)
{
qtb_abast.Banco_Dados.Commit_Tran();
}
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_abast.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro excluir abastecimento: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_abast.deletarBanco_Dados();
}
}
}
private void BB_Buscar_Click(object sender, EventArgs e)
{
if (tabControl1.SelectedIndex == 0)
{
TList_RegLanDuplicata lDup = TCN_LanDuplicata.BuscaAudit(CD_Empresa.Text,
NR_Docto.Text,
nr_lancto.Text,
CD_Clifor.Text,
cd_moeda.Text,
CD_Historico.Text,
cd_condpgto.Text,
Tp_Dup.Text,
VL_Inicial.Value,
VL_Final.Value,
DT_Inicial.Text,
DT_Final.Text,
null);
//Buscr Centro Resultado
//lDup.ForEach(p => p.lCustoLancto = TCN_DuplicataXCCusto.BuscarCusto(p.Cd_empresa, p.Nr_lancto.ToString(), null));
lDup.ForEach(r => r.St_liquidar = false);
BS_Duplicata.DataSource = lDup;
}
else
{
if (cbContaGer.SelectedItem != null)
{
bsCaixa.DataSource = TCN_LanCaixa.BuscaAudit(cbContaGer.SelectedValue.ToString(),
string.Empty,
string.Empty,
nr_doctoCaixa.Text,
cd_historicoCaixa.Text,
string.Empty,
Dt_iniCaixa.Text,
Dt_finCaixa.Text,
0,
0,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
0,
true,
null);
(bsCaixa.DataSource as TList_LanCaixa).ForEach(r => r.St_conciliar = false);
bsCaixa.ResetBindings(true);
}
else
{
MessageBox.Show("Obrigatório informar conta gerencial.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
}
public static string ProcessarMudanca(TRegistro_LanMudanca val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_LanMudanca qtb_mud = new TCD_LanMudanca();
try
{
if (banco == null)
{
st_transacao = qtb_mud.CriarBanco_Dados(true);
}
else
{
qtb_mud.Banco_Dados = banco;
}
//Gravar Duplicata
if (val.lDup.Count > 0)
{
TCN_LanDuplicata.GravarDuplicata(val.lDup, false, qtb_mud.Banco_Dados);
val.Nr_lancto = val.lDup[0].Nr_lancto;
}
//Gravar lançamento almoxarifado
val.lMaterialMud.ForEach(p =>
{
//Buscar Almoxarifado
CamadaDados.Almoxarifado.TList_CadAlmoxarifado lAlmox =
new CamadaDados.Almoxarifado.TCD_CadAlmoxarifado().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = string.Empty,
vOperador = "exists",
vVL_Busca = "(select 1 from tb_amx_almox_x_empresa x " +
"where x.id_almox = a.id_almox " +
"and x.cd_empresa = '" + val.Cd_empresa.Trim() + "')"
}
}, 1, string.Empty);
if (lAlmox.Count == 0)
{
throw new Exception("Não existe configuração de almoxarifado para a empresa!");
}
//Criar registro movimentação
CamadaDados.Almoxarifado.TRegistro_Movimentacao rMov =
new CamadaDados.Almoxarifado.TRegistro_Movimentacao();
rMov.Ds_observacao = "PRODUTO RETIRADO PELO MÓDULO MUDANÇA";
rMov.Cd_empresa = val.Cd_empresa;
rMov.Id_almoxstr = lAlmox[0].Id_almoxString;
rMov.Cd_produto = p.Cd_produto;
rMov.Quantidade = p.Quantidade;
rMov.Vl_unitario = CamadaNegocio.Almoxarifado.TCN_SaldoAlmoxarifado.Vl_Custo_Almox_Prod(val.Cd_empresa,
lAlmox[0].Id_almoxString,
p.Cd_produto,
qtb_mud.Banco_Dados);
rMov.Tp_movimento = "S";
rMov.LoginAlmoxarife = Utils.Parametros.pubLogin;
rMov.Dt_movimento = CamadaDados.UtilData.Data_Servidor();
rMov.St_registro = "A";
//Gravar Movimentação
CamadaNegocio.Almoxarifado.TCN_Movimentacao.Gravar(rMov, qtb_mud.Banco_Dados);
//Gravar Material mudança
p.Id_movimento = rMov.Id_movimento;
TCN_MaterialMud.Gravar(p, qtb_mud.Banco_Dados);
});
val.St_registro = "4";//Processada
//Gravar processamento mudança
qtb_mud.Gravar(val);
if (st_transacao)
{
qtb_mud.Banco_Dados.Commit_Tran();
}
return("OK");
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_mud.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro Gravar registro: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_mud.deletarBanco_Dados();
}
}
}
public TList_RegLanDuplicata Gera_Financeiro(string CFG_Pedido_Comissao, string CD_CondPGTO, string CD_Moeda, TRegistro_CadEmpresa Reg_Empresa, TRegistro_CadClifor Reg_Clifor_Vendedor, TRegistro_CadEndereco Reg_Endereco)
{
TList_RegLanDuplicata Duplicata = new TList_RegLanDuplicata();
if (CFG_Pedido_Comissao != "")
{
TCD_CadCFGPedidoFiscal Pedido_Fiscal = new TCD_CadCFGPedidoFiscal();
TpBusca[] vBusca = new TpBusca[0];
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.cfg_pedido";
vBusca[vBusca.Length - 1].vVL_Busca = "'" + CFG_Pedido_Comissao + "'";
vBusca[vBusca.Length - 1].vOperador = "=";
Array.Resize(ref vBusca, vBusca.Length + 1);
vBusca[vBusca.Length - 1].vNM_Campo = "a.TP_FISCAL";
vBusca[vBusca.Length - 1].vVL_Busca = "'N'";
vBusca[vBusca.Length - 1].vOperador = "=";
DataTable DT_Pedido_Fiscal = Pedido_Fiscal.Buscar(vBusca, 0);
if (DT_Pedido_Fiscal.Rows.Count > 0)
{
if (DT_Pedido_Fiscal.Rows[0]["tp_duplicata"].ToString().Trim() != string.Empty)
{
TpBusca[] vBusca_Mov = new TpBusca[0];
Array.Resize(ref vBusca_Mov, vBusca_Mov.Length + 1);
vBusca_Mov[vBusca_Mov.Length - 1].vNM_Campo = "a.cd_movimentacao";
vBusca_Mov[vBusca_Mov.Length - 1].vVL_Busca = "'" + DT_Pedido_Fiscal.Rows[0]["cd_movto"].ToString().Trim() + "'";
vBusca_Mov[vBusca_Mov.Length - 1].vOperador = "=";
TList_CadMovimentacao List_Movimentacao = new TCD_CadMovimentacao().Select(vBusca_Mov, 0, "");
TList_CadCondPgto List_CondPagamento = TCN_CadCondPgto.Buscar(CD_CondPGTO, "", "", "", "", "", 0, 0, "", "", 1, "", null);
if (List_CondPagamento.Count > 0)
{
List_CondPagamento[0].lCondPgto_X_Parcelas = TCN_CadCondPgto_X_Parcelas.Buscar(List_CondPagamento[0].Cd_condpgto);
}
TRegistro_LanDuplicata Reg_Duplicata = new TRegistro_LanDuplicata();
TList_CadTpDuplicata List_TPDuplicata = TCN_CadTpDuplicata.Buscar(DT_Pedido_Fiscal.Rows[0]["tp_duplicata"].ToString().Trim(), "", "");
if ((DT_Pedido_Fiscal.Rows[0]["ST_Devolucao"].ToString().Trim().ToUpper() != "S") &&
(!List_CondPagamento[0].St_solicitardtvenctobool) &&
(List_CondPagamento[0].lCondPgto_X_Parcelas.Count > 0) &&
(List_Movimentacao[0].cd_historico.Trim() != string.Empty) &&
(!List_TPDuplicata[0].St_gerarboletoautobool))
{
Reg_Duplicata.Cd_empresa = Reg_Empresa.Cd_empresa.Trim();
Reg_Duplicata.Nm_empresa = Reg_Empresa.Nm_empresa.Trim();
Reg_Duplicata.Cd_clifor = Reg_Clifor_Vendedor.Cd_clifor.Trim();
Reg_Duplicata.Nm_clifor = Reg_Clifor_Vendedor.Nm_clifor.Trim();
Reg_Duplicata.Cd_endereco = Reg_Endereco.Cd_endereco.Trim();
Reg_Duplicata.Ds_endereco = Reg_Endereco.Ds_endereco.Trim();
Reg_Duplicata.Cd_historico = List_Movimentacao[0].cd_historico.Trim();
Reg_Duplicata.Ds_historico = List_Movimentacao[0].ds_historico.Trim();
Reg_Duplicata.Tp_duplicata = DT_Pedido_Fiscal.Rows[0]["tp_duplicata"].ToString().Trim();
Reg_Duplicata.Ds_tpduplicata = DT_Pedido_Fiscal.Rows[0]["ds_tpduplicata"].ToString().Trim();
Reg_Duplicata.Tp_mov = DT_Pedido_Fiscal.Rows[0]["tp_movimento"].ToString().Trim().ToUpper() == "E" ? "P" :
DT_Pedido_Fiscal.Rows[0]["tp_movimento"].ToString().Trim().ToUpper() == "S" ? "R" : "";
Reg_Duplicata.Tp_docto = DT_Pedido_Fiscal.Rows[0]["tp_docto"].ToString().Trim() != string.Empty ? Convert.ToDecimal(DT_Pedido_Fiscal.Rows[0]["tp_docto"].ToString()) : 0;
Reg_Duplicata.Ds_tpdocto = DT_Pedido_Fiscal.Rows[0]["ds_tpdocto"].ToString().Trim();
Reg_Duplicata.Cd_condpgto = List_CondPagamento[0].Cd_condpgto.Trim();
Reg_Duplicata.Ds_condpgto = List_CondPagamento[0].Ds_condpgto.Trim();
Reg_Duplicata.St_comentrada = List_CondPagamento[0].St_comentrada.Trim();
Reg_Duplicata.Cd_juro = List_CondPagamento[0].Cd_juro.Trim();
Reg_Duplicata.Ds_juro = List_CondPagamento[0].Ds_juro.Trim();
Reg_Duplicata.Tp_juro = List_CondPagamento[0].Tp_juro.Trim();
Reg_Duplicata.Cd_moeda = CD_Moeda.Trim();
//Reg_Duplicata.Ds_moeda = List_Dados_Pedido[0].Ds_moeda.Trim();
//Reg_Duplicata.Sigla_moeda = List_Dados_Pedido[0].Sigla.Trim();
Reg_Duplicata.Qt_dias_desdobro = List_CondPagamento[0].Qt_diasdesdobro;
Reg_Duplicata.Qt_parcelas = List_CondPagamento[0].Qt_parcelas;
Reg_Duplicata.Pc_jurodiario_atrazo = List_CondPagamento[0].Pc_jurodiario_atrazo;
Reg_Duplicata.Cd_portador = List_CondPagamento[0].Cd_portador.Trim();
Reg_Duplicata.Ds_portador = List_CondPagamento[0].Ds_portador.Trim();
Reg_Duplicata.Nr_docto = "";
Reg_Duplicata.Dt_emissao = DateTime.Now;
Reg_Duplicata.Vl_documento = Convert.ToDecimal(VL_Com_Liberada.Text);
Reg_Duplicata.Vl_documento_padrao = Convert.ToDecimal(VL_Com_Liberada.Text);
decimal vl_saldoadto = TCN_LanAdiantamento.SaldoAdiantamentoDevolver(Reg_Empresa.Cd_empresa.Trim(), Reg_Clifor_Vendedor.Cd_clifor.Trim(), "S", null);
if (Reg_Duplicata.Vl_documento_padrao > 0)
{
if (Reg_Duplicata.Vl_documento_padrao > vl_saldoadto)
{
Reg_Duplicata.cVl_adiantamento = vl_saldoadto;
}
else
{
Reg_Duplicata.cVl_adiantamento = Reg_Duplicata.Vl_documento_padrao;
}
}
else
{
Reg_Duplicata.cVl_adiantamento = 0;
}
Reg_Duplicata.Parcelas = TCN_LanDuplicata.calcularParcelas(Reg_Duplicata);
}
else
{
TFLanDuplicata fDuplicata = new TFLanDuplicata();
fDuplicata.vNr_pedido = null;
fDuplicata.vSt_notafiscal = true;
fDuplicata.vCd_empresa = Reg_Empresa.Cd_empresa.Trim();
fDuplicata.vNm_empresa = Reg_Empresa.Nm_empresa.Trim();
fDuplicata.vCd_clifor = Reg_Clifor_Vendedor.Cd_clifor.Trim();
fDuplicata.vNm_clifor = Reg_Clifor_Vendedor.Nm_clifor.Trim();
fDuplicata.vCd_endereco = Reg_Endereco.Cd_endereco.Trim();
fDuplicata.vDs_endereco = Reg_Endereco.Ds_endereco.Trim();
if (List_Movimentacao.Count > 0)
{
fDuplicata.vCd_historico = List_Movimentacao[0].cd_historico;
fDuplicata.vDs_historico = List_Movimentacao[0].ds_historico;
}
fDuplicata.vTp_duplicata = DT_Pedido_Fiscal.Rows[0]["tp_duplicata"].ToString().Trim();
fDuplicata.vDs_tpduplicata = DT_Pedido_Fiscal.Rows[0]["ds_tpduplicata"].ToString().Trim();
fDuplicata.vTp_mov = DT_Pedido_Fiscal.Rows[0]["tp_movimento"].ToString().Trim().ToUpper() == "E" ? "P" :
DT_Pedido_Fiscal.Rows[0]["tp_movimento"].ToString().Trim().ToUpper() == "S" ? "R" : "";
fDuplicata.vTp_docto = DT_Pedido_Fiscal.Rows[0]["tp_docto"].ToString().Trim();
fDuplicata.vDs_tpdocto = DT_Pedido_Fiscal.Rows[0]["ds_tpdocto"].ToString().Trim();
if (List_TPDuplicata[0].St_gerarboletoauto.Trim().ToUpper().Equals("S"))
{
TList_CadContaGer List_Conta = TCN_CadContaGer.Buscar(List_TPDuplicata[0].Cd_contager_boletoauto, "", null, "", "", "", "", 0, "", "", "", "", 0, null);
fDuplicata.vSt_gerarboletoauto = List_TPDuplicata[0].St_gerarboletoauto;
fDuplicata.vCd_contager = List_TPDuplicata[0].Cd_contager_boletoauto;
fDuplicata.vDs_contager = List_TPDuplicata[0].Ds_contager_boletoauto;
}
if (List_CondPagamento.Count > 0)
{
fDuplicata.vCd_condpgto = List_CondPagamento[0].Cd_condpgto.Trim();
fDuplicata.vDs_condpgto = List_CondPagamento[0].Ds_condpgto.Trim();
fDuplicata.vSt_comentrada = List_CondPagamento[0].St_comentrada.Trim();
fDuplicata.vCd_juro = List_CondPagamento[0].Cd_juro.Trim();
fDuplicata.vDs_juro = List_CondPagamento[0].Ds_juro.Trim();
fDuplicata.vTp_juro = List_CondPagamento[0].Tp_juro.Trim();
fDuplicata.vCd_moeda = CD_Moeda;
// fDuplicata.vDs_moeda = List_Dados_Pedido[0].Ds_moeda;
// fDuplicata.vSigla_moeda = List_Dados_Pedido[0].Sigla;
fDuplicata.vQt_dias_desdobro = List_CondPagamento[0].Qt_diasdesdobro;
fDuplicata.vQt_parcelas = List_CondPagamento[0].Qt_parcelas;
fDuplicata.vPc_jurodiario_atrazo = List_CondPagamento[0].Pc_jurodiario_atrazo;
fDuplicata.vCd_portador = List_CondPagamento[0].Cd_portador.Trim();
fDuplicata.vDs_portador = List_CondPagamento[0].Ds_portador.Trim();
fDuplicata.vSt_solicitardtvencto = List_CondPagamento[0].St_solicitardtvenctobool;
}
fDuplicata.vNr_docto = "0";
fDuplicata.vDt_emissao = DateTime.Now.ToString();
fDuplicata.vVl_documento = Convert.ToDecimal(VL_Com_Liberada.Text);
if (fDuplicata.ShowDialog() == DialogResult.OK)
{
Reg_Duplicata = (fDuplicata.dsDuplicata[0] as TRegistro_LanDuplicata);
}
else
{
MessageBox.Show("Obrigatório informar financeiro para gravar aplicação.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return(null);
}
}
Duplicata.Add(Reg_Duplicata);
return(Duplicata);
}
return(Duplicata);
}
}
return(Duplicata);
}
private void BB_Alterar_Click(object sender, EventArgs e)
{
if (tabControl1.SelectedIndex == 0)
{
if (!(BS_Duplicata.List as IEnumerable <TRegistro_LanDuplicata>).ToList().Exists(r => r.St_liquidar))
{
MessageBox.Show("Nenhum registro selecionado para auditar.", "Informativo", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else if (MessageBox.Show("Confirma auditar todos registros selecionados, está opção não poderá ser desfeita.",
"Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No)
{
return;
}
TList_RegLanDuplicata _LanDuplicatas = new TList_RegLanDuplicata();
(BS_Duplicata.List as IEnumerable <TRegistro_LanDuplicata>).ToList().FindAll(r => r.St_liquidar).ForEach(p =>
{
_LanDuplicatas.Add(p);
});
try
{
TCN_LanDuplicata.AuditarDuplicatas(_LanDuplicatas, null);
MessageBox.Show("Auditado com sucesso.", "Informativo", MessageBoxButtons.OK, MessageBoxIcon.Information);
(BS_Duplicata.DataSource as TList_RegLanDuplicata).RemoveAll(r => r.St_liquidar = true);
BS_Duplicata.ResetBindings(true);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
else
{
if (!(bsCaixa.List as IEnumerable <TRegistro_LanCaixa>).ToList().Exists(r => r.St_conciliar))
{
MessageBox.Show("Nenhum registro selecionado para auditar.", "Informativo", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else if (MessageBox.Show("Confirma auditar todos registros selecionados, está opção não poderá ser desfeita.",
"Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No)
{
return;
}
TList_LanCaixa _LanCaixas = new TList_LanCaixa();
(bsCaixa.List as IEnumerable <TRegistro_LanCaixa>).ToList().FindAll(r => r.St_conciliar).ForEach(p =>
{
_LanCaixas.Add(p);
});
try
{
TCN_LanCaixa.AuditarCaixa(_LanCaixas, null);
MessageBox.Show("Auditado com sucesso.", "Informativo", MessageBoxButtons.OK, MessageBoxIcon.Information);
(bsCaixa.DataSource as TList_LanCaixa).RemoveAll(r => r.St_conciliar);
bsCaixa.ResetBindings(true);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
}
private void ImprimirDuplicata()
{
if (BS_Duplicata.Current != null)
{
//Buscar parcela
TList_RegLanDuplicata lDup =
TCN_LanDuplicata.Busca((BS_Duplicata.Current as TRegistro_LanDuplicata).Cd_empresa,
(BS_Duplicata.Current as TRegistro_LanDuplicata).Nr_lancto.ToString(),
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
0,
string.Empty,
null);
lDup[0].Parcelas =
new TCD_LanParcela().Select(
new Utils.TpBusca[]
{
new Utils.TpBusca()
{
vNM_Campo = "a.cd_empresa",
vOperador = "=",
vVL_Busca = "'" + lDup[0].Cd_empresa.Trim() + "'"
},
new Utils.TpBusca()
{
vNM_Campo = "a.nr_lancto",
vOperador = "=",
vVL_Busca = "" + lDup[0].Nr_lancto + ""
}
}, 0, string.Empty, string.Empty, string.Empty);
if (lDup.Count > 0)
{
using (FormRelPadrao.TFGerenciadorImpressao fImp = new FormRelPadrao.TFGerenciadorImpressao())
{
//Buscar dados Empresa
CamadaDados.Diversos.TList_CadEmpresa lEmpresa =
CamadaNegocio.Diversos.TCN_CadEmpresa.Busca(lDup[0].Cd_empresa,
string.Empty,
string.Empty,
null);
//Buscar dados do sacado
CamadaDados.Financeiro.Cadastros.TList_CadClifor lSacado =
CamadaNegocio.Financeiro.Cadastros.TCN_CadClifor.Busca_Clifor(lDup[0].Cd_clifor,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
//Buscar endereco sacado
if (lSacado.Count > 0)
{
lSacado[0].lEndereco =
CamadaNegocio.Financeiro.Cadastros.TCN_CadEndereco.Buscar(lDup[0].Cd_clifor,
lDup[0].Cd_endereco,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
0,
null);
}
fImp.St_enabled_enviaremail = true;
fImp.pCd_clifor = lDup[0].Cd_clifor;
fImp.pMensagem = "DUPLICATAS DO DOCUMENTO Nº" + lDup[0].Nr_docto;
if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail))
{
TCN_LayoutDuplicata.Imprime_Duplicata(Altera_Relatorio,
lDup[0].Parcelas,
lEmpresa,
lSacado,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pSt_enviaremail,
fImp.pDestinatarios,
"DUPLICATAS(S) DO DOCUMENTO Nº " + lDup[0].Nr_docto,
fImp.pDs_mensagem);
Altera_Relatorio = false;
}
}
}
}
}
private void LancarFinanceiro()
{
if (bsEmpreendimento.Current != null)
{
if ((bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).St_registro.Trim().ToUpper().Equals("A"))
{
using (TFLanDuplicata fDuplicata = new TFLanDuplicata())
{
fDuplicata.vCd_empresa = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Cd_empresa;
fDuplicata.vNm_empresa = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Nm_empresa;
fDuplicata.cd_empresa.Enabled = false;
fDuplicata.bb_empresa.Enabled = false;
fDuplicata.St_empreendimento = true;
if (fDuplicata.ShowDialog() == DialogResult.OK)
{
//Ratear Centro de Custo
if (CamadaNegocio.ConfigGer.TCN_CadParamGer.BuscaVL_Bool("CRESULTADO_PROVISAO",
(fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_empresa,
null).Trim().ToUpper().Equals("S"))
{
using (TFRateioCResultado fRateio = new TFRateioCResultado())
{
fRateio.vVl_Documento = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Vl_documento_padrao;
//fDupCCusto.Id_empreendimento = (bsEmpreendimento.Current as CamadaDados.Financeiro.Empreendimento.TRegistro_Empreendimento).Id_empreendimento.Value.ToString();
fRateio.Tp_mov = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Tp_mov;
fRateio.ShowDialog();
(fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).lCustoLancto = fRateio.lCResultado;
(fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).lCustoLanctoDel = fRateio.lCResultadoDel;
}
}
try
{
string ret = TCN_LanDuplicata.GravarDuplicata((fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata), false, null);
if (ret.Trim() != "")
{
string lan = CamadaDados.TDataQuery.getPubVariavel(ret, "@P_NR_LANCTO");
MessageBox.Show("Lançamento Financeiro nr:" + lan + " Gravado com Sucesso!", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
CamadaDados.Financeiro.Bloqueto.blListaTitulo lBloqueto =
CamadaNegocio.Financeiro.Bloqueto.TCN_Titulo.Buscar((fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_empresa,
(fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_lancto,
decimal.Zero,
decimal.Zero,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
decimal.Zero,
decimal.Zero,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
false,
0,
null);
if (lBloqueto.Count > 0)
{
//Chamar tela de impressao para o bloqueto
using (TFGerenciadorImpressao fImp = new TFGerenciadorImpressao())
{
fImp.St_enabled_enviaremail = true;
fImp.pCd_clifor = (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Cd_clifor;
fImp.pMensagem = "BLOQUETOS DO DOCUMENTO Nº" + (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_docto;
if ((fImp.ShowDialog() == DialogResult.OK) || (fImp.pSt_enviaremail))
{
TCN_LayoutBloqueto.Imprime_Bloqueto(false,
lBloqueto,
fImp.pSt_imprimir,
fImp.pSt_visualizar,
fImp.pSt_enviaremail,
fImp.pSt_exportPdf,
fImp.Path_exportPdf,
fImp.pDestinatarios,
"BLOQUETO(S) DO DOCUMENTO Nº " + (fDuplicata.dsDuplicata.Current as TRegistro_LanDuplicata).Nr_docto,
fImp.pDs_mensagem,
false);
}
}
}
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message.Trim());
}
}
}
}
else
{
MessageBox.Show("Não é permitido lançar financeiro para empreendimento com status diferente <ATIVO>.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
else
{
MessageBox.Show("Necessario selecionar empreendimento para lançar financeiro.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
