Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Fadmkt web

Dificuldade em criar um boleto do Banco do Brasil

Por , em ASP Clássico

Recommended Posts

Fadmkt web    0

Fadmkt web
Postado

Abaixo vai o codigo pra olharem e verem qual erro ESTOU TENDADO CRIAR UM BOLETO DO BANCO DO BRASIL COM CONVENIO DE 7 DIGITOS ESTOU COM PROBLEMAS NA LINHA DIGITAVEL (OU IPTE) E NO CODIGO DE BARRAS

 

 

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/sitesftp/Fad MKT/atual/gerenciamento/boleto/boleto.asp, line 139

function formatar(valor, comp, ench, tipo)

 

 

ABAIXO O CODIGO DO SISTEMA

 

<!-- #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

%>

<% 
Dim ATAB(99)

%>
<%
'Por o locale para 1046 = Portugues do Brasil
Session.LCID = 1046
%>
<html>
<div id=impressao>
	<input type=button name=btnImprime value="Imprimir Boletos">
	<HR>
	<BR>
</div>

<div id=confirmacao style="display:none;">
	<CENTER>
	Confirma a Impressão dos Boletos?<BR>
	<input type=button name=btnSim value="Sim">
	<input type=button name=btnNao value="Não">
	</CENTER>
	<HR>
	<BR>
</div>


<%
dim idPedido, valorN, 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

dim item, v_item, id_parceiro, dt_vencimento, rsLancamento, rsNumero, vr_tx_boleto, nr_boletos

vr_tx_boleto = 0.0 'AQUi ALTERA O VALOR DA TAXA DE BOLETO

For each item in Request.Form("chkBoleto")
	v_item = split(item,"|")
	id_parceiro = v_item(0)
	dt_vencimento = v_item(1)

	'pega ultimo numero
	sql = "SELECT * FROM vw_ultimo_boleto"
	set rsNumero = GetRS(sql)

	'Atualiza lancamentos com numero calculado
	sql = "update lancamento set "
	sql = sql & " nr_documento = " & rsNumero("nr_documento") + 1
	sql = sql & ", vr_tx_boleto = " & replace(vr_tx_boleto, ",", ".")
	sql = sql & " where id_parceiro = " & id_parceiro 
	sql = sql & " and forma_pagamento = 'B'"
	sql = sql & " and id_situacao_lancamento = 1"
	sql = sql & " and dt_vencimento = #" & month(cdate(dt_vencimento)) & "/" & day(cdate(dt_vencimento)) & "/" & year(cdate(dt_vencimento)) & "#"
'	Response.Write sql
'	Response.End 
	call executecmd(sql)
	
	sql = "select * from vw_lancamento_boleto where id_parceiro = " & id_parceiro 
	sql = sql & " and dt_vencimento = #" & month(cdate(dt_vencimento)) & "/" & day(cdate(dt_vencimento)) & "/" & year(cdate(dt_vencimento)) & "#"
	set rsLancamento = GetRS(sql)
	
	nr_boletos = nr_boletos & cstr(rsNumero("nr_documento") + 1) & ","

valordia=date() 'DIA DE HOJE OU EMISSÃO DO BOLETO
DATAEMISSAO = 	Day(valordia) & "/" & Month(valordia) & "/" & YEAR(valordia)
OBS = "" 'REQUEST("OBS")
if rslancamento("respcpf") <> "" then 
	valorsacado = rslancamento("respnome") 'NOME DO CLIENTE
	CNPJ = "CPF: " + rslancamento("respcpf")
else
	valorsacado = rslancamento("nome") 'NOME DO CLIENTE
	CNPJ = "CPF: " + rslancamento("cpf")
end if

valordia=date()
valordata  =  DATAEMISSAO 'DATA DO DOCUMENTO
valordata   = FORMATDATETIME(valordata,2)  
valoragencia="2168-7" 'AGÊNCIA   -----  NÃO É RELEVANTE
valorcedente1="33224-0" 'CC CEDENTE -----  NÃO É RELEVANTE
valorced="Four Learning Educacional Comércio de Material Didático Ltda."
valorcedcnpj="10.396.990/0001-82"
'valornossonumero = right("00000000000000" & rsNumero("nr_documento")+1,14)  'NOSSO NUMERO
'valornossonumero = right ("00000000000" & rsNumero("nr_documento")+1,14)  'NOSSO NUMERO Alte
'codigocliente = "211434946" 'FIXO FORNECIDO PELO BANCO - IMPORTANTE
codigocliente = "1622450" 'FIXO FORNECIDO PELO BANCO - IMPORTANTE
valorvencimento = rslancamento("dt_vencimento")
valorvencimento = FORMATDATETIME(valorvencimento,2)
CDGFATURA = rsNumero("nr_documento")+1
valorespeciedoc="DM"
valoraceite="N"
valorcarteira="17-019"
'valorcarteira="17-109"
valorespecie="R$"

