public static String Grava(string xcodigo,
string xproduto,
string xlinha1,
string xlinha2,
string xlinha3,
string xlinha4,
string xlinha5
)
{
if (xproduto == "")
{
xproduto = "0";
}
if ((xcodigo != String.Empty) && (xproduto != String.Empty))
{
string script = "INSERT INTO boleto_mensagens VALUES ( " +
xcodigo +
", " + xproduto +
", " + Srelib.QStr(xlinha1) +
", " + Srelib.QStr(xlinha2) +
", " + Srelib.QStr(xlinha3) +
", " + Srelib.QStr(xlinha4) +
", " + Srelib.QStr(xlinha5) +
" ) ";
//" where nome=" + Rgblib.QStr(pParametro);
SreDblib.ExecScript(script);
}
return(" ");
}
public static String Grava(string xlogin,
string xdata,
string xhora,
string xtabela,
string xoperacao,
string xobs,
string xacao)
{
if (xlogin != String.Empty)
{
if (Convert.ToInt32(xhora.Substring(0, 2)) > 23)
{
xhora = "00:00:00";
}
string script = "INSERT INTO LOG VALUES ( " +
Srelib.QStr(xlogin) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdata) + " " + xhora) +
", newid() " +
", " + Srelib.QStr(xtabela) +
", " + Srelib.QStr(xoperacao) +
", " + Srelib.QStr(xobs) +
", " + Srelib.QStr(xacao) +
" ) ";
//" where nome=" + Rgblib.QStr(pParametro);
SreDblib.ExecScript(script);
}
return(" ");
}
public static String Altera(string xID,
string xnome,
string xdescricao,
string xorgao,
string xdivulgacao,
string xperiodicidade,
string xtipo,
string xinicio,
string xfim,
string xdmais,
Boolean xativo,
string xobserva_1,
string xobserva_2)
{
string script = "UPDATE INDEXADORES SET " +
" descricao = " + Srelib.QStr(xdescricao) +
" ,orgao = " + Srelib.QStr(xorgao) +
" ,divulgacao = " + Srelib.QStr(xdivulgacao) +
" ,inicio = " + xinicio +
" ,fim = " + xfim +
" ,dmais = " + xdmais +
", ativo = " + Convert.ToString(Convert.ToInt16(xativo)) +
" ,observa_1 = " + Srelib.QStr(xobserva_1) +
" ,observa_2 = " + Srelib.QStr(xobserva_2) +
" where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String GravaSaldoInicial(string xcod_conta,
string xdata,
string xdescricao,
string xcomplemento,
string xsaldo_i,
string xsaldo_aplicacaoD,
string xsaldo_aplicacaoB,
string xdtregistro)
{
if (xsaldo_i.Trim() == "")
{
xsaldo_i = "0.00";
}
if (xcod_conta != String.Empty)
{
string script = "INSERT INTO CONTAS_SALDO_INICIAL VALUES ( " +
Srelib.QStr(xcod_conta) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdata)) +
", " + Srelib.QStr(xdescricao) +
", " + Srelib.QStr(xcomplemento) +
", " + Srelib.forcaponto(xsaldo_i) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtregistro)) +
", " + Srelib.forcaponto(xsaldo_aplicacaoD) +
", " + Srelib.forcaponto(xsaldo_aplicacaoB) +
" ) ";
SreDblib.ExecScript(script);
}
return(" ");
}
public static String AlteraContaSaldoInicial(string xID,
string xcod_conta,
string xdata,
string xdescricao,
string xcomplemento,
string xsaldo_i,
string xsaldo_aplicacaoD,
string xsaldo_aplicacaoB,
string xdtregistro)
{
string script = "UPDATE CONTAS_SALDO_INICIAL SET " +
" cod_conta = " + Srelib.QStr(xcod_conta) +
" ,data = " + Srelib.QStr(Srelib.DataAmericanasembarra(xdata)) +
" ,descricao = " + Srelib.QStr(xdescricao) +
" ,complemento = " + Srelib.QStr(xcomplemento) +
" ,saldo_i = " + Srelib.forcaponto(xsaldo_i) +
" ,saldo_aplicacaoD = " + Srelib.forcaponto(xsaldo_aplicacaoD) +
" ,saldo_aplicacaoB = " + Srelib.forcaponto(xsaldo_aplicacaoB) +
" ,dtregistro = " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtregistro)) +
" where ID =" + xID;
//revisar quando mexer na cobrança bancária
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xID, string xnome, string xperiodicidade)
{
//Indexadores
string script = "";
script = " DELETE FROM INDEXADORES " +
" WHERE NOT EXISTS (SELECT 1 FROM VENDAS " +
" WHERE indexador = " + Srelib.QStr(xnome.ToUpper()) + " ) and nome = " + Srelib.QStr(xnome.ToUpper()) + " ";
SreDblib.ExecScript(script);
//
//Campo
if (xperiodicidade == "DIARIA")
{
script = "if not exists(select 1 from vendas where indexador = " + Srelib.QStr(xnome.ToUpper()) + ") " +
" ALTER TABLE TAXAS_DIARIAS " +
" DROP COLUMN [" + xnome.ToUpper() + "]";
}
else
{
script = "if not exists(select 1 from vendas where indexador = " + Srelib.QStr(xnome.ToUpper()) + ") " +
" ALTER TABLE TAXAS_MENSAIS " +
" DROP COLUMN [" + xnome.ToUpper() + "]";
}
SreDblib.ExecScript(script);
return(" ");
}
public static String IncluiTaxas(string xID,
string xmes,
string xano,
string xstring_altera,
string xstring_altera2)
{
string script = "";
script = "select ID from TAXAS_MENSAIS where mes = " + xmes + " and ano = " + xano + " ";
if (!SreDblib.TemNaTabela(script))
{
script = "INSERT INTO TAXAS_MENSAIS VALUES ( " + xmes + ", " + xano + ", " +
xstring_altera + " ) ";
}
else
{
script = "UPDATE taxas_mensais SET " +
xstring_altera2 +
" where mes = " + xmes + " and ano = " + xano;
}
SreDblib.ExecScript(script);
return(" ");
}
public static String Grava(string xcodigo,
string xcod_banco,
string xcod_agencia,
string xcod_conta,
string xnome_agencia,
string xcidade,
string xuf,
string xcep,
string xlimite_cheque,
string xconta_contabil,
string xcomplemento,
string xcombo)
{
if (xcod_banco != String.Empty)
{
string script = "INSERT INTO CONTAS VALUES ( " +
Srelib.QStr(xcodigo) +
", " + Srelib.QStr(xcod_banco) +
", " + Srelib.QStr(xcod_agencia) +
", " + Srelib.QStr(xcod_conta) +
", " + Srelib.QStr(xnome_agencia) +
", " + Srelib.QStr(xcidade) +
", " + Srelib.QStr(xuf) +
", " + Srelib.QStr(xcep) +
", " + Srelib.forcaponto(xlimite_cheque) +
", " + Srelib.QStr(xconta_contabil) +
", " + Srelib.QStr(xcomplemento) +
", " + xcombo +
" ) ";
SreDblib.ExecScript(script);
}
return(" ");
}
public static String Altera(string xlogin,
string xsenha,
string xnome,
string xsetor,
string xfuncao,
string xfone,
Int32 xperfil,
string xemail,
string xalcada,
Boolean xativo
)
{
if (xlogin != String.Empty)
{
string script = "UPDATE USUARIO SET " +
" Senha = " + Srelib.QStr(xsenha) +
" ,Nome = " + Srelib.QStr(xnome) +
" ,Setor = " + Srelib.QStr(xsetor) +
" ,Funcao = " + Srelib.QStr(xfuncao) +
" ,Fone = " + Srelib.QStr(xfone) +
" ,email = " + Srelib.QStr(xemail) +
" ,alcada = " + Srelib.QStr(xalcada) +
" ,ativo = " + Convert.ToString(Convert.ToInt16(xativo)) +
" where Login = "******" ");
}
public static String AlteraConta(string xID,
string xcod_banco,
string xcod_agencia,
string xcod_conta,
string xnome_agencia,
string xcidade,
string xuf,
string xcep,
string xlimite_cheque,
string xconta_contabil,
string xcomplemento,
string xcombo)
{
string script = "UPDATE CONTAS SET " +
" cod_banco = " + Srelib.QStr(xcod_banco) +
" ,cod_agencia = " + Srelib.QStr(xcod_agencia) +
" ,cod_conta = " + Srelib.QStr(xcod_conta) +
" ,nome_agencia = " + Srelib.QStr(xnome_agencia) +
" ,cidade = " + Srelib.QStr(xcidade) +
" ,uf = " + Srelib.QStr(xuf) +
" ,cep = " + Srelib.QStr(xcep) +
" ,limite_cheque = " + Srelib.forcaponto(xlimite_cheque) +
" ,conta_contabil = " + Srelib.QStr(xconta_contabil) +
" ,complemento = " + Srelib.QStr(xcomplemento) +
" ,combo = " + Srelib.QStr(xcombo) +
" where ID =" + xID;
//revisar quando mexer na cobrança bancária
SreDblib.ExecScript(script);
return(" ");
}
public static String GravaTaxa(string xmes, string xano, string xnome, string xvalor)
{
if (xvalor.Trim() == "")
{
xvalor = "0";
}
if (xmes != string.Empty)
{
string script = "UPDATE TAXAS_MENSAIS " +
" SET " + xnome + " = " + Srelib.forcaponto(xvalor) +
" WHERE MES = " +
Srelib.QStr(xmes) +
" AND ANO = " +
Srelib.QStr(xano);
//Srelib.QStr(Srelib.QStr0(xmes, 2)) +
// " AND ANO = " +
//Srelib.QStr(Srelib.QStr0(xano, 4));
//" where nome=" + Rgblib.QStr(pParametro);
SreDblib.ExecScript(script);
}
return(" ");
}
public static String ExcluiLancamento(string xLancamento)
{
string script = "DELETE contas_pagar where lancamento =" + xLancamento;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiTaxas(string xID)
{
string script = "DELETE taxas_mensais where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xID)
{
string script = "DELETE CLIENTES where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiReceita(string xID)
{
string script = "DELETE classe_receitas where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiTipo(string xID)
{
string script = "DELETE PRODUTO_TIPO where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xID)
{
string script = "DELETE PRODUTO where ID =" + xID + " AND ATIVO = 0 ";
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiCarta(string xID)
{
string script = "DELETE modelo_cartas where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiTaxas(string xID)
{
string script = "DELETE TAXAS_DIARIAS where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiBanco(string xID)
{
string script = "DELETE bancos_2 where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xID)
{
string script = "DELETE boleto_mensagens where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiContaSaldoInicial(string xID)
{
string script = "DELETE CONTAS_SALDO_INICIAL where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xID)
{
string script = "DELETE contas_pagar where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String ExcluiConta(string xID)
{
string script = "DELETE CONTAS where ID =" + xID;
SreDblib.ExecScript(script);
return(" ");
}
public static String GravaCampoTaxa(string xnome,
string xperiodicidade,
string xtipo)
{
string script = "";
if (xnome != String.Empty)
{
if (xperiodicidade == "DIARIA")
{
if (xtipo == "VALOR")
{
script = "if not exists(select 1 from syscolumns where id = object_id('TAXAS_DIARIAS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" ALTER TABLE TAXAS_DIARIAS " +
" ADD [" + xnome.ToUpper() + "] [decimal](18, 2) NULL ";
SreDblib.ExecScript(script);
}
else
{
script = "if not exists(select 1 from syscolumns where id = object_id('TAXAS_DIARIAS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" ALTER TABLE TAXAS_DIARIAS " +
" ADD [" + xnome.ToUpper() + "] [decimal](18, 8) NULL ";
SreDblib.ExecScript(script);
}
//
script = "if exists(select 1 from syscolumns where id = object_id('TAXAS_DIARIAS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" UPDATE TAXAS_DIARIAS " +
" SET " + xnome.ToUpper() + " = 0 ";
//
SreDblib.ExecScript(script);
//
}
if (xperiodicidade == "MENSAL")
{
if (xtipo == "VALOR")
{
script = "if not exists(select 1 from syscolumns where id = object_id('TAXAS_MENSAIS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" ALTER TABLE TAXAS_MENSAIS " +
" ADD [" + xnome.ToUpper() + "] [decimal](18, 2) NULL ";
SreDblib.ExecScript(script);
}
else
{
script = "if not exists(select 1 from syscolumns where id = object_id('TAXAS_MENSAIS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" ALTER TABLE TAXAS_MENSAIS " +
" ADD [" + xnome.ToUpper() + "] [decimal](18, 8) NULL ";
SreDblib.ExecScript(script);
}
//
script = "if exists(select 1 from syscolumns where id = object_id('TAXAS_MENSAIS') and name = " + Srelib.QStr(xnome.ToUpper()) + ")" +
" UPDATE TAXAS_MENSAIS " +
" SET " + xnome.ToUpper() + " = 0 ";
//
SreDblib.ExecScript(script);
}
}
return(" ");
}
public static String Grava(ref string xlancamento,
string xproduto,
string xclasse,
string xfornecedor,
string xdescricao,
string xdtprevista,
decimal xvlr_previsto,
string xdtrealizado,
decimal xvlr_realizado,
string xconta,
string xdocumento,
string xdtdocumento,
string xcheque,
string xcmc7,
string xdtcompensacao,
int xcontabil,
string xintegracao_contabil,
string xpedido_compra,
string xgrupo,
int xnominal)
{
//
if (xlancamento != String.Empty)
{
//Check de Lançamento
if (uContasPagar.LancamentoExiste(xlancamento))
{
xlancamento = uContasPagar.PegaNovoCodigoCPagar();
}
//
string script = "INSERT INTO CONTAS_PAGAR VALUES ( " +
Srelib.QStr(xlancamento) +
", " + Srelib.QStr(xproduto) +
", " + Srelib.QStr(xclasse) +
", " + Srelib.QStr(xfornecedor) +
", " + Srelib.QStr(xdescricao) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtprevista)) +
", " + Srelib.forcaponto(Convert.ToString(xvlr_previsto)) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtrealizado)) +
", " + Srelib.forcaponto(Convert.ToString(xvlr_realizado)) +
", " + Srelib.QStr(xconta) +
", " + Srelib.QStr(xdocumento) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtdocumento)) +
", " + Srelib.QStr(xcheque) +
", " + Srelib.QStr(xcmc7) +
", " + Srelib.QStr(Srelib.DataAmericanasembarra(xdtcompensacao)) +
", " + Convert.ToString(xcontabil) +
", " + Srelib.QStr(xintegracao_contabil) +
", " + Srelib.QStr(xpedido_compra) +
", " + Srelib.QStr(xgrupo) +
", " + Convert.ToString(xnominal) +
" ) ";
//
SreDblib.ExecScript(script);
}
return(" ");
}
public static String ExcluiDespesa(string xID)
{
string script = "DELETE classe_despesas where ID =" + xID;
SreDblib.ExecScript(script);
return " ";
}
public static String AlteraProdutoCadastro(string xproduto,
Boolean xCadastro)
{
string script = "UPDATE PRODUTO SET " +
" ativo = " + Convert.ToInt16(xCadastro) +
" where ID =" + Srelib.QStr(xproduto);
SreDblib.ExecScript(script);
return(" ");
}
public static String Exclui(string xnome)
{
if (xnome != String.Empty)
{
string script = "DELETE parametros " +
" where nome = " + Srelib.QStr(xnome);
SreDblib.ExecScript(script);
}
return(" ");
}
public static String ExcluiCadPermissao(string xpermissao)
{
if (xpermissao != String.Empty)
{
string script = "DELETE CADPERMISSOES " +
" where Permissao = " + Srelib.QStr(xpermissao);
SreDblib.ExecScript(script);
}
return(" ");
}