Curso Gratuito de Programação Asp.Net (com vídeo Aulas)

Sejam bem vindos ao Curso de Programação Asp.Net.

Quem sou eu

Antes de mais nada, quem sou eu: Professor Luís Eduardo, 33 anos, à 10 anos professor na Etep Faculdades de São José dos Campos, uma das escolas técnicas mais conceituadas em meu município e região. E também 10 anos na Sabesp, na divisão de Informática do Vale do Paraíba. Eu sou Tecnoclasta.

Trabalho à 10 anos com Desenvolvimento Web para a intranet da Sabesp. Começei com o “macarraônico” código JSP (java) acessando diretamente o banco de dados Oracle, e agora, já evoluído, utilizo Struts mais Hibernate nos projetos novos. Além de Asp.Net para outros. É claro que os primeiros projetos ainda estão em funcionamento e manutenção. Portanto lido com todo tipo de código jsp + oracle + struts + asp.net e outros testes. Ruby é outro ambiente que testei.

Objetivo do Curso

O objetivo deste curso é permitir alguém com boa vontade e dedicação desenvolver pequenos sites em Asp.net. Apenas começar o desenvolvimento, o suficiente para conseguir acompanhar o material mais completo e técnico já presente em abundância na Internet. Será também o repositório de informações para meus alunos do curso presencial, que tem o mesmo conteúdo apresentado aqui.

Conteúdo programático

  • Preparando o Ambiente
  • xHtml e Css
  • A interface Rad do Web Developer
  • Um pouco de Visual Basic
  • Componentes html controls
  • Componentes web controls
  • Validação de formulários
  • Sessão, controle de acesso e personalização
  • Data Sources e odbc
  • Grid Views e telas Crud
  • Sistema completo: Busca e um clone do Google. (exagero ;-) )

Estou planejando em torno de 12 semanas, com uma aula publicada a cada terça-feira. Parte do material estará em texto aqui e parte em vídeo-aula conforme a necessidade do conteúdo.

