Prova Prática Visual Basic

GERANDO O XML DA NFe EM VISUAL BASIC 6

2011-03-28T16:59:00.000-07:00

Olá, Pessoal!! Vamos responder a algumas perguntas acercas de linguagens como Visual Basic 6 e Delphi 7. Sim, para estas duas linguagens se você não tiver nenhum componente pronto para criar o XML de sua NFe, deve fazer todo o código na unha, linha por linha!!!

Basicamente é nisso que se resume para muitos a criação do XML da NFe eletrônica, já que há grande variações de empresa para empresa - para não dizer de uma área de TI para outra área de TI - em diferentes empresas. Isso também se adequa aos padrões necessários a serem adotados para cada empresa em relação à sua atividade comercial: há certas peculiaridades para o grupo de automotivos que não existem para as empresas de refrigerantes, assim como o XML de uma indústria de componentes eletrônicos diverge de uma indústria de alimentos. Se sua empresa gera mais de dez notas fiscais com quinze itens cada uma por dia fica difícil você usar os aplicativos gratuitos fornecidos pelo site do SPED ou a Sefaz de seu estado.

Antes de mais nada: É CRUCIAL QUE VOCÊ ENTENDA DE XML E QUE TENHA O MANUAL DO CONTRIBUENTE PARA A GERAÇÃO DA NOTA FISCAL ELETRÔNICA! ANTES DE USAR O CÓDIGO ABAIXO, LEIA TODO O MANUAL E ENTENDA CADA TAG A SER GERADA PARA A SUA NOTA FISCAL ELETRÔNICA. TAMBÉM É CRUCIAL QUE VOCÊ ESTEJA PRÓXIMO A ÁREA FISCAL E ENTENDA CADA TAG QUE DEVA SER GERADA PARA A SUA EMPRESA E PARA A ATIVIDADE COMERCIAL ONDE A MESMA ESTÁ INSERIDA. SEM ISSO, SEU TRABALHO SERÁ EM VÃO E VOCÊ DEVERÁ FAZER NOVOS AJUSTES POSTERIORES PARA INSERIR ALGUMA TAG QUE ESQUECEU E É NECESSÁRIA!!

O exemplo abaixo é um dos muitos existentes na internet e foi extraído do site do VB Mania a título ilustrativo. O código completo não está sendo fornecido porque como todo bom desenvolvedor sabe bolo pronto nunca sai no ponto!

ATENÇÃO: O código abaixo ficará estranho por estar sendo postado aqui. Os links de XML são realmente mal-interpretados pelo blogger e precisam ser corrigidos linha a linha. Não farei isso aqui. Se desejar, consulte o link para a página onde os mesmos foram postados no VB Mania ou pode baixar do link abaixo (por enquanto!):

http://www.4shared.com/document/ilBKUDPt/XML_em_VB6.html

Vamos lá:

'Abre o Arquivo para Criação do XML

'----------------------------------

Open strArquivo For Output As #1

'Cabeçalho do Arquivo

'--------------------

With rstCabec .MoveFirst ' Print #1, "ï»¿" 'Chr(239) & Chr(187) & Chr(191) Print #1, "ï»¿" & " Print #1, "

'Chave da NFe '-------------------- Print #1, " 'Cabeçalho da NFe '------------------- Print #1, "" Print #1, " " & .Fields("xIdUF").Value & "" Print #1, " " & "0" & .Fields("xRandomico").Value & "" Print #1, " " & UCase(.Fields("xNatureza").Value) & "" Print #1, " " & .Fields("xFormaPagto").Value & "" Print #1, " " & .Fields("xModelo").Value & "" Print #1, " " & .Fields("xSerie").Value & "" Print #1, " " & .Fields("xidNFe").Value & "" Print #1, " " & .Fields("xDataEntradaSaida").Value & "" Print #1, " " & .Fields("xDataEntradaSaida").Value & "" Print #1, " " & .Fields("xIdTipoNF").Value & "" Print #1, " " & .Fields("xIdMunicipio").Value & "" Print #1, " " & 1 & "" Print #1, " " & .Fields("xTipoEmissao").Value & "" Print #1, " " & Right(strChaveNFe, 1) & "" Print #1, " " & "2" & "" Print #1, " " & .Fields("xFinalidade").Value & "" Print #1, " " & "0" & "" Print #1, " " & "1.10" & "" Print #1, "" '---------------------------------------------------------------------------------------------------- 'Dados Emitente '---------------------------------------------------------------------------------------------------- Print #1, "" Print #1, " " & .Fields("xCNPJ") & "" Print #1, " " & .Fields("xEmitRazaoSocial").Value & "" Print #1, " " Print #1, " " & .Fields("xEmitLogradouro").Value & "" Print #1, " " & .Fields("xEmitNumero").Value & "" Print #1, " " & .Fields("xEmitBairro").Value & "" Print #1, " " & .Fields("xEmitIdMunicipio").Value & "" Print #1, " " & .Fields("xEmitMunicipio").Value & "" Print #1, " " & .Fields("xEmpresaUF").Value & "" Print #1, " " & .Fields("xEmitCEP").Value & "" Print #1, " " & "1058" & "" Print #1, " " & "Brasil" & "" Print #1, " " & .Fields("xEmitTelefone").Value & "" Print #1, " " Print #1, " " & .Fields("xEmitIE").Value & "" Print #1, "" '---------------------------------------------------------------------------------------------------- 'Dados Destinatario '---------------------------------------------------------------------------------------------------- Print #1, "" Print #1, " " & .Fields("xCNPJ") & "" Print #1, " " & .Fields("xDestRazaoSocial").Value & "" Print #1, " " Print #1, " " & .Fields("xDestLogradouro").Value & "" Print #1, " " & .Fields("xDestNumero").Value & "" If Len(.Fields("xDestComplemento").Value) > 0 Then Print #1, " " & .Fields("xDestComplemento").Value & "" End If Print #1, " " & .Fields("xDestBairro").Value & "" Print #1, " " & .Fields("xDestIdMunicipio").Value & "" Print #1, " " & .Fields("xDestMunicipio").Value & "" Print #1, " " & .Fields("xDestUF").Value & "" Print #1, " " & .Fields("xDestCEP").Value & "" Print #1, " " & .Fields("xDestIdPais") & "" Print #1, " " & .Fields("xDestPais") & "" Print #1, " " & .Fields("xDestTelefone").Value & "" Print #1, " " Print #1, " " & .Fields("xDestIE").Value & "" If Len(.Fields("xDestSuframa").Value) > 0 Then Print #1, " " & .Fields("xDestSuframa").Value & "" End If If Len(.Fields("xDestCNAE").Value) > 0 Then Print #1, " " & .Fields("xDestCNAE").Value & "" End If Print #1, "" '---------------------------------------------------------------------------------------------------- End With 'Dados dos Produtos '------------------ With rstItem .MoveFirst Do While .EOF = False DoEvents Print #1, "" Print #1, " " Print #1, " " & .Fields("xCodigo").Value & "" Print #1, " " & .Fields("xCodigoEAN").Value & "" Print #1, " " & .Fields("xDescrProduto").Value & "" If Len(Replace(.Fields("xCodigoNCM").Value, ".", "")) > 0 Then Print #1, " " & .Fields("xCodigoNCM").Value & "" End If Print #1, " " & "0" & "" Print #1, " " & .Fields("xCFOP").Value & "" Print #1, " " & .Fields("xUnidade").Value & "" Print #1, " " & .Fields("xQuantidade").Value & "" Print #1, " " & .Fields("xPrecoUnitario").Value & "" Print #1, " " & .Fields("xTotalProduto").Value & "" Print #1, " " & .Fields("xCodigoEAN").Value & "" Print #1, " " & .Fields("xUnidade").Value & "" Print #1, " " & .Fields("xQuantidade").Value & "" Print #1, " " & .Fields("xPrecoUnitario").Value & "" 'Dados da Importação '-------------------- If Len(rstCabec.Fields("xDINumero").Value) > 0 Then Print #1, " " Print #1, " " & rstCabec.Fields("xDINumero").Value & "" ' & .Fields("xNumeroDI") & "" Print #1, " " & rstCabec.Fields("xDIDataRegistro").Value & "" ' & Format(.Fields("xDataRegistroDI"), "YYYY-mm-dd") & "" Print #1, " " & rstCabec.Fields("xDILocalDesembaraco").Value & "" ' & .Fields("xLocalDesemb") & "" Print #1, " " & rstCabec.Fields("xDIUFDesembaraco").Value & "" ' & .Fields("xUFDesemb") & "" Print #1, " " & rstCabec.Fields("xDIDataDesembaraco").Value & "" ' & Format(.Fields("xDataDesemb"), "YYYY-mm-dd") & "" Print #1, " " & rstCabec.Fields("xDICodExportador").Value & "" ' & rstCabec.Fields("xCodExportador") & "" If Len(rstCabec.Fields("xNumeroAD").Value) > 0 Then Print #1, " " Print #1, " " & rstCabec.Fields("xNumeroAD").Value & "" ' & .Fields("xNumeroAdicao").Value & "" Print #1, " " & rstCabec.Fields("xItemAD").Value & "" '& .Fields("xSequenciaAdicao").Value & "" Print #1, " " & rstCabec.Fields("xFabricanteAD").Value & "" '& .Fields("xCodFabricante").Value & "" 'Verifica se tem desconto na DI '------------------------------ If rstCabec.Fields("xDescontoAD") > 0 Then Print #1, " " & Replace(Format(rstCabec.Fields("xDescontoAD"), "0.00"), ",", ".") & "" End If Print #1, " " '------------------------------ End If Print #1, " " End If Print #1, " " '-------------------------------------------------------------------------------------------------------- 'Destacamento dos Impostos '------------------------- Print #1, " " 'ICMS '--------- Print #1, " " Print #1, " Print #1, " " & rstCabec.Fields("xICMSOrigem") & "" Print #1, " " & .Fields("xSitTrib").Value & "" If .Fields("xSitTrib").Value = "00" Then 'Tributada Integralmente Print #1, " " & rstCabec.Fields("xICMS_Modalidade").Value & "" Print #1, " " & rstCabec.Fields("xI
O código acima pode também ser encontrado em:

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=342709

Sucesso mais uma vez a todos!!

Leonardo Metelys

leo_florindo@hotmail.com

DANFE: LINHA DE CHAMADA & UTILIDADES

2011-03-15T18:22:00.000-07:00

Olá, pessoal!

Ao longo dos últimos dois anos este pequeno projeto sofreu muitas melhorias que evoluíram com a necessidade daqueles que necessitavam desta parte do longo projeto da NF-e.

Aqui farei um resumo das melhorias de implementação constantes neste projeto de DANFE, que deve ser comum a maioria dos projetos disponíveis no mercado. O diferencial deste projeto é que esta venda não é destinada ao consumidor final, mas a desenvolvedores que necessitam de conhecimentos sobre a Nf-e eletrônica e necessitam desenvolver uma solução mais própria do que um pacote fechado possa oferecer - por isso coloco à venda os fontes do aplicativo.

A versatilidade desse aplicativo também colabora para o desenvolvimento de outros possívels utilitários para a Nf-e. Por exemplo, o mesmo código-fonte utilizado para a leitura do XML na geração da DANFE pode ser reaproveitado para criar-se um módulo de leitura para qualquer arquivo XML de nota fiscal eletrônica o que facilitará no futuro a entrada de notas fiscais em sua base de dados. Com pequenas alterações, você conseguirá desenvolver um bom leitor de arquivos XML de notas fiscais eletrônicas.

Os fontes de minha DANFE ficaram mais fáceis de manipular com a criação de um aplicativo em LINHA DE CHAMADA, que permite que esta DANFE possa ser utilizada com outras linguagens de programação, como DELPHI, C# ou Visual Basic 6.

A chamada do aplicativo é como mostrado abaixo:

Danfechamada CaminhoXML CaminhoPDF NomePDF CaminhoLogotipo

Onde:
CaminhoXML -> Indica a pasta onde se encontra o arquivo XML a ser fornecido para a geração da DANFE
CaminhoPDF -> Indica o caminho onde deve ser gravado o arquivo PDF a ser gerado
NomePDF -> Indica o nome do arquivo PDF a ser gerado
CaminhoLogotipo -> Indica o caminho e o nome do logotipo que devem ser inseridos na impressão da DANFE

Exemplo:

No Iniciar -> Executar do Windows XP ou Windows 7:

C:\Nfe\DanfeChamada.exe C:\Nfe\Nfe.xml C:\Nfe Danfe123 C:\Nfe\Imagem1.jpg

No CMD.EXE:
Mude para a pasta c:\nfe. Em seguida, digite a linha conforme abaixo:
Danfechamada c:\nfe\nfe.xml c:\nfe\ notadanfe2.pdf c:\nfe\imagem2.jpg
Troque, por exemplo, os parâmetros para a gravação do pdf e a imagem para a imagem1.jpg.

Recentemente fiz a venda somente do aplicativo compilado e o mesmo também pode estar à disposição, desde que você siga todos os passos para sua utilização no momento da compra. Contudo, isso me isenta de erros que possam vir a ocorrer devido a não-aquisição do código-fonte do projeto. A limitação imposta a este tipo de aquisição é descrita no momento da compra por parte do cliente.

No código-fonte há dois modos de impressão da DANFE. Um que diz respeito a DANFE somente com uma página e o outro que diz respeito a impressão da DANFE COMPLEMENTAR com mais de doze itens. O código da DANFE COMPLEMENTAR geralmente estará comentando no interior do código-fonte. Caso deseje imprimir a DANFE COMPLEMENTAR deve descomentar as linhas que geram o relatório e comentar as que geram a primeira página da DANFE. Geralmente tenho orientado que se criem dois botões, um que imprime a capa da DANFE (a primeira página) e outro que, caso a DANFE possua mais de doze itens habilite o botão e imprima a DANFE EM MODO COMPLEMENTAR.

Dependências do aplicativo:

1. Net Framework 3.5
2. Crystal Reports Basic for Visual Studio 2008 (x86,x64)
3. Microsoft Visual Studio 2008 Reportr Viewer
4. SQL Server Compact3.5
5. Visual Studio Tools for the Office system 3.0 Runtime

Os conhecimentos necessários para a utilização do código-fonte:

