Ir para conteúdo

igadino

Members
  • Total de itens

    108
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre igadino

Informações Pessoais

  • Localização
    Palmas-TO
  1. 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
  2. igadino

    Travando o Form

    Pessoal alguém sabe como eu faço para destravar o form porque quando o timer esta rodando o forme fica travado. Private Sub PCarregadados() Dim repete As String = 0 Using con As OleDbConnection = GetConnection() con.Open() Dim sql As String = "" sql = "SELECT * FROM tblImagensPDV" Dim conec As OleDbCommand conec = New OleDbCommand(sql, con) Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(conec) Dim ds As DataSet = New DataSet() Try adapter.Fill(ds) Dim x As Integer = 0 Do While (repete = 0) Dim img As String = ds.Tables(0).Rows(x).Item("enderecoimagem").ToString ImgSalvar.Image = System.Drawing.Bitmap.FromFile(img) Me.Refresh() System.Threading.Thread.Sleep(5000) x += 1 If x > ds.Tables(0).Rows.Count - 1 Then x = 0 End If Loop con.Close() Catch ex As Exception ' MsgBox("Erro: " & ex.Message) End Try End Using End Sub
  3. igadino

    Gerar parcela

    Eu não entendi como assim
  4. igadino

    Gerar parcela

    Pessoal estou tentando fazer um for para gerar numero de parcela e data de vencimento no Visual Studio 2012 só que as data não está indo na sequência por exemplo se a primeiro data for 22/08/2015 a segunda tem que ser 22/09/2015 a assim por adiante Private Sub Gera_Calc() Using con As OleDbConnection = GetConnection() Dim i As Integer = 1 Try con.Open() Dim sql As String = "INSERT INTO tblReceita(ControleVenda,NumParc,ValorParc,DataVenc) VALUES(?,?,?,?)" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) For i = 1 To txtParcela.Text cmd.Parameters.Add(New OleDb.OleDbParameter("ControleVenda", txtNovo.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("NumParc", i & "/" & txtParcela.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("ValorParc", txtTotalValor.Text / txtParcela.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("DataVenc", DateAdd("m", i, (txtData.Text)))) Next cmd.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub
  5. igadino

    Gerador de Serial

    Estou fazendo um sisteminha e preciso gerar serial para ativar o sistema e somente o serial gerado por este código sera aceito no sistema. tem como validar os seriais gerado por este código
  6. igadino

    Atualizar dados no Excell

    ola tenho uma planilha no excell e quando clicar para atualizar a planilha todos que tem sim no campo da planilha campanha aparecerá 0 na coluna real e meta confornme abaixo usuário e Férias Pedro sim Joao não Maria não Lima sim Jaquelina não Planilha Campanha real meta 0 0 Sub Lista() On Error Resume Next contaLinha = 3 Do Until TabBusca.Range("C" & contaLinha).Value = "sim" If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then Sheets("Campanhas").Range("D13:D25" & contaLinha + 1).Select With Selection.Interior .ColorIndex = 14 End With Exit Do Else contaLinha = contaLinha1 End If Loop End Sub
  7. igadino

    Copiar arquivos e pasta em asp

    Porque não estou conseguindo rodar no meu PC?
  8. igadino

    Copiar arquivos e pasta em asp

    Pois eu ainda não encontrei, pois ja procurei no forum mais nada entrar a função igual a um web explorer
  9. igadino

    Copiar arquivos e pasta em asp

    Eu ja tenho esta função ela não serve para somente a função que e igual a do explorer que estou tentando fazer e que vai servir para mim.
  10. igadino

    Copiar arquivos e pasta em asp

    Eu já tenho essa função de copiar e não serve para o que quero, a única função que estou tentando montar e igual do Explorer.
  11. igadino

    Copiar arquivos e pasta em asp

    Ainda não recebei o email manda no igadino@yahoo.com.br
  12. igadino

    Copiar arquivos e pasta em asp

    Em qual email vc enviou porque ainda não recebie.
  13. igadino

    Copiar arquivos e pasta em asp

    Estou no aguardo
  14. igadino

    Copiar arquivos e pasta em asp

    Segue os email igadino@yahoo.com.br igadino@gmail.com igadino@hotmail.com
  15. igadino

    Copiar arquivos e pasta em asp

    Eu não encontrei o script que falou encontrei um outro que e esse http://forum.imasters.com.br/topic/378905-resolvido-explorer/
×

Informação importante

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