Material já publicado:

  • Asp.net Vídeo Aulas | Aula 1: Instalando o Visual Web Developer | Tecnoclasta
  • Novas (vídeo) aulas de Programação para Web: desta vez ASP.NET | Tecnoclasta
  • Asp.net Vídeo Aulas | Aula 2: Instalando o MySql e Odbc Connector | Tecnoclasta
  • Asp.net Vídeo Aulas | Aula 3: Hello World Asp.Net
  • Asp.net Vídeo Aulas | Aula 4: Componentes Básicos
  • Asp.net Aulas | Aula 5: xHtml e Css
  • Asp.net Vídeo Aulas | Aula 6: Validando Formulários
  • Asp.net Vídeo Aulas | Aula 7: Acessando Banco de Dados
  • Asp.net Vídeo Aulas | Aula 8: Tela de Cadastro CRUD
  • Aula 9: login e controle de acesso. Última aula, em preparação
  • Guarde esta página em favoritos (teclas ctrl+d), para poder continuar o curso a partir da próxima aula.
    Para os mais entendidos: feeds, ou assine por email

    Outros Artigos:

    75 comentários para “Curso Gratuito de Programação Asp.Net (com vídeo Aulas)”

    1. Tiago disse:

      Olá Professor, parabéns pelas aulas. Estou fazendo as aulas ASP.net e já tenho uma dúvida!!! Gostario de saber se posso tirar minhas dúvidas por aqui mesmo?

      na aula 2 instalando o Mysql server deu pau no Restart service na hora de executar, o que eu faço?

      att
      Tiago

    2. felipe disse:

      otimo curso!!!! parabéns!!!!
      estou no aguardo da aula 9

    3. Alex Leite disse:

      Olá amigo, esta sendo muito boa as vídeo aulas, só que possuo uma dúvida na criacao da tabela.

      *Web Aula Asp.net – Aula 7 / parte2: Select Banco de Dados

      Abri o MysqlCommandLineClient digitei a mesma senha da instalação, criei a base e a tabela como acompanhado.

      fechei o banco e fui para o WebVisualDeveloper, atualizei o banco que já estava conectado mas nada de aparecer as tabelas,

      Você pode me ajudar?

      Abraços!

      Obs. estou usando win7. e nao dei aquele commando “-u root -p”

    4. Rodrigo disse:

      Professor, sou de Jacareí e gostaria de saber sobre a sua aula presencial. Apenas dá o curso na ETEP? Poderia me passar maiores informações? Obrigado.

    5. Cassio disse:

      ola pessoal sou novo em asp, queria substituir o preco exibido nos produtos por cadastre-se, alguem pode me ajudar.
      obrigado.
      segue abaixo o codigo do arquivo produto.asp

      <%

      'Set rs9 = Server.CreateObject("ADODB.Recordset")
      'rs9.Open "SELECT * FROM produtos WHERE destaque='s'" , abredb, adOpenStatic, adLockReadOnly
      'rmax=rs9.recordcount
      ' if rs9.eof or rs9.bof then
      ' mostrar_produto_destaque_fachada="Sim"
      ' rs9.close
      ' set rs9 = nothing
      ' end if

      ' t=Timer
      ' Randomize t
      ' rnum = Int(RND * rmax)
      ' rs9.move rnum
      ' set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs9("idprod")&" ;")

      'Produto 1
      set rs = abredb.execute("SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
      if rs.eof or rs.bof then
      rs.close
      set rs = nothing
      set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
      if rs.eof or rs.bof then
      rs.close
      set rs = nothing
      set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ AND estoque=’s’ ;”)
      end if
      else
      set atualizar = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 2
      set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
      if rs2.eof or rs2.bof then
      rs2.close
      set rs2 = nothing

      set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
      if rs2.eof or rs2.bof then
      rs2.close
      set rs2 = nothing
      set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs2 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar2 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs2(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 3
      set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
      if rs3.eof or rs3.bof then
      rs3.close
      set rs3 = nothing
      set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
      if rs3.eof or rs3.bof then
      rs3.close
      set rs3 = nothing
      set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs3 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar3 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs3(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 4
      set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” AND estoque=’s’ ;”)
      if rs4.eof or rs4.bof then
      rs4.close
      set rs4 = nothing
      set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” AND estoque=’s’ ;”)
      if rs4.eof or rs4.bof then
      rs4.close
      set rs4 = nothing
      set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs4 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod ‘”&rs(“idprod”)&”‘ and idprod ‘”&rs2(“idprod”)&”‘ and idprod ‘”&rs3(“idprod”)&”‘ AND estoque=’s’ ;”)
      end if
      else
      set atualizar4 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs4(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 5
      set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
      if rs5.eof or rs5.bof then
      rs5.close
      set rs5 = nothing
      set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
      if rs5.eof or rs5.bof then
      rs5.close
      set rs5 = nothing
      set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs5 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar5 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs5(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 6
      set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
      if rs6.eof or rs6.bof then
      rs6.close
      set rs6 = nothing
      set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
      if rs6.eof or rs6.bof then
      rs6.close
      set rs6 = nothing
      set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs6 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar6 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs6(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 7
      set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
      if rs7.eof or rs7.bof then
      rs7.close
      set rs7 = nothing
      set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
      if rs7.eof or rs7.bof then
      rs7.close
      set rs7 = nothing
      set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs7 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar7 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs7(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 8
      set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
      if rs8.eof or rs8.bof then
      rs8.close
      set rs8 = nothing
      set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
      if rs8.eof or rs8.bof then
      rs8.close
      set rs8 = nothing
      set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs8 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar8 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs8(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 9
      set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
      if rs9.eof or rs9.bof then
      rs9.close
      set rs9 = nothing
      set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
      if rs9.eof or rs9.bof then
      rs9.close
      set rs9 = nothing
      set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs9 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar9 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs9(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 10
      set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
      if rs10.eof or rs10.bof then
      rs10.close
      set rs10 = nothing
      set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
      if rs10.eof or rs10.bof then
      rs10.close
      set rs10 = nothing
      set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs10 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar10 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs10(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 11
      set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
      if rs11.eof or rs11.bof then
      rs11.close
      set rs11 = nothing
      set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
      if rs11.eof or rs11.bof then
      rs11.close
      set rs11 = nothing
      set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs11 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar11 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs11(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 12
      set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
      if rs12.eof or rs12.bof then
      rs12.close
      set rs12 = nothing
      set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
      if rs12.eof or rs12.bof then
      rs12.close
      set rs12 = nothing
      set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs12 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar12 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs12(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 13
      set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
      if rs13.eof or rs13.bof then
      rs13.close
      set rs13 = nothing
      set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
      if rs13.eof or rs13.bof then
      rs13.close
      set rs13 = nothing
      set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs13 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar13 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs13(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 14
      set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
      if rs14.eof or rs14.bof then
      rs14.close
      set rs14 = nothing
      set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
      if rs14.eof or rs14.bof then
      rs14.close
      set rs14 = nothing
      set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs14 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar14 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs14(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 15
      set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
      if rs15.eof or rs15.bof then
      rs15.close
      set rs15 = nothing
      set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
      if rs15.eof or rs15.bof then
      rs15.close
      set rs15 = nothing
      set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs15 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar15 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs15(“idprod”)&” AND estoque=’s’ ;”)
      end if

      ‘Produto 16
      set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
      if rs16.eof or rs16.bof then
      rs16.close
      set rs16 = nothing
      set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
      if rs16.eof or rs16.bof then
      rs16.close
      set rs16 = nothing
      set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘nao’ WHERE status = ‘ok’ AND estoque=’s’ ;”)
      set rs16 = abredb.execute(“SELECT * FROM produtos WHERE status ‘ok’ and idprod “&rs(“idprod”)&” and idprod “&rs2(“idprod”)&” and idprod “&rs3(“idprod”)&” and idprod “&rs4(“idprod”)&” and idprod “&rs5(“idprod”)&” and idprod “&rs6(“idprod”)&” and idprod “&rs7(“idprod”)&” and idprod “&rs8(“idprod”)&” and idprod “&rs9(“idprod”)&” and idprod “&rs10(“idprod”)&” and idprod “&rs11(“idprod”)&” and idprod “&rs12(“idprod”)&” and idprod “&rs13(“idprod”)&” and idprod “&rs14(“idprod”)&” and idprod “&rs15(“idprod”)&” AND estoque=’s’ ;”)
      end if
      else
      set atualizar16 = abredb.Execute(“UPDATE produtos SET status = ‘ok’ WHERE idprod = “&rs16(“idprod”)&” AND estoque=’s’ ;”)
      end if

      intProdID1 = rs(“idprod”)
      fabricante1 = rs(“fabricante”)
      intProdID2 = rs2(“idprod”)
      fabricante2 = rs2(“fabricante”)
      intProdID3 = rs3(“idprod”)
      fabricante3 = rs3(“fabricante”)
      intProdID4 = rs4(“idprod”)
      fabricante4 = rs4(“fabricante”)
      intProdID5 = rs5(“idprod”)
      fabricante5 = rs5(“fabricante”)
      intProdID6 = rs6(“idprod”)
      fabricante6 = rs6(“fabricante”)
      intProdID7 = rs7(“idprod”)
      fabricante7 = rs7(“fabricante”)
      intProdID8 = rs8(“idprod”)
      fabricante8 = rs8(“fabricante”)
      intProdID9 = rs9(“idprod”)
      fabricante9 = rs9(“fabricante”)
      intProdID10 = rs10(“idprod”)
      fabricante10= rs10(“fabricante”)
      intProdID11 = rs11(“idprod”)
      fabricante11 = rs11(“fabricante”)
      intProdID12 = rs12(“idprod”)
      fabricante12 = rs12(“fabricante”)
      intProdID13 = rs13(“idprod”)
      fabricante13 = rs13(“fabricante”)
      intProdID14 = rs14(“idprod”)
      fabricante14 = rs14(“fabricante”)
      intProdID15 = rs15(“idprod”)
      fabricante15 = rs15(“fabricante”)
      intProdID16 = rs16(“idprod”)
      fabricante16 = rs16(“fabricante”)

      ‘Formatação dos preços dos produtos
      precito1 = formatNumber(rs(“preco”),1)
      parcelado1 = FormatCurrency(precito1/6)
      precito_velho1 = formatNumber(rs(“precovelho”), 2)

      precito2 = formatNumber(rs2(“preco”), 2)
      parcelado2 = FormatCurrency(precito2/6)
      precito_velho2 = formatNumber(rs2(“precovelho”), 2)

      precito3 = formatNumber(rs3(“preco”), 2)
      parcelado3 = FormatCurrency(precito3/6)
      precito_velho3 = formatNumber(rs3(“precovelho”), 2)

      precito4 = formatNumber(rs4(“preco”), 2)
      parcelado4 = FormatCurrency(precito4/6)
      precito_velho4 = formatNumber(rs4(“precovelho”), 2)

      precito5 = formatNumber(rs5(“preco”), 2)
      parcelado5 = FormatCurrency(precito5/6)
      precito_velho5 = formatNumber(rs5(“precovelho”), 2)

      precito6 = formatNumber(rs6(“preco”), 2)
      parcelado6 = FormatCurrency(precito6/6)
      precito_velho6 = formatNumber(rs6(“precovelho”), 2)

      precito7 = formatNumber(rs7(“preco”), 2)
      parcelado7 = FormatCurrency(precito7/6)
      precito_velho7 = formatNumber(rs7(“precovelho”), 2)

      precito8 = formatNumber(rs8(“preco”), 2)
      parcelado8 = FormatCurrency(precito8/6)
      precito_velho8 = formatNumber(rs8(“precovelho”), 2)

      precito9 = formatNumber(rs9(“preco”), 2)
      parcelado9 = FormatCurrency(precito9/6)
      precito_velho9 = formatNumber(rs9(“precovelho”), 2)

      precito10 = formatNumber(rs10(“preco”), 2)
      parcelado10 = FormatCurrency(precito10/6)
      precito_velho10 = formatNumber(rs10(“precovelho”), 2)

      precito11 = formatNumber(rs11(“preco”), 2)
      parcelado11 = FormatCurrency(precito11/6)
      precito_velho11 = formatNumber(rs11(“precovelho”), 2)

      precito12 = formatNumber(rs12(“preco”), 2)
      parcelado12 = FormatCurrency(precito12/6)
      precito_velho12 = formatNumber(rs12(“precovelho”), 2)

      precito13 = formatNumber(rs13(“preco”), 2)
      parcelado13 = FormatCurrency(precito13/6)
      precito_velho13 = formatNumber(rs13(“precovelho”), 2)

      precito14 = formatNumber(rs14(“preco”), 2)
      parcelado14 = FormatCurrency(precito14/6)
      precito_velho14 = formatNumber(rs14(“precovelho”), 2)

      precito15 = formatNumber(rs15(“preco”), 2)
      parcelado15 = FormatCurrency(precito15/6)
      precito_velho15 = formatNumber(rs15(“precovelho”), 2)

      precito16 = formatNumber(rs16(“preco”), 2)
      parcelado16 = FormatCurrency(precito16/6)
      precito_velho16 = formatNumber(rs16(“precovelho”), 2)

      ‘End If %>

    6. Ricardo Noronha disse:

      Olá, ficou muito bom o material.

      Estou ansioso pela aula 9.

    7. Andréa Nunes disse:

      Olá, tudo bom?

      Escrevo para dizer que estava amando as aulas de asp net, mas aí, não consegui acompanhar mais, uma aula sumiu (acho que a 5ª) e com aquela musica ao invés da sua explicação nas outras aulas foi ficando muito difícil.
      Vc tem como me mandar as aulas por email ou talvez, ftp ???? Estavam tão ótimas …

      Agradeço antecipadamente: Obrigada!

      Andréa

    8. Ligia disse:

      Boa tarde!

      Estou fazendo uma integração da impressora Zebra com o Asp.Net, e gostaria de saber como corrigir alguns erros que estão dando nesse codigo.

      Imports Framework
      Imports System.IO
      Imports System.Drawing
      Imports System.Drawing.Text
      Imports System.Drawing.Imaging
      Imports System.Runtime.InteropServices

      Partial Class EtiquetaZebra
      Inherits FrameworkHelper.UIBOLoggedSuper

      #Region “Comandos da Zebra TLP 2844″
      Const PulaLinha As String = “||CHR13||”
      Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
      Const inicio As String = “||CHR02||”
      #End Region

      Public Overrides Sub childrenPage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
      If Not IsPostBack Then
      Try
      ‘appletJocar.Attributes.Add(“codebase”, Framework.Utility.getPathWeb(0) & “/lib”)
      appletJocar.Attributes.Add(“codebase”, “HTTP://192.168.0.3/backoffice/lib”)
      LoadInf()
      Catch ex As Exception
      Framework.LOG.LOGManager.Publish(ex)
      End Try
      End If
      End Sub

      Public Sub LoadInf()
      Dim GetFilterPage
      Dim GeraEtiqueta As FUNCFLAGS
      Dim filPed As Framework.Filter = GetFilterPage()
      Dim ColEnd As Col
      Dim ColPed As Col
      Dim ColCli As Col

      Try
      Dim facEnd As Framework.FacadeProxy = New Framework.FacadeProxy(“EnderecoFacade”)
      Dim facPed As Framework.FacadeProxy = New Framework.FacadeProxy(“PedidoFacade”)
      Dim facCliente As Framework.FacadeProxy = New Framework.FacadeProxy(“ClienteFacade”)

      Dim filCli As Framework.Filter = New Framework.Filter
      Dim arlfilcli As New ArrayList

      filPed.setGridCount(0) ‘Sem paginacao
      ColEnd = facEnd.find(TypeFind.Padrão, filPed)
      ColPed = facPed.find(TypeFind.Custom2, filPed)

      filCli.addClause(“COD_CLIENTE”, DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pcod_cliente)
      ColCli = facCliente.find(TypeFind.Padrão, filCli)

      GeraEtiqueta(ColEnd, ColPed, ColCli)
      Catch ex As Exception
      Framework.LOG.LOGManager.Publish(ex)
      End Try
      End Sub

      Public Class ZebraPrint
      Private Const GENERIC_WRITE As Integer = &H40000000
      Private Const OPEN_EXISTING As Integer = 3
      Private Const FILE_SHARE_WRITE As Integer = &H2

      Private _fileWriter As StreamWriter
      Private _outFile As FileStream
      Private _hPort As Integer

      Public Structure SECURITY_ATTRIBUTES
      Private nLength As Integer
      Private lpSecurityDescriptor As Integer
      Private bInheritHandle As Integer
      End Structure

      Private Declare Function CloseHandle Lib “kernel32″ Alias “CloseHandle” (ByVal hObject As Integer) As Integer
      Private Declare Function CreateFile Lib “kernel32″ Alias “CreateFileA” (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Integer
      ”’
      ”’ This function must be called first. Printer path must be a COM Port or a UNC path.
      ”’
      Public Sub StartWrite(ByVal printerPath As String)
      Dim SA As SECURITY_ATTRIBUTES
      Dim hPortP As IntPtr
      ‘Dim retval As Integer

      ‘Create connection
      _hPort = CreateFile(printerPath, GENERIC_WRITE, FILE_SHARE_WRITE, SA, OPEN_EXISTING, 0, 0)

      ‘Get unsafe pointer
      hPortP = New IntPtr(_hPort) ‘convert Integer to IntPtr

      ‘Create file stream
      _outFile = New FileStream(hPortP, FileAccess.Write)

      ‘Create stream writer
      _fileWriter = New StreamWriter(_outFile)

      End Sub

      Public Sub Write(ByVal rawLine As String)
      _fileWriter.WriteLine(rawLine)
      End Sub
      Private Sub GeraEtiqueta(ByVal ColEnd As Col, ByVal ColPed As Col, ByVal ColCli As Col)

      Try
      Dim sb As New System.Text.StringBuilder
      Dim modo_envio As String = DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_frete_modo.ToUpper
      Dim destinatario As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pnom_destinatario.ToUpper
      Dim Endereco As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_logradouro & “, ” & DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_numero
      Dim complemento As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_complemento
      Dim bairro As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_bairro
      Dim Cidade As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_cidade & ” / ” & DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_estado
      Dim Cep As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_cepFR
      Dim Estado As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_estado
      Dim referencia As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).pend_referencia
      Dim ddd As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).ptel_1_ddd
      Dim tel As String = DirectCast(ColEnd.Item(0), BEC.OLD_EnderecoBEC).ptel_1_numero
      Dim num_contrato As Integer = 0
      Dim valor_pedido As String = DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pval_total_geral_desconto_pedido_filhoFR
      Dim strPesoFR As String = “”

      If Utility.IsNum(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_contato) Then
      num_contrato = Integer.Parse(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pnom_contato)
      End If

      If DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).ppeso_pedido > 0 Then
      strPesoFR = (DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).ppeso_pedido / 1000).ToString
      End If

      ‘sb.Append(“e”) ‘Habilita o sensor gap (com espaco entre as elas)
      ‘sb.Append(“j”) ‘Cancela pausa entre as etiquetas
      sb.Append(“O” + Environment.NewLine) ‘Desabilita todas as opções
      sb.Append(“Q1218,019″ + Environment.NewLine) ‘Formatação da etiqueta
      sb.Append(“q831″ + Environment.NewLine) ‘Formatação da etiqueta
      sb.Append(“rN” + Environment.NewLine) ‘Duplo Buffering Disabilitado
      sb.Append(“S4″ + Environment.NewLine) ‘Velocidade da impressão D
      sb.Append(“D7″ + Environment.NewLine) ‘Temperatura da impressão
      sb.Append(“ZT” + Environment.NewLine) ‘Orientação de Impressão
      sb.Append(“JB” + Environment.NewLine) ‘Recurso de backup
      sb.Append(“OD” + Environment.NewLine) ‘Transferencia termica habilitado
      sb.Append(“R9,0″ + Environment.NewLine) ‘ Ponto de Referencia
      sb.Append(“N” + Environment.NewLine) ‘Limpa Buffer de imagem

      sb.Append(“A790,1157,2,1,2,4,N,||chr22||JOCAR- Jocar Corifeu Auto Partes Ltda.||chr22||” + Environment.NewLine)
      sb.Append(“A720,1090,2,1,2,2,N,||chr22||Contrato ||chr22||” & modo_envio & ” – ” & num_contrato.ToString(“||chr22||00000000000||chr22||”) & “||chr22|| – DR/SPM||chr22||” + Environment.NewLine)
      sb.Append(“B731,1047,2,K,3,9,160,B,” + Environment.NewLine)

      If Not String.IsNullOrEmpty(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamento) Then
      sb.Append(“B731,1047,2,K,3,9,160,B,” & “||chr22||[CODBARRAS]||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamentoFR + Environment.NewLine)
      End If

      sb.Append(“A733,838,2,1,2,2,N,||chr22|| Peso:||chr22||” & strPesoFR & “||chr22||Kg||chr22||” + Environment.NewLine)
      sb.Append(“A448,836,2,1,2,2,N,||chr22||Valor: R$||chr22|| ||chr22||” & valor_pedido & “||chr22||” + Environment.NewLine)
      sb.Append(“A448,788,2,1,2,2,N,||chr22||Pedido||chr22||” + Environment.NewLine)
      sb.Append(“B731,1047,2,K,3,9,160,B,” + Environment.NewLine)
      sb.Append(“A279,791,2,1,2,2,N, ||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).pPedidoFullNameFR & “||chr22||” + Environment.NewLine)
      sb.Append(“LO14,737,16,8″ + Environment.NewLine)
      sb.Append(“LO42,737,31,8″ + Environment.NewLine)
      sb.Append(“LO172,737,32,8″ + Environment.NewLine)
      sb.Append(“LO84,737,32,8″ + Environment.NewLine)
      sb.Append(“LO127,737,32,8″ + Environment.NewLine)
      sb.Append(“LO429,737,32,8″ + Environment.NewLine)
      sb.Append(“LO215,737,32,8″ + Environment.NewLine)
      sb.Append(“LO559,737,32,8″ + Environment.NewLine)
      sb.Append(“LO258,737,32,8″ + Environment.NewLine)
      sb.Append(“LO471,737,32,8″ + Environment.NewLine)
      sb.Append(“LO514,737,32,8″ + Environment.NewLine)
      sb.Append(“LO343,737,32,8″ + Environment.NewLine)
      sb.Append(“LO688,737,32,8″ + Environment.NewLine)
      sb.Append(“LO386,737,32,8″ + Environment.NewLine)
      sb.Append(“LO602,737,32,8″ + Environment.NewLine)
      sb.Append(“LO645,737,32,8″ + Environment.NewLine)
      sb.Append(“LO730,737,32,8″ + Environment.NewLine)
      sb.Append(“LO773,738,32,8″ + Environment.NewLine)
      sb.Append(“A763,703,2,1,2,2,N,||chr22||Destinatário||chr22||” + Environment.NewLine)
      sb.Append(“A762,640,2,1,2,2,N,||chr22||Nome :| |chr22|| ” + Environment.NewLine)
      sb.Append(“A650,638,2,1,2,2,N,||chr22||” & destinatario & “||chr22||” + Environment.NewLine)
      sb.Append(“A767,545,2,1,2,2,N,||chr22||Rua:||chr22||” + Environment.NewLine)
      sb.Append(“A673,548,2,1,2,2,N,||chr22||” & Endereco & “||chr22||” + Environment.NewLine)
      sb.Append(“A256,548,2,1,2,2,N,||chr22||Complemento:||chr22||” + Environment.NewLine)
      sb.Append(“A193,548,2,1,2,2,N,||chr22||” & complemento & “||chr22||” + Environment.NewLine)
      sb.Append(“A767,505,2,1,2,2,N, ||chr22|| Bairro ||chr22||” + Environment.NewLine)
      sb.Append(“A767,505,2,1,2,2,N,||chr22||” & bairro & “||chr22||” + Environment.NewLine)
      sb.Append(“A769,460,2,1,2,2,N,||chr22||Referencia: ||chr22||” + Environment.NewLine)
      sb.Append(“A537,460,2,1,2,2,N,||chr22||” & referencia & “||chr22||” + Environment.NewLine)
      sb.Append(“A767,590,2,1,2,2,N,||chr22||Telefone||chr22||” + Environment.NewLine)
      sb.Append(“A565,590,2,1,2,2,N,(||chr22||” & ddd & “||chr22||)||chr22||” & tel & “||chr22||” + Environment.NewLine)
      sb.Append(“A765,408,2,1,2,2,N,||chr22||Cidade ||chr22||” + Environment.NewLine)
      sb.Append(“A609,406,2,1,2,2,N,||chr22||” & Cidade & “||chr22||” + Environment.NewLine)
      sb.Append(“A767,356,2,1,2,2,N,||chr22||Cep: ||chr22||” + Environment.NewLine)
      sb.Append(“A684,356,2,1,2,2,N,||chr22||” & Cep & “||chr22||” + Environment.NewLine)
      sb.Append(“A495,356,2,1,2,2,N,||chr22||Estado:||chr22||” + Environment.NewLine)
      sb.Append(“A344,359,2,1,2,2,N,||chr22||” & Estado & “||chr22||” + Environment.NewLine)
      sb.Append(“B771,300,2,K,4,12,160,B,” + Environment.NewLine)

      If Not String.IsNullOrEmpty(DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamento) Then
      sb.Append(“B771,300,2,K,4,12,160,B,” & “||chr22||[CODBARRAS]||chr22||” & DirectCast(ColPed.Item(0), BEC.OLD_PedidoBEC).CodigoRastreamentoFR + Environment.NewLine)
      End If

      sb.Append(“P1″) ‘Fim da impressão

      Catch ex As Exception

      End Try
      End Sub

      Public Function GetFilterPage() As Framework.Filter

      Dim oFilter As New Framework.Filter

      If MyBase.validQueryString(“CPF”, TipoQueryString.Inteiro) Then
      oFilter.addClause(“COD_PEDIDO_FILHO”, Request.QueryString(“CPF”))
      End If

      If MyBase.validQueryString(“CPP”, TipoQueryString.Inteiro) Then
      oFilter.addClause(“COD_PEDIDO_PAI”, Request.QueryString(“CPP”))
      End If

      Return oFilter

      End Function

      Private Function DigitoVerificaCep(ByVal Cep As String) As String

      Dim sum As Integer = 105
      Dim peso As Integer = 1
      Dim dig_verificador As String = “”

      Try

      Cep = Cep.ToString.Replace(“-”, “”)

      If Cep.Length = 8 Then
      For i As Integer = 0 To 7
      If i Mod 2 = 0 Then
      sum += (Cep.ToString.Substring(i, 2)) * peso
      peso += 1
      End If
      Next

      dig_verificador = sum Mod 103
      End If

      Return dig_verificador

      Catch ex As Exception
      trataErroInterface(ex)
      Return “”
      End Try

      End Function

      Private Sub InitializeComponent()
      Me.Backoffice = New System.ComponentModel.BackgroundWorker

      ‘BackgroundWorker1

      End Sub

      Public Sub EndWrite()
      ‘Clean up
      _fileWriter.Flush()
      _fileWriter.Close()
      _outFile.Close()
      CloseHandle(_hPort)
      End Sub
      End Class
      End Class

    9. Déborah disse:

      Obrigada!

    10. Marco disse:

      Gostei da sinopse dessas vídeo-aulas Luiz, pela rápida busca que eu fiz no Google parece uma das mais completas, visto que muitos não tem tanta paciência para fazer o mesmo que você fez.
      Vou estudar um pouco por aqui porque já estão me cobrando ASP.Net.
      Se o conteúdo for bom mesmo pode deixar que divulgação não irá faltar do seu blog o/
      Flws

    11. josé malos disse:

      não consigo fazer nem sei onnde faz curso de dotnet csharp!!
      como faço ? onde acho?

    12. josé malos disse:

      me ajudem por favor??

    13. [...] objetivo deste curso é permitir alguém com boa vontade e dedicação desenvolver pequenos sites em Asp.net. Apenas [...]

    14. ricardo cruz disse:

      Boa tarde,

      gostaria de saber se com o curso de ASP.NET conseguirei começar a programar e desenvolver para Sharepoint?
      Gostaria também, se houver algum material para que eu possa aprender a programar p Sharepoint, se pode disponibilizá-lo.

      Tenho somente noções de programação. Sou somente administrador de portais Sharepoint e vejo a necessidade para desenvolver também !

      Obrigado se puder responder em meu e-mail.

    Deixe um comentário