Jump to content

Search the Community

Showing results for tags 'linha digitavel'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Calendars

  • Comunidade iMasters

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 1 result

  1. 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!
×

Important Information

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