private void ProtestarTitulo()
{
if (dsBloqueto.Current != null)
{
if (!(dsBloqueto.Current as blTitulo).St_registro.Trim().ToUpper().Equals("A"))
{
MessageBox.Show("Permitido protestar somente titulo ABERTO.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if ((dsBloqueto.Current as blTitulo).St_protestadobool)
{
MessageBox.Show("Titulo ja se encontra PROTESTADO.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
if (MessageBox.Show("Confirma protesto do titulo?", "Pergunta", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button1) == DialogResult.Yes)
{
InputBox inp = new InputBox("00/00/0000", "Data Protesto.");
inp.Text = "Informar Data Protesto Titulo.";
DateTime dt_protesto;
try
{
dt_protesto = DateTime.Parse(inp.ShowDialog());
}
catch { dt_protesto = CamadaDados.UtilData.Data_Servidor(); }
try
{
(dsBloqueto.Current as blTitulo).St_protestado = "S";
(dsBloqueto.Current as blTitulo).Dt_protesto = dt_protesto;
TCN_Titulo.Gravar(dsBloqueto.Current as blTitulo, null);
MessageBox.Show("Titulo Protestado com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
afterBusca();
}
catch (Exception ex)
{ MessageBox.Show(ex.Message.Trim(), "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
}
}
}
private void BB_Conciliar_Click(object sender, EventArgs e)
{
if (bsBloqueto.Count > 0)
{
Cursor = Cursors.WaitCursor;
try
{
string msg = string.Empty;
if (TCN_Titulo.ConciliarRetorno(bsBloqueto.List as blListaTitulo, cbCfgBoleto.SelectedItem as TRegistro_CadCFGBanco, null, ref msg).Trim() != string.Empty)
{
MessageBox.Show("Conciliação de bloquetos realizada com sucesso." + (msg.Trim() != string.Empty ? "\r\n\r\nBloqueto que não foram compensados:\r\n" + msg.Trim() : string.Empty), "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
//Gravar tarifa de cobranca
if (((bsBloqueto.List as blListaTitulo).Sum(p => p.Vl_despesa_cobranca) > decimal.Zero ||
(cbCfgBoleto.SelectedItem as TRegistro_CadCFGBanco).Vl_taxa > decimal.Zero) &&
(!string.IsNullOrEmpty((cbCfgBoleto.SelectedItem as TRegistro_CadCFGBanco).Cd_historico_taxacob)))
{
try
{
TCN_Titulo.GravarTarifas(bsBloqueto.List as blListaTitulo,
cbCfgBoleto.SelectedItem as TRegistro_CadCFGBanco,
null);
MessageBox.Show("Tarifa(s) gravada(s) com sucesso.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex)
{
MessageBox.Show("Erro gravar tarifa: " + ex.Message);
}
}
//Verificar se empresa integra Vendas Externa
TList_CFGVendasExterna lCfg = TCN_CFGVendasExterna.Buscar((cbCfgBoleto.SelectedItem as TRegistro_CadCFGBanco).Empresa.Cd_empresa, null);
if (lCfg.Count > 0)
{
if (ValidarToken(lCfg[0].Login,
lCfg[0].Senha,
lCfg[0].Licenca,
lCfg[0].Integracao))
{
string mensagem = string.Empty;
(bsBloqueto.List as blListaTitulo)
.Where(x => x.Vl_recebido > decimal.Zero)
.ToList()
.ForEach(x =>
{
try
{
if (ServiceRest.DataService.BaixarBoletos(
new BaixarBoleto
{
CODIGO = x.Cd_integracao,
DATA_PAGAMENTO = x.Dt_credito.Value.ToString("yyyy-MM-dd HH:mm:ss"),
VALOR_PAGO = x.Vl_recebido.ToString("N2", new System.Globalization.CultureInfo("en-US", true))
}, _token))
{
x.St_baixadointegracao = "S";
TCN_Titulo.Gravar(x, null);
}
else
{
mensagem += "Boleto Nº" + x.Nosso_numero + " não foi integrada\r\n";
}
}
catch { mensagem += "Boleto Nº" + x.Nosso_numero + " não foi integrada\r\n"; }
});
if (string.IsNullOrWhiteSpace(mensagem))
{
MessageBox.Show("Relação de boletos não integrados com Vendas Externas.\r\n" + mensagem,
"Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
}
//Mover arquivos processados para pasta backup
if (!System.IO.Directory.Exists(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp"))
{
System.IO.Directory.CreateDirectory(path_retorno.Text + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp");
}
for (int i = 0; i < lArquivos.CheckedItems.Count; i++)
{
if (!System.IO.File.Exists(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim()))
{
System.IO.File.Move(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim(),
path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim());
}
else
{
System.IO.File.Delete(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim());
}
}
bsBloqueto.Clear();
MontarListaArqRet();
}
else
{
MessageBox.Show("Não existe bloqueto em aberto para compensar neste arquivo.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
//Mover arquivos processados para pasta backup
if (!System.IO.Directory.Exists(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp"))
{
System.IO.Directory.CreateDirectory(path_retorno.Text + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp");
}
for (int i = 0; i < lArquivos.CheckedItems.Count; i++)
{
if (!System.IO.File.Exists(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim()))
{
System.IO.File.Move(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim(),
path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim());
}
else
{
System.IO.File.Delete(path_retorno.Text.Trim() + System.IO.Path.DirectorySeparatorChar.ToString() + "bkp" + System.IO.Path.DirectorySeparatorChar.ToString() + lArquivos.CheckedItems[i].ToString().Trim());
}
}
bsBloqueto.Clear();
MontarListaArqRet();
}
//Cobrança
//gerarCobrancaPorEmail();
}
catch (Exception ex)
{ MessageBox.Show("Erro: " + ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error); }
finally
{ Cursor = Cursors.Default; }
}
else
{
MessageBox.Show("Não existe titulos para ser conciliado.", "Mensagem", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
}
public static string Excluir(TRegistro_LoteBloqueto val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_LoteBloqueto qtb_lote = new TCD_LoteBloqueto();
try
{
if (banco == null)
{
st_transacao = qtb_lote.CriarBanco_Dados(true);
}
else
{
qtb_lote.Banco_Dados = banco;
}
//Alterar o status dos bloquetos para A - Ativo
val.ListaBloqueto.ForEach(p =>
{
p.St_registro = "A";
TCN_Titulo.Gravar(p, qtb_lote.Banco_Dados);
//Deletar tabela lote X titulo
TCN_Lote_X_Titulo.Excluir(new TRegistro_Lote_X_Titulo()
{
Cd_empresa = p.Cd_empresa,
Cd_parcela = p.Cd_parcela,
Id_cobranca = p.Id_cobranca,
Id_lote = val.Id_lote.Value,
Nr_lancto = p.Nr_lancto
}, qtb_lote.Banco_Dados);
});
val.lBloquetosExcluir.ForEach(p =>
{
p.St_registro = "A";
TCN_Titulo.Gravar(p, qtb_lote.Banco_Dados);
//Deletar tabela lote X titulo
TCN_Lote_X_Titulo.Excluir(new TRegistro_Lote_X_Titulo()
{
Cd_empresa = p.Cd_empresa,
Cd_parcela = p.Cd_parcela,
Id_cobranca = p.Id_cobranca,
Id_lote = val.Id_lote.Value,
Nr_lancto = p.Nr_lancto
}, qtb_lote.Banco_Dados);
});
//Deletar Lote
qtb_lote.Excluir(val);
if (st_transacao)
{
qtb_lote.Banco_Dados.Commit_Tran();
}
return("OK");
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_lote.Banco_Dados.RollBack_Tran();
}
throw new Exception(ex.Message);
}
finally
{
if (st_transacao)
{
qtb_lote.deletarBanco_Dados();
}
}
}
public static string Gravar(TRegistro_LoteBloqueto val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_LoteBloqueto qtb_lote = new TCD_LoteBloqueto();
try
{
if (banco == null)
{
st_transacao = qtb_lote.CriarBanco_Dados(true);
}
else
{
qtb_lote.Banco_Dados = banco;
}
//Gravar Lote
string retorno = qtb_lote.Gravar(val);
//Deletar Bloquetos
val.lBloquetosExcluir.ForEach(p =>
{
TCN_Lote_X_Titulo.Excluir(new TRegistro_Lote_X_Titulo()
{
Cd_empresa = p.Cd_empresa,
Cd_parcela = p.Cd_parcela,
Id_cobranca = p.Id_cobranca,
Id_lote = val.Id_lote.Value,
Nr_lancto = p.Nr_lancto
}, qtb_lote.Banco_Dados);
//Verificar se o bloqueto tem liquidacao
object obj = new CamadaDados.Financeiro.Duplicata.TCD_LanLiquidacao(qtb_lote.Banco_Dados).BuscarEscalar(
new TpBusca[]
{
new TpBusca()
{
vNM_Campo = "a.cd_empresa",
vOperador = "=",
vVL_Busca = "'" + p.Cd_empresa.Trim() + "'",
},
new TpBusca()
{
vNM_Campo = "a.nr_lancto",
vOperador = "=",
vVL_Busca = p.Nr_lancto.ToString()
},
new TpBusca()
{
vNM_Campo = "a.cd_parcela",
vOperador = "=",
vVL_Busca = p.Cd_parcela.ToString()
},
new TpBusca()
{
vNM_Campo = "isnull(a.st_registro, 'A')",
vOperador = "<>",
vVL_Busca = "'C'"
}
}, "1");
if (obj != null)
{
if (obj.ToString().Equals("1"))
{
p.St_registro = "C";
}
else
{
p.St_registro = "A";
}
}
else
{
p.St_registro = "A";
}
TCN_Titulo.Gravar(p, qtb_lote.Banco_Dados);
});
//Gravar Bloquetos
val.ListaBloqueto.ForEach(p =>
{
TCN_Lote_X_Titulo.Gravar(new TRegistro_Lote_X_Titulo()
{
Cd_empresa = p.Cd_empresa,
Cd_parcela = p.Cd_parcela,
Id_cobranca = p.Id_cobranca,
Id_lote = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(retorno, "@P_ID_LOTE")),
Nr_lancto = p.Nr_lancto
}, qtb_lote.Banco_Dados);
});
if (st_transacao)
{
qtb_lote.Banco_Dados.Commit_Tran();
}
return(retorno);
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_lote.Banco_Dados.RollBack_Tran();
}
throw new Exception(ex.Message);
}
finally
{
if (st_transacao)
{
qtb_lote.deletarBanco_Dados();
}
}
}
public static string ProcessarLote(TRegistro_LoteBloqueto val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_LoteBloqueto qtb_lote = new TCD_LoteBloqueto();
try
{
if (banco == null)
{
st_transacao = qtb_lote.CriarBanco_Dados(true);
}
else
{
qtb_lote.Banco_Dados = banco;
}
//Lancamento de caixa no valor liquido
//Buscar historico na configuracao do banco
TList_CadCFGBanco lCfg = Cadastros.TCN_CadCFGBanco.Buscar(val.Id_configstr,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
string.Empty,
1,
qtb_lote.Banco_Dados);
if (lCfg.Count > 0)
{
if (string.IsNullOrEmpty(lCfg[0].Cd_historico_desconto))
{
throw new Exception("Não existe configuração de historico para desconto de bloquetos\r\n" +
"para a configuração " + val.Ds_config.Trim());
}
decimal total_bloquetos = val.ListaBloqueto.Sum(p => p.Vl_documento);
string retorno = TCN_LanCaixa.GravaLanCaixa(
new TRegistro_LanCaixa()
{
Cd_ContaGer = val.Cd_contager,
Cd_Empresa = val.Cd_empresa,
Cd_Historico = lCfg[0].Cd_historico_desconto,
ComplHistorico = "DESCONTO DE BLOQUETOS DO LOTE " + val.Id_lotestr,
Dt_lancto = val.Dt_processamento,
Nr_Docto = "LOTE" + val.Id_lotestr,
St_Estorno = "N",
Vl_PAGAR = 0,
Vl_RECEBER = total_bloquetos
}, qtb_lote.Banco_Dados);
//Amarrar este lancamento de caixa ao lote
//com o campo TP_Registro = D (DESCONTO)
TCN_Bloqueto_X_Caixa.Gravar(new TRegistro_Lote_X_Caixa()
{
Cd_contager = val.Cd_contager,
Cd_lanctocaixa = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(retorno, "@P_CD_LANCTOCAIXA")),
Id_lote = val.Id_lote.Value,
Tp_registro = "D"
}, qtb_lote.Banco_Dados);
//Lancar Taxa
if (string.IsNullOrEmpty(lCfg[0].Cd_historico_taxadesc))
{
throw new Exception("Não existe configuração de historico para taxa desconto de bloquetos\r\n" +
"para a configuração " + val.Ds_config.Trim());
}
retorno = TCN_LanCaixa.GravaLanCaixa(new TRegistro_LanCaixa()
{
Cd_ContaGer = val.Cd_contager,
Cd_Empresa = val.Cd_empresa,
Cd_Historico = lCfg[0].Cd_historico_taxadesc,
ComplHistorico = "TAXA DESCONTO BLOQUETOS DO LOTE " + val.Id_lotestr,
Dt_lancto = val.Dt_processamento,
Nr_Docto = "LOTE" + val.Id_lote,
St_Estorno = "N",
Vl_PAGAR = val.Vl_taxa,
Vl_RECEBER = decimal.Zero
}, qtb_lote.Banco_Dados);
//Amarrar este lancamento de caixa ao lote
//com o campo TP_Registro = T (TAXA)
TCN_Bloqueto_X_Caixa.Gravar(new TRegistro_Lote_X_Caixa()
{
Cd_contager = val.Cd_contager,
Cd_lanctocaixa = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(retorno, "@P_CD_LANCTOCAIXA")),
Id_lote = val.Id_lote.Value,
Tp_registro = "T"
}, qtb_lote.Banco_Dados);
//Gravar centro resultado taxa cobrança
if (!string.IsNullOrEmpty(lCfg[0].Cd_centroresultTXCob))
{
//Gravar Lancto Resultado
string id = CCustoLan.TCN_LanCCustoLancto.Gravar(
new CamadaDados.Financeiro.CCustoLan.TRegistro_LanCCustoLancto()
{
Cd_empresa = val.Cd_empresa,
Cd_centroresult = lCfg[0].Cd_centroresultTXCob,
Vl_lancto = val.Vl_taxa,
Dt_lancto = val.Dt_processamento
}, qtb_lote.Banco_Dados);
//Amarrar Lancto a Caixa
TCN_Caixa_X_CCusto.Gravar(new TRegistro_Caixa_X_CCusto()
{
Cd_contager = val.Cd_contager,
Cd_lanctocaixa = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(retorno, "@P_CD_LANCTOCAIXA")),
Id_ccustolan = decimal.Parse(id)
}, qtb_lote.Banco_Dados);
}
val.ListaBloqueto.ForEach(p =>
{
//Alterar status dos bloquetos para D - Descontado
p.St_registro = "D";
TCN_Titulo.Gravar(p, qtb_lote.Banco_Dados);
//Criar lista de lote x titulo
val.lBloquetos.Add(new TRegistro_Lote_X_Titulo()
{
Cd_empresa = p.Cd_empresa,
Cd_parcela = p.Cd_parcela,
Id_cobranca = p.Id_cobranca,
Id_lote = val.Id_lote.Value,
Nr_lancto = p.Nr_lancto,
Vl_documento = p.Vl_documento
});
});
//Calcular valor taxa por bloqueto
val.lBloquetos.ForEach(p => p.Vl_taxa = Math.Round(((val.Vl_taxa / total_bloquetos) * p.Vl_documento), 2));
decimal total_taxa = val.lBloquetos.Sum(p => p.Vl_taxa);
if (val.Vl_taxa != total_taxa)
{
val.lBloquetos[val.lBloquetos.Count - 1].Vl_taxa += (val.Vl_taxa - total_taxa);
}
//Gravar lote x titulo com o valor da taxa
val.lBloquetos.ForEach(p => TCN_Lote_X_Titulo.Gravar(p, qtb_lote.Banco_Dados));
//Limpar lista de bloquetos para
//que a gravacao do lote nao altere
//novamente a lista de bloquetos
val.ListaBloqueto.Clear();
//Alterar status do lote para processado
val.St_registro = "P";
Gravar(val, qtb_lote.Banco_Dados);
if (st_transacao)
{
qtb_lote.Banco_Dados.Commit_Tran();
}
return(retorno);
}
else
{
throw new Exception("Não existe configuração para emissão de bloquetos para a empresa " + val.Cd_empresa.Trim() +
" e conta gerencial " + val.Cd_contager.Trim());
}
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_lote.Banco_Dados.RollBack_Tran();
}
throw new Exception(ex.Message);
}
finally
{
if (st_transacao)
{
qtb_lote.deletarBanco_Dados();
}
}
}