Jump to content

igadino

Members
  • Content count

    109
  • Joined

  • Last visited

Community Reputation

0 Comum

About igadino

Informações Pessoais

  • Localização
    Palmas-TO
  1. igadino

    Calculo do CRC

    Bom dia pessoal, convertir essa função do C# para vba ele funciona perfeitamento no excel e accessporem estou tentendo usar ela no vb.net editor VISUAL STUDIO 2013, aparece o erro conforme a imagem enexo, alguem consegue corrigir esse erro;Function crc_ccitt_ffff(strParam As String) As String Const CRC_POLY_CCITT As Long = &H1021& Const CRC_START_CCITT_FFFF As Long = &HFFFF& Dim crc As Long, b() As Byte, c As Long, i As Long, j As Long Dim crc_tabccitt(0 To 255) As Long For i = 0 To 255 crc = 0 c = i * 256 For j = 0 To 7 If (crc Xor c) And 32768 Then crc = (crc * 2) Xor CRC_POLY_CCITT Else crc = crc * 2 End If c = c * 2 Next j crc_tabccitt(i) = crc Next i b = strParam crc = CRC_START_CCITT_FFFF For i = 0 To UBound(b) Step 2 crc = (crc * 256) Xor crc_tabccitt(((crc \ 256) Xor b(i)) And 255) crc = ((crc \ 65536) * 65536) Xor crc Next i crc_ccitt_ffff = Hex(crc) End Function
  2. igadino

    Boleto da caixa

    Boa Tarde pessoal eu peguei esta função no link abaixo parece que e em C# e transformei em vb.net só que esta dando o erro na linha em destaquehttps://github.com/BoletoNet/boletonet/blob/master/src/Boleto.Net.MVC/Models/Exemplos.csPublic Sub GeraBoletoCE(ByVal qtde As Integer) ' Cria o boleto, e passa os parâmetros usuais Dim ce As BoletoBancario Dim boletos As New List(Of BoletoBancario)() For i As Integer = 0 To qtde - 1 ce = New BoletoBancario() ce.CodigoBanco = _codigoBanco Dim vencimento As New DateTime(2007, 9, 10) Dim instr As New Instrucao(1) Dim c As New Cedente("00.000.000/0000-00", "Next Consultoria Ltda.", "0123", "100618", "9") c.Codigo = 112233 ' BoletoNet.Boleto b = new BoletoNet.Boleto(vencimento, 20.00m, "14", "0123456789", c); Dim b As New Boleto(vencimento, 2952.95, "14", "0123456789", c) b.NumeroDocumento = "21212114779797" '1b.NossoNumero b.Sacado = New Sacado("000.000.000-00", "Jose Pedro Ongueira de Oliveira") b.Sacado.Endereco.[End] = "Rua Dr. Henrique Portugal, 12" b.Sacado.Endereco.Bairro = "Loteamento Lago Sul" b.Sacado.Endereco.Cidade = "Palmas" b.Sacado.Endereco.CEP = "77062141" b.Sacado.Endereco.UF = "TO" b.Sacado.Endereco.Logradouro = "Rua Dr. Henrique Duarte Lima" b.Sacado.Endereco.Numero = "8980978987" b.Sacado.Endereco.Complemento = "Casa" b.NumeroDocumento = "00001" b.DataProcessamento = DateTime.Now b.DataDocumento = DateTime.Now instr.Descricao = "Não Receber após o vencimento" b.Instrucoes.Add(instr) ce.Boleto = b ce.Boleto.Valida() boletos.Add(ce) Next GeraLayout(boletos) End Sub
×

Important Information

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