instrucoes=""
if rslancamento("vr_desconto") > 0 then
'	instrucoes = instrucoes + "Valor do titulo com desconto de R$" + formatnumber(rslancamento("vr_desconto"),2) + " até o vencimento."

	'instrucoes = instrucoes + "Após o vencimento cobrar R$" + formatnumber((rslancamento("vr_parcela") * 1.05) + vr_tx_boleto ,2) & " mais mora de 0,05% ao dia de atraso." 
	instrucoes = instrucoes + "Após o vencimento cobrar R$" + formatnumber((rslancamento("vr_parcela") * 1.05) + vr_tx_boleto - rslancamento("vr_desconto") ,2) & " mais mora de 0,05% ao dia de atraso." 
	
	'	instrucoes = instrucoes + "Desconto de R$" + formatnumber(rslancamento("vr_desconto"),2) + " até o vencimento."
else
	instrucoes = instrucoes + "Após o vencimento multa de 5% mais mora de 0,05% ao dia de atraso." 
end if

'if rslancamento("vr_tx_boleto") > 0 then 
	instrucoes = instrucoes + "<BR>"
	instrucoes = instrucoes + "Valor de R$" + formatnumber(vr_tx_boleto,2) + " referente a taxa do boleto já inclusa no titulo"
'end if
instrucoes = instrucoes + ""

localdepagamento = "Qualquer banco até a data de vencimento"
VALOR = formatnumber(rslancamento("vr_parcela") + 0 + vr_tx_boleto - rslancamento("vr_desconto"),2)
'VALORDIGITOVARIFICADOR = CALCNUMB(REPLACE("409"&" 9"&FATORVENCTO(valorvencimento)&" "&VALORPROCODIGODEBARRA(VALOR)&" "&"5 "&codigocliente&" 00 "&valornossonumero&SUPERDIGITO(valornossonumero) ," ",""))
VALORDIGITOVARIFICADOR = CALCNUMB(REPLACE("001"&" 9"&FATORVENCTO(valorvencimento)&" "&VALORPROCODIGODEBARRA(VALOR)&" "&"0 "&codigocliente&" 00 "&valornossonumero&SUPERDIGITO(valornossonumero) ," ",""))

'******************************************************
'NOVOS CAMPOS DE PROGRAMACAO 
'******************************************************
valor =  rslancamento("vr_parcela")
valornossonumero = rsNumero("nr_documento")
valornossonumero = codigocliente & valornossonumero
livre = "000000" & codigocliente & valornossonumero & valorcarteira

valor_str = Cstr(formatar(valor,10,"0","v"))


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	

'******************************************************
'O CÓDIGO ABAIXO GERA A LINHA DIGITÁVEL OU IPTE
'******************************************************
 
'linha = "409"&"9"&"5"&""&left(codigocliente,4)&CALCDIG10("40995"&LEFT(codigocliente,4))&_
linha = "001"&"9"&"0"&""&left(codigocliente,4)&CALCDIG10("00190"&LEFT(codigocliente,4))&_
""&mid(codigocliente,5,2)&right(codigocliente,1)&"00"&left(valornossonumero,5)&CALCDIG10(mid(codigocliente,5,2)&right(codigocliente,1)&"00"&left(valornossonumero,5))&_
""&mid(valornossonumero,6,5)&""&mid(valornossonumero,11,4)&SUPERDIGITO(valornossonumero)&CALCDIG10(mid(valornossonumero,6,5)&mid(valornossonumero,11,4)&SUPERDIGITO(valornossonumero))&_
""&VALORDIGITOVARIFICADOR&_
""&FATORVENCTO(valorvencimento)&VALORPROCODIGODEBARRA(VALOR)

ipte = Cstr("0019" & valorvencimento  & valor_str & livre)
	  )

 
'*******************   FIM  ***************************


'IPTE=40995.21496 90700.000004 00053.010179 1 35990000000340

