Guilherme Braga

TESTE 115: Exclusão/Inclusão de dados - BLOCO VII

2013-06-13T07:18:00.000-07:00

A partir do Roteiro de análise funcional do PAF-ECF versão 1.6 Aplicável à versão 1.08 do ER-PAF-ECF foi implementado o teste 115 do Bloco VII que diz respeito a Exclusão/Inclusão de dados. Esse requisito é para identificar os registros que foram incluídos ou excluídos fora do PAF-ECF, ou seja, por outra aplicação ou diretamente no banco de dados. Com Isso na geração do arquivo eletrônico irá identificar com o caracter "?" no respectivo campo definido no alínea c) do REQUISITO – Observações – “b”.

Muitos desenvolvedores estão implementando Trigges em seus banco de dados para identificar os registros incluídos e excluídos fora do PAF-ECF, porém alguns Órgãos não estão aceitando a utilização da trigger, pois alegam que a mesma pode ser ativada ou desativada a qualquer momento. A dica para tratar esse requisito é criar uma tabela de controle de registro onde a mesma irá armazenar a quantidade total de registros das tabelas.

Exemplo da Tabela de Controle:

TABELA	QTD. REGISTROS
TABPRODUTO	1000
TABESTOQUE	500
TABDAV	750
...	...

Toda vez que for incluído ou excluído um registro no PAF-ECF irá ser atualizado a quantidade de registro dessa tabela de controle.

No momento da geração dos arquivos eletrônicos o PAF-ECF irá fazer a comparação entre a quantidade de registro existente na tabela (Select count(*) from TabProduto) com a quantidade de registro existente na tabela de controle. Se for diferente é porque algum registro dessa tabela foi incluído ou excluído por fora do PAF-ECF. Nesse caso o arquivo eletrônico terá que identificar com o caracter "?".

Nota da Gente

2012-01-07T16:42:00.000-08:00

Projeto de Lei, do estado de Sergipe, que dispõe sobre a criação do Programa de Estímulo à Cidadania Fiscal e Tributária que foi aprovado pela Assembléia Legislativa. O objetivo do programa é estimular nos cidadãos que adquirem mercadorias, o hábito de exigir do fornecedor a Nota ou o Cupom Fiscal. Desde Outubro de 2011, de acordo com a atividade econômica de cada estabelecimento, estão sendo obrigados a aderirem a essa legislação (7000/2010). Para os programas de aplicativos fiscais que utilizam emissor de cupom fiscal (PAF-ECF), terão que disponibilizar as seguintes funcionalidades para atender a portaria 365/2011:

Opção de imprimir o CNPJ/CPF do consumidor no cupom fiscal;

As bibliotecas das maiorias dos ECFs dispõe dessa funcionalidade.

Gerar arquivo digital contendo informações relativas aos documentos emitidos pelo ECF;

Para quem já gera o arquivo CAT-52 já está atendendo a essa exigência, pois o leiaute atende também ao 365/2011. Para quem não gera, as bibliotecas das maiorias dos ECFs também tem disponível essa funcionalidade. A geração desse arquivo é baseado no Ato Cotepe/icms 17/04. Para ECFs que não tem essa funcionalidade o PAF-ECF terá que gerar as informações de acordo com os dados armazenados seguindo esse ato cotepe. Algums ECFs, mediante configuração, geram esse arquivo diariamente, automaticamente após a redução Z. O ideal é gerar esse arquivo diariamente para se precaver em caso da impressora quebrar, e no final do mês gerar um único arquivo substituindo todos os gerados diariamente e fazer a importação do mesmo no sistema da nota da gente.

Gravar esse arquivo gerado em mídia ótica não regravável.

Gravar esses arquivo em um disco rígido, por exemplo.

Conservar e manter o arquivo digital gerado pelo prazo previsto no art. 173 do regulamento do ICMS, para disponibilização ao fisco quando solicitado.

Essa responsabilidade é do estabelecimento, de toda forma o PAF-ECF pode armazená-lo em banco de dados por opção.

Atenção !!!

Corram porque, se não for adiado, o prazo final de adesão a esse programa é até Janeiro de 2012.

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF

2011-12-02T06:22:00.001-08:00

Abaixo links para download de algumas versões do roteiro de análise funcional PAF-ECF:

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF 1.3 Aplicável à 1.04

http://www.megaupload.com/?d=PMC246YW

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF 1.4 Aplicável à 1.05

http://www.megaupload.com/?d=EHQ6F9L7

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF 1.5 Aplicável à 1.07

http://www.megaupload.com/?d=89RXLHFP

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF 1.6 Aplicável à 1.08

http://www.megaupload.com/?d=VVW5X1BI

ROTEIRO DE ANÁLISE FUNCIONAL PAF-ECF 1.7 Aplicável à 1.09

http://www.megaupload.com/?d=UQSEOZW2

ATO COTEPE/ICMS N° 6, DE 14 DE ABRIL DE 2008

2011-12-02T05:11:00.001-08:00

Abaixo links para download de algumas versões da especificação de requisito do PAF-ECF:

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.02)

http://www.megaupload.com/?d=HTQL3LO1

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.05)

