public static void EstornarLote(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; } //Inicio do processo de estornar lote if (val.St_registro.Trim().ToUpper().Equals("P")) { if (val.ListaCaixa.Count > 0) { //Verificar se nao existe alguma parcela que originou bloqueto ja liquidada foreach (var p in val.ListaBloqueto) { CamadaDados.Financeiro.Duplicata.TList_RegLanParcela lParcela = new CamadaDados.Financeiro.Duplicata.TCD_LanParcela(qtb_lote.Banco_Dados).Select( new TpBusca[] { new TpBusca() { vNM_Campo = "isnull(a.st_registro, 'A')", vOperador = "in", vVL_Busca = "('L', 'P')" }, new TpBusca() { vNM_Campo = "isnull(d.st_registro, 'A')", vOperador = "=", vVL_Busca = "'A'" }, new TpBusca() { vNM_Campo = string.Empty, vOperador = "exists", vVL_Busca = "(select 1 from tb_cob_titulo x " + "where x.cd_empresa = a.cd_empresa " + "and x.nr_lancto = a.nr_lancto " + "and x.cd_parcela = a.cd_parcela " + "and x.cd_empresa = '" + p.Cd_empresa.Trim() + "'" + "and x.nr_lancto = " + p.Nr_lancto.ToString() + "and x.cd_parcela = " + p.Cd_parcela.ToString() + ")" } }, 0, string.Empty, "a.dt_vencto, c.nm_clifor", string.Empty); if (lParcela.Count > 0) { throw new Exception("Lote não podera ser estornado, existe parcela com liquidação.\r\n\r\n" + "Empresa: " + p.Cd_empresa.Trim() + "\r\n" + "Duplicata: " + p.Nr_lancto.ToString() + "/" + p.Cd_parcela.ToString() + "\r\n\r\n" + "Obrigatorio estornar primeiro a liquidação."); } } val.ListaCaixa.ForEach(p => { //Excluir registro Lote X Caixa TCN_Bloqueto_X_Caixa.Excluir(new TRegistro_Lote_X_Caixa() { Cd_contager = p.Cd_ContaGer, Cd_lanctocaixa = p.Cd_LanctoCaixa, Id_lote = val.Id_lote.Value }, qtb_lote.Banco_Dados); //Chamar metodo estorno de caixa Caixa.TCN_LanCaixa.EstornarCaixa(p, null, qtb_lote.Banco_Dados); }); //Alterar o valor da taxa no 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 = val.Id_lote.Value, Nr_lancto = p.Nr_lancto, Vl_taxa = 0 }, qtb_lote.Banco_Dados)); //Alterar o lote val.St_registro = "A"; val.Vl_taxa = 0; qtb_lote.Gravar(val); if (st_transacao) { qtb_lote.Banco_Dados.Commit_Tran(); } } else { throw new Exception("Não existe lançamento de caixa para ser estornado."); } } else { throw new Exception("Lote não se encontra processado."); } } 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(); } } }