1) Conhecimentos em Vb.NET 2008
2) Conhecimentos em Crystal Reports
3) Conhecimentos de instalação de requisitos de aplicativos. Como um bom técnico de suporte e um bom desenvolvedor sabem isso é
estritamente necessário para desenvolvedores que entendam a diferente entre instalar uma aplicação em um ambiente cliente-servidor
e um ambiente de servidor. Você deve compreender como criar um pacote de instalação do código-fonte do aplicativo e instalar o mesmo
com sucesso em uma máquina-cliente bem como entender que este mesmo pacote não é o mesmo para uma implementação em um servidor.

Abril pode ser o último prazo para adoção da nova NFe.

Sucesso a todos!!

Leonardo Metelys

leo_florindo@hotmail.com

DANFE EM VB.NET 2008: NOVAS MELHORIAS

2010-12-21T05:11:00.000-08:00

Seguem abaixo algumas da novas melhorias implementadas no projeto da DANFE em VB.NET 2008:

1 - Geração da DANFE em formato PDF com a indicação de uma pasta para
gravação da mesma
2 - Inclusão do logotipo da empresa na chamada da função de DANFE com a indicação do caminho onde esta imagem se encontra
3 - DANFE gerada em modo de uma página e com os complementos de itens, caso o número de itens extrapole a primeira página da DANFE
4 - Facilidade no manuseio do código-fonte, totalmente escrito em VB.NET e relatório gerado em Crystal Reports totalmente adaptável a outras
aplicações caso você deseje utilizar o código-fonte do relatório com alguma outra linguagem de programação - alguns clientes conseguiram
realizar isso com sucesso em mais de uma de suas aplicações.
5 - O código-fonte pode ser empregado de vários formas inclusive com linha de chamada para que você possa utilizá-lo com outras linguagens -
como Delphi 7 ou Visual Basic 6, por exemplo - sem alterar a linguagem nativa do mesmo que é em VB.NET. A versatilidade do VB.NET permite
que você utilize o código-fonte de váras maneiras e em várias situações.

Esta DANFE já está padronizada para o Manual 4.01 da Nfe eletrônica. O código XML a ser lido pode ser tanto o 2.0 quanto o antigo.

Devido a má-fé de algumas pessoas não estou mais disponibilizando testes do aplicativo.
Em minhas últimas experiências consegui comprovar que os que receberam os arquivos estavam trabalhando com ofuscagem na
tentativa de visualizar o código-fonte. Também tive problemas após realizar uma venda com um cliente de uma loja de software
que alegou problemas de instalação simplesmente para não pagar a última parcela acordada e que já está utilizando a Danfe em seus aplicativos.

Também não há parceria com qualquer loja de software ou empresa de software para a venda do código-fonte desta DANFE. Se você adquirir este código-fonte das mãos de terceiros saiba que não há parceriais existentes com qualquer parceiro. A venda destes fontes está sendo realizada a baixo custo com o objetivo de que também o conhecimento seja expandido para mais pessoas e não com o objetivo principal de ganho financeiro que faz com que muitas pessoas enganem e mintam acerca do trabalho de outras pessoas.

Por tudo isso, lamento que o mau-comportamento induzido de alguns prejudiquem o bom trabalho adquirido por outros.

Os conhecimentos necessários para a utilização do código-fonte:

1) Conhecimentos em Vb.NET 2008
2) Conhecimentos em Crystal Reports
3) Conhecimentos de instalação de requisitos de aplicativos. Como um bom técnico de suporte e um bom desenvolvedor sabem isso é
estritamente necessário para desenvolvedores que entendam a diferente entre instalar uma aplicação em um ambiente cliente-servidor
e um ambiente de servidor. Você deve compreender como criar um pacote de instalação do código-fonte do aplicativo e instalar o mesmo
com sucesso em uma máquina-cliente bem como entender que este mesmo pacote não é o mesmo para uma implementação em um servidor.

Lembramos que este produto requer conhecimentos tecnológicos específicos cujo o entendimento é necessário para que o mesmo possa ser manipulado adequadamente.

O preço para a aquisição da DANFE com o código-fonte incluído é de R$ 350,00 (Trezentos e cinquenta reais).

Caso deseje adquirir os fontes, faça o depósito em dinheiro na seguinte conta corrente:

Banco: Bradesco S/A
Agência: 2690-5
Conta Corrente: 10414-0
Nome do favorecido: Manoel Leonardo Metelys Florindo

O código-fonte será enviado a você compactado em winrar com senha após a confirmação de seu depósito. Peço que, se possível, enviem-me uma cópia em PDF de seu comprovante de depósito a fim de que o processo possa ser agilizado para o e-mail leo_florindo@hotmail.com.

GERAR A DANFE DA NF-e em PDF VIA CÓDIGO-FONTE

2010-09-29T10:21:00.000-07:00

Olá, amigos!!

Para aqueles que já adquiriram o pacote da DANFE aqui comigo, eis aqui mais um quitute para ser acrescentado ao código-fonte da mesma: A geração da DANFE no formato PDF via código-fonte!

Para quem já possui o projeto, basta adicionar as linhas abaixo para que o próprio Crystal Reports realize a geração de uma cópia da DANFE no formato em PDF via código-fonte quando a DANFE está sendo processada.

O código abaixo cria uma cópia da DANFE gerada salvando-a na pasta indicada
no formato PDF, evitando assim qualquer interação do usuário para que uma cópia em PDF da DANFE seja criada - basta acessar a pasta de trabalho que uma cópia da DANFE gerada estará lá no formato em PDF, prontinha para ser enviada aos clientes ou fornecedores!!!

Agora, em que posição colocar este código deixo por conta dos desenvolvedores!!

'Data: 29/09/2010 10:30h
'Geração da DANFE em formato PDF
Dim cryRpt As New ReportDocument
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
CrDiskFileDestinationOptions.DiskFileName = "c:\Nfe\NotaNfe.pdf"
'CrExportOptions = cryRpt.ExportOptions
CrExportOptions = myRelatorio.ExportOptions

With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
myRelatorio.Export()

Sucesso a todos em 2010!!

By
Leonardo Metelys

FATORAÇÃO EM DEV C++

2010-07-20T10:03:00.001-07:00

Aos alunos de plantão, aqui vai um algoritmo simples de matemática que muitas vezes podem pintar em provinhas básicas de sala de aula.

O código está em DEV C++ e pode ser utilizado livremente.

Trata-se de C++ puro!

#include
int Fatoracao(int i)
{
int x;
int y;
int fatorar;
printf ("Estamos na funcao Fatoracao().\n");
x = i;
y = 1;
fatorar = 1;

if (x == 1 )// se o número for 1, o fatorial é 1
{
fatorar = 1;
goto saida;
}

fatorar =0;
while (y < x)
{

if (y==1) // faz a primeira multiplicação
{
fatorar = fatorar + (x * (x-y));
}

++y;

if (y > 1) // faz as multiplicações subsquentes
{

if ((x-y) > 0 )
{
fatorar = fatorar * (x-y);
}
}

if (y == x) // se atingiu o número, deve finalizar
{
break;
}

} // fim do while
saida:
return (fatorar);
} // Fim de Soma(int, int)

main ()
{
int valor;
int valor2;
int valorencerra;
int z;

printf("Digite o número a fatorar: ");
scanf("%d",&valor);
printf("\n");
if (valor < 0)
{
printf("Valor menor que zero!! %d", valor, "\n");
printf("\n");
printf("Informe um valor qualquer para encerrar...\n");
scanf("%d",&valorencerra);
}
else
{
z = Fatoracao(valor);
printf("\n");
printf("Valor da Fatoracao: %d", z, "\n");
printf("\n");
printf("Digite um valor qualquer para encerrar...\n");
scanf("%d",&valorencerra);
}

}

Considerações: O aplicativo executa somente uma vez e você deve informar um valor para encerrar na sequência. Para refinar o algoritimo, sugiro que seja acrescentado um loop while que execute até que o usuário informe o número 0 para encerrar o aplicativo.

Sorte a todos!!

ARQUIVO-TEXTO EM C#.NET

2010-07-12T14:07:00.000-07:00

Fontes deste pequeno aplicativo completo (no formato .rar):

http://www.4shared.com/file/p1AxJaYd/LerArquivoTexto.html

Incluso com os fontes está o arquivo .CSV que você deve colocar em uma pasta C:\Util em seu computador para que funcionem corretamente.

Em alguns momentos, aqueles provinhas práticas básicas que você faz para uma vaga em empresa podem requerer bem mais tempo que as quatro horas definidas para toda a aplicação da parte téórica e prática.

Nesta manhã, tive o desprazer de cruzar com uma dessas. Vou postar aqui o código da bendita, que realmente é interessante de ser gerado e que está em C#.NET.

Tínhamos a opção de dar esta solução em Delphi 7 ou C#.Net. Como a máquina em que peguei o Delphi 7 estava com uns erros horríveis, eu até "iniciei" este projetinho, mas acabei me estressando e achando a coisa enjoada de fazer.

Pois bem!

Desenvolvedor que é desenvolvedor deixa algumas respostas para tudo. Eis aqui o código total em C#.Net, porque fiquei com comichão de finalizar o bendito!!

E não é que ia mesmo levar um tempo bom fazendo o bicho!!???

Vamos ao código!!

O arquivo CSV fornecido tinha uma estrutura parecida com esta:

12345;12072010;142300;8980090
12345;12072010;142400;8980091
12345;12072010;152700;8980092
12345;12072010;182300;8980093
12345;12072010;192300;8980094
12345;12072010;232300;8980095
12345;12072010;072300;8980096
12346;12072010;102300;8980097
12346;14072010;114500;8980098
12346;14072010;123300;8980099
12346;14072010;120100;8980100
12346;14072010;061300;8980101
12346;14072010;064300;8980102

Os campos na ordem devem ser (segundo me recordo):
código do cliente;data;hora;código de pedido

O aplicativo deve gerar um arquivo-texto deste csv inicial fornecido com os pedidos dos clientes feito a cada hora.

Ou seja, você deve sumarizar no arquivo-texto a ser gerado os pedidos de cada cliente a cada hora do dia.

Iniciei um novo projeto no C#.Net.
Dê a ele o nome de LerArquivoTexto.

Vamos precisar de um TextBox, três botões e um OpenDialog que nomeei como OpTexto. Insira-os todos em seu form.

Ao clicar no botão com " ... " o aplicativo deverá ler o diretório inicial configurado no OpenDialog (nada impedindo que o usuário possa selecionar outro local). No caso específico e conforme a figura abaixo, configurei o aplicativo para abrir no C:\Util.

O código do botão ... fica assim:

private void button3_Click(object sender, EventArgs e)
{

this.opTexto.FileName = "";
this.opTexto.RestoreDirectory = true;// para não mudar o diretório da aplicação definido no inicio
this.opTexto.Filter = "Arquivos CSV*.csv";

if (this.opTexto.ShowDialog () == DialogResult.OK)
{
this.txtArquivo.Text = this.opTexto.FileName.ToString();

}

}

O caminho do arquivo-texto será preenchido no textbox, conforme mostrado na figura abaixo:

Após clicar no botão Processar, os dados serão gerados. A leitura de dados será realizada através de um stremreader:

private void button1_Click(object sender, EventArgs e)
{

StreamReader sr = new StreamReader(txtArquivo.Text);
string HoraPedido = "";
string NoCliente= "";
string NoClienteInicial = "";

int sLinhas = 0;
int SomaPedido00 = 0 ; // variáveis para a soma dos pedidos a mensurar
int SomaPedido01 = 0;
int SomaPedido02 = 0;
int SomaPedido03 = 0;
int SomaPedido04 = 0;

....

A abertura de um arquivo-texto será necessária para gerar os dados dos pedidos de cada cliente do arquivo csv para um arquivo-texto com os dados sumarizados:

// Gravar no arquivo-texto os dados gerados para este cliente
StreamWriter valor = new StreamWriter("C:\\Util\\clientes.txt", true, Encoding.ASCII);

if (File.Exists(txtArquivo.Text))
{
using (StreamReader fluxotexto = new StreamReader(txtArquivo.Text))
while (true)
{
string linhatexto = fluxotexto.ReadLine();
sLinhas = sLinhas + 1;
if (linhatexto == null)
{
break;
}
if (linhatexto != "")
{
// Ler os dados do cliente
NoCliente = linhatexto.Substring(0, 5);
if (sLinhas == 2)
{
NoClienteInicial = NoCliente;
}

RefazerNovoCliente:
// faz a somatória de pedidos enquanto for o mesmo código de cliente...
if (NoClienteInicial == linhatexto.Substring(0, 5))
{

//obter a soma de todos os possíveis registros em casa horário
//simplesmente abstraia a hora de cada registro
HoraPedido = linhatexto.Substring(15, 2);

if (HoraPedido == "00")
{
SomaPedido00 = SomaPedido00 + 1;
}

if (HoraPedido == "01")
{
SomaPedido01 = SomaPedido01 + 1;
}

if (HoraPedido == "02")
{
SomaPedido02 = SomaPedido02 + 1;
}

if (HoraPedido == "03")
{
SomaPedido03 = SomaPedido03 + 1;
}
if (HoraPedido == "04")
{
SomaPedido04 = SomaPedido04 + 1;
}

Cada Pedido será devidamente catalogado e somado de acordo com o cliente encontrado.

Se o número do cliente mudar, o comando else será acionado, fazendo a gravação em arquivo-texto dos dados do cliente atual e seus pedidos hora a hora:

} // fechamento do if do cliente
else
{

valor.WriteLine("Cliente: " + Convert.ToString(NoClienteInicial));
//valor.Write (Convert.ToString(NoClienteInicial));
valor.WriteLine("Hora 00: " + Convert.ToString (SomaPedido00));
valor.WriteLine("Hora 01: " + Convert.ToString (SomaPedido01));
valor.WriteLine("Hora 02: " + Convert.ToString (SomaPedido02));
valor.WriteLine("Hora 03: " + Convert.ToString (SomaPedido03));
valor.WriteLine("Hora 04: " + Convert.ToString (SomaPedido04));

....

O arquivo-texto será fechado, a variável clienteinicial receberá o valor do cliente atual e o aplicativo deverá refazer as contagens para o novo cliente, zerando os contadores criados inicialmente. Em seguida, o processamento deverá ser retomando para a análise da linha do novo pedido a ser contado:

valor.Close();

NoClienteInicial = NoCliente;

//zerar as variáveis de soma
SomaPedido00 = 0;
SomaPedido01 = 0;
SomaPedido02 = 0;
SomaPedido03 = 0;
SomaPedido04 = 0;

...

//reavaliar a linha para o novo cliente
goto RefazerNovoCliente;

Conforme abaixo, após clicar no messagebox, o arquivo-texto será aberto no notepad, pela linha de comando:

MessageBox.Show ("Arquivo-Texto criado com sucesso!!");

// Abrir o arquivo-texrto gerado na sequencia
System.Diagnostics.Process.Start(@"C:\util\clientes.txt");

Algumas ressalvas:

1. O código compartilhado no link trabalha somente com os dados do arquivo csv aqui informado. O da prova era bem mais complexo e com certeza outros acertos seriam necessários no código para um bom funcionamento

2. O arquivo .rar não estará disponível para download por muito tempo, então aproveitem para baixar um exemplo prático de arquivo-texto em C#.Net

No mais, sorte a todos e valeu, professor Werley, pela chance de exercitar os conhecimentos!

Que seu novo desenvolver dê conta do recado...

Fui!!

DACTE EM VB.NET e CRYSTAL REPORTS

2010-06-29T17:37:00.000-07:00

Salve, salve, turma dos bytes!!

Bem, pessoal, para os que desejam curtir algumas fotos de meu
passeio em Fortaleza, ai vai o link do meu orkut:

http://www.orkut.com.br/Main#Profile?rl=mp&uid=12247594032911620490

E sim, eu sou moreno!

No mais, vamos tratar de desenvolvimento!!

Estou cumprindo o prometido e postando as informações referentes ao DACTE para salvar talvez a vida de alguns desenvoldores em empresas de transporte.

Vamos ao que interessa:

Nesse meu pequeno exemplo - que está funcional, acreditem! - simplesmente criei o DACTE em Crystal Reports e um table Adapter para associar ao mesmo.

O Table Adapter contêm todos os campos informado no Manual do CT-e, versão 1.03.

Separei os campos em tags criando uma notação com o uso do " _ " como separador.
Assim, os campos da tag toma04 são identificados desse modo:

toma04_toma
toma04_CNPJ

...

O importante de se ter todos os campos presentes é a possível necessidade de codificação
extra caso ocorra no futuro a criação de um CTe com campos a mais a informar, e
conforme minhas experiências com a DANFE isso com certeza sempre irá acontecer:

Note na figura ao lado como estes dados foram dispostos de modo coerente. O tableAdapter deve fazer parte de seu projeto a fim de que o relatório em Crystal Reports do DACTE possa ser linkado com sucesso.

Para desenvolver o Dacte em VB.NET 2008 você precisará criar um Table Adapter para que o Crystal Reportes possa ler os dados do CT-e que será fornecido para a impressão do DACTe.

Os dados do arquivo XML do CT-e fornecidos deverão ser lidos e repassados para o Table
Adapter, que será associado via código ao relatório em Crystal Reports - e isso você
deverá criar arrastando e soltando conforme mostrado na figura abaixo.

Veja que os campos do TableAdapater criado se encontram no painel à esquerda. Basta clicar sobre o campo que se deseja e arrastar até o relatório em Crystal para a posição deseja, associando assim cada campo criado com o seu respectivo local de impressão no DACTE.

Eis aqui os quitutes do post de hoje:

http://www.4shared.com/file/GGE9Zpf4/Dacte_free.html

Aproveitem, pois o link estará disponível por poucos dias.

No pacote a baixar vocês encontram o Dacte.rpt e um dsXML1, que na verdade é um Table Adapter com todos os dados do CT-e para uso em conjunto com o relatório em Crystal Reports.

Vejam que este é o mesmo caminho que seguimos para o desenvolvimento da DANFE em VB.NET 2008.

Este fontes também estarão à disposição para aquisição, nos mesmos termos da DANFE a todos os interessados.

Boa sorte e bom projeto a todos!!

DESCANSO DE TELA EM VB.NET

2010-06-09T12:51:00.000-07:00

Vamos criar um descanso de tela em Vb.NEt com somente um formulário!

1. Inicie um novo projeto no VB.NET e dê o nome a ele de Descanso

2. No Form1 (se não houver um, insira um Add New Form ao projeto), abra o Solution Explorer clique no View Designer.

3. Defina as seguintes propriedades no Form1:

StartPosition: Center

Size - Width: 1230; Height : 647

WindowState: Maximized

FormBorderStyle: None

KeyPreview: True

4. Acrescente ao formulário um componente Label e um componente Timer, e defina as propriedades do mesmo
como segue:

Componente Label

TextAlign : MiddleCenter

Size - Width: 898 ; Height: 578

Font: Tahoma; Size: 45; Bold: True; Italic: True

Componente Timer
Interval: 1500
Enabled: True

5. Agora, vamos definir as propriedades de execução de nosso descanso de tela. No Solution Explorer, clique no botão View Code.

No início do Formulário, declare os seguintes imports:

Imports System.Random
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Drawing.Text

A seguir, declare estas variáveis dentro da classe Form1:

Public Class Form1

Public Numero As Integer
Public Valor As Random = New Random
Public ultimaPosicaoDoMouse As New Point(-1, -1)

6. Defina as propriedades abaixo, como seguem:

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

'Qualquer tecla pressionada encerra o aplicativo
If Asc(e.KeyChar) Then

Windows.Forms.Cursor.Show()

End

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Windows.Forms.Cursor.Hide()

''LbTexto2.Font = New Font("Tahoma", 50, FontStyle.Bold)

'LbTexto2.Text = "Esperei com paciência no SENHOR. Salmo 40:1"
'LbTexto2.ForeColor = Color.Black

EscolheVersiculo()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

EscolheVersiculo()

End Sub

7. A função EscolheVersiculo é dada abaixo. A mesma define um número entre 0 e 7 e adiciona o texto a tela. A função escolheCor define uma cor de fundo e do texto de modo aleatório.

Private Sub EscolheVersiculo()

Dim Stexto As String = ""

'Pegar próximo número aleatório sendo gerado entre 0 e 21
Numero = Valor.Next(7)

EscolherCor()

'Numero = 10

If Numero = 0 Then

LbTexto2.Text = ""
LbTexto2.Text = " Bem-aventurados os que têm fome e sede de justiça, porque eles serão fartos" + vbCrLf + vbCrLf + " Mateus 5:6"

End If

If Numero = 1 Then

LbTexto2.Text = ""
LbTexto2.Text = "Alegrei-em quando me disseram: Vamos à casa do SENHOR" + vbCrLf + vbCrLf + " Salmo 122:1"

End If

If Numero = 3 Then

LbTexto2.Text = ""
LbTexto2.Text = "Ponha sua esperança no SENHOR, ó Israel, desde agora e para sempre " + vbCrLf + vbCrLf + "Salmo 131:3"

End If

If Numero = 4 Then

LbTexto2.Text = ""
LbTexto2.Text = "A tua palavra é lâmpada que ilumina meus passos e luz que clareia o meu caminho " + vbCrLf + vbCrLf + " Salmo 119:105"

End If

If Numero = 5 Then

LbTexto2.Text = ""
LbTexto2.Text = "Chega até os céus, até as nuvens, a Tua fidelidade " + vbCrLf + vbCrLf + " Salmo 36:5"

End If

If Numero = 6 Then

LbTexto2.Text = ""
LbTexto2.Text = "Jamais retirarei dele a Minha bondade, nem desmentirei a Minha fidelidade " + vbCrLf + vbCrLf + "Salmo 89:33"

End If

If Numero = 7 Then

LbTexto2.Text = ""
LbTexto2.Text = "Grande é a Tua fidelidade " + vbCrLf + vbCrLf + "Lamentações 2:23"

End If

End Sub

8. A função EscolheCor também trabalha de modo aleatório. Abaixo, inclui três opções de cores possíveis, mas você pode aumentar o número de cores e incrementar esta função

Private Sub EscolherCor()

'Pegar próximo número aleatório sendo gerado entre 0 e 21
Numero = Valor.Next(3)

If Numero = 0 Then
Me.BackColor = Color.Black
LbTexto2.ForeColor = Color.White
End If

If Numero = 1 Then
Me.BackColor = Color.Black
LbTexto2.ForeColor = Color.White
End If

If Numero = 2 Then
Me.BackColor = Color.White
LbTexto2.ForeColor = Color.Black
End If

If Numero = 3 Then
Me.BackColor = Color.Blue
LbTexto2.ForeColor = Color.White
End If

End Sub

9. Finalmente, as funções abaixo realizam o controle do teclado, em conjunto com a função KeyPreview. Se uma tecla for pressionada, o mouse movido em qualquer sentido, o descanso de tela é encerrado automaticamente, retornando para a tela anterior.

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

Windows.Forms.Cursor.Show()
End

End Sub

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
' ----- ao clicar pára o programa.
Windows.Forms.Cursor.Show()
End

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

' ----- Ao mover o mouse -> para o programa
If (ultimaPosicaoDoMouse <> New Point(-1, -1)) Then
' ----- Verifica se o mouse moveu-se
If (ultimaPosicaoDoMouse <> New Point(e.X, e.Y)) Then
Windows.Forms.Cursor.Show()
End
End If
End If

'----- Grava a posicao atual
ultimaPosicaoDoMouse = New Point(e.X, e.Y)

End Sub

Finalmente, Você pode compilar este pequeno projeto e gerar o executável do mesmo. Basta clicar na opção Build no menu do Visual Studio 2008 e em seguida em Build Descanso. Após a compilação, vá até a pasta do projeto. Dentro da pasta Bin haverá a pasta Release e o executável da aplicação estará dentro desta última pasta.

Se você Renomear este executável gerado para Descanso.scr poderá usar o mesmo como um descanso de tela do Windows!

Basta copiar o arquivo renomeado para a pasta C:\Windows\System32. Em seguida volte para a área do Desktop, clique no botão direito do mouse e Selecione Propriedades no menu que Surge. A tela de Propriedades do Desktop será aberta. Vá até a aba ScreenSaver.

O descanso.scr estará na lista de screensavers válidos do sistema operacional.

Bom divertimento a todos e até a próxima!!

GERANDO O CÓDIGO DE BARRAS PARA A DANFE EM CONTIGÊNCIA

2010-05-09T11:05:00.000-07:00

Gerar os dados para a Danfe em Contigência é uma tarefa simples via código:

'Selecionar o Tipo de Emissao
TipodeEmissao = myRow2.tpEmis

'Compõe a chave para o c¢digo de barras da Danfe em Contigˆncia, se for necess rio
DiadaEmissao = Mid(myRow2.dEmi, 1, 2)
TipodeEmissao = myRow2.tpEmis
CodigoUF = DigitoUF(myRow2.destUF)
DadosdaNfe = Trim(CodigoUF + TipodeEmissao + myRow2.destCNPJ + ValorvNF + "2" + "2" + DiadaEmissao)
DigitoDadosNfe = Calculo_DV11(DadosdaNfe)

'Inser‡ão do d¡gito verificador do m¢dulo 11 para a Nf-e
DadosdaNfe = DadosdaNfe + Trim(DigitoDadosNfe)

'Nf-e em contingˆncia / Gerar c¢digo de Barras dos dadosdaNFE
If TipodeEmissao <> "1" Then
'Cria o c¢digo de barras para a Danfe em Contingˆncia, se houver
'P“r o c¢digo de barras em oculto, se não houver o que gerar
myRow2.DadosNfe = DadosdaNfe
Dim Barcode2 As New BarcodeLib.Barcode(DadosdaNfe, BarcodeLib.TYPE.CODE128C)
PictureBox3.Image = Barcode2.Encode(BarcodeLib.TYPE.CODE128C, DadosdaNfe, 300, 150)
Barcode2.SaveImage("C:\NF-E\Barras\BARRAS2.JPG", BarcodeLib.SaveTypes.JPG)
Dim fs As New FileStream("C:\NF-E\Barras\BARRAS2.JPG", FileMode.Open)
Dim br As New BinaryReader(fs)
myRow2.Imagem2 = br.ReadBytes(br.BaseStream.Length)
br.Close()
fs.Close()
br = Nothing
fs = Nothing
Else
myRow2.Imagem2 = Nothing
End If

A função que gera o dígito verificador já foi mostrada aqui anteriormente:

Function Calculo_DV11(ByVal strNumero As String) As String
'declara As vari veis
Dim intContador As Integer
Dim intNumero As Integer
Dim intTotalNumero As Integer
Dim intMultiplicador As Integer
Dim intResto As Integer
Dim ValorDigito As Integer
' se nao for um valor numerico sai da fun‡ão
If Not IsNumeric(strNumero) Then
Calculo_DV11 = ""
Exit Function
End If

'inicia o multiplicador
intMultiplicador = 2

'pega cada caracter do numero a partir da direita
For intContador = Len(strNumero) To 1 Step -1
' extrai o caracter e multiplica pelo multiplicador
intNumero = Val(Mid(strNumero, intContador, 1)) * intMultiplicador
intMultiplicador = intMultiplicador + 1
' se o resultado for maior que nove soma os algarismos do resultado
If intMultiplicador > 9 Then
intMultiplicador = 2
End If
'soma o resultado para totaliza‡ão
intTotalNumero = intTotalNumero + intNumero
Next

'calcula o resto da divisao do total por 11
intResto = intTotalNumero Mod 11
ValorDigito = 11 - intResto
'verifica as exce‡ões ( 0 -> DV=0 1 -> DV=0 e retorna o DV

Select Case ValorDigito
Case 0
Calculo_DV11 = "0"
Case 1
Calculo_DV11 = "0"
Case Else
Calculo_DV11 = Str(ValorDigito)
End Select
End Function

CT-e - DADOS SOBRE O DACTE

Como o número de perguntas sobre o DACTE tem aumentado ultimamente, estarei divulgando brevemente aqui no blog um módulo para impressão dos dados do DACTE a fim de esclarecer algumas dúvidas.

Os fontes desse novo trabalho também estarão disponiveis para aquisição, assim como os da DANFE.

Agradeço a todos os que adquiriram os fontes da DANFE até o momento.

A todos vocês, o meu obrigado pelo reforço positivo prestado ao trabalho aqui divulgado.

Que seus esforços para o desenvolvimento integral da NF-e em seus clientes possam ser recompensados.

Sucesso e sorte a todos!!

FONTES DA DANFE EM VB.NET

2010-01-23T08:51:00.000-08:00

Aos que estiverem interessados, estou comercializando para fins ditáticos e comerciais os fontes da geração da DANFE 3.0 na linguagem VB.NET 2008 aos que necessitam dessas informações para desenvolver a NFe eletrônica.

Para maiores informações, gentileza entrar em
contato através do meu e-mail:

leo_florindo@hotmail.com

Sorte a todos e sucesso em 2010!

ENVIANDO E-MAIL VIA VB.NET

2009-06-18T08:59:00.000-07:00

Abaixo, segue um pequeno código que envia e-mails via VB.NET
para uma conta no gmail.

As contas de e-mail abaixo são fictícias. Você deve alterá-las para contas reais.

O código abaixo foi colocado dentro de um timer programado para ser executado a cada cinco minutos (suas propriedades são timer4.Interval = 300000; timer4.Enabled = True).

Quando o tempo de cinco minutos é atingido, o código é então disparado.

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

If ExisteConexaoInternet() = True Then

'------------ MANDANDO E-MAILS PELO GMAIL
Dim NumeroFigura As String = "C:\temp\winnt" + "imagem1.jpg"
Const destino As String = "teresaflorindo@hotmail.com"
Const Body As String = "Teste de e-mail. Dê uma olhada!!"
Dim respostaEnvioLabel As String

Dim remetenteEmail As String = "leoflorindo@gmail.com" '; //O e-mail do remetente

Dim mail As MailMessage = New MailMessage()

mail.To.Add(destino)

mail.From = New MailAddress(remetenteEmail, "Teresa Florindo", System.Text.Encoding.UTF8)

mail.Subject = "Assunto: Imagens do computador em uso"

mail.SubjectEncoding = System.Text.Encoding.UTF8

mail.Body = Body

mail.BodyEncoding = System.Text.Encoding.UTF8

mail.IsBodyHtml = True

mail.Priority = MailPriority.High

mail.Attachments.Add(New Attachment(NumeroFigura))

Dim client As SmtpClient = New SmtpClient() '//Adicionando as credenciais do seu e-mail e senha:

client.Credentials = New System.Net.NetworkCredential(remetenteEmail, "jeovaedeus")
client.Port = 25
client.Host = "smtp.gmail.com" '; //Definindo o provedor que irá disparar o e-mail

client.EnableSsl = True '; //Gmail trabalha com Server Secured Layer

Try

client.Send(mail)
respostaEnvioLabel = "Envio do E-mail com sucesso"
'MsgBox(respostaEnvioLabel)

Catch ex As Exception

respostaEnvioLabel = "Ocorreu um erro ao enviar:" + ex.Message
'MsgBox(respostaEnvioLabel)

End Try
'-------------------- FIM DO CÓDIGO PARA O GMAIL------------------------------

End If

End Sub

Aqui está somente descrito o envio de um e-mail simples via internet. A porta de acesso é a 25. O servirdor smtp.gmail.com é informado como host.

Verifique que uma simples imagem está sendo enviada em anexo com a mensagem.

Para usar este exemplo, você deve criar uma conta no gmail para uso.

A função ExisteConexaoInternet() verifica se o computador está no caso logado a internet. Se estiver, é possível passar o e-mail sem que o usuário tenha qualquer conhecimento disso.

O código da função está descrito abaixo:

Private Function ExisteConexaoInternet() As Boolean

'Define uma URL válida para consultar

Dim url As New System.Uri("http://www.globo.com/")

'Monta a requisição HTTP

Dim req As System.Net.WebRequest

req = System.Net.WebRequest.Create(url)

'Tenta fazer a requisição

Try

Dim resp As System.Net.WebResponse

resp = req.GetResponse()

resp.Close()

req = Nothing

'Tudo certo... Temos conexão com a Internet

Return True

Catch ex As Exception

'Não deu... Conexão não dispon¡vel

req = Nothing

Return False

End Try

End Function

A função simplesmente verifica se é possível acessar com sucesso um site na internet (no caso o site da Globo). Se for possível, então há a possibilidade de se enviar e-mail via internet e o código de envio de e-mail é liberado.

NF-E: COLETANDO DADOS DO ARQUIVO DE SITUAÇÃO

2009-06-12T07:41:00.000-07:00

Em alguns momentos, seja por erro no retorno do web service, seja por algo que impossibilite o acesso, os arquivos -proc-rec.xml para uma nfe enviada normalmente ao servido da sefaz poderão ser perdidos. Ao consultar o site da sefaz você constatará que a mesma já se encontra autorizada para uso, mas não possui ainda o arquivo -pro-rec.xml com número do protocolo informado no site.

Para alguns aplicativos de ERP isso pode significar um problema se de maneira normal estes aplicativos aguardam a recepção do arquivo -pro-rec.xml para validar no banco de dados da empresa a numeração do protocolo de autorização de uso e o status da nf-e no site da Sefaz.

Se o seu ERP move os arquivos de num-lot.xml, -rec.xml e -pro-rec.xml para uma outra pasta quando os mesmos são detectados e um deles não retorna - como o -pro-rec.xml - o trabalho do seu ERP estará comprometido. Você terá que criar um arquivo de pedido de situação da nf-e que enviou à Sefaz e atualizar os dados do protocolo de uso, hora de recepção e status da nf-e na mão... trabalho inglório!!!

Nessa caso, será preciso obter de um outro modo o número do protocolo de autorização da nf-e. Para obter os dados novamente, pode gerar um arquivo de pedido de status e deixar o retorno na mesma pasta onde deveria estar o arquivo -pro-rec.xml não recebido e dessa forma forçar seu ERP a ler o arquivo -sit.XML para resolver por si mesmo essa situação.

Um pedido de situação da nf-e enviado a Sefaz está listado abaixo. O arquivo é pequeno e bem simples de ser gerado:

<?xml version="1.0" encoding="UTF-8"?>
<

conssitnfe xsi="http://www.w3.org/2001/XMLSchema-instance" xsd="http://www.w3.org/2001/XMLSchema" versao="1.07" xmlns="http://www.portalfiscal.inf.br/nfe">

<tpamb

>1</tpamb>
<xserv>CONSULTA</xserv>
<chnfe
>13090604672291000115550110000000380000000494</chnfe>
</consSitNFe>

O nome do arquivo de pedido de situação é nfe-sit.xml.

Exemplo: 13090604672291000115550110000000380000000494-ped-sit.xml

O arquivo de retorno gerado por um pedido de situação traz em conjunto em seu interior o próprio número da nf-e, o número do protocolo de uso e o status da nf-e no site da sefaz:

< ?xml version="1.0" encoding="UTF-8"?>
<retConsSitNFe versao="1.07" xmlns="http://www.portalfiscal.inf.br/nfe"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://www.portalfiscal.inf.br/nfe retConsSitNFe_v1.07.xsd">
<infProt>Id="ID113090003033468">
<tpamb>1</tpamb>
<verAplic>1</verAplic>
<cStat>100</cStat>
<xMotivo>Autorizado o uso da NF-e</xMotivo
<cUF>13</cUF>
<chNFe>13090604672291000115550110000000400000000514</chNFe>
<dhRecbto>2009-06-12T08:50:58</dhRecbto>
<nProt>113090003033468</nProt>
<digVal>roFtqwdm/MZJQEmiXms/u3hwEe4=</digVal>
</infProt>


Para coletar a informação do número de protocolo para ser usado na impressão da DANFE, um simples IF a mais precisa ser acrescentado ao código de impressão da DANFE.

Você pode checar antes da impressão da DANFE se há a existência de um arquivo de pedidido de situação ou o arquivo pro-rec.xml de retorno do recibo.

Eis um código em VB.NET para isso:


Dim NomeArquivoRecibo As String

NomeArquivoRecibo = "F:\SisWin\IAM\NFE\RETORNO\PROCESSADOS\" + IdNfe + "-pro-rec.xml"

'Danfe Normal. Pega os dados dos recibos e do protocolo de uso
If TipodeEmissao = "1" Then


'Verifica se já houve retorno do arquivo selecionado
If IO.File.Exists(NomeArquivoRecibo) = False Then

 Dim NomeArquivoRecibo5 As String

 'Algo errado com o retorno do recibo. Procurar pelo arquivo de situação
 'da NF-e. Necessário para os erros de falta de dados do arquivo -pro-rec.xml

 'Ler dados do arquivo de retorno de situação, caso o status do
 'recibo de retorno esteja diferente de 104

 NomeArquivoRecibo5 = "F:\SisWin\NFE\RETORNO\PROCESSADOS" + IdNfe + "-sit.xml"
 'Abrir o arquivo de retorno situação de status
 Dim reader_5 As XmlTextReader = New XmlTextReader(NomeArquivoRecibo5)

 If IO.File.Exists(NomeArquivoRecibo5) = False Then

  MsgBox("Impressão da DANFE Cancelada!!! Sem Recibo de Retorno! Envie a NF-e primeiro a SEFAZ!!", MsgBoxStyle.Critical, "DANFE Coplast")
  Exit Sub

 Else

                 Do While (reader_5.Read())


                     Select Case reader_5.NodeType
                         Case XmlNodeType.Element

                             If reader_5.Name = "nProt" Then
                                 LProtocolo2 = reader_5.ReadString

                                 If LProtocolo2 <> "" Then
                                     myRow2.NumProtocolo = LProtocolo2
                                 End If

                             End If

                     End Select

                 Loop
                 reader_5.Close()


             End If

(...)


Esse pequeno trecho fará a leitura do dado do Protocolo diretamente do arquivo -sit.xml gerado.

O trecho também pode ser utilizado para gravar o registro de protocolo no banco de dados a fim de evitar problemas quando não se consegue obter o -pro-rec.xml de modo correto no retorno do site da Sefaz.




Sorte a todos!

MANTENDO A MENTE ABERTA PARA O APRENDIZADO

2009-05-25T05:35:00.000-07:00

Já foi-se o tempo em que os programadores possuíam suas linguagens
preferidas para trabalho em empresas.

Nos tempos modernos de nossos dias é crucial e necessário ter o domínio de mais de uma linguagem de programação e manter sempre a mente aberta para novos aprendizados.

Foi reunindo os melhores desenvolvedores em VB, ASP e C# que a Microsoft desenvolveu a plataforma .NET. Interligar em uma mesma ferramenta de desevolvimento várias linguagens promove o conhecimento e gera o crescimento entre os desenvolvedores, expandindo seus horizontes para outras áreas como internet e trabalhos em modo cliente servidor.

Aprender deve estar no âmago de todo o bom desenvolvedor de software e deve possibilitar saltos de tecnologia. Por mais que seja bem cômodo ocupar uma vaga em uma empresa que usa somente a mesma linguagem de programação e que faça com que se acomode é importante participar de treinamentos e realizar cursos para se manter inteirado das novas soluções corporativas existentes no mercado. Além de ser algo inteligente investir em si mesmo, você pode estar preparado para mudanças em novas áreas, como a NF-e e seus requisitos para a RFB.

Entender isso é saber que as milhares de linha que você gastará em VB 6 e Delphi para desenvolver a solução são quase nada em comparação no VB.Net. Para isso as linguagens de programação evoluem: permitir que novas soluções e maior interatividade sejam ganhas e tornar as áreas de TI melhor equipadas não somente com um bom hardware, mas com o que de melhor há no mercado no momento.

É cômodo para algumas empresas não desenvolver de VB 6 para VB.NET por motivos de investimentos altos em tecnologia. Mas grandes empresas vêem nesse caminho um ramo natural para a evolução e ganhos de mercado. Se as áreas de TI se tornam cômodas com o que desenvolvem não aproveitam as novas tecnologias e, com o tempo, caem na armadilha de desenvolver grandes códigos para soluções que são fáceis de realizar em novas linguagens de programação.

Não é constragedor verificar que se pensa em desenvolver e se fazer atualizações na área de segurança - como alterar o Linux do firewall - mas não se pensa em atualizar as aplicações internas de Visual Basic 6 para Vb.Net aprimorando com isso todo o ganho possível que se terá com o uso da nova linguagem e de suas companheiras??

Quem se envolve em TI deve estar pronto para aprender o novo e para ser confrotado com o novo. Manter a mente aberta e renovar seus conhecimentos é se fazer apto em vários oportundades que surgirem no mercado.

Saber somente o Visual Basic 6 e o Delphi já não atendem tanto quem necessita criar soluções para uma Nf-e até setembro de 2009.

E se nas próximas atualizações se fizer necessário o uso de tecnologias mais atuais somente disponíves na plataforma .NET??

Evoluir é preciso.

Trabalhe nesse sentido.

MANUAL 3.0 - CÓDIGO DE BARRAS PARA A CONTINGÊNCIA EM VB.NET

2009-05-18T06:47:00.000-07:00

O novo manual de integração para a NF-e 3.0 traz vários novos ajustes a realizar na composição da DANFE e deverá entrar em vigor a partir de 31/08/2009.

Uma das novas alterações diz respeito a impressão da DANFE no modo de contigência que, com esse novo manual, pedirá a emissão de um código de barras próprio para os dados da DANFE em contigência.

Esse novo código de barras deverá ser impresso abaixo do código de
barras da nf-e, conforme mostrado na figura abaixo:

O campo responsável pela emissão desse código de barras será a tag TpEmis dentro do XML da Nf-e. Se o campo TpEmis for diferente de 1 indicará a emissão de uma DANFE em modo de Contingência.

O campo DADOS DA NF-e contêm a composição da chave em código de barras. Ao passar a leitora sobre o segundo código de barras, o resultado de valor esperado deverá ser o que está contido dentro do campo DADOS da NF-e. Quando a DANFE foi emitida em modo normal, o nome desse campo deverá ser PROTOCOLO DE AUTORIZAÇÃO DE USO e deverá conter o referido protocolo de autorização da Nf-e.

A composição do campo DADOS DA NF-e pode ser vista no código VB.Net abaixo:

'Compõe a chave para o código de barras da Danfe em Contigência, se for necessário
DiadaEmissao = Mid(myRow2.dEmi, 1, 2)
TipodeEmissao = myRow2.tpEmis
CodigoUF = DigitoUF(myRow2.destUF)
DadosdaNfe = Trim(CodigoUF + TipodeEmissao + myRow2.destCNPJ + ValorvNF + "2" + "2" + DiadaEmissao)
DigitoDadosNfe = Calculo_DV11(DadosdaNfe)

'Inserção do dígito verificador do módulo 11 para a Nf-e
DadosdaNfe = DadosdaNfe + Trim(DigitoDadosNfe)

A função Calculo_DV11 retorna o cálculo em módulo 11 para o digito verificador dos dados da NF-e e é apresentada abaixo:

Function Calculo_DV11(ByVal strNumero As String) As String

'declara As variáveis
Dim intContador As Integer
Dim intNumero As Integer
Dim intTotalNumero As Integer
Dim intMultiplicador As Integer
Dim intResto As Integer
Dim ValorDigito As Integer

' se nao for um valor numerico sai da função
If Not IsNumeric(strNumero) Then
Calculo_DV11 = ""
Exit Function
End If

'inicia o multiplicador
intMultiplicador = 2

'pega cada caracter do numero a partir da direita
For intContador = Len(strNumero) To 1 Step -1

'extrai o caracter e multiplica pelo multiplicador
intNumero = Val(Mid(strNumero, intContador, 1)) * intMultiplicador

intMultiplicador = intMultiplicador + 1

' se o resultado for maior que nove soma os algarismos do resultado
If intMultiplicador > 9 Then
intMultiplicador = 2
End If

'soma o resultado para totalização
intTotalNumero = intTotalNumero + intNumero

Next

'calcula o resto da divisao do total por 11
intResto = intTotalNumero Mod 11

ValorDigito = 11 - intResto
'verifica as exceções ( 0 -> DV=0 1 -> DV=0 e retorna o DV
Select Case ValorDigito
Case 0
Calculo_DV11 = "0"
Case 1
Calculo_DV11 = "0"
Case Else
Calculo_DV11 = Str(ValorDigito)
End Select

End Function

Após a chave ser composta, a geração do código de barras poderá então ser realizada, com um código simples de chamada para a geração do código de barras:

'Nf-e em contingência / Gerar código de Barras dos dadosdaNFE
If TipodeEmissao <> "1" Then

'Cria o código de barras para a Danfe em Contingência, se houver
'Pôr o código de barras em oculto, se não houver o que gerar
myRow2.DadosNfe = DadosdaNfe
Dim Barcode2 As New BarcodeLib.Barcode(DadosdaNfe, BarcodeLib.TYPE.CODE128C)
PictureBox3.Image = Barcode2.Encode(BarcodeLib.TYPE.CODE128C, DadosdaNfe, 300, 150)
Barcode2.SaveImage("C:\NF-E\Barras\BARRAS2.JPG", BarcodeLib.SaveTypes.JPG)

Dim fs As New FileStream("C:\NF-E\Barras\BARRAS2.JPG", FileMode.Open)
Dim br As New BinaryReader(fs)
myRow2.Imagem2 = br.ReadBytes(br.BaseStream.Length)

br.Close()
fs.Close()

br = Nothing
fs = Nothing

Else
myRow2.Imagem2 = Nothing

End If

O campo Imagem2 deverá ser criado para receber o código de Barras da DANFE impressa em contigência.

Sorte a todos!!

NF-e: Criando um validador para a NF-e em VB.NET

2009-05-15T11:23:00.000-07:00

Vamos criar um pequeno aplicativo de validação da Nf-e, executável
em uma chamada por parâmetro. Para executar esse aplicativo, simplesmente
você deverá clicar no botão Iniciar no Windows e selecionar a opção Executar
no menu, informando o seguinte comando:

C:\ValidarNfe.exe C:\NF-E\13090404672291000115550040000000270000000730-nfe.xml

Veja o o exemplo na figura abaixo:

1) Inicie um novo projeto no Vb.NET.

2) Defina nas referências do projeto (Menu Projects - ValidarNfe Properties - aba References) os seguintes namespaces:

System
System.Data
System.Deployment
System.Drawing
System.Security
System.Web.Services
System.Windows.Forms
System.Xml

3) Inclua no formulário uma timer, uma label, um listbox e um botão.

A tela deve ficar como o mostrado abaixo:

4) Defina a propriedade interval do timer em 1000, e dê dois cliques sobre ele. Informe o seguinte código para o Timer:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Show()
End Sub

5) Dentro do código do formulário (form1.vb), no início do mesmo, inclua as seguintes referências:

Imports System.Collections.Generic
Imports System.Text
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Windows.Forms
Imports System.Security.Cryptography.Xml
Imports System.Security.Cryptography.X509Certificates

6) No evento Load do formulário, acrescente este código:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Valor As String

Me.Show()
If Command() <> "" Then
Valor = Command()
ValidaNfe(Valor)

Me.Focus()
Me.Show()
Me.WindowState = FormWindowState.Normal

End If

End Sub

7) O código do botão Fechar deve ser o que segue abaixo:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

8) A função ValidaNfe é a que segue abaixo:

Private Sub ValidaNfe(ByVal NfeAler As String)

Try

'Abrir agora o arquivo XML criado e inserir o Protocolo encontrado!!
Dim arquivo2 As String = NfeAler
Dim xDoc As New XmlDocument : xDoc.Load(arquivo2)
Dim Tamanho As String
Dim Nfe As String

Nfe = arquivo2
Tamanho = Replace(Nfe, "C:\", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\BACKUP\200905\", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\BACKUP", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\AENVIAR", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\AENVIAR", "")
Tamanho = Replace(Tamanho, "\", "")
Tamanho = Replace(Tamanho, "\NF-E", "")
Tamanho = Replace(Tamanho, "NF-E", "")
Tamanho = Replace(Tamanho, "SisWin", "")
Tamanho = Replace(Tamanho, "SisWin", "")

'Fazer uma cópia d arquivo XML para gerar a assinatura
Dim CaminhoArquivo As String = "C:\NF-E\XML\" + Tamanho

'Salva o Arquivo
xDoc.Save(CaminhoArquivo)

'Selecionar certificado
SelecionarCertificado()

'Assinar o XML
Dim OAd As New AssinaturaDigitalClass()
Dim pDadosNfe As String
Dim vStringNfe As String
'Dim msgResultado As String

OAd.Assinar(CaminhoArquivo, "infNFe", oCertificado)

If OAd.vResultado = 0 Then 'Assinado corretamente

pDadosNfe = OAd.vXMLStringAssinado
vStringNfe = pDadosNfe.Substring(pDadosNfe.IndexOf("<NFe"), pDadosNfe.Length - pDadosNfe.IndexOf("<NFe"))

Else 'Ocorreu algum erro na assinatura
MessageBox.Show(OAd.vResultadoString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

'Validar o XML
Dim TxtXSD As String

TxtXSD = "C:\tmp\Schemas NF-e\nfe_v1.10.xsd"

If Not CaminhoArquivo = String.Empty And Not TxtXSD = String.Empty Then

Resultado = True
Dim settings As New XmlReaderSettings()
AddHandler settings.ValidationEventHandler, AddressOf Me.ValidationEventHandler

'Valida o arquivo XML com o seu Schema XSD
lstValida.Items.Add("Validando o arquivo XML " & CaminhoArquivo & " com o arquivo de Schema : " & TxtXSD)

Try

settings.ValidationType = ValidationType.Schema
settings.Schemas.Add("http://www.portalfiscal.inf.br/nfe",xmlReader.Create(TxtXSD))
Using XmlValidatingReader As XmlReader = XmlReader.Create(CaminhoArquivo, settings)
While XmlValidatingReader.Read()

End While

End Using

Catch ex As Exception

lstValida.Items.Add(ex.Message)
Exit Sub
End Try

lstValida.Items.Add("Status Validação -> " & IIf(Resultado = True, "Arquivo validado com SUCESSO", "Validação FALHOU"))

Else
MsgBox("Informe o arquivo XML e o arquivo XSD.")
End If

Catch ex As Exception

'se ocorrer uma exceção exibe a mensagem
lstValida.Items.Add(ex.Message)

End Try

End Sub

A função ValidaNfe chama outras duas funções em seu início: uma que seleciona o certificado automaticamente e outra que assina o documento. O código da função SelecionarCertificado() é que segue abaixo:

Function SelecionarCertificado() As Boolean

Dim vRetorna As Boolean
Dim oX509Cert As New X509Certificate2
Dim store As New X509Store
Dim collection As New X509Certificate2Collection
Dim collection1 As New X509Certificate2Collection
Dim collection2 As New X509Certificate2Collection
Dim scollection As New X509Certificate2Collection
Dim msgResultado As String
Dim xnome As String

xnome = "CN=CERTIFICADOTESTE:09999991000115, OU=Autenticado por AR Fenacon, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Manaus, S=AM, O=ICP-Brasil, C=BR"

oX509Cert = New X509Certificate2()
store = New X509Store("MY", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)
collection = store.Certificates
collection1 = collection.Find(X509FindType.FindByTimeValid, DateTime.Now, False)
collection2 = collection.Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, False)

'Encontra o certificado digital pelo nome do mesmo, se precisar pergunta por isso
'Resolvido em 13/05/2009 às 15:05h
scollection = collection.Find(X509FindType.FindBySubjectDistinguishedName, xnome, False)

'Para selecionar o certificado de uma lista
'scollection = X509Certificate2UI.SelectFromCollection(collection2, "Certificado(s) Digital(is) disponível(is)", "Selecione o certificado digital para uso no aplicativo", X509SelectionFlag.SingleSelection)

If (scollection.Count = 0) Then

msgResultado = "Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas."
MessageBox.Show(msgResultado, "Advertência", MessageBoxButtons.OK, MessageBoxIcon.Warning)
vRetorna = False

Else

oX509Cert = scollection.Item(0) 'Para selecionar o item em Vb.NET
oCertificado = oX509Cert
vRetorna = True
'msgResultado = "Certificado Selecionado."
'MessageBox.Show(msgResultado, "Advertência", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return vRetorna

End If

End Function

-----------------

Voce deve informar em xnome o nome por extenso do Certificado que irá usar para validar a XML a ser assinado. Para obter o nome por extenso do seu certificado você pode usar a próprioa função acima habilitando a que pede a seleção de certicados de uma lista e colocando o seguinte comando no Else da função acima:

xnome = oCertificado.Subject.ToString

Esse comando colocará o nome do certificado na variável xnome. Se você debugar, pode pegar o nome extenso do certificado que deve usar para validar o XML e colocar dentro da váriavel, como fiz no início do código:

xnome = "CN=CERTIFICADOTESTE:09999991000115, OU=Autenticado por AR Fenacon, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Manaus, S=AM, O=ICP-Brasil, C=BR"

Para a assinatura digital uma classe é acrescentada totalmente no final da classe do formulário. Essa classe é responsável pela assinatura do XML. Eis o código abaixo:

Public Class AssinaturaDigitalClass

Public vResultado As Integer
Public vResultadoString As String
Public vXMLStringAssinado As String
Public XmlDoc As XmlDocument

Sub Assinar(ByVal pArqXMLAssinar As String, ByVal pUri As String, ByVal pCertificado As X509Certificate2)

'Abrir o arquivo XML a ser assinado e ler o seu conteúdo
Dim SR As StreamReader
Dim vXMLString As String

SR = File.OpenText(pArqXMLAssinar)
vXMLString = SR.ReadToEnd()
SR.Close()

' //Atualizar atributos de retorno com conteúdo padrão
vResultado = 0
vResultadoString = "Assinatura realizada com sucesso"

Try

'Verifica o certificado a ser utilizado na assinatura
Dim _xnome As String
Dim _X509Cert As X509Certificate2
Dim store As X509Store
Dim collection As X509Certificate2Collection
Dim collection1 As X509Certificate2Collection

_xnome = ""

_xnome = pCertificado.Subject.ToString()

_X509Cert = New X509Certificate2()
store = New X509Store("MY", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

collection = store.Certificates
collection1 = collection.Find(X509FindType.FindBySubjectDistinguishedName, _xnome, False)

If (collection1.Count = 0) Then
vResultado = 2
vResultadoString = "Problemas no certificado digital"
Else

' certificado ok
'oX509Cert = scollection.Item(0)

_X509Cert = collection1.Item(0)
Dim x As String
x = _X509Cert.GetKeyAlgorithm().ToString()

' Create a new XML document.
Dim doc As New XmlDocument
doc = New XmlDocument()

'Format the document to ignore white spaces.
doc.PreserveWhitespace = False

' Load the passed XML file using it’s name.
Try
doc.LoadXml(vXMLString)

' Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer
qtdeRefUri = doc.GetElementsByTagName(pUri).Count

If (qtdeRefUri = 0) Then
' a URI indicada não existe
vResultado = 4
vResultadoString = "A tag de assinatura " + pUri.Trim() + " não existe"

Else
' Existe mais de uma tag a ser assinada
If (qtdeRefUri > 1) Then
' existe mais de uma URI indicada
vResultado = 5
vResultadoString = "A tag de assinatura " + pUri.Trim() + " não é unica"
Else

Try
' Create a SignedXml object.
Dim signedXml As SignedXml
signedXml = New SignedXml(doc)

' Add the key to the SignedXml document
signedXml.SigningKey = _X509Cert.PrivateKey

' Create a reference to be signed
Dim reference As New Reference
reference = New Reference()

'--------- RETIRAR COMENTÁRIOS DAS LINHAS ABAIXO
' pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection
Dim _atributo As XmlAttribute

_Uri = doc.GetElementsByTagName(pUri).Item(0).Attributes
For Each _atributo In _Uri
If (_atributo.Name = "Id") Then
reference.Uri = "#" + _atributo.InnerText

End If
Next

' Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform
env = New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)

Dim c14 As New XmlDsigC14NTransform
c14 = New XmlDsigC14NTransform()
reference.AddTransform(c14)

' Add the reference to the SignedXml object.
signedXml.AddReference(reference)

' Create a new KeyInfo object
Dim keyinfo As New KeyInfo
keyinfo = New KeyInfo()

' Load the certificate into a KeyInfoX509Data object
' and add it to the KeyInfo object.
keyinfo.AddClause(New KeyInfoX509Data(_X509Cert))

' Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyinfo
signedXml.ComputeSignature()

' Get the XML representation of the signature and save
' it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement
xmlDigitalSignature = signedXml.GetXml()

' Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
XmlDoc = New XmlDocument()
XmlDoc.PreserveWhitespace = False
XmlDoc = doc

' Atualizar a string do XML já assinada
vXMLStringAssinado = XmlDoc.OuterXml

' Gravar o XML no HD
' abre um stream para escrita e cria um StreamWriter para implementar o stream
Dim fs As New FileStream(pArqXMLAssinar, FileMode.OpenOrCreate, FileAccess.Write)
Dim SW_2 As New StreamWriter(fs)
SW_2.Flush()
SW_2.BaseStream.Seek(0, SeekOrigin.Begin)
SW_2.Write(vXMLStringAssinado)
SW_2.Flush()
SW_2.Close()

Catch ex As Exception
vResultado = 6
vResultadoString = "Erro ao assinar o documento - " + ex.Message

End Try

End If

End If

Catch ex As Exception

vResultado = 3
vResultadoString = "XML mal formado - " + ex.Message

End Try

End If

Catch ex As Exception

vResultado = 1
vResultadoString = "Problema ao acessar o certificado digital" + ex.Message

End Try

End Sub

End Class

9) Dentro do botão que faz a validação é repassado o código do arquivo XSD que faz a validação:

TxtXSD = "C:\tmp\Schemas NF-e\nfe_v1.10.xsd"

Um EventHandler se faz necessário para a leitura da validação do XSD.

Abaixo, vemos o código da função de validação do EventHandler:

Public Sub ValidationEventHandler(ByVal sender As Object, ByVal args As ValidationEventArgs)

Resultado = False

'lstValida.Items.Add(vbTab + "Erro de Validação : " + args.Message)

If args.Severity = XmlSeverityType.Warning Then

MsgBox("Nenhum arquivo de Schema foi encontrado para efetuar a validação...")

ElseIf args.Severity = XmlSeverityType.Error Then

lstValida.Items.Add(args.Message)
'MsgBox("Ocorreu um erro durante a validação....")

End If

If Not (args.Exception Is Nothing) Then ' Erro na validação do schema XSD

'lstValida.Items.Add(args.Exception.SourceUri + "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)
'MsgBox(args.Exception.SourceUri + "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)

End If

End Sub

Essa função será chamada para retornar o erro que possa estar acontecendo com algum ponto do arquivo XML.

Pronto!!

Cada passo de uma validação para a Nf-e foi descrita acima.

Posto o código completo do arquivo form1.VB abaixo para dirrimir quaisquer dúvidas:

'Validador para arquivos Nf-e
'Data de criação: 12/05/2009
'Para ser utilizado com o Visual Basic 6
'A aplicação funciona com chamada de parâmetro na linha digitável
'Para executar esse aplicativo, use a linha de comando do Windwos
'clicando no botão iniciar de depois em Executar:
'Exemplo de chamada: C:\ValidarNfe.exe C:\NF-E\13090404672291000115550040000000270000000730-nfe.xml
'Desenvolvedor: Manoel Leonardo Metelis Florindo