http://www.megaupload.com/?d=6R97X5E6

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.06)

http://www.megaupload.com/?d=OAFRM8B0

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.07)

http://www.megaupload.com/?d=DLH615Q9

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.08)

http://www.megaupload.com/?d=WQEU3FLS

ATO COTEPE/ICMS 06.08 (ER-PAF-ECF Versão 01.09)

http://www.megaupload.com/?d=DXWKVNQE

Exclusão de dados do Bloco VII do PAF-ECF

2011-08-24T19:39:00.000-07:00

Pessoal,

No bloco VII da versão 01.08 do ER-PAF-ECF, vem com uma novidade que é tratar também a exclusão/inclusão de dados no banco de dados. Levando em consideração a lógica que passei no post anterior "Bloco VII do PAF-ECF" (http://guilhermebragaf1.blogspot.com/2011/07/bloco-vii-do-paf-ecf.html), tratar a inclusão é fácil, é só utilizar a mesma lógica para tratar a alteração de dados, no entanto como tratar um registro excluído ?

Utilizei a seguinte lógica:

Criei uma trigger para cada tabela que faz parte dos registros dos arquivos que terão que evidenciar a exclusão de dados. Essa trigger identifica qual o programa que está executando a exclusão. Se a exclusão não for executada pela minha aplicação a trigger irá inclui esse registro, que está sendo excluído, em uma tabela auxiliar, criando assim uma tabela de log só para os registros excluídos da tabela principal. Quando minha aplicação gerar os arquivos eletrônicos, irá ler também essas tabelas auxiliares para identificar os registros que foram excluídos das suas tabelas principais para serem também contemplados no arquivo eletrônico.

Abaixo mostro como fica mais ou menos a trigger utilizando uma aplicação feita em Visual Basic com banco de dados SQL Server:

CREATE TRIGGER NOME_DA_TRIGGER
   ON NOME_DA_TABELA
   AFTER DELETE
AS
BEGIN
    DECLARE @PROGRAMA VARCHAR(300)

    SELECT @PROGRAMA = PROGRAM_NAME FROM SYS.SYSPROCESSES WHERE SPID = @@SPID

    IF @PROGRAMA <> 'VISUAL BASIC'
    BEGIN
        -- AQUI SERÁ FEITO A INCLUSÃO DO REGISTRO QUE ESTÁ SENDO EXCLUÍDO NA TABELA AUXILIAR PARA
-- QUE SEJA INCLUÍDO COM O CARACTER "?" NA GERAÇÃO DO ARQUIVO ELETRÔNICO
    END
END
GO

Especificação de Requisitos do PAF-ECF versão 01.08

2011-08-23T10:29:00.000-07:00

Pessoal,

Listo abaixo os principais pontos da Especificação de Requisitos do PAF-ECF versão 01.08:

Uma pré-venda ou um DAV que ainda não tiver sido impresso o seu cupom fiscal, poderá ser adicionado mais itens (Requisito V, Item 7 / Requisito VI Item 8);
Quando o consumidor desistir de algum item da Pré-venda ou do DAV, não poderá ser excluído. Nesse caso terá que marcar o item como cancelado para quando imprimir o cupom fiscal o mesmo ser impresso e cancelado. No caso de impressão do DAV, imprimir a expressão "cancelado" ao lado da descrição do item (Requisito V, Item 8 / Requisito VI Item 9);
Não será permitido alterar a quantidade de um item já registrado na Pré-venda ou DAV. Nesse caso terá que registrar um novo item (Requisito V, Item 9 / Requisito VI Item 10);
Não é permitido a alteração de DAV impresso (Requisito VI, Item 11);
A função “Estoque” não se aplica ao PAF-ECF para uso por Prestador de Serviço Transporte de Passageiros (Requisito VII, Item 1, Teste 013);
"ESTOQUE", criação de 2 categorias: "ESTOQUE TOTAL", contendo todos os produtos e "ESTOQUE PARCIAL", contendo só os produtos informado pelo usuário. Nesse caso terá que possibilitar ao usuário selecionar, tanto por código quanto por descrição, os produtos que irão contemplar o arquivo eletrônico (Requisito VII, Item 8);
"DAV EMITIDOS", alteração na impressão e no leiaute (Requisito VII, Item 11);
“ENCERRANTES”, alteração no leiaute (Requisito VII, Item 12);
"Parâmetros de Configuração", Impressão em relatório gerencial contendo todas as configurações do PAF-ECF. Exemplo: "Porta Pinpad = 02". Não existe leiaute para essa impressão (Requisito VII, Item 21);
ara estabelecimentos situado no estado de Minas Gerais, imprimir o código composto por informações relativas ao respectivo cupom fiscal (Requisito VIII-A);
A listagem dos executáveis e seus MD5 que é gerada na inicialização do PAF-ECF, terá que seguir o leiaute do anexo X (Requisito IX, Item 1);
O PAF-ECF deve ser capaz de emitir, transmitir e armazenar a Nota Fiscal Eletrônica (NF-e), nos termos de Ajuste SINIEF, devendo imprimir, no campo reservado ao fisco, o mesmo código de MD5 que é impresso no Cupom Fiscal. Atenta para levar um token no dia da homologação para fazer os testes necessários desse requisito (Requisito XXVIII, Item 1A);
Ao final do dia de movimento imprimir um cupom fiscal para cada abastecimento pendente e finalizar em “dinheiro”. Imprimir também ao final do dia o volume (EF-EI-VTACF-VTANF-AFER) remanescente, maior do que zero, para cada bico/bomba um cupom fiscal e finalizar em “dinheiro”. Caso haja impossibilidade de emissão de redução z de todos os ECF, será possível imprimir esses cupons fiscais ao final do movimento do dia seguinte considerando os abastecimentos realizados e documentos fiscais emitidos no dia corrente e no dia anterior (Requisito XXXV, Item 1);
O PAF-ECF para uso por posto revendedor de combustível deve possuir parâmetro para, a critério da unidade federada, impedir o registro de operação de venda e a emissão de Cupom Fiscal, quando detectar estoque zero ou negativo do respectivo produto (Requisito XXXVI-A, Item 1);
“Identificação do PAF-ECF”, novas informações na impressão (Requisito VII, Item 17);
Em todos os documentos, relatórios, arquivos e comandos previstos neste anexo, a expressão DAV-OS pode ser substituída pelo termo Conta(s) de Cliente(s) (Requisito XLI-A, Todos os Itens);
Teste de emissão de cupom fiscal com arquivo auxiliar de configuração de ECF inexistente (Requisito XXII, Teste 072-A);
Revisar o Bloco VII, pois agora o mesmo está levando em consideração exclusão e inclusão de dados no banco de dados dos arquivos eletrônicos (Bloco VII, “c”);

Boa Sorte !!!

Estorno de Cupom Fiscal Cancelado

2011-07-21T10:18:00.000-07:00

Por exigência do fisco, os ECFs (Emissores de cupons fiscais) só permitem o cancelamento do último cupom fiscal, se o cancelamento ocorrer imediatamente após a venda, isto é, sem que seja iniciada a emissão de qualquer outro documento pelo ECF, este poderá ser feito pelo próprio equipamento.

Muitos contribuintes não sabem como proceder quando não conseguem cancelar a venda. Um exemplo que ocorre muito é o estorno de uma venda que foi recebida com cartão, por ela ter um comprovante vinculado ao cupom fiscal o ECF não permite seu cancelamento.

Nesse caso o contribuinte deve emitir uma nota fiscal de entrada, a fim de poder se recuperar do imposto debitado na operação de saída ora cancelada e anexar o cupom fiscal a essa nota fiscal de entrada. Observar as demais disposições estabelecidas para essa emissão.

Essa orientação foi divulgada no site do Estado do Rio de Janeiro (www.receita.rj.gov.br), por intermédio dos esclarecimentos de 25 a 29/9/00, que sua utilização serve para qualquer estado.

Bloco VII do PAF-ECF

2011-07-14T09:50:00.000-07:00

Esse bloco serve para que seja identificado na visualização dos arquivos eletrônicos quais os registros que sofreram alterações que não foram feitas pelo PAF-ECF, ou seja, se algum registro for alterado via banco de dados ou por qualquer outro programa que não seja o PAF-ECF é para ser identificado com o caracter "?" conforme o requisito "b".

Abaixo irei mostrar como implementei esse requisito utilizando o ER-PAF-ECF versão 01.07:

BLOCO VII
DADOS TÉCNICOS PARA GERAÇÃO DA ASSINATURA DIGITAL DO
REGISTRO TIPO EAD
ANEXO VIII DO ATO COTEPE 06/08

REQUISITO – Observações – “b”

b) A alteração de dados no arquivo eletrônico assinado digitalmente deverá ser evidenciada,
apenas nos registros alterados, mediante a substituição de brancos pelo caractere “?” no
campo:
b.1) “Modelo do ECF” no caso do registro tipo D2 constante no Anexo III;
b.2) “Unidade” no caso do registro tipo E2 constante no Anexo IV;
b.3) “Unidade” no caso do registro tipo P2 constante no Anexo V;
b.4) “Modelo do ECF” no caso dos registros tipo R01, R02, R03, R04, R05, R06 e R07
constantes no Anexo VI;
b.5) “Tipo de documento” no caso do registro tipo T2 constante no Anexo VII.

