Beispiel #1
0
        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();
                }
            }
        }
Beispiel #2
0
        public static string Excluir(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;
                }
                //Excluir registros avulsos
                val.lLanctoAvulso.ForEach(p => TCN_LanctoAvulso.Excluir(p, qtb_lan.Banco_Dados));
                val.lLanctoAvulsoDel.ForEach(p => TCN_LanctoAvulso.Excluir(p, qtb_lan.Banco_Dados));
                //Excluir lote avulso
                qtb_lan.Deleta(val);
                if (st_transacao)
                {
                    qtb_lan.Banco_Dados.Commit_Tran();
                }
                return("OK");
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_lan.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro excluir registro: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_lan.deletarBanco_Dados();
                }
            }
        }
Beispiel #3
0
        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();
                }
            }
        }