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:
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
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
otimo curso!!!! parabéns!!!!
estou no aguardo da aula 9
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”
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.
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 %>
Olá, ficou muito bom o material.
Estou ansioso pela aula 9.
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
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)
|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
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
Obrigada!
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
não consigo fazer nem sei onnde faz curso de dotnet csharp!!
como faço ? onde acho?
me ajudem por favor??
[...] objetivo deste curso é permitir alguém com boa vontade e dedicação desenvolver pequenos sites em Asp.net. Apenas [...]
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.
Olá,
O curso não aborda em nenhuma aula o SharePoint.