Vou fazer um exemplo da geração do arquivo E2 (Estoque) para demostrar a lógica que utilizei:

No banco de dados do PAF-ECF criei um campo chamado "chave" no final de todas as tabelas envolvidas diretamente na construção dos arquivos eletrônicos do requisito "b". Esse campo "chave" guarda a combinação de todos os dados do registro criptografado (estou utilizando o algoritmo de criptografia do MD5, mas nesse caso pode utilizar qualquer algoritmo).

Vamos tomar como base a estrutura da tabela de produto abaixo:

Toda vez que inserir ou alterar os registros nessa tabela é feito a criptografia dos campos desse registro e o resultado é colocado no campo chave. Na prática, é gerar a criptografia da combinação dos campos (Codigo, Descricao, Unidade, Estoque e DataEstoque) e colocar o resultado no campo Chave, toda vez que incluir ou alterar o produto.

Incluimos o seguinte produto:

Na geração dos arquivos eletrônicos é feito uma validação desse campo chave para verificar se os dados criptografado batem com o dado do campo chave. Se não bater é porque o registro foi modificado fora do PAF-ECF, nesse caso irá ser colocado o caracter "?".

Quando geramos o arquivo eletrônico de estoque, sem modificar esse registro fora do PAF-ECF, ele irá ficar assim:

E21137675300011200000000001001Blusa Un +00000000020110518

Quando geramos o arquivo eletrônico de estoque modificando esse registro fora do PAF-ECF ele irá ficar assim:

E21137675300011200000000001001Blusa ??????+00001000020110518

Nesse caso alterei o valor do estoque, via banco de dados, para 100.

E assim utilize essa lógica para as demais tabelas e os demais tipos de arquivos eletrônicos.

Boa Sorte !!

Requisito IX do PAF-ECF

2011-07-07T19:12:00.000-07:00

Esse requisito tem como objetivo garantir que o PAF-ECF homologado não sofreu alteração, pois se o mesmo sofrer alguma alteração o MD5 que será impresso no cupom fiscal não vai ser mais o mesmo que foi homologado e registrado.
Ao implementar esse requisito cuidado para não utilizarem qualquer gerador de MD5 existente na web. Aconselho a utilizar o FSUM (http://www.slavasoft.com/fsum/) que é o adotado pela Secretaria da Fazenda.
Abaixo mostro na prática como implementar esse requisito. Para isso irei mim basear na especificação de requisitos do PAF-ECF (ER-PAF-ECF) versão 01.07.

ITEM 1: O PAF-ECF deve a cada inicialização:

a) gerar, por meio do algoritmo Message Digest-5 (MD-5), código de autenticação para
cada arquivo executável que realize os requisitos estabelecidos nesta especificação;

Vamos levar em consideração que o seu PAF-ECF tem os seguintes executáveis e a seguinte estrutura:

C:\Sistema\Caixa.exe
C:\Sistema\Retaguarda.exe

Com o arquivo fsum.exe (que nesse caso vamos colocá-lo na pasta C:\Sistema), execute o seguinte comando para gerar o MD5 de cada executável:

C:\Sistema\fsum.exe -md5 -r -dC:\Sistema Caixa.exe >c:\md5_exe1.txt
C:\Sistema\fsum.exe -md5 -r -dC:\Sistema Retaguarda.exe >c:\md5_exe2.txt

b) gerar um arquivo texto, conforme o leiaute estabelecido no Anexo X do Ato
COTEPE/ICMS 06/08, contendo a lista de arquivos autenticados, e seus respectivos
códigos MD-5;

Exemplo desse arquivo texto:

C:\Sistema\Caixa.exe B7FAB699933E6FD3D3B3C449FDBBB66B
C:\Sistema\Retaguarda.exe 6BFDAE60F5C91449A6297B36EBAF71DE

Vamos chamar esse arquivo de Lista.txt

c) gerar, por meio do algoritmo Message Digest-5 (MD-5), código de autenticação do
arquivo TXT a que se refere a alínea “b” e gravar o resultado no arquivo auxiliar
criptografado e inacessível ao estabelecimento usuário de que trata o item 4 do Requisito XXII, sobrepondo à gravação anteriormente realizada, devendo este código ser impresso no Cupom Fiscal, no campo:

Aqui vamos gerar o MD5 do arquivo Lista.txt:

C:\Sistema\fsum.exe -md5 -r -dC:\Sistema Lista.txt >c:\Assinatura.txt

c1) "informações complementares", no caso de ECF que disponibilize este campo, devendo utilizar este campo para esta informação e iniciando a impressão na primeira coluna, disponibilizada pelo software básico do ECF, da primeira linha, precedido pela mensagem “MD-5:”

c2) "mensagens promocionais", no caso de ECF que não disponibilize o campo
"informações complementares", devendo utilizar a primeira linha para esta informação e iniciando a impressão na primeira coluna disponibilizada pelo software básico do ECF, precedido pela mensagem “MD-5:”

Agora é só ler o arquivo Assinatura.txt a cada cupom fiscal e colocar a seguinte informação em "mensagens promocionais" ou "informações complementares", dependendo da impressora fiscal.

Exemplo:

MD5: 1055d3e698d289f2af8663725127bd4b

Exemplo Rede Neural (Inteligência Artificial)

2011-07-06T10:21:00.000-07:00

Quando paguei a disciplina de Inteligência Artificial na faculdade, tive que fazer um pequeno projeto para treinar uma rede neural usando o modelo perceptron para reconhecer a assinatura de um usuário a partir de um desenho. Abaixo disponibilizo o código-fonte desse projeto que fiz em visual basic.

Download: http://www.megaupload.com/?d=MSU2D579

Alterando resolução do Monitor

2011-07-05T18:47:00.000-07:00

Abaixo disponibilizo um projeto que mostra como alterar a resolução do monitor.

Download: http://www.megaupload.com/?d=9FP7CK0Y

Cursores de um Recordset ADO

2011-07-05T18:18:00.000-07:00

