Jump to content

Search the Community

Showing results for tags 'asp'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Q&A Desenvolvimento
    • Perguntas e respostas rápidas
  • Desenvolvimento e Banco de Dados
    • HTML e CSS
    • Java
    • Javascript
    • .NET
    • PHP
    • Python
    • Ruby
    • Mobile
    • Ambientes de Desenvolvimento
    • Arquitetura e Métodos Ágeis
    • Banco de Dados
    • DevOps
    • Desenvolvimento de Games
    • E-Commerce e Pagamentos Online
    • SEO e Otimizações
    • WordPress
    • Algoritmos & Outras Tecnologias
  • Design e Produto
    • Fotografia
    • Photoshop
    • Design de interfaces e UX
    • Edição/Produção de Vídeos
    • Marketing Online
    • Desenho, Ilustração e 3D
  • Entretenimento e uso pessoal
    • Geral
    • Segurança & Malwares
    • Gadgets e wearable
    • Softwares e Apps
    • Entretenimento

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Google+


Hangouts


Skype


Twitter


deviantART


Github


Flickr


LinkedIn


Pinterest


Facebook


Site Pessoal


Localização


Interesses

Found 112 results

  1. PRSolucaoWeb

    Função de tempo

    Bom dia! Estou desenvolvendo um sistema em asp para abertura de ordem de manutenção. Esse sistema eu preciso agora fazer uma função para cada tipo de produto que chega para manutenção. Exemplo: Chegou 1 Celular, eu preciso fazer uma função de TEMPO, onde quando eu clico em um botão para iniciar a manutenção já começa a contar o tempo. Esse celular eu tenho como prazo de manutenção exemplo: 40 minutos, se chegar a 40 minutos o sistema envia uma informação na tela e automaticamente grava na tabela sql como BASE DE TROCA. Estou quebrando a cabeça de como fazer essa função. Por favor se puderem me ajudar eu agradeço muito. Obrigado!
  2. Após fazer um post via webservice o sistema me retorna o pdf da nota fiscal em codigo binário convertido em hexadecimal... Eu preciso salvar esse arquivo... Eu recebo ele e converto para binário porém preciso salvar esse código binário como arquivo... Alguém ai sabe como faço? já tentei de diversas maneiras mas não encontrei nenhuma solução
  3. PRSolucaoWeb

    Função Tempo

    Bom dia! Estou desenvolvendo um sistema em asp para abertura de ordem de manutenção. Esse sistema eu preciso agora fazer uma função para cada tipo de produto que chega para manutenção. Exemplo: Chegou 1 Celular, eu preciso fazer uma função de TEMPO, onde quando eu clico em um botão para iniciar a manutenção já começa a contar o tempo. Esse celular eu tenho como prazo de manutenção exemplo: 40 minutos, se chegar a 40 minutos o sistema envia uma informação na tela e automaticamente grava na tabela sql como BASE DE TROCA. Estou quebrando a cabeça de como fazer essa função. Por favor se puderem me ajudar eu agradeço muito. Obrigado!
  4. Estou tentando fazer um post de uma xml gerada em meu sistema, porém o sistema exige que eu envie ela codificada com o sistema base 64 até ai tudo bem. Porém ao fazer o post o Base 64 usa o sinal de + quando dispara o post codificado na string o sistema retira o sinal de + alterando assim completamente o documento enviado. Exemplo eu disparo nQ+MjAxNy0wMy0yMlQxNDoxMzoxNi0wMjowMDwvZGhTYWlFbnQ+PHRwTkY+MT Porém do outro lado recebe nQ MjAxNy0wMy0yMlQxNDoxMzoxNi0wMjowMDwvZGhTYWlFbnQ PHRwTkY MT Portanto altera totalmente o resultado.... Alguém sabe como fazer com que o sinal de + não seja retirado? Ou conhece outra forma de envio que não altere a string? set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP") xmlhttp.Open "POST",link,false xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlhttp.send (xmlbase64)
  5. Bom dia Estou com um probleminha e gostaria por favor da ajuda de vocês. Preciso por intermédio de uma função gerar um código de barras a partir de um número que vem de uma tabela SQLSERVER. O campo que está nesta tabela é VARCHAR e a função é essa: 'Substitua o valor do parâmetro abaixo pelo número do código de barras. WBarCode(codBarras(CInt("num_manutencao") )) 'WBarCode( Valor ) Dim f, f1, f2, i Dim texto Const fino = 1 Const largo = 3 Const altura = 50 Dim BarCodes(99) if isempty(BarCodes(0)) then BarCodes(0) = "00110" BarCodes(1) = "10001" BarCodes(2) = "01001" BarCodes(3) = "11000" BarCodes(4) = "00101" BarCodes(5) = "10100" BarCodes(6) = "01100" BarCodes(7) = "00011" BarCodes(8) = "10010" BarCodes(9) = "01010" for f1 = 9 to 0 step -1 for f2 = 9 to 0 Step -1 f = f1 * 10 + f2 texto = "" for i = 1 To 5 texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1) next BarCodes(f) = texto next next end if 'Desenho da barra ' Guarda inicial %> <img src=p.gif width=<%=fino%> height=<%=altura%> border=0><img src=b.gif width=<%=fino%> height=<%=altura%> border=0><img src=p.gif width=<%=fino%> height=<%=altura%> border=0><img src=b.gif width=<%=fino%> height=<%=altura%> border=0><img <% texto = valor if len( texto ) mod 2 <> 0 then texto = "0" & texto end if ' Draw dos dados do while len(texto) > 0 i = cint( left( texto, 2) ) texto = right( texto, len( texto ) - 2) f = BarCodes(i) for i = 1 to 10 step 2 if mid(f, i, 1) = "0" then f1 = fino else f1 = largo end if %> src=p.gif width=<%=f1%> height=<%=altura%> border=0><img <% if mid(f, i + 1, 1) = "0" Then f2 = fino else f2 = largo end if %> src=b.gif width=<%=f2%> height=<%=altura%> border=0><img <% next loop ' Draw guarda final %> src=p.gif width=<%=largo%> height=<%=altura%> border=0><img src=b.gif width=<%=fino%> height=<%=altura%> border=0><img src=p.gif width=<%=1%> height=<%=altura%> border=0> <% 'end sub %> Só que está ocorrendo um erro na exibição: Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'WBarCode' /sistema_os_atendimento_hcs_v.3.1/hcs/lista_om_transferidos.asp, linha 963 A linha 963 é essa: WBarCode(codBarras("num_manutencao") ) POR FAVOR PRECISO MUITO DE AJUDA! Muito Obrigado!
  6. Gilberto Jr

    Imprimir Etiquetas ASP CLASSIC

    Boa noite; Em um sistema que eu desenvolvi, agora eu tenho colocar para imprimir etiquetas. A impressora é ZEBRA ou ARGOX, elas podem estar na LPT1 ou USB. Como que eu faria em ASP CLASSIC para imprimir essa ETIQUETA? Se eu conseguisse direto pelo ASP enviar um arquivo TXT para a impressora. Porque o arquivo txt eu consigo gerar, agora enviar para o LPT1 ou USB eu não consigo. Alguém já passou por uma situação dessa e conseguiu resolver? Att; Gilberto Jr;
  7. Olá amigos, preciso de ajuda, sou iniciante no php. Como faço para enviar uma variável para preencher um campo em um site externo (que não é meu)? Por exemplo: Na minha pagina eu clico no link que envia meu nome <?php $nome = "Fulano da Silva"; echo '<a href="http://www.outrosite.com/cadastro.php?nome='.$nome.'>Enviar meu nome</a>' ;?> Eu gostaria de forçar esse nome a entrar no formulário desse outro site que não sou proprietário. Única coisa que eu tenho é o nome do campo visto pela inspeção do código da página. É possível? Alguém pode me ajudar??? Obrigado!!!! Fox
  8. Clauido José

    Popular uma tabela com array

    Galera quero popular este array abaixo numa pagina asp como faria isso na verdade estou fazendo um treinamento de Angular no youtube e tem um modulo de angular integração com backend e no exemplo ele eusa php para popular a tabela só que sou programador asp gostaria de saber se tem como abaixo a pagina js com o array para popular a tabela var express = require('express'); var app = express(); app.use(express.static(__dirname + '/public')); app.use(express.bodyParser()); var contatos = [ {nome: "Bruno", telefone: "9999-2222", data: new Date(), operadora: {nome: "Oi", codigo: 14, categoria: "Celular"}}, {nome: "Sandra", telefone: "9999-3333", data: new Date(), operadora: {nome: "Vivo", codigo: 15, categoria: "Celular"}}, {nome: "Mariana", telefone: "9999-9999", data: new Date(), operadora: {nome: "Tim", codigo: 41, categoria: "Celular"}} ]; var operadoras = [ {nome: "Oi", codigo: 14, categoria: "Celular", preco: 2}, {nome: "Vivo", codigo: 15, categoria: "Celular", preco: 1}, {nome: "Tim", codigo: 41, categoria: "Celular", preco: 3}, {nome: "GVT", codigo: 25, categoria: "Fixo", preco: 1}, {nome: "Embratel", codigo: 21, categoria: "Fixo", preco: 2} ]; app.listen(process.env.PORT || 3412); app.all('*', function(req, res, next) { res.header('Access-Control-Allow-Origin', '*'); res.header('Access-Control-Allow-Methods', 'PUT, GET, POST, DELETE, OPTIONS'); res.header('Access-Control-Allow-Headers', 'Content-Type'); next(); }); app.get('/contatos', function(req, res) { res.json(contatos); }); app.post('/contatos', function(req, res) { contatos.push(req.body); res.json(true); }); app.get('/operadoras', function(req, res) { res.json(operadoras); }); Detalhe o array de operadora va ser preenchido em uma combobox abaixo a pagina asp;: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Contato Telefonicos</title> <script src="contatosBackend.js" type="text/jscript"></script> <script src="angular/angular.js" ></script> <script src="angular/angular-messages.js" ></script> <link href="../bootstrap/css/bootstrap.css" type="text/css" /> <style> .jumbotron{ width: 600px; padding: 15px 15px; text-align: center; margin-top:20px; margin-left: auto; margin-right: auto; } .table{ margin-top:20px; } .table th{ text-align:center; font-weight: bold; font-family: Arial, Helvetica, sans-serif; font-size:16px } .table tr{ text-align:center; font-family:Verdana, Geneva, sans-serif; font-size:14px } .form-control{ margin-bottom: 5px; } .selecionado{ background-color: #FF0; } .negrito{ font-weight:bold; } </style> </head> <body> <table class="table table-striped"> <tr ng-class="{'selecionado negrito': contato.selecionado}" ng-repeat="contato in contatos | limitTo: 2 | filter: {nome:criterioDeBusca} | orderBy:criterioDeOrdenacao:direcaoDaOrdenacao "> <td><input type="checkbox" ng-model="contato.selecionado" /></td> <td>{{contato.nome | uppercase}}</td> <td>{{contato.telefone}}</td> <td>{{contato.Operadora.nome | lowercase}}</td> <td>{{contato.data | date: 'dd/MM/yyyy HH:MM'}}</td> </tr> </table> </body> </html>
  9. Olá pessoal bom dia , lendo bastante consegui fazer este script que me mostra quando um contrato está vencido e o total de dias que se passou do vencimento, tentei de várias forma mais não sei como incluir um aviso aí de 3 dias antes de vencer , e quando chegar a data do vencimento avisar que venceu hoje. Alguém pode me ajudar desde já agradeço. <% ' Inicio Verificando Somente Contratos Vencidos. data=date() data_vencimento="15/01/2017" 'Compara data If DateValue(data_vencimento)<=DateValue(data) Then 'Retorna a diferença de datas diferenca_dias = DateDiff("d",data_vencimento,data) ' Fim Verificando Somente Contratos Vencidos. %> Atualize os valores ! Se passaram <%=diferenca_dias%> dias desde o Vencimento do Contrato da Empresa : TESTE <%End If%>
  10. Alguém tem uma ideia ou uma forma mais fácil para bloquear que usuário envie emails várias vezes clicando no mesmo botão ?
  11. Patrick Ramiro

    Asp Limitar Registros no Banco

    Olá boa tarde pessoal , alguém pode me ajudar com algum código asp para limitar registros no banco ? Preciso definir um numero total de emails ativos no banco, se o numero de registros encontrados ultrapassar o total definido por mim , aparece a mensagem falando que a pessoa ultrapassou o limite. <% total_emails_permitidos_ativos=100 abreconexao sql1="select *from emails where ativos='sim' " set links=conexao.execute(sql1) do while not links.eof ' não sei como condicionar if else e o count no registros que estiverem ativos sim, e aparecer a mensagem , se ultrapassar o 100 alguém pode me ajudar . %>
  12. <%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ? A função está logo Abaixo: <% Function HTMLDecode(ByVal EncodedString) 'Declarations Dim ret Dim i 'Decoding ret = EncodedString ret = Replace( ret, """, chr(34) ) ret = Replace( ret, "<" , chr(60) ) ret = Replace( ret, ">" , chr(62) ) ret = Replace( ret, "&" , chr(38) ) ret = Replace( ret, " ", chr(32) ) For i = 1 to 255 ret = Replace( ret, "" & i & ";", chr( i ) ) Next 'Return HTMLDecode = ret End Function %> <% abreconexao sql1="select *from chat where status_chat='sim'" set configchat=conexao.execute(sql1) do while not configchat.eof %> <%=links(HTMLDecode("codigo_chat"))%> Pessoal o problema acho que está aqui, está retornando este erro O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado,será que eu chamei a função HTMLDECODE errado ? <% configchat.movenext %> <% loop fechaconexao %>
  13. Ikidzumari

    Reconhece ASP <%%> como HTML

    Olá Pessoal, Estou com problemas com o ASP, Instalei o IIS no windows 8.1 Ele reconhece paginas extensão .asp porem o código asp que fica entre as <% %> ele não reconhece. Não da erro, ele simplesmente processa como uma palavra solta no html como se fosse texto normal. Não apliquei nada complexo na pagina. ele não reconhece nem um <%Response.Write(now())%> Pesquisei mas não encontrei nada referente a isso se alguém puder me ajudar eu realmente agradeço. Desde já grato.
  14. Pessoal preciso verificar 3 coisas neste campo "foto_usuario" ( 1 se o campo é nulo ) ( 2 se o campo está em branco) ( 3 se o valor do campo é "0" ) Consegui usar o IsNull e verificar se o campo foto_usuario é "0" falta só colocar pra verificar se o campo está em branco, olhem aí o exemplo que tentei fazer, desde já agradeço amigos. <%If IsNull(session("foto_usuario")<>"0") = True Then%> --------------------------------------------------------------------------------------------------- Tentei fazer isso deu erro , tentei dei outras formas e deu erro também If IsNull (Is Empty(session("foto_usuario")<>"0")) = True Then%>
  15. Patrick Ramiro

    Asp Else If com mais de um campo.

    Pessoal não sei como que faz , to quebrando a cabeça, tenho esses dois parâmetros IF para mostrar o que fica dentro deles os 2 tem que ter o valor sim obrigatoriamente , se um dos dois parâmetros não for sim ele mostra a mensagem " Você não tem Acesso " se os os forem sim ele mostra a mensagem você tem acesso. O else e if preciso ser separados como no exemplo pq no meio vou jogar código html, alguém me ajude não sei como que faz <%if session("permitir")<>"sim" then%> <%if session ("liberar")<>"sim" then%> <div>Você tem acesso códigos html</div> <%else%> Você não tem acesso <%else%> Você não tem acesso <%end if%> <%end if%>
  16. Uso o campo LONG TEXT , para formulário Text Area preciso inserir este código abaixo, mais apresenta o erro E-fail na hora que vou fazer update em asp. <!-- livezilla.net code (PLEASE PLACE IN BODY TAG) --> <div id="livezilla_tracking" style="display:none"></div><script type="text/javascript"> var script = document.createElement("script");script.async=true;script.type="text/javascript";var src = "http://www.jrusinagemecarretinhas.com.br/chat/server.php?a=53609&rqst=track&output=jcrpt&ovlc=IzAwMDAwMA__&ovlt=U3VwZXIgUHJvbW,Dp8Ojbw__&eca=MQ__&ecsp=MQ__&nse="+Math.random();setTimeout("script.src=src;document.getElementById('livezilla_tracking').appendChild(script)",1);</script><noscript><img src="http://www.jrusinagemecarretinhas.com.br/chat/server.php?a=53609&rqst=track&output=nojcrpt" width="0" height="0" style="visibility:hidden;" alt=""></noscript> <!-- http://www.livezilla.net -->
  17. Patrick Ramiro

    Categorias e Sub Categorias em ASP

    Tenho 2 Tabelas (categorias) e (subcategorias) e uma outra que chama Produtos , aguem tem algum tutorial de como devo relacionar essas 3 tabelas e de como montar esse sistema em asp ?
  18. For Each como limitar numero de imagens no LOOP <% Set Fso = Server.CreateObject ("Scripting.FileSystemObject") Set arquivo = Fso.GetFolder(Server.MapPath("gdd/sgc/imagens/foto_texto/" &id_pasta_imagens& "")) Set arquivos = arquivo.files For Each Item in arquivos Set objFS = Nothing %> <div> <a class="img-thumbnail img-thumbnail-hover-icon mb-xs mr-xs" href="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>"> <img class="img-responsive" src="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>" alt="<%=V("url_amigavel")%>"> </a> </div> <% Next Set arquivos = nothing Set arquivo = nothing Set Fso = nothing %>
  19. rafalbino

    url amigavel para vb asp.net

    Fala galera, estou tentando tornar minha url amigável. Tenho uma página chamada /contato.aspx e gostaria de torná-la apenas /contato/ Os exemplos que encontrei não funcionaram.
  20. Olá! Estou montando um pequeno sistema de envio de emails, e estou com um probleminha. Ao enviar é preciso que selecione uma categoria e quando realiza o envio, preciso que o sistema me traga em uma única variável todos os emails da tabela. exemplo: envio = joão@uol.com.br, maria@uol.com.br, pedro@uol.com.br E assim vai. Isso é possível? Se sim, quais alterações preciso fazer no meu código? Obrigado :D selecione2 = "SELECT * FROM TB_USERS where Tipo_usuario = '" & request.form("emails") & "'" Set RS_Categoria = Server.CreateObject("ADODB.Recordset") RS_Categoria.Open selecione2, MM_Cn_emailMkt2_STRING idmail = RS_Categoria("email")
  21. Olá! Estou gerando boletos do banco do Brasil através de um sistema próprio. Ao gerar os boletos individualmente não obtive erros, porém ao aplicar o loop para gerar mais de um boleto, houve um erro com o código de barras e linha digitável: linha 86 function mod11(cadeia,limitesup,lflag) Já tentei ajustar de diversas formas, mas só consegui gerar os boletos sem código de barras / linha digitável. Segue código <% response.buffer=true %> <!--#include file="../Connections/ConnectionString.asp" --> <!-- #include file = "../include/generico_data.inc" --> <% 'Valida Acesso dim rsAcesso, sql sql = "select * from acesso_processo_usuario where id_processo = 16 and id_usuario = " & session("id_usuario") set rsAcesso = GetRS(sql) if rsAcesso.eof then response.write "Acesso Negado" response.end end if %> <% session.lcid = 1046 dim idPedido, valor, data_documento, data_vencimento,nome_sacado, endereco_sacado, endereco_sacado2,cedente, cpf_cnpj, agencia, dac_agencia,conta, dac_conta, carteira,layout_boleto,convenio, numero_documento,nosso_numero, instrucoes1,instrucoes2,instrucoes3,instrucoes4, instrucoes5, contrato, especie, especie_doc, aceite, a, fvencimento, valor_str, livre, dac_nosso_numero, codbar, mult, total, pos, nresto, ndig, dac, cmplivre, campo1, res, campo2,campo3,campo4, campo5, linha_digitavel, agencia_codigo, x98, quantidade, data_processamento, valor_unitario, x80, x171,x99,x3,x125,x126,x18,dvNosso_numero '================INFORMAÇÕES BANCÁRIAS============== cedente = "RAZÃO SOCIAL" cpf_cnpj = "00.000.000/0000-00" agencia = "0000" dac_agencia = "0" conta = "00000" dac_conta = "0" convenio = "0000000" carteira = "00" '================INSTRUÇÕES DO BOLETO============== instrucoes1 = "Após o vencimento multa de 2% + 0,1% de mora ao dia." instrucoes2 = "Protestar 03 dias úteis após o vencimento." instrucoes3 = "" instrucoes4 = "" instrucoes5 = "" '===================================================== '===========LOOP==========' dim id_lan, v_item For each item in Request.Form("chkBoleto") v_item = split(item,",") id_lan = v_item(0) Dim rsNumero, vr_tx_boleto sql = "select * from vw_ultimo_boleto" set rsNumero = GetRS(sql) idPedido = rsNumero("nr_documento") + 1 sql = "update lancamento set " sql = sql & " nr_documento = '" & idPedido & "'" sql = sql & " where id_lancamento = " & Request.Form("chkBoleto") call executecmd(sql) vr_tx_boleto = 0.0 dim rsTeste, id_parceiro sql = "select * from lancamento where id_lancamento = " & Request.Form("chkBoleto") set rsTeste = GetRS(sql) id_parceiro = rsTeste("id_parceiro") data_vencimento = rsTeste("dt_vencimento") Dim rsLancamento sql = "select * from vw_lancamento_boleto where id_lancamento = " & Request.Form("chkBoleto") set rsLancamento = GetRS(sql) valor = rsLancamento("vr_curso") + 0 + vr_tx_boleto - rsLancamento("vr_desconto") + rsTeste("vr_juros") + rsTeste("vr_multa") data_documento = date data_processamento = date() nome_sacado = rsLancamento("nome") & " - CPF:" & rsLancamento("cpf") endereco_sacado = rsLancamento("endereco") 'Evite mudar estas variaveis abaixo layout_boleto = "3" numero_documento = idPedido nosso_numero = idPedido dvNosso_numero = mod11(convenio &right("0000000000"&idPedido,10),9,0) contrato = "" especie = "R$" especie_doc = "DM" aceite = "N" function mod11(cadeia,limitesup,lflag) mult=1 + (len(cadeia) mod (limitesup-1)) if mult=1 then mult=limitesup end if total=0 for pos=1 to len(cadeia) total=total+(mid(cadeia,pos,1) * mult) mult=mult-1 if mult=1 then mult=limitesup end if Next nresto=(total mod 11) if lflag = 1 then mod11=nresto else if nresto=0 or nresto=1 or nresto=10 then ndig=1 else ndig=11 - nresto end if mod11=ndig end if end function function mod10(cadeia) mult=(len(cadeia) mod 2) mult=mult+1 total=0 for pos=1 to len(cadeia) res= mid(cadeia, pos, 1) * mult if res>9 then res=int(res/10) + (res mod 10) end if total=total+res if mult=2 then mult=1 else mult=2 end if next total=((10-(total mod 10)) mod 10 ) mod10=total end function function linhadigitavel(codigobarras) cmplivre=mid(codigobarras,20,25) campo1=left(codigobarras,4)&mid(cmplivre,1,5) campo1=campo1&mod10(campo1) campo1=mid(campo1,1,5)&"."&mid(campo1,6,5) campo2=mid(cmplivre,6,10) campo2=campo2&mod10(campo2) campo2=mid(campo2,1,5)&"."&mid(campo2,6,6) campo3=mid(cmplivre,16,10) campo3=campo3&mod10(campo3) campo3=mid(campo3,1,5)&"."&mid(campo3,6,6) campo4=mid(codigobarras,5,1) campo5=int(mid(codigobarras,6,14)) if campo5=0 then campo5="000" end if linhadigitavel=campo1&" "&campo2&" "&campo3&" "&campo4&" "&campo5 end function function fvenc(entra) fvenc = DateDiff("d", CDate("7/10/1997"), CDate(entra)) end function function formatar(valor, comp, ench, tipo) dim str str = valor if tipo = "v" then str = Ccur(str) str = formatnumber(str,2,-2,-2,-2) tipo = "e" :str = cstr(str) str = replace(str,",","") str = replace(str,".","") end if for a=len(str) to (comp - 1) if tipo = "e" then str = ench & str else str = str & ench end if next if tipo = "e" then str = left(str,comp) else str = right(str,comp) end if formatar = str end function function d1d2(entra) d1 = mod10(entra) Do d2 = mod11(entra & d1,7,1) if d2 = 1 then if d2 = 9 then d1 = 0 elseif d1 < 9 then d1 = d1 + 1 else d1 = 0 end if end if Loop while d2 = 1 if d2 > 0 then d2 = 11 - d2 end if d1d2 = Cstr(Cstr(entra) & Cstr(d1) & Cstr(d2)) end function function dv(entra) temp = Cint(mod11(entra,9,1)) if temp < 10 then dv = 11 - temp else dv = 1 end if if dv = 11 then dv = 0 if dv = 10 then dv = "X" dv = Cstr(dv) end function layout_boleto = Cstr(layout_boleto) conta = Cstr(formatar(conta,8,"0","e")) fvencimento = Cstr(fvenc(data_vencimento)) valor_str = Cstr(formatar(valor,10,"0","v")) agencia = Cstr(formatar(agencia,4,"0","e")) carteira = Cstr(formatar(carteira,2,"0","e")) if layout_boleto = "3" then convenio = formatar(convenio,7,"0","e") nosso_numero = formatar(nosso_numero,10,"0","e") livre = "000000" & convenio & nosso_numero & carteira dac_nosso_numero = "" nosso_numero = convenio & nosso_numero else Response.Write("ERRO ! <br> Selecione o layout do boleto inválido, use numero 3") Response.End() end if codbar = Cstr("0019" & fvencimento & valor_str & livre) dac = Cstr(mod11(codbar,9,0)) codbar = Cstr("0019" & dac & fvencimento & valor_str & livre) linha_digitavel = linhadigitavel(codbar) agencia_codigo = agencia &"-"& dac_agencia & "/" & conta &"-"& dac_conta valor = formatnumber(Ccur(valor),2,-2,-2,-2) %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Boleto BB</title> <meta http-equiv=Content-Type content="text/html;charset=windows-1252"> <meta content="MSHTML 6.00.2800.1400" name=GENERATOR> <style> .Titulo11{ font:11px Arial, Helvetica, sans-serif; } .campo{ font:10px Verdana, Arial, Helvetica, sans-serif; } .CampoTitulo{ font:bold 14px Arial, Helvetica, sans-serif; } .Normal{ font:12px Arial, Helvetica, sans-serif; } @media print { body * { visibility: hidden; } #printable, #printable * { visibility: visible; } #printable { position: fixed; left: 0; top: 0; } } </style> </head> <body bgcolor="White" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed"> <br> <center><input type="button" name="imprimir" value="Imprimir" onclick="window.print();"> </center><br> <div id="printble"> <table border="0" cellPadding="0" cellSpacing="0" width="660"> <tr> <td class="Normal"> <div align="center"> <b>O pagamento deste boleto também poderá ser efetuado pelo Auto-Atendimento BB na Internet ou pelos Terminais de Auto-Atendimento.</b> </div> <p> <b>Instruções:</b><br> <ol> <li>Imprima em impressora jato de tinta (ink jet) ou laser em qualidade normal ou alta. Não use modo econômico.</li> <li>Utilize folha A4 (210 x 297mm) ou Carta (216 x 279mm) e margens mínimas à esquerda e à direita do formulário.</li> <li>Corte na linha indicada. Não rasure, risque, fure ou dobre a região onde se encontra o código de barras.</li> </ol> </p> </td> </tr> </table> <br> <div style="position:absolute;top:145px;left:5px;height:636px;width:670px;z-index:1;"> <img src="imagens_bb/bbformularioBoleto.gif" width="647" height="636" border="0" alt=""> </div> <div style="position:absolute;top:161px;left:7px;height:22px;width:96px;z-index:2;"> <img src="imagens_bb/bblogoBoleto.gif" width="150" height="22" border="0" alt=""> </div> <div style="position:absolute;top:444px;left:7px;height:22px;width:96px;z-index:2;"> <img src="imagens_bb/bblogoBoleto.gif" width="150" height="22" border="0" alt=""> </div> <div style="position:absolute;top:127px;left:7px;z-index:2;" class="Titulo11"> Corte na linha pontilhada </div> <div style="position:absolute;top:138px;left:5px;z-index:2;" class="Titulo11"> <img src="imagens_bb/bblinhaPontilhada.gif" width="650" height="5" border="0" alt=""> </div> <div style="position:absolute;top:145px;left:549px;z-index:2;" class="Campo"> <b>Recibo do Sacado</b> </div> <div style="position:absolute;top:167px;left:163px;z-index:2;" class="CampoTitulo"> 001-9 </div> <div style="position:absolute;top:166px;left:210px;z-index:2;width:438px;text-align:right;" class="CampoTitulo"> <layer name="helpns" width=438px><%=linha_digitavel%></layer> </div> <div style="position:absolute;top:450px;left:163px;z-index:2;" class="CampoTitulo"> 001-9 </div> <div style="position:absolute;top:449px;left:210px;z-index:2;width:438px;text-align:right;" class="CampoTitulo"> <layer name="helpns" width=438px><%=linha_digitavel%></layer> </div> <div style="position:absolute;top:184px;left:15px;z-index:2;" class="Titulo11"> Cedente </div> <div style="position:absolute;top:184px;left:317px;z-index:2;" class="Titulo11"> Código do Cedente </div> <div style="position:absolute;top:184px;left:438px;z-index:2;" class="Titulo11"> Espécie </div> <div style="position:absolute;top:184px;left:480px;z-index:2;" class="Titulo11"> Quantidade </div> <div style="position:absolute;top:184px;left:536px;z-index:2;" class="Titulo11"> Nosso número </div> <div style="position:absolute;top:209px;left:15px;z-index:2;" class="Titulo11"> Número do documento </div> <div style="position:absolute;top:209px;left:135px;z-index:2;" class="Titulo11"> Contrato </div> <div style="position:absolute;top:209px;left:214px;z-index:2;" class="Titulo11"> CPF/CEI/CNPJ </div> <div style="position:absolute;top:209px;left:353px;z-index:2;" class="Titulo11"> Vencimento </div> <div style="position:absolute;top:209px;left:480px;z-index:2;" class="Titulo11"> Valor documento </div> <div style="position:absolute;top:234px;left:15px;z-index:2;" class="Titulo11"> (-)Desconto/Abatimento </div> <div style="position:absolute;top:234px;left:135px;z-index:2;" class="Titulo11"> (-)Outras opções </div> <div style="position:absolute;top:234px;left:251px;z-index:2;" class="Titulo11"> (+)Mora/Multa </div> <div style="position:absolute;top:234px;left:367px;z-index:2;" class="Titulo11"> (+)Outros acréscimos </div> <div style="position:absolute;top:234px;left:480px;z-index:2;" class="Titulo11"> (=)Valor cobrado </div> <div style="position:absolute;top:259px;left:15px;z-index:2;" class="Titulo11"> Sacado </div> <div style="position:absolute;top:284px;left:15px;z-index:2;" class="Titulo11"> Instruções </div> <div style="position:absolute;top:284px;left:574px;z-index:2;" class="Titulo11"> Autenticação Mecânica </div> <div style="position:absolute;top:415px;left:7px;z-index:2;" class="Titulo11"> Corte na linha pontilhada </div> <div style="position:absolute;top:426px;left:5px;z-index:2;" class="Titulo11"> <img src="imagens_bb/bblinhaPontilhada.gif" width="650" height="5" border="0" alt=""> </div> <div style="position:absolute;top:467px;left:15px;z-index:2;" class="Titulo11"> Local de pagamento </div> <div style="position:absolute;top:467px;left:480px;z-index:2;" class="Titulo11"> Vencimento </div> <div style="position:absolute;top:492px;left:15px;z-index:2;" class="Titulo11"> Cedente </div> <div style="position:absolute;top:492px;left:480px;z-index:2;" class="Titulo11"> Agência/Código do cedente </div> <div style="position:absolute;top:517px;left:15px;z-index:2;" class="Titulo11"> Data do documento </div> <div style="position:absolute;top:517px;left:133px;z-index:2;" class="Titulo11"> Nº do documento </div> <div style="position:absolute;top:517px;left:295px;z-index:2;" class="Titulo11"> Espécie DOC </div> <div style="position:absolute;top:517px;left:364px;z-index:2;" class="Titulo11"> Aceite </div> <div style="position:absolute;top:517px;left:405px;z-index:2;" class="Titulo11"> Data process. </div> <div style="position:absolute;top:517px;left:480px;z-index:2;" class="Titulo11"> Nosso Número </div> <div style="position:absolute;top:542px;left:15px;z-index:2;" class="Titulo11"> Uso do Banco/Convênio </div> <div style="position:absolute;top:542px;left:133px;z-index:2;" class="Titulo11"> Carteira </div> <div style="position:absolute;top:542px;left:223px;z-index:2;" class="Titulo11"> Espécie </div> <div style="position:absolute;top:542px;left:283px;z-index:2;" class="Titulo11"> Quantidade </div> <div style="position:absolute;top:542px;left:405px;z-index:2;" class="Titulo11"> xValor </div> <div style="position:absolute;top:542px;left:480px;z-index:2;" class="Titulo11"> (=) Valor do documento </div> <div style="position:absolute;top:567px;left:15px;z-index:2;" class="Titulo11"> Instrucoes </div> <div style="position:absolute;top:567px;left:480px;z-index:2;" class="Titulo11"> (-) Desconto / Abatimento </div> <div style="position:absolute;top:592px;left:480px;z-index:2;" class="Titulo11"> (-) Outras deduções </div> <div style="position:absolute;top:618px;left:480px;z-index:2;" class="Titulo11"> (+) Mora / Multa </div> <div style="position:absolute;top:643px;left:480px;z-index:2;" class="Titulo11"> (+) Outros acréscimos </div> <div style="position:absolute;top:668px;left:480px;z-index:2;" class="Titulo11"> (=) Valor cobrado </div> <div style="position:absolute;top:573px;left:463px;z-index:2;" class="Titulo11"> 27 </div> <div style="position:absolute;top:620px;left:463px;z-index:2;" class="Titulo11"> 35 </div> <div style="position:absolute;top:596px;left:463px;z-index:2;" class="Titulo11"> 19 </div> <div style="position:absolute;top:693px;left:15px;z-index:2;" class="Titulo11"> Sacado </div> <div style="position:absolute;top:739px;left:480px;z-index:2;" class="Titulo11"> Cód. baixa </div> <div style="position:absolute;top:740px;left:15px;z-index:2;" class="Titulo11"> Sacador/Avalista </div> <div style="position:absolute;top:751px;left:470px;z-index:2;" class="Titulo11"> Autenticação mecânica - Ficha de Compensação </div> <div style="position:absolute;top:197px;left:15px;z-index:2;" class="Campo"> <%=cedente%> </div> <div style="position:absolute;top:197px;left:317px;z-index:2;width:120px;" class="Campo"> <%=agencia_codigo%> </div> <div style="position:absolute;top:197px;left:438px;z-index:2;width:28px;" class="Campo"> R$ </div> <div style="position:absolute;top:197px;left:480px;z-index:2;width:50px;" class="Campo"> 0001 </div> <div style="position:absolute;top:197px;left:531px;z-index:2;width:118px;text-align:right;" class="Campo"> <%=nosso_numero%> </div> <div style="position:absolute;top:222px;left:15px;z-index:2;width:110px;" class="Campo"> <%=right("0000000000"& numero_documento, 10)%> </div> <div style="position:absolute;top:222px;left:135px;z-index:2;width:70px;" class="Campo"> <%=contrato%> </div> <div style="position:absolute;top:222px;left:214px;z-index:2;width:125px;" class="Campo"> <%=cpf_cnpj%> </div> <div style="position:absolute;top:222px;left:353px;z-index:2;width:118px;" class="Campo"> <%=data_vencimento%> </div> <div style="position:absolute;top:222px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> <%=valor%> </div> <div style="position:absolute;top:247px;left:15px;z-index:2;width:108px;text-align:right;" class="Campo"></div> <div style="position:absolute;top:247px;left:133px;z-index:2;width:107px;text-align:right;" class="Campo"></div> <div style="position:absolute;top:247px;left:248px;z-index:2;width:108px;text-align:right;" class="Campo"></div> <div style="position:absolute;top:247px;left:361px;z-index:2;width:108px;text-align:right;" class="Campo"></div> <div style="position:absolute;top:247px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:272px;left:15px;z-index:2;" class="Campo"> <%=nome_sacado%> </div> <div style="position:absolute;top:312px;left:15px;z-index:2;width:498px;text-align:justify;" class="Campo"> <layer name="helpns" width=498px align="left"><%=instrucoes1%><br><%=instrucoes2%><br><%=instrucoes3%><br><%=instrucoes4%><br><%=instrucoes5%></layer> </div> <div style="position:absolute;top:480px;left:15px;z-index:2;" class="Campo"> Pagável em qualquer Banco até o vencimento </div> <div style="position:absolute;top:480px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> <%=data_vencimento%> </div> <div style="position:absolute;top:505px;left:15px;z-index:2;" class="Campo"> <%=cedente%> </div> <div style="position:absolute;top:505px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> <%=agencia_codigo%> </div> <div style="position:absolute;top:530px;left:15px;z-index:2;width:110px;" class="Campo"> <%=data_documento%> </div> <div style="position:absolute;top:530px;left:133px;z-index:2;width:160px;" class="Campo"> <%=right("0000000000"& numero_documento, 10)%> </div> <div style="position:absolute;top:530px;left:295px;z-index:2;width:60px;" class="Campo"> <%=especie_doc%> </div> <div style="position:absolute;top:530px;left:364px;z-index:2;width:35px;" class="Campo"> <%=aceite%> </div> <div style="position:absolute;top:530px;left:405px;z-index:2;width:60px;" class="Campo"> <%=data_processamento%> </div> <div style="position:absolute;top:530px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> <%=nosso_numero%> </div> <div style="position:absolute;top:556px;left:15px;z-index:2;" class="Campo"> </div> <div style="position:absolute;top:556px;left:133px;z-index:2;" class="Campo"> <%=carteira%> </div> <div style="position:absolute;top:556px;left:223px;z-index:2;" class="Campo"> <%=especie%> </div> <div style="position:absolute;top:556px;left:283px;z-index:2;" class="Campo"> </div> <div style="position:absolute;top:556px;left:405px;z-index:2;width:65px;text-align:right;" class="Campo"></div> <div style="position:absolute;top:556px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> <%=valor%> </div> <div style="position:absolute;top:580px;left:15px;z-index:2;width:430px;text-align:justify;" class="Campo"> <layer name="helpns" width=430px align="left"><%=instrucoes1%><br><%=instrucoes2%><br><%=instrucoes3%><br><%=instrucoes4%><br><%=instrucoes5%></layer> </div> <div style="position:absolute;top:580px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:605px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:631px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:656px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:581px;left:480px;z-index:2;width:169px;text-align:right;" class="Campo"> </div> <div style="position:absolute;top:704px;left:15px;z-index:2;" class="Campo"> <%=nome_sacado%> </div> <div style="position:absolute;top:717px;left:15px;z-index:2;" class="Campo"> <%=endereco_sacado%> </div> <div style="position:absolute;top:830px;left:7px;z-index:2;" class="Titulo11"> Corte na linha pontilhada </div> <div style="position:absolute;top:827px;left:7px;z-index:2;" class="Titulo11"> <img src="imagens_bb/bblinhaPontilhada.gif" width="650" height="5" border="0" alt=""> </div> <div style="position:absolute;top:760px;left:12px;height:70px;z-index:2;" class="Titulo11"> <table border=0 cellPadding=0 cellSpacing=0 width="666"> <tr> <td colspan="2"> <% next function fbarcode(valor_barras) Dim f, f1, f2, i Dim texto Const fino = 1 Const largo = 3 Const altura = 50 Dim BarCodes(99) if isempty(BarCodes(0)) then BarCodes(0) = "00110" BarCodes(1) = "10001" BarCodes(2) = "01001" BarCodes(3) = "11000" BarCodes(4) = "00101" BarCodes(5) = "10100" BarCodes(6) = "01100" BarCodes(7) = "00011" BarCodes(8) = "10010" BarCodes(9) = "01010" for f1 = 9 to 0 step -1 for f2 = 9 to 0 Step -1 f = f1 * 10 + f2 texto = "" for i = 1 To 5 texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1) next BarCodes(f) = texto next next end if %> <img src=imagens_bb/p.gif width=<%=fino%> height=<%=altura%> border=0><img src=imagens_bb/b.gif width=<%=fino%> height=<%=altura%> border=0><img src=imagens_bb/p.gif width=<%=fino%> height=<%=altura%> border=0><img src=imagens_bb/b.gif width=<%=fino%> height=<%=altura%> border=0><img <% texto = valor_barras if len( texto ) mod 2 <> 0 then texto = "0" & texto end if do while len(texto) > 0 i = cint( left( texto, 2) ) texto = right( texto, len( texto ) - 2) f = BarCodes(i) for i = 1 to 10 step 2 if mid(f, i, 1) = "0" then f1 = fino else f1 = largo end if %> src=imagens_bb/p.gif width=<%=f1%> height=<%=altura%> border=0><img <% if mid(f, i + 1, 1) = "0" Then f2 = fino else f2 = largo end if %> src=imagens_bb/b.gif width=<%=f2%> height=<%=altura%> border=0><img <% next loop %> src=imagens_bb/p.gif width=<%=largo%> height=<%=altura%> border=0><img src=imagens_bb/b.gif width=<%=fino%> height=<%=altura%> border=0><img src=imagens_bb/p.gif width=<%=1%> height=<%=altura%> border=0> <% end function %> <%=fbarcode(codbar)%> </td> </tr> </table> </div> </div> </body> </html> Alguém pode me ajudar? Obrigado!
  22. Tenho uma pasta que chama "tmp" e gostaria de apagar tudo que estiver nesta pasta e deixa-la vazia , alguém pode me ajudar ?
  23. No site que assumi de um cliente, desenvolvido em ASP.Net com C#, existem colaboradores cadastrados com uma data de admissão definida. O cadastro desses colaboradores está em uma tabela de banco SQL Server 2008. Eu precisava criar alguma coisa (talvez um task) que conferisse se existem usuários com 45 dias desde a sua data admissão. Possivelmente uma consulta SELECT no banco. Se existir, um e-mail automático é enviado pro(s) devido(s) usuário(s) avisando que eles devem preencher uma autoavaliação. Como eu posso fazer isso? O ASP.Net tem alguma coisa nesse sentido? Já me falaram do Hangfire, mas eu não entendi como implementar ele.
  24. Ola Amigos do Forum To precisando de mais uma ajuda. To precisando fazer um APP basico interno aqui para minha empresa, muito simples. Pretendo fazer da seguinte forma: 1- Html5+JQuery+JavaScript 2- Transformar o passo 1 em App atraves do phoneGap 3- fazer o APP conversar via Javascript com o um webservice em ASP Basic via JSon Ja sei programar em ASP e Javascript e conheço o Jquery. Porem preciso de ajuda no seguinte: Preciso de um exemplo de um form html+javascript que submete para o webservice ASP e o webservice retorna uma lista em json. Alguém pode me ajudar no exemplo Obrigado
  25. Bom dia, tudo bem? Como transformar este código para asp? *** Já testei tudo quanto foi array e não consigo, pois nunca fiz nada com array... *** Se puder só fazer um exemplo para este caso, eu consigo fazer o restante.... obrigado! ==================================== <?php $dados = $_POST; //Chave Unica //Para verificar se o POST foi enviado pela Monetizze $chaveUnica = $dados['chave_unica']; if($chaveUnica != '00000000000000000000000000') { exit; } //dados do produto $codigoProduto = $dados['produto']['codigo']; $nomeProduto = $dados['produto']['nome']; //dados da venda $codVenda = $dados['venda']['codigo']; // Código da transação $codPlano = $dados['venda']['plano']; // código do plano do produto (da edição do produto aba planos) $dataInicio = $dados['venda']['dataInicio']; // Data que iniciou a compra. Formato: yyyy-mm-dd H:i:s $dataFinalizada = $dados['venda']['dataFinalizada']; // Data em que foi confirmado o pagamento. Formato: yyyy-mm-dd H:i:s // $linkBoleto e $linhaDigitavel - Somente Produto e co-produtor OU se os dados do comprador estiverem liberados para o afiliado $linkBoleto = $dados['venda']['linkBoleto'] ; //Quando a forma de pagamento for Boleto, aqui vem o link para impressão do boleto $linhaDigitavel = $dados['venda']['linha_digitavel'] ; //Quando a forma de pagamento for Boleto, aqui vem a linha digitável do boleto //Dados do comprador - Somente Produto e co-produtor OU se os dados do comprador estiverem liberados para o afiliado $nome = $dados['comprador']['nome']; $email = $dados['comprador']['email']; $data_nascimento = $dados['comprador']['data_nascimento']; // Formato yyyy-mm-dd $cnpj_cpf = $dados['comprador']['cnpj_cpf']; ================================================== Este é o código de integração da monetizze, que preciso transformar para asp.. Obrigado por qualquer ajuda...
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.