Imports System.Collections.Generic
Imports System.Text
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Windows.Forms
Imports System.Security.Cryptography.Xml
Imports System.Security.Cryptography.X509Certificates

Public Class Form1

Private Resultado As Boolean = True
Public oCertificado As New X509Certificate2
Public vStrXmlRetorno As String
Public vArqERRRetorno As String
Public vPastaXMLErro As String
Public vPastaXMLEnvio As String
Public vArqXMLRetorno As String
Public vPastaXMLRetorno As String
Public vXmlNfeDadosMsg As String
Public vAmbiente As Integer
Public vUF As Integer

Private Sub ValidaNfe(ByVal NfeAler As String)

Try

'Abrir agora o arquivo XML criado e inserir o Protocolo encontrado!!
Dim arquivo2 As String = NfeAler
Dim xDoc As New XmlDocument : xDoc.Load(arquivo2)
Dim Tamanho As String
Dim Nfe As String

Nfe = arquivo2
Tamanho = Replace(Nfe, "C:\", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\BACKUP\200905\", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\BACKUP", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\AENVIAR", "")
Tamanho = Replace(Tamanho, "F:\SisWin\NFE\AENVIAR", "")
Tamanho = Replace(Tamanho, "\", "")
Tamanho = Replace(Tamanho, "\NF-E", "")
Tamanho = Replace(Tamanho, "NF-E", "")
Tamanho = Replace(Tamanho, "SisWin", "")
Tamanho = Replace(Tamanho, "SisWin", "")

'Fazer uma cópia d arquivo XML para gerar a assinatura
Dim CaminhoArquivo As String = "C:\NF-E\XML\" + Tamanho

'Salva o Arquivo
xDoc.Save(CaminhoArquivo)

'Selecionar certificado
SelecionarCertificado()

'Assinar o XML
Dim OAd As New AssinaturaDigitalClass()
Dim pDadosNfe As String
Dim vStringNfe As String
'Dim msgResultado As String

OAd.Assinar(CaminhoArquivo, "infNFe", oCertificado)

If OAd.vResultado = 0 Then 'Assinado corretamente

pDadosNfe = OAd.vXMLStringAssinado
vStringNfe = pDadosNfe.Substring(pDadosNfe.IndexOf("<NFe"), pDadosNfe.Length - pDadosNfe.IndexOf("<NFe"))

Else 'Ocorreu algum erro na assinatura
MessageBox.Show(OAd.vResultadoString, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

'Validar o XML
Dim TxtXSD As String

TxtXSD = "C:\tmp\Schemas NF-e\nfe_v1.10.xsd"

If Not CaminhoArquivo = String.Empty And Not TxtXSD = String.Empty Then

Resultado = True
Dim settings As New XmlReaderSettings()
AddHandler settings.ValidationEventHandler, AddressOf Me.ValidationEventHandler

'Valida o arquivo XML com o seu Schema XSD
lstValida.Items.Add("Validando o arquivo XML " & CaminhoArquivo & " com o arquivo de Schema : " & TxtXSD)

Try

settings.ValidationType = ValidationType.Schema
settings.Schemas.Add("http://www.portalfiscal.inf.br/nfe", XmlReader.Create(TxtXSD))
Using XmlValidatingReader As XmlReader = XmlReader.Create(CaminhoArquivo, settings)
While XmlValidatingReader.Read()

End While

End Using

Catch ex As Exception

lstValida.Items.Add(ex.Message)
Exit Sub
End Try

lstValida.Items.Add("Status Validação -> " & IIf(Resultado = True, "Arquivo validado com SUCESSO", "Validação FALHOU"))

Else
MsgBox("Informe o arquivo XML e o arquivo XSD.")
End If

Catch ex As Exception

'se ocorrer uma exceção exibe a mensagem
lstValida.Items.Add(ex.Message)

End Try

End Sub

Function SelecionarCertificado() As Boolean

Dim vRetorna As Boolean
Dim oX509Cert As New X509Certificate2
Dim store As New X509Store
Dim collection As New X509Certificate2Collection
Dim collection1 As New X509Certificate2Collection
Dim collection2 As New X509Certificate2Collection
Dim scollection As New X509Certificate2Collection
Dim msgResultado As String
Dim xnome As String

xnome = "CN=COPLAST INDUSTRIA E COMERCIO DE RESIDUOS PLASTICO:04672291000115, OU=Autenticado por AR Fenacon, OU=RFB e-CNPJ A1, OU=Secretaria da Receita Federal do Brasil - RFB, L=Manaus, S=AM, O=ICP-Brasil, C=BR"

oX509Cert = New X509Certificate2()
store = New X509Store("MY", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)
collection = store.Certificates
collection1 = collection.Find(X509FindType.FindByTimeValid, DateTime.Now, False)
collection2 = collection.Find(X509FindType.FindByKeyUsage, X509KeyUsageFlags.DigitalSignature, False)

'Encontra o certificado digital pelo nome do mesmo, se precisar pergunta por isso
'Resolvido em 13/05/2009 às 15:05h
scollection = collection.Find(X509FindType.FindBySubjectDistinguishedName, xnome, False)

'Para selecionar o certificado de uma lista
'scollection = X509Certificate2UI.SelectFromCollection(collection2, "Certificado(s) Digital(is) disponível(is)", "Selecione o certificado digital para uso no aplicativo", X509SelectionFlag.SingleSelection)

If (scollection.Count = 0) Then

msgResultado = "Nenhum certificado digital foi selecionado ou o certificado selecionado está com problemas."
MessageBox.Show(msgResultado, "Advertência", MessageBoxButtons.OK, MessageBoxIcon.Warning)
vRetorna = False

Else

oX509Cert = scollection.Item(0) 'Para selecionar o item em Vb.NET
oCertificado = oX509Cert
xnome = oCertificado.Subject.ToString
vRetorna = True
'msgResultado = "Certificado Selecionado."
'MessageBox.Show(msgResultado, "Advertência", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return vRetorna

End If

End Function

Public Sub ValidationEventHandler(ByVal sender As Object, ByVal args As ValidationEventArgs)

Resultado = False

'lstValida.Items.Add(vbTab + "Erro de Validação : " + args.Message)

If args.Severity = XmlSeverityType.Warning Then

MsgBox("Nenhum arquivo de Schema foi encontrado para efetuar a validação...")

ElseIf args.Severity = XmlSeverityType.Error Then

lstValida.Items.Add(args.Message)
'MsgBox("Ocorreu um erro durante a validação....")

End If

If Not (args.Exception Is Nothing) Then ' Erro na validação do schema XSD

'lstValida.Items.Add(args.Exception.SourceUri + "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)
'MsgBox(args.Exception.SourceUri + "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Valor As String

Me.Show()
'Valor = "F:\SisWin\NFE\BACKUP\200905\13090504672291000115550040000001520000002017-nfe.XML"
'ValidaNfe(Valor)
If Command() <> "" Then
Valor = Command()
ValidaNfe(Valor)

Me.Focus()
Me.Show()
Me.WindowState = FormWindowState.Normal

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Show()
End Sub
End Class
Public Class AssinaturaDigitalClass

Public vResultado As Integer
Public vResultadoString As String
Public vXMLStringAssinado As String
Public XmlDoc As XmlDocument

Sub Assinar(ByVal pArqXMLAssinar As String, ByVal pUri As String, ByVal pCertificado As X509Certificate2)

'Abrir o arquivo XML a ser assinado e ler o seu conteúdo
Dim SR As StreamReader
Dim vXMLString As String

SR = File.OpenText(pArqXMLAssinar)
vXMLString = SR.ReadToEnd()
SR.Close()

' //Atualizar atributos de retorno com conteúdo padrão
vResultado = 0
vResultadoString = "Assinatura realizada com sucesso"

Try

'Verifica o certificado a ser utilizado na assinatura
Dim _xnome As String
Dim _X509Cert As X509Certificate2
Dim store As X509Store
Dim collection As X509Certificate2Collection
Dim collection1 As X509Certificate2Collection

_xnome = ""

_xnome = pCertificado.Subject.ToString()

_X509Cert = New X509Certificate2()
store = New X509Store("MY", StoreLocation.CurrentUser)
store.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

collection = store.Certificates
collection1 = collection.Find(X509FindType.FindBySubjectDistinguishedName, _xnome, False)

If (collection1.Count = 0) Then
vResultado = 2
vResultadoString = "Problemas no certificado digital"
Else

' certificado ok
'oX509Cert = scollection.Item(0)

_X509Cert = collection1.Item(0)
Dim x As String
x = _X509Cert.GetKeyAlgorithm().ToString()

' Create a new XML document.
Dim doc As New XmlDocument
doc = New XmlDocument()

'Format the document to ignore white spaces.
doc.PreserveWhitespace = False

' Load the passed XML file using it’s name.
Try
doc.LoadXml(vXMLString)

' Verifica se a tag a ser assinada existe é única
Dim qtdeRefUri As Integer
qtdeRefUri = doc.GetElementsByTagName(pUri).Count

If (qtdeRefUri = 0) Then
' a URI indicada não existe
vResultado = 4
vResultadoString = "A tag de assinatura " + pUri.Trim() + " não existe"

Else
' Existe mais de uma tag a ser assinada
If (qtdeRefUri > 1) Then
' existe mais de uma URI indicada
vResultado = 5
vResultadoString = "A tag de assinatura " + pUri.Trim() + " não é unica"
Else

Try
' Create a SignedXml object.
Dim signedXml As SignedXml
signedXml = New SignedXml(doc)

' Add the key to the SignedXml document
signedXml.SigningKey = _X509Cert.PrivateKey

' Create a reference to be signed
Dim reference As New Reference
reference = New Reference()

'--------- RETIRAR COMENTÁRIOS DAS LINHAS ABAIXO
' pega o uri que deve ser assinada
Dim _Uri As XmlAttributeCollection
Dim _atributo As XmlAttribute

_Uri = doc.GetElementsByTagName(pUri).Item(0).Attributes
For Each _atributo In _Uri
If (_atributo.Name = "Id") Then
reference.Uri = "#" + _atributo.InnerText

End If
Next

' Add an enveloped transformation to the reference.
Dim env As New XmlDsigEnvelopedSignatureTransform
env = New XmlDsigEnvelopedSignatureTransform()
reference.AddTransform(env)

Dim c14 As New XmlDsigC14NTransform
c14 = New XmlDsigC14NTransform()
reference.AddTransform(c14)

' Add the reference to the SignedXml object.
signedXml.AddReference(reference)

' Create a new KeyInfo object
Dim keyinfo As New KeyInfo
keyinfo = New KeyInfo()

' Load the certificate into a KeyInfoX509Data object
' and add it to the KeyInfo object.
keyinfo.AddClause(New KeyInfoX509Data(_X509Cert))

' Add the KeyInfo object to the SignedXml object.
signedXml.KeyInfo = keyinfo
signedXml.ComputeSignature()

' Get the XML representation of the signature and save
' it to an XmlElement object.
Dim xmlDigitalSignature As XmlElement
xmlDigitalSignature = signedXml.GetXml()

' Gravar o elemento no documento XML
doc.DocumentElement.AppendChild(doc.ImportNode(xmlDigitalSignature, True))
XmlDoc = New XmlDocument()
XmlDoc.PreserveWhitespace = False
XmlDoc = doc

' Atualizar a string do XML já assinada
vXMLStringAssinado = XmlDoc.OuterXml

' Gravar o XML no HD
' abre um stream para escrita e cria um StreamWriter para implementar o stream
Dim fs As New FileStream(pArqXMLAssinar, FileMode.OpenOrCreate, FileAccess.Write)
Dim SW_2 As New StreamWriter(fs)
SW_2.Flush()
SW_2.BaseStream.Seek(0, SeekOrigin.Begin)
SW_2.Write(vXMLStringAssinado)
SW_2.Flush()
SW_2.Close()

Catch ex As Exception
vResultado = 6
vResultadoString = "Erro ao assinar o documento - " + ex.Message

End Try

End If

End If

Catch ex As Exception

vResultado = 3
vResultadoString = "XML mal formado - " + ex.Message

End Try

End If

Catch ex As Exception

vResultado = 1
vResultadoString = "Problema ao acessar o certificado digital" + ex.Message

End Try

End Sub

End Class

NF-E: UM CAMINHO PARA O CÓDIGO DE BARRAS EM VB6

2009-04-29T12:11:00.000-07:00

Se você está enfrentando dificuldades para gerar o código de barras em Visual Basic 6, pode pensar de um outro modo e usar o próprio VB.NET como caminho para a geração do código de barras 128C da NF-e.
Para isto, basta compilar uma aplicação Windows Form que simplesmente gere o código de barras e utilizar uma chamada call no Visual Basic 6 para esta simples aplicação.
1. Inicie um novo projeto Windows Form Applicattion no VB.Net
2. Chame este projeto de GerBarras
3. Quando os arquivos forem criados, vá ao menu Project -> GerBarras Properties. Clique na opção References na tela que se abre.

A tela será como a que segue abaixo:

Clique no botão Add e indique o caminho do diretório onde se encontra o Barcodelib.dll, conforme a figura.

Usaremos esta dll para fazer a geração do código de barras, recebendo como parâmetro de chamada a numeração que deve ser transformada em código de barras. O aplicativo deverá então gerar uma imagem da numeração do código de barras na pasta C:\NF-e\barras.

Após incluir o barcodelib.dll, clique na pasta Debug e na opção Command Line Arguments digite "parametro", conforme a tela mostrada abaixo:

Agora, nos resta informar o código para geração do código de barras.

4. No modo design do form1, inclua uma objeto Picture. Para isso, clique no menu View e depois em ToolBox. Do lado esquerdo, será aberto a barra de ferramentas. Procure no Common Controls pelo PictureBox. Pressione o mouse sobre ele e arraste-o para o formulário.

Defina as propriedades do PictureBox1 como segue:

Width: 361
Size: 104

5. Em seguida, informe o código abaixo para o form1:

Código na imagem:

Imports System.IO
Imports System.Text
Imports System.Drawing

Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing.Text

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Valor As String

If Command() <> "" Then
Valor = Command()
Dim Barcode As New BarcodeLib.Barcode(Valor, BarcodeLib.TYPE.CODE128C)
PictureBox1.Image = Barcode.Encode(BarcodeLib.TYPE.CODE128C, Valor, 300, 150)
PictureBox1.Visible = True
Barcode.SaveImage("C:\NF-E\Barras\BARRAS.JPG", BarcodeLib.SaveTypes.JPG)

'MsgBox("Gerado com Sucesso")

End
End If
End Sub
End Class

Clique no menu Build na opção Build GerBarras.

A aplicação será gerada. Se não houverem erros, teste o executável gerado:

6. Encontre o diretório Bin\Release dentro dos fontes do projeto GerBarras. O caminho dos fontes no VB.NET sempre fica identificado com o nome do seu projeto. Exemplo:

C:\Vb.NEt Fontes\GeraBarras\GerBarras\GerBarras\bin\Release

Dentro do diretório Release está o GerBarras.exe que você acaba de criar.

7. Copie o GerBarras.exe para o C:\ da sua máquina.

8. Após isso, clique no botão Iniciar do Windows XP Professional (estou supondo que o sistema operacional na sua máquina é o Windows XP. Fiz este exemplo em uma máquina com o Windows XP), e selecione a opção Executar no Menu:

Na caixa Abrir, digite C:\GerBarras.exe 123456895

Pronto!

Um arquivo jpg apresentando o código de barras do número 123456895 será criado na pasta C:\Nfe-e\Barras.

É só ir até lá e conferir.

Você pode mudar o diretório mudando a linha:

Barcode.SaveImage("C:\NF-E\Barras\BARRAS.JPG", BarcodeLib.SaveTypes.JPG)

Para o diretório que achar mais apropriado.

Para chamar este pequeno aplicativo no Visual Basic 6, use o comando Call:

'Código de Barras a ser gerado

CodigoNfe = Right(TxtID, 44)

'Gerar Código de barras

Call Shell("C:\GerBarras.exe " & CodigoNfe)

Abraço a todos!!

NF-E: GERANDO RECIBO DE LOTE EM VB.NET

2009-04-11T06:35:00.001-07:00

A seguir é apresentado um pequeno aplicativo gerado em VB.Net 2008 para gerar o pedido de recibo de um lote NF-e enviado a Sefaz. Você deve construir o formulário de acordo com o modelo abaixo apresentado:

Dois Textboxs, três pequenos botões, duas labels e um OpenDialog. A tela gerada deverá ficar como a apresentada abaixo:

Para gerar o código do XML para o pedido de lote, vamos nos aproveitar de um código válido de pedido de lote. Acrescente a seguinte função a seu aplicativo. Ela será chamada quando o botão Pedir Recibo for pressionado, sendo alterada para os dados do arquivo de retorno de lote que você selecionar da pasta retorno:

Function criarDocumentoXML(ByVal Protocolo As String) As XDocument

'Usa o código de um recibo existente como base para a geração

'de um novo arquivo xml de pedido de lote

Return
< ?xml version="1.0" encoding="UTF-8"?>
<consReciNFe xmlns:xsi=http://www.w3.org/2001/XMLSchema-instance
xmlns:xsd="http://www.w3.org/2001/XMLSchema" versao="1.10" xmlns="http://www.portalfiscal.inf.br/nfe">
<tpamb

>2</tpamb>
<nrec>130000000177443</nrec>
</consReciNFe>

Return

End Function

Na cláusula general do formulário acrescente essas duas classes:

Imports System.Xml
Imports System.Xml.Linq

No OpenDialog altere as seguintes propriedades:

Filename: *.xml
InitialDirectory: C:\NF-E\Retorno

Dentro do botão com as reticências (...) acrescente o código de chamada do OpenDialog:

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

OpenFileDialog1.ShowDialog()
TxtArquivo.Text = OpenFileDialog1.FileName

End Sub

Esse simples código fará a abertura do diretório C:\NF-e\Retorno. Dentro dele, você deverá clicar em um arquivo num-lot de retorno válido. No exemplo da figura foi selecionado o arquivo 13090404672291000115550040000000270000000730-num-lot.xml.

Já deu para perceber o que estamos fazendo?

Vamos selecionar um arquivo num-lot de retorno da NF-e e usar o layout de um arquivo de pedido de lote pré-existente para gerar um novo arquivo de pedido de lote para o arquivo num-lot que selecionarmos.

Para fazer isso, fornecemos o arquivo num-lot. Mas também precisaremos do arquivo de recibo para pegar o número do Protocolo. Usaremos o arquivo num-lot selecionado para pegar o número do recibo constante dentro do mesmo e abrir o arquivo de recibo em sequência dentro do botão Gerar Lote.

O código para o botão Gerar Recibo é apresentado abaixo:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim NomeArquivoRecibo As String
Dim Protocolo As String
Dim Status As String
Dim ArquivoLote As String
'Dim CodigoErro As String
Dim Texto As String
' Dim NomeNfe As String
' Dim Tamanho As Integer
Dim Zeros As String

If TxtArquivo.Text = "" Then
MsgBox("Arquivo XML nÆo selecinado!!")
Exit Sub
TxtArquivo.Focus()
End If
Zeros = ""
ArquivoLote = TxtArquivo.Text
Status = ""
Protocolo = ""

'Abrir o arquivo de Status de Retorno
Dim xml As XElement = XElement.Load(ArquivoLote)
Dim elements As IEnumerable(Of XElement) = Xml.Elements()
Texto = xml.Element("NumeroLoteGerado").Value
If Len(Texto) = 1 Then Zeros = "00000000000000"
If Len(Texto) = 2 Then Zeros = "0000000000000"
If Len(Texto) = 3 Then Zeros = "000000000000"
If Len(Texto) = 4 Then Zeros = "00000000000"
NomeArquivoRecibo = "C:\NF-E\Retorno\" + Zeros + Texto + "-rec.xml"

'Abrir arquivo de recibo com os dados do arquivo de lote selecionado
'Dim testeXML As XElement = XElement.Load(NomeArquivoRecibo)
Dim reader As XmlTextReader = New XmlTextReader(NomeArquivoRecibo)
Do While (reader.Read())

Select reader.NodeType
Case XmlNodeType.Element
If reader.Name = "cStat" Then
Status = reader.ReadString
End If
'Obter o n£mero do protocolo
If reader.Name = "nRec" Then
Protocolo = reader.ReadString
End If

End Select
Loop
'Console.ReadLine()
reader.Close()
NomeProtocolo = Protocolo
If (Status <> "103") And (Protocolo = "") Then
MsgBox("Problemas com a Nf-e. Erro de Status: " + Status)
End If

'Gerando o novo arquivo de pedido de recibo
Dim arquivo As String = "C:\NF-E\Envio\" + Protocolo + "-ped-rec.xml"
Dim doc = criarDocumentoXML(Protocolo)
'Salvar o XML gerado
doc.Save(arquivo)

'Abrir agora o arquivo XML criado e inserir o Protocolo encontrado!!
Dim arquivo2 As String = "C:\NF-E\envio\" + Protocolo + "-ped-rec.xml"
Dim xDoc As New XmlDocument : xDoc.Load(arquivo)
'Declara um objeto Lista de Nodes
Dim nodeList As Xml.XmlNodeList
'Obtem todos os nodes para a lista com o nome desejado
nodeList = xDoc.GetElementsByTagName("nRec")
'Faz um la‡o para ler os nodes e alterar o seu conte£do.
For i As Integer = (nodeList.Count - 1) To 0 Step -1
nodeList.Item(i).InnerText = Protocolo
Next
'Salva o Arquivo
xDoc.Save(arquivo2)
LstValida.Text = arquivo2
MsgBox("Arquivo XML gerado com sucesso.")
'Timer1.Enabled = True
'carregaXML()

End Sub

O botão Close irá fechar o formulário chamado. Estou chamando este formulário de um outro:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'Fecha o formulário aberto. Altere para o comando END se for necessário sair do aplicativo
Me.Close()

End Sub

Com isso, apresentamos um modo rápido de gerar um pedido de recibo de um arquivo de lote.

Abraços a todos!!

VB.NET: DANFE EM CRYSTAL E CÓDIGO DE BARRAS 128C

2009-04-08T11:15:00.000-07:00

A Danfe pode ser gerada em Crystal 8.5 e depois migrada para dentro do Vb.NET ou,
se você preferir, totalmente criada dentro do VB.NET 2008 com a ferramenta Crystal
ali contida - muito mais poderosa e fácil de trabalhar.

Usar a DANFE em VB.NET 2008 possibilita utilizar um DATASET para gerar a leitura do arquivo XML da NF-e.

Usando o VB.NET 2008

É preciso acrescentar ao form o uso das bibliotecas necessárias:

Imports System.Xml
Imports System.IO
Imports System.Text

Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing.Text

Cada uma delas será necessária para o projeto em si

Isso se fará necessário quando o fornecedor da empresa enviar em vez da DANFE em pdf o arquivo XML propriamente dito. Muitas empresas além da DANFE impressa que acompanha a mercadoria podem disponibilizar o arquivo XML via e-mail da nf-e emitida.

LANÇANDO OS DADOS DO XML EM UM DATASET

Crie o DATASET normalmente e defina os campos do modo apropriada para receber os
dados do arquivo XML

No botão de impressão, você poderá definir os dados do seguinte modo:

Dim myDs1 As New DsXML1()
Dim myRow2 As DsXML1.DtDsXML1Row
Dim reader As XmlTextReader = New XmlTextReader(TxtArquivo.Text)

'DsXML1 é o nome do DATASET com o campos da XML

'abrindo o DATASET
myRow2 = myDs1.DtDsXML1.NewDtDsXML1Row

'Lendo o XML
Do While (reader.Read())

'Fazendo a seleção dos campos
Select Case reader.NodeType
Case XmlNodeType.Element 'Exibir o início do elemento.

If reader.HasAttributes Then 'Se existirem atributos
While reader.MoveToNextAttribute()

If reader.Name = "Id" Then
myRow2.IdChave = Mid(reader.Value, 4)
myRow2.Id = ValorTexto
endif

If reader.Name = "emit" Then
SelecionarEmitente = True
SelecionarDestinatario = False
End If

'----------------------------------------------------------
'Dados do EMITENTE
If SelecionarEmitente = True Then
If reader.Name = "CNPJ" Then
myRow2.EmitCNPJ = reader.ReadString
End If
If reader.Name = "IE" Then
myRow2.EmitIE = reader.ReadString
End If
If reader.Name = "xNome" Then
myRow2.EmitxNome = reader.ReadString
End If
If reader.Name = "xLgr" Then
myRow2.EmitxLgr = reader.ReadString
End If
If reader.Name = "xMun" Then
myRow2.EmitxMun = reader.ReadString
End If
If reader.Name = "UF" Then
myRow2.EmitUF = reader.ReadString
End If
If reader.Name = "CEP" Then
myRow2.EmitCEP = reader.ReadString
End If
End If

...
...

End Select
Loop

'Fecha o XML
reader.Close()
myDs1.DtDsXML1.AddDtDsXML1Row(myRow2)

'Imprimindo a DANFE
Dim caminho_imagem As String
caminho_imagem = "C:\NF-E\Barras\BARRAS.JPG"

Dim myRelatorio As New rptIAM()
myRelatorio.SetDataSource(myDs1)

myRelatorio.ParameterFields(0).AllowCustomValues = True
myRelatorio.ParameterFields(0).CurrentValues.AddValue(caminho_imagem)

'myRelatorio.SetParameterValue(0, caminho_imagem)
Me.CrvXml.ReportSource = myRelatorio

Me.CrvXml.Visible = True
TxtArquivo.Text = ""

Seguinte estes passos, você poderá imprimir a DANFE totalmente jogando os dados para um DATASET e associando este DATASET ao relatório em Crystal.

CÓDIGO DE BARRAS 128C para a NF-e

O BarcodeLib pode ser encontrado nas páginas do CodeProject (http://www.codeproject.com/KB/graphics/BarcodeLibrary.aspx), que se trata de uma área de projetos em várias linguagens da plataforma Vb.Net. O dll gerado pelo projeto
mostrado permite gerar o código de barras 128C no formato desejado pela NF-e.

Para integrar a dll no seu Projeto em Vb.Net você simplesmente precisa acessar em
seu projeto o menu Project - Properties e clicar em ADD, apontando para a pasta onde se encontra o barcodelib.dll.

Após acrescentar a DLL, acrescente a mesma à sua lista de bibliotecas no
início do form:

Imports BarcodeLib

Para gerar o código de barras do código da NF-e, basta usar o seguinte código:

Dim Barcode As New BarcodeLib.Barcode(ValorTexto, BarcodeLib.TYPE.CODE128C)
PictureBox2.Image = Barcode.Encode(BarcodeLib.TYPE.CODE128C, ValorTexto, 300, 150)
Barcode.SaveImage("C:\NF-E\Barras\BARRAS.JPG", BarcodeLib.SaveTypes.JPG)

Dim fs As New FileStream("C:\NF-E\Barras\BARRAS.JPG", FileMode.Open)
Dim br As New BinaryReader(fs)
myRow2.Imagem = br.ReadBytes(br.BaseStream.Length)

br.Close()
fs.Close()

br = Nothing
fs = Nothing

'myRow2 é um DATASET no qual está sendo jogado os dados da XML. Defina o
'campo que receberá o código de barras como sendo do tipo byte. No caso,
'o campo no dataset se chama Imagem

Após lançar a imagem dentro do campo imagem, basta arrasta este campo para a
área onde o código deverá ser impresso que a imagem será apresentada na visualização
do relatório

Arquivos disponíveis:

DANFE em Vb.NEt 2008
http://www.4shared.com/file/97470303/39ecd635/Danfe_VBNet.html

Danfe em Crystal 8.5
http://www.4shared.com/file/97468171/63f3f4ef/Danfe_Layout.html

BarcodeLib
http://www.4shared.com/file/97468816/a41cfd45/BarcodeLib.html

A BÍBLIA DO XML

2009-04-06T17:57:00.000-07:00

Essa aqui é para aqueles que precisam realmente de ajuda!!

Eis o link da Bíblia do XML no 4shared:

http://www.4shared.com/file/10594264/1d5c518f/XML_Programming_Bible.html

A única ressalva: está em inglês!!!

NF-E - XML PARA O VISUAL BASIC

2009-04-06T17:39:00.000-07:00

As funções abaixo ajudam na leitura de um arquivo XML da NF-e.

Você só precisa fazer a leitura das tags corretas e lançá-las na
base de dados - que pode ser em Access, SQL ou MySQL.

Para que funcione a contento, você precisa setar em References as
devidas bibliotecas associadas a MSXLM DOM.

As funções foram extraídas da internet.

'LENDO O XML
Private Sub LoadSettings()
Dim objNode As XMLNode
Dim objSubNode As XMLNode

'Does the Settings.xml file exist?
If PathExists("C:\NF-E\13090404672291000115550040000000280000000745-nfe.xml") Then
'Parse XML file and get top level node
Set objNode = XMLParse("C:\NF-E\13090404672291000115550040000000280000000745-nfe.xml", XML_FILE).Item("NFe")

Dim oRs As New ADODB.Recordset
Dim oRx As New ADODB.Recordset
Dim sSQL2 As String

'SE NÃO EXISTIR O MUNICÍPIO, INSERE OS DADOS DO MESMO
sSQL2 = "INSERT INTO XML(NFE, CUF, CNF) VALUES ( '" & _
Right(ID, 44) & "', '" & UF & "', '" & cNF & "')"

Cn.Execute sSQL2

MsgBox "LENDO OS DADOS COM SUCESSO!!", vbInformation, "XML"

End If
End Sub

Public Function Parse() As VBA.Collection
Dim strData As String
Dim i As Byte

'Get the XML data
If Flags And XML_FILE Then
'It is on disk so read it
strData = ReadFile(Data)
Else
'Otherwise just make a copy into our local
'variable (modifications are made)
strData = Data
End If

'Remove comments / id tags
StripTags strData, ""
StripTags strData, ""

'Remove the null characters
strData = Replace(strData, vbNullChar, vbNullString)

'Create a new collection
Set Parse = New Collection

'Are we supposed to overwrite data?
If Flags And XML_OVERWRITE Then
Set Nodes = Parse
End If

'Begin parsing!
ParseRec strData, Parse

End Function

Private Sub ParseRec(ByRef strData As String, ByVal colNodes As VBA.Collection)
'------------------------------------------------------------------
'Purpose: Recursive function which goes through all the data
' given to parse for XML until there is none left
'
'Params:
' strData: Data to parse
' colNodes: Current level collection of nodes
'------------------------------------------------------------------

Dim i As Long
Dim k As Long
Dim strValue As String
Dim strName As String
Dim objNode As XMLNode

'Find first <
i = InStrB(1, strData, "<")

'Keep looping while there are <
Do While i
'Alright there is a node; create a new one
Set objNode = New XMLNode

'Find end of first tag
k = InStrB(i, strData, ">")

'If there is no >, then we've got bad XML
If k = 0 Then
Exit Do
End If

'Extract data inbetween <>
strName = MidB$(strData, i + 2, k - i - 2)

'Check for a space in the name
i = InStrB(1, strName, " ")

'If there is a space, there may be attributes,
'otherwise no
If i Then
'Extract name of node
objNode.Name = LeftB$(strName, i - 1)

'Parse attributes if any
ParseAttr MidB$(strName, i + 2), objNode.Attributes

'If the name ends in a /, then there is no end tag
'otherwise there is
If AscW(RightB$(strName, 2)) = CHR_FSLASH Then
i = 0
Else
i = 1
End If
Else
'If the name ends in a /, then there is no end tag
'otherwise there is
If AscW(RightB$(strName, 2)) = CHR_FSLASH Then
'Trim off / from name
objNode.Name = LeftB$(strName, LenB(strName) - 2)
i = 0
Else
objNode.Name = strName
i = 1
End If
End If

'If i is non-zero, then we have to find the end tag
If i Then
'Find end tag position
i = InStrB(k, strData, "")

'Did we find it?
If i Then
'Extract value
strValue = MidB$(strData, k + 2, i - k - 2)

'Parse any nodes which might be inside
ParseRec strValue, objNode.Nodes

'Unescape escape sequences
objNode.Value = XMLUnescape(strValue)

If objNode.Name = "cUF" Then
UF = objNode.Value
End If
If objNode.Name = "cNF" Then
cNF = objNode.Value
End If
'Should equal position of last character for this node
k = i + LenB(objNode.Name) + 4
Else
'Malformed XML; quit
Exit Do
End If
End If

'Remove parsed data from string
strData = MidB$(strData, k + 2)

'Index node in collection
On Error Resume Next
colNodes.Add objNode, objNode.Name

'If an error occured, then we should add it to
'the collection without indexing it (it's already taken)
If Err.Number Then
colNodes.Add objNode

'Clear error
Err.Clear
End If

'Find next <
i = InStrB(1, strData, "<")
Loop

End Sub

Private Sub ParseAttr(ByRef strAttr As String, ByVal colAttr As VBA.Collection)
'------------------------------------------------------------------
'Purpose: To parse an attribute list for an XML tag and to place
' them inside the collection
'
'Params:
' strAttr: List of attributes/values seperated by
' spaces
' colAttr: Collection to add XMLAttr objects to
'------------------------------------------------------------------

Dim c As Integer
Dim i As Long
Dim objAttr As XMLAttr

'Find first equal's sign
i = InStrB(1, strAttr, "=")

'Loop as long as there are attributes
Do While i
'Create new attribute
Set objAttr = New XMLAttr

'Extract name (may have leading space(s))
objAttr.Name = LTrim$(LeftB$(strAttr, i - 1))

'Skip ahead to value
strAttr = MidB$(strAttr, i + 2)

'Get first character
c = AscW(strAttr)

'How is the attributed formated; surrounding quotes or no?
Select Case c
Case CHR_SQUOTE, CHR_DQUOTE
'Find ending quote
i = InStrB(3, strAttr, ChrW$(c))

'Did we find it?
If i Then
'Extract value and skip past this attribute
objAttr.Value = XMLUnescape(MidB$(strAttr, 3, i - 3))
strAttr = MidB$(strAttr, i + 2)
Else
'Bad XML!
Exit Do
End If
Case Else
'A space then will herald then end
i = InStrB(1, strAttr, " ")

'Did we find one?
If i Then
'Extract value and then skip past current attribute data
objAttr.Value = XMLUnescape(LeftB$(strAttr, i - 1))
strAttr = MidB$(strAttr, i + 2)
Else
'It is the last attribute; copy remaining data and
'exit loop
objAttr.Value = XMLUnescape(strAttr)
Exit Do
End If
End Select

If objAttr.Name = "Id" Then
ID = objAttr.Value
End If

If objAttr.Name = "UF" Then
UF = objAttr.Value
End If

'Add to collection
colAttr.Add objAttr, objAttr.Name

'Find next attribute
i = InStrB(1, strAttr, "=")
Loop

End Sub

Public Function XMLUnescape(ByRef strData As String) As String
'------------------------------------------------------------------
'Purpose: Converts escape sequences for XML into the actual
' characters
'
'Params:
' strData: String to search for escaped characters in
'
'Returns: String with escaped characters converted back to actual
' representation
'------------------------------------------------------------------

Dim i As Long

XMLUnescape = strData

If LenB(XMLUnescape) Then
i = InStrB(1, XMLUnescape, "&")

'If there is a & in the string, that is where we should start searching
If i Then
'Make sure there is a semi colon, telling us there may be escape sequences
If InStrB(i, XMLUnescape, ";") Then
'Escape various illegal characters
If InStrB(i, XMLUnescape, "<") Then XMLUnescape = Replace(XMLUnescape, "<", "<")
If InStrB(i, XMLUnescape, ">") Then XMLUnescape = Replace(XMLUnescape, ">", ">")
If InStrB(i, XMLUnescape, """) Then XMLUnescape = Replace(XMLUnescape, """, """")
If InStrB(i, XMLUnescape, "'") Then XMLUnescape = Replace(XMLUnescape, "'", "'")
If InStrB(i, XMLUnescape, "&") Then XMLUnescape = Replace(XMLUnescape, "&", "&")
End If
End If
End If

End Function

Public Function XMLParse(ByRef strData As String, ByVal lngFlags As Long) As VBA.Collection
'------------------------------------------------------------------
'Purpose: Wrapper method to quickly parse an XML document
'
'Params:
' strData: Data property of XMLDoc
' lngFlags: Flags property of XMLDoc
'
'Returns: Reference to top-level nodes collection
'------------------------------------------------------------------

Dim objXML As XMLDoc

'Create new XML object
Set objXML = New XMLDoc

'Copy data/flags params
objXML.Data = strData
objXML.Flags = lngFlags

'Parse / return collection
Set XMLParse = objXML.Parse()

'Destroy XMLDoc reference
Set objXML = Nothing

End Function

CONHECIMENTOS PRÁTICOS VB

2008-05-06T09:40:00.000-07:00

CONHECIMENTOS PRÁTICOS
VISUAL BASIC

1. Você acabou de instalar o Visual Basic 6 na sua máquina. O computador no qual você está realizando esta instalação é novo. A aplicação que você desenvolveu utiliza o Spread na maioria de seus formulários e o Crystal Reports para os relatórios. Os fontes de seu aplicativo só poderão ser acessados por este computador ligado através do Visual Basic se:

a. ( ) O aplicativo Spread estiver instalado na máquina e os acessos a base de dados devidamente configurados
b. ( ) O aplicativo Crystal Reports estiver instalado na máquina e os acessos a base de dados devidamente configurados
c. ( ) O aplicativo Crystal Reports estiver instalado na máquina, o aplicativo Spread devidamente instalado e os acessos a base de dados devidamente configurados
d. ( ) A máquina estiver ligada, o Visual Basic instalado e os fontes disponíveis para acesso e a base de dados acessível
e. ( ) A máquina estiver ligada, o Visual Basic instalado, o aplicativo Crystal Reports estiver instalado na máquina, o aplicativo Spread devidamente instalado e os acessos a base de dados devidamente configurados

2. Na situação descrita na pergunta 01, o que aconteceria aos fontes de um aplicativo Visual Basic, se os mesmos fossem abertos na máquina e o usuário salvasse o projeto na saída?

3. Ainda na situação descrita na pergunta 01, que prática deve ser adotada para se abrir os fontes com o novo equipamento de modo a não comprometê-los para uso em um dos outros computadores de utilização para desenvolvimento?

4. No caso de os fontes de uma aplicação em Visual Basic serem comprometidos, que práticas adotadas pelos desenvolvedores podem contornar o problema e/ou como o mesmo poder ser contornado?

5. Como se registra uma dll que esteja faltando para um aplicativo Visual Basic e em que pasta esta dll deve ser inserida em uma máquina com o sistema operacional Windows XP?

6. Que aplicativo utilitário pode ser utilizado para realizar consultas em uma base de dados SQL Server e quais os comandos mais comuns utilizados para realizar tais tarefas?

7. Nas linhas de código abaixo, relacione os erros que ocorrerão após uma compilação:

Option Explicit

Private Sub Form_Load()
Me.Top = 2370
Me.Left = 3405
SU_CarregaGrid
End Sub

Sub SU_CarregaraGrid ()

sSQL = "SELECT Codigo, sigla, Nome FROM Fabric WHERE isnull(CodLocalFab,'')='2' ORDER By Codigo"
sSQL = sSQL & "; SELECT @@RowCount"

oRS.Open sSQL, oDB, adOpenForwardOnly

If Not oRS.EOF Then
sClip = oRS.GetString(adClipString, , vbTab, vbCrLf)
Set oRS = oRS.NextRecordset
iLinhas = oRS.Fields(0)
End If
oRS.Close
Set oRS = Nothing

' Carrega a Grid
With grdDados
.Col = 1
.Col2 = .MaxCols
.Row = 1
.Row2 = iLinhas
.MaxRows = iLinhas
.Clip = sClip
End With
Screen.MousePointer = vbDefault

End Sub

8. Descreva os passos de como ativar a utilização de um componente Adodc no Visual Basic:

9. Crie um procedimento em Visual Basic para ler e abrir um arquivo-texto com os campos Nome, Endereço e telefone de nome agenda.txt. Os dados do arquivo-texto agenda.txt devem ser extraídos de uma base de dados chamada func.mdb.

Seguem as estruturas do arquivo e da tabela:

Arquivo Agenda.txt:

Sem cabeçalho

Detalhe:

Nome (50 caracteres)

Endereço (100 caracteres)

Telefone (10 caracteres)

CRLF

Sem rodapé

Tabela func.mdb:

ID: AutoNumeração

Nome: Texto(50)

Endereco: Texto(100)

Telefone: Texto(10)

(Deixar aqui um espaço de uma folha)

10. Cite o endereço de três sites que você pode consultar para pesquisa de informações sobre o uso do Visual Basic na busca de informações sobre o uso de um componente, código- exemplos ou dúvidas freqüentes:

Nota: A prova tem duração de 90 minutos. Leia atentamente cada questão antes de responder. Não rasure sua prova, nem escreva fora das linhas demarcadas. Use letra de forma, se possível, e tente ser o mais claro possível em suas respostas.

BOA SORTE!!!