Ir para conteúdo

gabrieldmello

Members
  • Total de itens

    10
  • Registro em

  • Última visita

Reputação

1 Comum

1 Seguidor

Sobre gabrieldmello

Informações Pessoais

  • Sexo
    Masculino
  1. gabrieldmello

    Boleto Caixa Conta Cedente

    Boa noite galera, estou com uma dúvida a respeito de um boleto cef. Meu gerente me passou os seguintes dados: Código da Agência: 0810 Conta Cedente: 1110 / operação 003 Digito Verificador da Conta Cedente: 8 Código da Carteira: SR Código Cedente: 072385 Digito Verificador Código Cedente: NÃO POSSUI SISTEMA CAIXA ECONOMICA: SIGCB E o código que estou utilizando, pede os seguintes: // DADOS DA SUA CONTA - CEF $dadosboleto["agencia"] = "0810"; // Num da agencia, sem digito $dadosboleto["conta"] = "1110"; // Num da conta, sem digito $dadosboleto["conta_dv"] = "8"; // Digito do Num da conta // DADOS PERSONALIZADOS - CEF $dadosboleto["conta_cedente"] = "072385"; // ContaCedente do Cliente, sem digito (Somente Números) $dadosboleto["conta_cedente_dv"] = ""; // Digito da ContaCedente do Cliente $dadosboleto["carteira"] = "SR"; // Código da Carteira: pode ser SR (Sem Registro) ou CR (Com Registro) - (Confirmar com gerente qual usar) Acreditei que tivesse feito da forma correta, fiz uma teste pagando um boleto sexta e não caiu nada na conta. O que me sugerem? Fico um pouco confuso quanto ao "Conta e Conta Cedente". Vi no código que ele preenche esse "conta_cedente" com 0 até completar 11 dígitos, o pagamento foi feito, mas nada caiu na conta. No código vi que ele não usa o número da conta, só esse conta_cedente. Atenciosamente, Gabriel
  2. gabrieldmello

    Aspboleto.com.br ou Atual?

    // DADOS DA SUA CONTA - CEF $dadosboleto["agencia"] = "0000"; // Num da agencia, sem digito $dadosboleto["conta"] = "0000"; // Num da conta, sem digito $dadosboleto["conta_dv"] = "0"; // Digito do Num da conta // DADOS PERSONALIZADOS - CEF $dadosboleto["conta_cedente"] = "000000"; // ContaCedente do Cliente, sem digito (Somente Números) $dadosboleto["conta_cedente_dv"] = "0"; // Digito da ContaCedente do Cliente $dadosboleto["carteira"] = "SR"; // Código da Carteira: pode ser SR (Sem Registro) ou CR (Com Registro) - (Confirmar com gerente qual usar) Xanbur, comecei a usar um script php que encontrei gratuito e atualizado. Porém estou me passando um pouco, o gerente me passou esses dados. O script pede Agencia, Conta, Dv Conta e a Conta Cedente. Realmente são dois números de conta?
  3. gabrieldmello

    Loop - saber quando é último item

    Dim i for i = 0 to rs.fields.Count - 1 response.Write(""""&(rs.fields(i).name)&"""") if (i<>(rs.fields.Count - 1)) then response.Write(",") end if next
  4. gabrieldmello

    Aspboleto.com.br ou Atual?

    Boa noite galera, Trabalho em uma empresa, sempre usamos uma forma de boleto do banco do brasil, assim desde quando entrei aqui. Hoje precisamos mudar para o boleto da caixa. Encontrei um código do VirtuaStore, porém é antigo, acho que os padrões mudaram, pois não consegui utiliza-lo. Ele pede umas informações sobre a conta, pedi todas que identifiquei como necessárias ao contador da empresa, não sei realmente quais são necessárias mexer, confesso. Resultado, estou pensando em comprar esse código de gerar boletos do aspboleto.com da caixa, por 60,00. O que me recomendam? O código que uso ainda é funcional? Boa Parte/Importante do Código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="..\global.inc" --> <%response.Buffer = true%> <%session.LCID = 1046%> <% '######################################################################################### '#---------------------------------------------------------------------------------------- '# BOLETO CEF - VERSÃO 1.0 '# Adaptado por: MJSIERRA@IG.COM.BR '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '... '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### %> <% '******************************** '****FUNÇÕES******************** '******************************** Function FormataData(Data) If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data) End Function '******************************** ' CONSTANTES '******************************** cons_banco = "104" 'bol_banco, Num do Banco 03 posições cons_dvbanco = "0" 'bol_dvbanco, Digito verificador do banco 01 posição cons_agencia = "XXXX" 'bol_agencia, sem digito 04 posições cons_conta = "XXXXX" 'bol_conta, ContaCedente (Somente Números) 05 posições cons_dvconta = "X" 'Digito verificador da CC 01 posição cons_carteira= "SR" 'Código da Carteira: pode ser SR (Sem Registro) ou CR (Com Registro) - (Confirmar com gerente qual usar) - bol_carteira cons_moeda = "9" cons_especie = "R$" cons_cedente = "Empresa" 'bol_cedente cons_dadoscedente = "Rua Empresa, 111 - Bairro - CEP: 55555-005" 'bol_dadoscedente cons_codigocedente= "XXXXXXXXXXX" 'bol_nr_cedente - 11 Caracteres cons_dvcodigocedente= "X" cons_taxaboleto = "2.95" '******************************** ' CARREGAR PERFIL CLIENTE '******************************** id = request.QueryString("id") set rs = conn.execute ("select * from fisica where codcpf = '"& id &"' ") fisica = rs("codigo") nome = rs("nome") CPF = rs("cpf") bolsaestudo = rs("bolsaestudo") valordabolsa = rs("valordabolsa") prouni = rs("prouni") set rs = conn.execute ("select * from inscricao where fisica = '"&fisica&"' ") inscricao=rs("codigo") curso = rs("codcurso") if curso=4 then ' valor=400 'mensalidade else valor=5 'mensalidade end if if(bolsaestudo=2 and valordabolsa=1) then ' 50% valor=valor/2 elseif(bolsaestudo=2 and valordabolsa=2) then ' 100% valor=0 elseif(bolsaestudo=1) then 'espaço para plano end if datahoje = now datavencimento = dateAdd("d",5,date) set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") if rs.eof then set rs = conn.execute ("insert into boleto (fisica, inscricao, valor, dataemissao, datavencimento) values ('"& fisica &"', '"&inscricao&"', '"&valor&"', '"&datahoje&"', '"&datavencimento&"')") else set rs = conn.execute ("update boleto set valor='"&valor&"' where fisica = '"& fisica &"' ") end if '******************************** ' VARIÁVEIS '******************************** var_sacado = nome 'Request.QueryString("sacador") var_CPFSacado= CPF 'Request.QueryString("cpf") '*************************************** Function Converten(pNumeron) Converten = Right(String(8,"0") &_ cstr(pNumeron * 100),8) End Function '**************************************** '************************************ 'Preencher com zeros a esquerda Function strZeros(strValor,Tamanho) while len(strValor) < Tamanho strValor = "0" & strValor wend StrZeros=strValor End Function '********************************** 'Data de Vencimento 5 dias após a data do servidor Ano = DatePart("yyyy", DateAdd("d", 5, date)) Mes = DatePart("m", DateAdd("d", 5, date)) if Len(Mes) < 5 then Mes = "0" & Mes end if Dia = DatePart("d", DateAdd("d", 5, date)) if Len(Dia) < 5 then Dia = "0" & Dia end if Dim dataHoje dataHoje = day(now)&"/"&month(now)&"/"&year(now) '********************************** set rs = conn.execute ("select * from boleto where fisica = '"& fisica &"' ") valorMensalidade= rs("valor") dataemissao = rs("dataemissao") datavencimento = rs("datavencimento") var_datadocumento = FormataData(dataemissao) 'Data de emissão do Boleto var_datavencimento = FormataData(datavencimento) 'Data de Vencimento do Boleto - REGRA: Formato DD/MM/AAAA var_valordocumento = Cstr(valorMensalidade)+",00" 'Valor do Documento var_numerodoc = rs("codigo") 'Num do Documento 'Carteira SR: 80, 81 ou 82 - Carteira CR: 90 (Confirmar com gerente qual usar) var_inicionossonumero = "80" 'var_nossonumero = CStr(Cint(var_inicionossonumero)+var_numerodoc) 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_nossonumero = var_numerodoc 'Nosso numero sem o DV - REGRA: Máximo de 8 caracteres! var_instrucoes="<B><BR>Não receber após o vencimento.<BR> MULTA de 0,02% por dia de atraso<BR> </b>" var_intervalo = CDate(Var_datavencimento)-CDate(Var_datadocumento) if var_intervalo > 5 then var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" else var_observacoes="<B> <BR> Pagamento referente à Blá Blá Blá <BR> Outra Linha <BR> <BR></b>" end if if var_numerodoc = "" then if var_CPFSacado<>"" then var_nossonumero = mid(var_CPFSacado,1,7) end if end if Informações que achei necessárias para gerar o boleto e que pedi ao contador:
  5. gabrieldmello

    AspMaxRequestEntityAllowed

    Boa noite galera, recentemente venho tendo problemas com ASP Upload, tenho uma aplicação que funcionava normalmente, do nada parou de funcionar, dando um erro como se o componente estivesse desinstalado, tentei usar outros métodos de upload, mas o limite de up é curto, 200kb,segundo minha metabase.xml. Vi na net que é possível mudar esse valor, me guiaram para habilitar a edição da metabase no IIS 6.0, já estava habilitado, fui tentar editar a metabase, porém quando eu edito, salvo, quando vou ver, ela voltou ao valor original. Já fiz isso com o IIS desconectado, e também volta ao valor original. O error que deu do nada na aplicação, eu já citei em outro tópico aqui no forum. Outro tópico: http://forum.imasters.com.br/topic/540788-erro-asp-0177-800401f3-falha-em-servercreateobject/
  6. gabrieldmello

    Erro ASP 0177 : 800401f3 Falha em Server.CreateObject

    Eaí galera, nenhuma luz?
  7. gabrieldmello

    Erro ASP 0177 : 800401f3 Falha em Server.CreateObject

    Estou usando esse código: <%@ Language="VBScript" %> <% Option Explicit %> <% Dim theComponent(14) Dim theComponentName(14) ' Lista dos Componentes theComponent(0) = "ADODB.Connection" theComponent(1) = "SoftArtisans.FileUp" theComponent(2) = "AspHTTP.Conn" theComponent(3) = "AspImage.Image" theComponent(4) = "LastMod.FileObj" theComponent(5) = "Scripting.FileSystemObject" theComponent(6) = "SMTPsvg.Mailer" theComponent(7) = "CDONTS.NewMail" theComponent(8) = "Jmail.smtpmail" theComponent(9) = "SmtpMail.SmtpMail.1" theComponent(10) = "Persits.Upload.1" theComponent(11) = "UnitedBinary.AutoImageSize" theComponent(12) = "aspSmartUpload.SmartUpload" theComponent(13) = "DAO.DBEngine.35" ' Apelido dos Componentes theComponentName(0) = "ADODB" theComponentName(1) = "SA-FileUp" theComponentName(2) = "AspHTTP" theComponentName(3) = "AspImage" theComponentName(4) = "LastMod" theComponentName(5) = "FileSystemObject" theComponentName(6) = "ASPMail" theComponentName(7) = "CDONTS" theComponentName(8) = "JMail" theComponentName(9) = "SMTP" theComponentName(10) = "Persits Upload" theComponentName(11) = "AutoImageSize" theComponentName(12) = "ASpSmartUpload" theComponentName(13) = "DBEngine" Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function %> <html> <head> <title>O que tem aqui?</title> </head> <body> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes instalados:</b></font></td> </tr> <tr> <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <% Dim i For i = 0 To UBound(theComponent) If Not IsObjInstalled(theComponent(i)) Then Else Response.Write "<tr>" & vbCrLf Response.Write "<td width=""100%"">" & vbCrLf Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf Response.Write "</td>" & vbCrLf Response.Write "</tr>" & vbCrLf End If Next %> </table> </font> </td> </tr> </table> </body> </html> Não lembro se foi o seu código, mas estou usando um, e me retornaram: Componentes instalados: ADODB FileSystemObject CDONTS ASpSmartUpload
  8. gabrieldmello

    Erro ASP 0177 : 800401f3 Falha em Server.CreateObject

    Gilberto, a Intranet tá hospedada em no servidor em que chequei os complementos instalados, e já consta os dois devidamente registrados. E a alguns dias ela funcionava normalmente.
  9. gabrieldmello

    Erro ASP 0177 : 800401f3 Falha em Server.CreateObject

    Esse upload está na minha intranet, já tentei usando Ip local, mas também não vai.
  10. Linha de Erro: Set UploadProgress = Server.CreateObject("Persits.UploadProgress") Boa noite pessoal, já vi muitos casos parecidos com esses aqui no fórum, mas não encontrei a solução, usei um script para verificar os comps instalados. Não sei o que fazer. O erro aconteceu do nada, até uns dias atrás funcionava normalmente, o que me recomendam? Abraço! Componentes instalados: ADODB FileSystemObject CDONTS ASpSmartUpload
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.