O que são Cursores?

No ADO, quando nós falamos em cursores, estamos falamos sobre uma linha.
Quando você executa uma consulta que retorna vários registros, por exemplo SELECT * FROM Tabela, o resultado usa um cursor para navegar nos registros. O cursor pode ser usado no cliente com o argumento AdUseCliente, ou no servidor com o argumento AdUseServer.Os 4 tipos de cursores são:

AdOpenForwardOnly
AdOpenStatic
AdOpenDynamic
AdOpenKeyset.

Cursor Local (CursorLocation)
O objeto ADODB.Connection (O objeto ADO usado para as trocas de dados entre a aplicação VB e o MySQL Server) tem uma propriedade chamada CursorLocation que é usada para enviar/receber a posição do cursor que será usado por qualquer objeto RecordSet que acessará seus dados através do objeto Connection. As duas opções possíveis para essa propriedade são AdUseServer (padrão) e AdUseCliente .

AdUseServer
Quando você usa o AdUseServer, a responsabilidade para manipulação dos dados gerados pela consulta fica com o banco de dados no servidor. O próprio MySQL não suporta cursores no servidor, então o manipulador dos dados é o Driver ODBC.
O benefício do cursor no lado do servidor é que nós ganhamos acesso ao tipo de cursor dinâmico. Isso permite que nós vemos qualquer as mudanças nos dados que são feitas por outros usuários nos dados que sua aplicação está acessando.

Por exemplo: vamos dizer que você esteja vendendo bilhetes para um concerto com sua aplicação, você precisa saber qual assento está disponível para venda no tempo real para que não seja vendido duas vezes.
Com o cursor no lado do servidor, você tem certeza que os dados que está sendo manipulado é o mais atual. Além que você tem a possibilidade de travar os dados que você está trabalhando quando é editado, para certificar que as mudanças ser gravadas com sucesso no banco de dados.

Com o cursor no lado do servidor (AdUseServer), nós temos acesso aos cursores AdOpenDynamic e AdOpenForwardOnly, e todos os quatro tipos de travamento do RecordSet, que será discutido ao longo do artigo.
Deve-se observar que usando um cursor no lado do cliente, e o cursor AdOpenDynamic em particular, resultará em perda significativa do desempenho, e deve ser evitado quando possível. Além disso, certas funcionalidades, como a propriedade RecordCount do Recordset e as funções GetChunk e AppendChunk para manipulação de campos BLOB, falhará ou retornará resultados anormais quando é usado o cursor no lado do servidor.

AdUseClient
Cursores no lado do cliente, especificado com a palavra-chave AdUseCliente, a manipulação é interna do ADO. Estes cursores oferece mais funcionalidade do que o cursor no lado do servidor e resulta em menos carga ocupada no servidor. A maioria da funcionalidade avançada do ADO é projetado para uso com o cursor no cliente.
E eu pessoalmente uso o cursor do cliente para minhas aplicações (com algumas exceções).
Quando é usado o cursor do cliente (AdUseClient), apenas o cursor AdOpenStatic é disponível, e nós não podemos usar tipo de travamento(LockType) AdLockPessimistic.
O cursor do cliente diminui a carga no servidor do MySQL, desde que com o dado de cursor estático é enviado ao cliente, então o servidor não tem nenhuma comunicação adicional com o cliente. Isso permite que seu servidor escale muito melhor do que com o cursor no lado do servidor.

Tipos de Cursor (CursorTypes)
Além dos dois cursor locais(AdUseServer e AdUseClient), existe quatro tipos de cursor, três são suportados pelo ODBC:
AdOpenStatic (lado do cliente)
AdOpenForwardOnly (lado do servidor)
AdOpenDynamic (lado do servidor)

Os tipos de cursor tem características e funcionalidades diferentes e eu irei discutir isso com mais detalhes. O quarto tipo de cursor, adOpenKeyset, não é suportado pelo MySQL e MyODBC.

AdOpenStatic
O cursor estático é o único cursor disponível quando se usa o adUseClient. Com o cursor estático, o servidor emitirá o resultado ajustado no cliente, depois não haverá nenhuma mais nenhuma comunicação adicional do servidor ao cliente.

O cliente pode comunicar-se devolta com o servidor para enviar as mudanças no servidor. A maioria dos recursos vai para o cliente do que o servidor com o cursor estático, ou seja, o resultado é armazenado na memória do cliente ao invés do servidor.

Se um cliente diferente fizer mudanças nos dados do servidor depois que uma consulta é enviado, o outro cliente não reberá nenhuma notificação das mudanças. O cursor estático é bi-direcional , isso significa que a sua aplicação pode mover o anterior e o próximo registro do RecordSet.

Os seguintes métodos são disponíveis ao RecordSet usando o cursor estático e o tipo de travamento adLockOptmistic (breve mais tipos de travamento)

AddNew
Delete
Find
MoveFirst
MovePrevious
MoveNext
MoveLast
Resync
Update
UpdateBatch
O cursor estático mostrará também um valor exato para a propriedade RecordCount do seu RecordSet, e suporte aos métodos GetChunk e AppendChunk para tratar campos BLOB.