'ObtemCodBarras = Mid(linha, 1, 4) & Mid(linha, 33, 1) & Right(linha, 14) & Mid(linha, 5, 5) & Mid(linha, 11, 10) & Mid(linha, 22, 10)

'******************************************************
'O CÓDIGO ABAIXO GERA A STRING DO CÓDIGO DE BARRAS
'******************************************************
'STR_BARCODE = "409"&" 9"& VALORDIGITOVARIFICADOR&FATORVENCTO(valorvencimento)&" "&VALORPROCODIGODEBARRA(VALOR)&" "&"5 "&codigocliente&" 00 "&valornossonumero&SUPERDIGITO(valornossonumero)
STR_BARCODE = "001"&"9"& VALORDIGITOVARIFICADOR&FATORVENCTO(valorvencimento)&""&VALORPROCODIGODEBARRA(VALOR)&""&"0"&codigocliente&"00"&valornossonumero&SUPERDIGITO(valornossonumero)
'*******************   FIM  ***************************

'response.write linha
'response.write "<BR>"
'response.write ipte
'response.write "<BR>"
'response.write STR_BARCODE
'response.write "<BR>"
'response.write ObtemCodBarras
'response.end

'INICIA O CADASTRO DO BOLETO AVULSO

'If Trim(IPTEGrupo8) = "" Then
'	IPTEGrupo8 = "0"
'	IPTEGrupo8 = Format(IPTEGrupo8, "00000000000000")
'End If
'txtBase = IPTEGrupo1 & IPTEGrupo2 & IPTEGrupo3 & IPTEGrupo4 & IPTEGrupo5 & IPTEGrupo6 & IPTEGrupo7 & IPTEGrupo8
'ObtemCodBarras = Mid(txtBase, 1, 4) & Mid(txtBase, 33, 1) & Right(txtBase, 14) & Mid(txtBase, 5, 5) & Mid(txtBase, 11, 10) & Mid(txtBase, 22, 10)

'Exemplos
'23794359900000004150516060000249668500814500 
'40099735940000000034000521499007000000000003405010 
'42299359200000834997093000010563147794597842 
 



'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
'----------------------------------------------------------------------------------
%>

<table  border="0" cellspacing="0" cellpadding="0">
  <tr height="300" valign=top>
  
	<td bgcolor="#FFFFFF" width="50">

	  <table border="0" cellspacing="0" cellpadding="0" >

		<tr>
		  <td valign="top" style="border-bottom: 1 solid #000000"><strong><b><font size="3" face="TIMES"><img src="logoBoleto.gif" width="150" height="22" border="0" align="left"></font></b></strong></td>
		</tr>

		<tr>
			<td style="border-bottom: 1 solid #000000" >
				<font size="1" face="Verdana">Nosso	Número<br>
					<B><%=valornossonumero%>/<%=SUPERDIGITO(valornossonumero)%></b>
				</font>
			</td>
		</tr>

		<tr>
			<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000">
				<font size="1" face="Verdana">
					<B><%'=rslancamento("ds_lancamento")%></b><br>
					Parcela <B><%'=rslancamento("nr_parcela")%></B><br>
					Matrícula: <B><%'=rslancamento("id_matricula")%></B><br>
					Aluno(a):<br>
					<B><%=rslancamento("nome")%></B><br>
				</font>
			</td>
		</tr>

		<tr>
			<td style="border-bottom: 1 solid #000000" align="right">
				<font size="1" face="Verdana">Vencimento</font><br>
				<font face="Verdana" size="2"><B><%=valorvencimento%></b></font>
			</td>
		</tr>

		<tr>
		<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000" align=right>
			<font size="1" face="Verdana">Valor<br>
				<B><%=formatnumber(rslancamento("vr_parcela"),2)%></B>
			</font>
		</td>
		</tr>

		<tr>
		<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000" align=right>
			<font size="1" face="Verdana">Desconto<br>
				<B><%=formatnumber(rslancamento("vr_desconto"),2)%></B>
			</font>
		</td>
		</tr>

		<tr>
		<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000" align=right>
			<font size="1" face="Verdana">Taxa Boleto<br>
				<B><%=formatnumber(vr_tx_boleto,2)%></B>
			</font>
		</td>
		</tr>

		<tr>
		<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000" align=right>
			<font size="1" face="Verdana">Valor Documento<br>
				<B><%=formatnumber(VALOR,2)%></B>
			</font>
		</td>
		</tr>

		<tr>
		<td bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000" align=right>
			<font size="1" face="Verdana">Valor Pago<br>
				<B> </B>
			</font>
		</td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF" align=left>
				<font size="1" face="Verdana">RECIBO DO CLIENTE</font>
			</td>
		</tr>
		<tr>
			<td bgcolor="#FFFFFF" align=left>
				<font size="1" face="Arial">Autenticação no verso</font>
			</td>
		</tr>
	  </table>
	</td>

	<td width="5" bgcolor="#FFFFFF" style="border-right: 1 solid #000000"> </td>
	<td width="5"></td>

	<td bgcolor="#FFFFFF" height="1" width="630" >

	  <table border="0" cellspacing="0" cellpadding="0">
		<tr>
		  <td width="23%" valign="middle" style="border-bottom: 1 solid #000000">
		  <p align="center"><strong><b><font size="3" face="TIMES"><img src="logoBoleto.gif" width="150" height="22" border="0" align="left"></font></b></strong></td>
		  <td width="14%" style="border-left: 4 solid #000000; border-right: 4 solid #000000; border-bottom: 1 solid #000000" valign="middle">
			<p align="center"><b><font size="3" face="Arial">001-9</font></b></td>
		  <td width="488" valign="middle" style="border-bottom: 1 solid #000000">
			<p align="center"><b><font size="2" face="Arial"><%=ipte%></font></b></td>
		</tr>
	  </table>
	  <table border="0" cellspacing="0" cellpadding="0" >
		<tr>
		  <td width="488" bgcolor="#FFFFFF" valign="top" colspan="2" height="190">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
			  <tr>
				<td width="100%" bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000"><font size="1" face="Verdana">Local
				  de pagamento<br>
				  <B><font SIZE="1">
				   <B><%= localdepagamento %></B>
