public static string Gravar(TRegistro_Lan_CTB_LanMultiplo val, bool St_processar, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_Lan_CTB_LanMultiplo qtb_lan = new TCD_Lan_CTB_LanMultiplo();
try
{
if (banco == null)
{
st_transacao = qtb_lan.CriarBanco_Dados(true);
}
else
{
qtb_lan.Banco_Dados = banco;
}
//Gravar Lancto Multiplo
string retorno = qtb_lan.Grava(val);
val.Id_lan = Convert.ToDecimal(CamadaDados.TDataQuery.getPubVariavel(retorno, "@P_ID_LAN"));
//Excluir lancamentos a debito e credito avulso
val.lLanctoAvulsoDel.ForEach(p => TCN_LanctoAvulso.Excluir(p, qtb_lan.Banco_Dados));
//Gravar lancamentos a debito e credito avulso
val.lLanctoAvulso.ForEach(p =>
{
p.Id_lan = val.Id_lan;
TCN_LanctoAvulso.Gravar(p, qtb_lan.Banco_Dados);
});
if (St_processar)
{
ProcessarContabilAvulso(val, qtb_lan.Banco_Dados);
}
if (st_transacao)
{
qtb_lan.Banco_Dados.Commit_Tran();
}
return(retorno);
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_lan.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro gravar registro: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_lan.deletarBanco_Dados();
}
}
}
public static void ProcessarContabilAvulso(TRegistro_Lan_CTB_LanMultiplo val, BancoDados.TObjetoBanco banco)
{
bool st_transacao = false;
TCD_Lan_CTB_LanMultiplo qtb_lan = new TCD_Lan_CTB_LanMultiplo();
try
{
if (banco == null)
{
st_transacao = qtb_lan.CriarBanco_Dados(true);
}
else
{
qtb_lan.Banco_Dados = banco;
}
//Gravar lote
if (!val.Id_lotectb.HasValue)
{
val.Id_lotectbstr = TCN_LoteCTB.Gravar(new TRegistro_LoteCTB()
{
Tp_integracao = "AV"
}, qtb_lan.Banco_Dados);
}
//Criar lista de lancamentos contabeis
TList_LanContabil listaCre = new TList_LanContabil();
TList_LanContabil listaDeb = new TList_LanContabil();
val.lLanctoAvulso.ForEach(p =>
{
if (p.D_C.Trim().ToUpper().Equals("D"))
{
listaDeb.Add(new TRegistro_LanctosCTB()
{
Cd_empresa = val.Cd_empresa,
Data = val.Dt_lan,
Ds_compl_historico = val.Complhistorico,
Nr_docto = val.Nr_docto,
ID_LoteCTB = val.Id_lotectb,
Valor = p.Vl_lancto,
D_c = "D",
Cd_conta_ctb = p.Cd_conta_ctb
});
}
else if (p.D_C.Trim().ToUpper().Equals("C"))
{
listaCre.Add(new TRegistro_LanctosCTB()
{
Cd_empresa = val.Cd_empresa,
Data = val.Dt_lan,
Ds_compl_historico = val.Complhistorico,
Nr_docto = val.Nr_docto,
ID_LoteCTB = val.Id_lotectb,
Valor = p.Vl_lancto,
D_c = "C",
Cd_conta_ctb = p.Cd_conta_ctb
});
}
});
//Grava registro contabil
TCN_LanContabil.GravarContabil(listaDeb, listaCre, false, qtb_lan.Banco_Dados);
//Altera status lan multiplo para processado
val.St_registro = "P";//Processado
qtb_lan.Grava(val);
if (st_transacao)
{
qtb_lan.Banco_Dados.Commit_Tran();
}
}
catch (Exception ex)
{
if (st_transacao)
{
qtb_lan.Banco_Dados.RollBack_Tran();
}
throw new Exception("Erro processar registro: " + ex.Message.Trim());
}
finally
{
if (st_transacao)
{
qtb_lan.deletarBanco_Dados();
}
}
}