Uma característica do cursor estático é a capacidade buscar dados asynchronously. Quando os dados buscados forem asynchronously, uma linha separada segura a recuperação dos registros, e sua aplicação VB pode retornar registros automaticamente.

Este assunto fica pendente, mas se você quiser testar essa característica, use o adFetchAsync durante a chamada do método RecordSet.Open. Se você especificar qualquer outro tipo de cursor que não seja adOpenStatic usando o adUseClient, será automaticamente convertido para cursor estático.

AdOpenForwardOnly
O adOpenForwardOnly é o tipo de cursor mais rápido de todos, mas tem algumas limitações. O adOpenForwarOnly não suporta a propriedade RecordCount e o método MovePrevious do objeto RecordSet.

A forma mais eficiente de se fazer uma consulta é usando o adOpenForwardOnly com o cursor de travamento adLockReadOnly. Apenas os métodos seguintes do RecordSet são suportados por um cursor adOpenForwardOnly e um travamento Optimistic:

AddNew
Delete
Find
Update
UpdateBatch
Com o MySQL e MyODBC, nós podemos especificar a opção 1048576 na sua string de conexão ou indicar a opção "Don't Cache Results" no gerente de conexão ODBC. Com essa opção, o uso da memória no cliente é limitado e apenas um registro é alocado na memória.

Com cada chamada no método MoveNext do RecordSet, o registro é discartado e o próximo registro é requerido pelo servidor.

AdOpenDynamic
Enquanto o adOpenForwardOnly é o mais rápidos dos tipos de cursores, o cursor dinâmico é o menos eficiente. O cursor dinâmico suporta a ativação manual usando a opção 32 na sua string de conexão, ou marcando a opção "Enable Dynamic Cursor" no gerenciador ODBC.

Sem essa opção, qualquer outro tipo de cursor do que forward-only pode ser convertido automaticamente para cursor estático, com a opção ativada, todos os cursores fora forward-only irá se converter para dinâmico.

Por que o cursor dinâmico é tão lento? Por que não há nenhum suporte nativo para cursor dinâmico, cursor no lado do servidor no MySQL, todas as chamadas para movimentação de registro(MoveNext, MovePrevious, etc.) o driver MyODBC converte seu método para uma consulta SQL, fixa a consulta, e retorna o registro.

Isso significa também que para um cursor dinâmico trabalhar corretamente, você precisará de um campo com chave primária para determinar anterior e próximo. Por isso, os cursores dinâmicos não são recomendados a menos que seja muito necessário.

O cursor dinâmico suporta os seguintes métodos do RecordSet aberto com cursor de travamento Optimistic:
AddNew
Delete
Find
MoveFirst
MovePrevious
Update
UpdateBatch

O cursor dinâmico pode ser benéfico para aplicações multi-usuários, é melhor evitá-lo quando possível, e trabalhar com aplicações multi-usuários quando possível chamando os métodos resync e requery quando possível, e executando comando UPDATE somando e diminuindo valores usando Count do que usar recordsets para atualizar.

Tipos de Travamento (LockType)
Quando as posições do cursor e os tipos do cursor especificam como nossos dados estão sendo segurados, a propriedade do tipo do travamento especifica como vamos travar os dados para proteger todas as mudanças que você fizer e assegurarmos que foram processados.

Existe quatro tipos de travamento, e o tipo de travamento é indicado no método Open do objeto RecordSet (pode ser também indicado usando a propriedade LockType do objeto RecordSet). Os quatros tipos de travamento são:
adLockReadyOnly (padrão)
adLockOptimistic
adLockPessimistic
adLockBatchOptimistic
Todos os quatros tipos pode ser usado com o cursor no lado do servidor, e o adLockPessimistic não é hablitado para o cursor no lado do cliente.

adLockReadyOnly
O tipo de travamento padrão é AdLockReadyOnly. O travamento de apenas-leitura é o travamento mais eficiente para acessar um dado, porque ele não verifica se o dado mudou na hora da consulta e consequentemente não há nenhum tráfego extra entre o servidor de carregar os registros.

Como o nome implica, usando um travamento apenas-leitura não enxerga qualquer mudança feita na tabela. Se você ver algum erro como "Current recordset does not support updating", entao você precisa mudar seu tipo de travamento para adLockReadyOnly.

adLockOptimistic
O travamento otimista é usado para modificações que acontecem simultaneamente, ou onde tem múltiplos usuários fazendo mudanças nos mesmos registros. Com um bloqueio opmistic, a tabela ou o registro bloqueado quando o método Update do RecordSet é chamado.

Isso assegurará que a mudança foi feita com sucesso, mas não impede que outros usuários mudem os dados que você mudou pelo VB.

O tipo de bloqueio adLockOptimistic é tipicamente sua melhor escolha ao decidir-se em um bloqueio da tabela para uma situação que não seja de apenas-leitura. Na maioria das aplicações, os dois tipos de bloqueio que eu uso são adLockReadyOnly e adLockOptmistic.

adLockBatchOptimistic
Quando é usado o bloqueio adBatchOptmistic, as mudanças será alocada no cache até que o método UpdateBatch do RecordSet seja chamado. Quando o UpdateBatch é chamado, todas as mudanças serão feitas no servidor em grupo.

Isso pode fazer a inserção de um grande número registros mais eficiente. (Detalhe: chamando um "ALTER TABLE mytable DISABLE KEYS" depois de uma longa pacote de inclusão, seguido por "ALTER TABLE mytable ENABLE KEYS" depois do pacote completo, pode melhorar muito a velocidade do processo de inclusão por pacote, enquanto MySQL pode reconstruir um índice mais rapidamente do que adicionar uma entrada de cada vez.

adLockPessimistic
Em uma situação de simultaniedade elevada, com os vários usuários modificando os mesmos dados, você irá precisar de um tipo de bloqueio pessimistic. Com o adLockPessimistic, os registros (ou a tabela) serão bloqueados assim que você começar a fazer mudanças no registro atual, e não será desbloqueado até que o método uUdate seja chamado.

Isso assegurará que você não tenha mudado um registro junto com outros usuários, especialmente com uma tabela MyISAM, com características de bloqueio somente nível de tabela.

Certifique-se de que as mudanças estão seguindo imediatamente pelo método do Update do Recordset, e que não tenha nenhuma ruptura para o usuário entrar com uma mudança e o update a fim de não assegurar nenhuma longa ruptura (e melhorar os bloqueios cancelados pelo banco de dados) na operação do banco de dados

Evite usar o adLockPessimistc quando possível, porque é muito recurso intensivo e envolve muito mais o trabalho no lado do cliente e do servidor.

Conclusão
Quando tiver um grande número de combinações de CursorType e CursorLocation, os únicos que estão disponível para o programador VB/MySQL são:
adUseClient - adOpenStatic
adUseServer - adOpenForwardOnly
adUseServer - adOpenDynamic

Para maioria dos usuários, adUseClient com adOpenStatic é a melhor escolha, com o bloqueio adLockReadyOnly para qualquer operação de somente leitura (exportar para um arquivo, carregar registros em um ListView, ComboBox, etc.) e adLockOptmistic para qualquer operação de leitura/gravação.

adOpenDynamic e adLockPessimistic é a melhor solução para situações onde você precisa assegurar que vários usuários não corrompe cada outros dados.

A combinação do adUseServer, adOpenForwardOnly e adLockReadyOnly oferece a melhor performance para operações de preechimento de controles e exportação de arquivos.

Quando combinado com a opção 1048576 (Don't cache query results), adOpenForwardOnly fornece também uma excelente performance de memória, já que apenas um registro é carregado na memória.

Artigo traduzido por João Carlos C. Silva
Artigo original escrito por Mike Hillyer (http://www.vbmysql.com)

Camada de acesso a Banco de Dados - Visual Basic

2011-07-02T11:58:00.000-07:00

Visando facilitar o dia-a-dia dos desenvolvedores estou disponibilizando essa camada de acesso a banco de dados Sql Server.

Download: http://www.megaupload.com/?d=5NITFTPZ

Todas os métodos retornam um type com as seguintes informações:

Situacao ("0" - OK; "1" - Duplicado; "2" - Inexistente; 9 - "Erro")

Mensagem (Quando situação = "9", retorna a mensagem do erro)

rsDadosRetorno (Recordset com os dados retornado)

CaminhoDownloadArquivo (Caminho onde o arquivo foi baixado do banco de dados)

Abaixo listo as assinaturas dos métodos que constam nessa camada:

[Estabelece conexão com o Banco de Dados]

Public Function AbreConexao(ByVal p_sServidor As String, ByVal p_sBanco As String, ByVal p_sUsuario As String, ByVal p_sSenha As String, ByVal p_iConexao As Integer, Optional ByVal p_iTimeOutConexao As Integer = 30, Optional ByVal p_iTimeOutComando As Integer = 360) As Variant

p_sServidor = Nome ou Ip do Servidor

p_sBanco = Nome do Banco de Dados

p_sUsuario = Nome do Usuário do Banco de Dados

p_sSenha = Senha do Usuário do Banco de Dados

p_iConexao = Número da Instância da Conexão

p_iTimeOutConexao = Tempo limite para estabelecer conexão em segundos (Valor padrão: 30)
p_iTimeOutComando = Tempo limite para executar um comando em segundos (Valor padrão: 360)

[Fecha a conexão com o Banco de Dados]

Public Function FechaConexao (ByVal p_iConexao As Integer)

p_iConexao = Número da Instância da Conexão

[Executa um comando]

Public Function ExecutaComando(ByVal p_iConexao As Integer, ByVal p_sSQL As String, Optional ByVal p_bUsaBeginTran As Boolean = True, Optional ByVal p_TipoCursorRecordset As Integer = 3) As Variant

p_iConexao = Número da Instância da Conexão

p_sSQL = Comando a ser executado (INSERT, SELECT, UPDATE, STORED PROCEDURE, CREATE, DROP entre outros)
p_bUsaBeginTran = True (-1) abre uma transação (Valor Padrão); False (0) não abre uma transação
p_TipoCursorRecordset = Tipo de Cursor do Recordset (0 - Somente Leitura; 1 - Não Visualiza Registros excluídos por outros usuários; 2 -Dinâmico; 3 - Estático)

[Confirma a execução do comando se existir uma transação aberta]
Public Function Commit(ByVal p_iConexao As Integer) As Variant

p_iConexao = Número da Instância da Conexão

[Desfaz a execução do comando se existir uma transação aberta]

Public Function Rollback(ByVal p_iConexao As Integer) As Variant

p_iConexao = Número da Instância da Conexão

[Grava um arquivo no banco de dados]

Public Function GravaArquivo(ByVal p_iConexao As Integer, ByVal p_sSQL As String, ByVal p_sNomeCampo As String, ByVal p_sCaminhoArquivo As String) As Variant

p_iConexao = Número da Instância da Conexão
p_sSQL = Consulta (Select) apontando para o registro onde será salvo o arquivo
p_sNomeCampo = Nome do campo onde será gravado o arquivo
p_sCaminhoArquivo = Caminho completo do arquivo que será salvo

[Baixa o arquivo do banco de dados]

Public Function BaixaArquivo(ByVal p_iConexao As Integer, ByVal p_sSQL As String, ByVal p_sNomeCampo As String, ByVal p_sCaminhoArquivoDownload As String) As Variant

p_iConexao = Número da Instância da Conexão

p_sSQL = Consulta (Select) apontando para o registro onde será salvo o arquivo
p_sNomeCampo = Nome do campo onde será gravado o arquivo
p_sCaminhoArquivoDownload = Caminho completo do arquivo que será baixado. Poderá recer outro nome

Exemplo em Visual Basic:

    Dim vRetorno As Variant
    Dim objBanco As New BancoDeDados.SqlServer
    Dim iConexao As Integer

    iConexao = 1

    'Abertura de Conexao
    vRetorno = objBanco.AbreConexao("localhost", "master", "sa", "", iConexao)
    If vRetorno.Situacao = 0 Then
        MsgBox "Banco de Dados conectado"
    Else
        MsgBox "Problema na Conexao. Erro = " & vRetorno.Mensagem
        Exit Sub
    End If

    Set vRetorno = Nothing

    'Criacao de Tabela
    vRetorno = objBanco.ExecutaComando(iConexao, "CREATE TABLE USUARIO (ID INT PRIMARY KEY, NOME VARCHAR(50), FOTO IMAGE)", False)
    If vRetorno.Situacao = 0 Then
        MsgBox "Tabela criada com sucesso"
    Else
        MsgBox "Problema na criacao da tabela. Erro = " & vRetorno.Mensagem
    End If

    Set vRetorno = Nothing

    'Inclui registro
    vRetorno = objBanco.ExecutaComando(iConexao, "INSERT INTO USUARIO (ID,NOME) VALUES (1, 'JOAO')")
    If vRetorno.Situacao = 0 Then
        Call objBanco.Commit(iConexao)
        MsgBox "Usuario incluido com sucesso"
    ElseIf vRetorno.Situacao = 1 Then
        MsgBox "Usuario ja existe"
    Else
        MsgBox "Problema na inclusao. Erro = " & vRetorno.Mensagem
    End If

    Set vRetorno = Nothing

    'Grava arquivo no banco
    vRetorno = objBanco.GravaArquivo(iConexao, "SELECT FOTO FROM USUARIO WHERE NOME = 'JOAO'", "FOTO", "C:\IMAGEM.JPG")
    If vRetorno.Situacao = 0 Then
        MsgBox "Arquivo gravado com sucesso"
    ElseIf vRetorno.Situacao = 2 Then
        MsgBox "Usuario nao encontrado"
    Else
        MsgBox "Problema no upload do arquivo. Erro = " & vRetorno.Mensagem
    End If

    Set vRetorno = Nothing

    'Consulta os dados da Tabela
    vRetorno = objBanco.ExecutaComando(iConexao, "SELECT * FROM USUARIO", False, 0)
    If vRetorno.Situacao = 0 Then
        Do While Not vRetorno.rsDadosRetorno.EOF
            MsgBox vRetorno.rsDadosRetorno.fields("NOME")

            vRetorno.rsDadosRetorno.MoveNext
        Loop
    ElseIf vRetorno.Situacao = 2 Then
        MsgBox "Usuario nao encontrado"
    Else
        MsgBox "Problema na Consulta. Erro = " & vRetorno.Mensagem
    End If

    Set vRetorno = Nothing

    'Grava arquivo no banco
    vRetorno = objBanco.BaixaArquivo(iConexao, "SELECT FOTO FROM USUARIO WHERE NOME = 'JOAO'", "FOTO", "C:\FOTO_BAIXADA.JPG")
    If vRetorno.Situacao = 0 Then
        MsgBox "Arquivo baixado do banco de dados com sucesso"
    ElseIf vRetorno.Situacao = 2 Then
        MsgBox "Usuario nao encontrado"
    Else
        MsgBox "Problema no upload do arquivo. Erro = " & vRetorno.Mensagem
    End If

    Set vRetorno = Nothing

    'Fecha conexao
    Call objBanco.FechaConexao(iConexao)

    MsgBox "Banco de dados desconectado"