</font></b></td>
			  </tr>
			  <tr>
				<td width="100%" bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000"><font size="1" face="Verdana">Cedente<br>
									<B><%=valorced%></B>       <B><%=valorcedcnpj%></B>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000">
				  <table border="0" width="101%" cellspacing="0" cellpadding="0">
					<tr>
					  <td width="20%" valign="top">
						<p align="center"><font size="1" face="Verdana">data
						do doc.<br>
												<B><%=FORMATDATETIME(valordata,2)%></b>

						</font></p>
					  </td>
					  <td width="35%" valign="top" style="border-left: 4 solid #000000; border-right: 4 solid #000000">
						<p align="center"><font size="1" face="Verdana">No.
						do Doc.<br>
												<B><%=CDGFATURA%></b>

						</font></p>
					  </td>
					  <td width="17%" valign="top" style="border-right: 4 solid #000000" align="center"><font size="1" face="Verdana">Espécie
						doc.<br>
												<B><%=valorespeciedoc%></b>
						</font></td>
					  <td width="9%" valign="top" style="border-right: 4 solid #000000" align="center"><font size="1" face="Verdana">Aceite<br>
												<B><%=valoraceite%></b>
						</font></td>
					  <td width="20%" valign="top" align="center"><font size="1" face="Verdana">Data
						do proc.<br>
												<B><%=valordata%></b>

						</font></td>
					</tr>
				  </table>
				</td>
			  </tr>
			  <tr>
				<td width="100%" bgcolor="#FFFFFF" style="border-bottom: 1 solid #000000">
				  <table border="0" width="100%" cellspacing="0" cellpadding="0">
					<tr>
					  <td width="20%" valign="top" align="center"><font size="1" face="Verdana">Uso
						do banco<br>
						<B>CVT 7744-5</b>
						

						</font></td>
					  <td width="11%" valign="top" style="border-left: 4 solid #000000; border-right: 4 solid #000000" align="center"><font size="1" face="Verdana">carteira<br>
												  <B><%=valorcarteira%></b>
						</font></td>
					  <td width="11%" valign="top" style="border-right: 4 solid #000000" align="center"><font size="1" face="Verdana">espécie<br>
												  <B><%=valorespecie%></b>
						</font></td>
					  <td width="58%" valign="top"><font size="1" face="Verdana">quantidade                       
						Valor<br>
						                            
						x           
						=</font></td>
					</tr>
				  </table>
				</td>
			  </tr>
			  <tr>
				<td width="100%" bgcolor="#FFFFFF" valign="top"><font size="1" face="Verdana">Instruções<br>
								  <%=instrucoes%>
