Ejemplo n.º 1
0
        public static string Gravar(TRegistro_CreditoClifor val,
                                    CamadaDados.Financeiro.Caixa.TRegistro_LanCaixa rCaixa,
                                    BancoDados.TObjetoBanco banco)
        {
            bool st_transacao          = false;
            TCD_CreditoClifor qtb_cred = new TCD_CreditoClifor();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_cred.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_cred.Banco_Dados = banco;
                }
                //Gravar Credito
                val.Id_creditostr = CamadaDados.TDataQuery.getPubVariavel(qtb_cred.Gravar(val), "@P_ID_CREDITO");
                //Gravar Caixa
                CamadaNegocio.Financeiro.Caixa.TCN_LanCaixa.GravaLanCaixa(rCaixa, qtb_cred.Banco_Dados);
                //Gravar Credito X Caixa
                TCN_CreditoClifor_X_Caixa.Gravar(new TRegistro_CreditoClifor_X_Caixa()
                {
                    Cd_contager    = rCaixa.Cd_ContaGer,
                    Cd_empresa     = val.Cd_empresa,
                    Cd_lanctocaixa = rCaixa.Cd_LanctoCaixa,
                    Id_credito     = val.Id_credito
                }, qtb_cred.Banco_Dados);
                if (st_transacao)
                {
                    qtb_cred.Banco_Dados.Commit_Tran();
                }
                return(val.Id_creditostr);
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_cred.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro gravar credito: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_cred.deletarBanco_Dados();
                }
            }
        }
Ejemplo n.º 2
0
        public static string Excluir(TRegistro_CreditoClifor val, BancoDados.TObjetoBanco banco)
        {
            bool st_transacao          = false;
            TCD_CreditoClifor qtb_cred = new TCD_CreditoClifor();

            try
            {
                if (banco == null)
                {
                    st_transacao = qtb_cred.CriarBanco_Dados(true);
                }
                else
                {
                    qtb_cred.Banco_Dados = banco;
                }
                qtb_cred.Excluir(val);
                if (st_transacao)
                {
                    qtb_cred.Banco_Dados.Commit_Tran();
                }
                return(val.Id_creditostr);
            }
            catch (Exception ex)
            {
                if (st_transacao)
                {
                    qtb_cred.Banco_Dados.RollBack_Tran();
                }
                throw new Exception("Erro excluir credito: " + ex.Message.Trim());
            }
            finally
            {
                if (st_transacao)
                {
                    qtb_cred.deletarBanco_Dados();
                }
            }
        }