Gerando código de barras de boleto bancário em HTML pelo módulo do Kankei
Exemplo de geração de código de barras para criação de boletos bancários em HTML, utilizando o módulo do Kankei
Este módulo necessita de duas imagens, uma barra vertical preta e uma barra vertical branca, como estas:
Exemplo de barra vertical preta
Exemplo de barra vertical branca
<html>
<head>
<title>Código de Barras 2 of 5</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
if (Parameters("__IsPostback") != '1') {
Parameters('valor') = "34191183400000292011090000107160253500375000"
}
function fbarcode(valor) {
var f, f1, f2, i;
var texto;
var fino = 1;
var largo = 3;
var altura = 50;
var BarCodes = [];
var imgPreto = 'http://www.kankei.com.br/artigos/kankeidbm/codigobarras/p.png';
var imgBranco = 'http://www.kankei.com.br/artigos/kankeidbm/codigobarras/b.png';
BarCodes.push("00110");
BarCodes.push("10001");
BarCodes.push("01001");
BarCodes.push("11000");
BarCodes.push("00101");
BarCodes.push("10100");
BarCodes.push("01100");
BarCodes.push("00011");
BarCodes.push("10010");
BarCodes.push("01010");
for(f1 = 9; f1 > 0; f1 --) {
for(f2 = 9; f2 > 0; f2 --) {
f = f1 * 10 + f2;
texto = "";
for(i = 1; i <= 5; i++) {
texto = texto + mid(BarCodes[f1], i, 1) + mid(BarCodes[f2], i, 1)
}
BarCodes[f] = texto
}
}
//Desenho da barra
//Guarda inicial
%>
<img
src="<%=imgPreto%>" width="<%=fino%>" height="<%=altura%>" border="0"><img
src="<%=imgBranco%>" width="<%=fino%>" height="<%=altura%>" border="0"><img
src="<%=imgPreto%>" width="<%=fino%>" height="<%=altura%>" border="0"><img
src="<%=imgBranco%>" width="<%=fino%>" height="<%=altura%>" border="0"><img
<%
texto = valor;
if( length( texto ) % 2 != 0) {
texto = "0" + texto;
}
// Draw dos dados
while (length(texto) > 0) {
i = ToInteger( left( texto, 2) );
texto = right( texto, length( texto ) - 2);
f = BarCodes[i];
for (i = 1; i <= 10; i += 2) {
if( mid(f, i, 1) == "0") {
f1 = fino;
} else {
f1 = largo;
}
%>
src="<%=imgPreto%>" width="<%=f1%>" height="<%=altura%>" border="0"><img
<%
if( mid(f, i + 1, 1) == "0") {
f2 = fino;
} else {
f2 = largo;
}
%>
src="<%=imgBranco%>" width="<%=f1%>" height="<%=altura%>" border="0"><img
<%
}
}
// Draw guarda final
%>
src="<%=imgPreto%>" width="<%=largo%>" height="<%=altura%>" border="0"><img
src="<%=imgBranco%>" width="<%=fino%>" height="<%=altura%>" border="0"><img
src="<%=imgPreto%>" width="1" height="<%=altura%>" border="0">
<%
}
%>
<p><font face="Arial, Helvetica, sans-serif" size="2"><b>Script Gera Código
de Barras 2 of 5 - Padrão utilizados para boletos bancarios.</b><br>
<br>
<b><br>
</p>
<%=fbarcode(Parameters('valor'))%>
<form name="main" method="post" action="<%=K.BD.GetResourceURL('module', Module.Code)%>">
<font face="Arial, Helvetica, sans-serif" size="2">
<b>Digite o valor do código de barras:</b>
</font>
<br>
<input type="text" name="valor" maxlength="50" size="50" value="<%=Parameters('valor') %>">
<input type="submit" name="Enviar" value="Gerar Código de Barrar">
</form>
</body>
</html>