<br>
				  </font></td>
			  </tr>
			</table>
		  </td>
		  <td width="140" bgcolor="#FFFFFF" valign="top" style="border-left: 4 solid #000000" height="190">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font size="1" face="Verdana">Vencimento
				  </font><font face="Verdana" size="2"><br>
				   <B><%=valorvencimento%></b>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font face="Verdana" size="1">Agência/Código
				  cedente<br>
									<B><%=valoragencia%> <%=valorcedente1%></B>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font size="1" face="Verdana">Nosso
				  Número<br>
									  <B><%=valornossonumero%>/<%=SUPERDIGITO(valornossonumero)%></b>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font size="1" face="Verdana">Valor
				  do Documento<br>
									  <B><%=FORMATNUMBER(VALOR,2)%></b><BR>

				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font size="1" face="Verdana">(-)
				  Desconto/Abatimento<br>
				  <br>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" style="border-bottom: 1 solid #000000" align="right"><font size="1" face="Verdana">(+)
				  Mora/Multa<br>
				  <br>
				  </font></td>
			  </tr>
			  <tr>
				<td width="100%" align="right"><font size="1" face="Verdana">(=) Valor Cobrado<br>
				  <br>
				  </font></td>
			  </tr>
			</table>
		  </td>
		</tr>
		<tr>
		  <td width="640" bgcolor="#FFFFFF" valign="top" colspan="3" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="54"><font size="1" face="Verdana">Sacado<br>
								<B>
					<%=valorsacado%><BR>
					<%= CNPJ %>
					</b>
<br>
			<font face="Verdana" size="1">Sacador/avalista</font>
			</font></td>
		</tr>

		<tr>
		  <td height="5"></td>
		</tr>

		<tr>
		  <td width="640" bgcolor="#FFFFFF" valign="top" colspan="3" height="64">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
			  <tr>
				<td width="68%" nowrap>
<%
call wbarcode(STR_BARCODE)
%>
				</td>
				<td valign="top" height="1">
				<p align="center"><font size="1" face="Verdana">
					Autenticação mecânica
					<BR>
					<BR>
					<BR>
					<b>Ficha de compensação</b>
				</font></p>
				</td>
			  </tr>
			</table>
		  </td>
		</tr>
	  </table>
	</td>
  </tr>
</table>

<%'rsLancamento.movenext%>

<%'if not rsLancamento.eof then%>
	<%'if rsLancamento.absoluteposition = 4 or rsLancamento.absoluteposition = 7 or rsLancamento.absoluteposition = 10 or rsLancamento.absoluteposition = 13 or rsLancamento.absoluteposition = 16 then%>
		<!--br clear=all style='mso-special-character:line-break;page-break-before:always'-->
	<%'else%>
		<hr style="border-top: 1 dashed #000000;">
	<%'end if%>	
<%'end if%>	

<%next%>
<%

'********************************************************
'ESSA FUNÇÃO PREPARA O VALOR PARA O CÓDIGO DE BARRAS E IPTE ex: 0000010000 PARA 100,00
'*********************************************************
FUNCTION VALORPROCODIGODEBARRA(valor)
'**************************
valorvalor2=replace(valor,",","")
valorvalor2=replace(valorvalor2,".","")
valorvalor3=len(valorvalor2)
valorvalor4=10-valorvalor3
while valorvalor4 >= 1
NUMERODEZEROS = NUMERODEZEROS & 0
valorvalor4 = valorvalor4 - 1
wend
VALORPROCODIGODEBARRA = NUMERODEZEROS&valorvalor2
'*************************
END FUNCTION
'*************************


'****************************
'CALCULO DE FATOR DE VENCIMENTO
'****************************
FUNCTION FATORVENCTO(DATA2)
data1=datevalue("03/07/2000")
data2=datevalue(DATA2)
data3=data2-data1
 FATORVENCTO  =  data3+1000
END FUNCTION
'****************************

'**************************
'CALCULA O SUPERDIGITO
'**************************
FUNCTION SUPERDIGITO(CNOSSO)  
numerodedigitos = len(cnosso)

ATAB(0)=8
ATAB(1)=7
ATAB(2)=6
ATAB(3)=5
ATAB(4)=4
ATAB(5)=3
ATAB(6)=2
ATAB(7)=9
ATAB(8)=8
ATAB(9)=7
ATAB(10)=6
ATAB(11)=5
ATAB(12)=4
ATAB(13)=3
ATAB(14)=2
NSOMA=0
NUNIDADE=0
NDIGITO=0
NCONTA =numerodedigitos
while NCONTA >= 1
NUNIDADE1=MID(CNOSSO,NCONTA,1)
NUNIDADE=MID(CNOSSO,NCONTA,1)*ATAB(NCONTA)
NSOMA=NSOMA+NUNIDADE
NCONTA = NCONTA - 1
wend
digito = (NSOMA*10) mod 11
if digito  = 0 or digito  = 10 then
digito = 0
else
end if
SUPERDIGITO=digito

'*************************
END FUNCTION
'*************************


'**************************
FUNCTION CALCDIG10(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 )
	CALCDIG10=total
'*************************
END FUNCTION
'*************************


'CALCULA O DIGITO VERIFICADOR DO CÓDIGO DE BARRAS E É BARRA
'**************************
FUNCTION CALCNUMB(CNOSSO)
'**************************
numerodedigitos = len(cnosso)

IF numerodedigitos = "44" THEN
ATAB(0)=6
atab(1)=5
atab(2)=4
ATAB(3)=3
ATAB(4)=2
ATAB(5)=9
ATAB(6)=8
ATAB(7)=7
ATAB(8)=6
ATAB(9)=5
ATAB(10)=4
ATAB(11)=3
ATAB(12)=2
ATAB(13)=9
ATAB(14)=8
ATAB(15)=7
ATAB(16)=6
ATAB(17)=5
ATAB(18)=4
ATAB(19)=3
ATAB(20)=2
ATAB(21)=9
ATAB(22)=8
ATAB(23)=7
ATAB(24)=6
ATAB(25)=5
ATAB(26)=4
ATAB(27)=3
ATAB(28)=2
ATAB(29)=9
ATAB(30)=8
ATAB(31)=7
ATAB(32)=6
ATAB(33)=5
ATAB(34)=4
ATAB(35)=3
ATAB(36)=2
ATAB(37)=9
ATAB(38)=8
ATAB(39)=7
ATAB(40)=6
ATAB(41)=5
ATAB(42)=4
ATAB(43)=3
ATAB(44)=2
ELSE
ATAB(0)=5
atab(1)=4
atab(2)=3
ATAB(3)=2
ATAB(4)=9
ATAB(5)=8
ATAB(6)=7
ATAB(7)=6
ATAB(8)=5
ATAB(9)=4
ATAB(10)=3
ATAB(11)=2
ATAB(12)=9
ATAB(13)=8
ATAB(14)=7
ATAB(15)=6
ATAB(16)=5
ATAB(17)=4
ATAB(18)=3
ATAB(19)=2
ATAB(20)=9
ATAB(21)=8
ATAB(22)=7
ATAB(23)=6
ATAB(24)=5
ATAB(25)=4
ATAB(26)=3
ATAB(27)=2
ATAB(28)=9
ATAB(29)=8
ATAB(30)=7
ATAB(31)=6
ATAB(32)=5
ATAB(33)=4
ATAB(34)=3
ATAB(35)=2
ATAB(36)=9
ATAB(37)=8
ATAB(38)=7
ATAB(39)=6
ATAB(40)=5
ATAB(41)=4
ATAB(42)=3
ATAB(43)=2
END IF
NSOMA=0
NUNIDADE=0
NDIGITO=0
numerodedigitos = len(cnosso)
NCONTA =numerodedigitos



while NCONTA >= 1
NUNIDADE=MID(CNOSSO,NCONTA,1)*ATAB(NCONTA)	
NSOMA=NSOMA+NUNIDADE
NCONTA = NCONTA - 1
wend
digito = (NSOMA*10) mod 11
if digito  = 0 or digito  = 10 then
digito = 1
else
end if
CALCNUMB=digito
'*************************
END FUNCTION
'*************************



'**************************
'AQUI GERA O BARCODE
'**************************
Sub 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
%>

<script LANGUAGE=VBSCRIPT>
sub btnimprime_onclick()
	document.all("impressao").style.display = "none"
	call self.print
	document.all("confirmacao").style.display = ""
end sub

sub btnNao_onclick()
	document.all("impressao").style.display = ""
	document.all("confirmacao").style.display = "none"
end sub

sub btnSim_onclick()
	window.location.href = "../lancamento_detalhe_upd.asp?operacao=i&nr_boletos=<%=left(nr_boletos, len(nr_boletos)-1)%>"
end sub

</SCRIPT>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Erro de sintaxe...

talvez esteja tentando passar um valor incontapitel

 

e tb dá uma verificada no fórum, que existe boletos prontos do BB

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito