Essa consulta oferece uma visão geral dos Serviços NF-e disponíveis na SEFAZ em cada Unidade Federativa (UF).
domingo, 4 de julho de 2010
Cancelamento da NFe
ATO COTEPE ICMS 13, DE 17 DE JUNHO 2010
Art. 1º Poderá o emitente solicitar o cancelamento da NF-e, em prazo não superior a 24 horas, contado do momento em que foi concedida a respectiva Autorização de Uso da NF-e, desde que não tenha ocorrido a circulação da mercadoria ou a prestação de serviço e observadas às demais normas constantes do Ajuste SINIEF 07/05, de 5 de outubro de 2005.
Art. 2º Este ato entra em vigor na data de sua publicação no Diário Oficial da União, produzindo efeitos a partir de 1º de janeiro de 2011.
Link:
quinta-feira, 24 de junho de 2010
Nota Fiscal Eletrônica de Correção ou Complementar
Conforme orientação do portal da nota fiscal eletrônica, para alteração de uma nfe já emitida:
"Após ter o seu uso autorizado pela SEFAZ, uma NF-e não poderá sofrer qualquer alteração, pois qualquer modificação no seu conteúdo invalida a sua assinatura digital.
O emitente poderá:
O emitente poderá:
- dentro de certas condições, cancelar a NF-e, por meio da geração de um arquivo XML específico para isso. Da mesma forma que a emissão de uma NF-e de circulação de mercadorias, o pedido de cancelamento de NF-e também deverá ser autorizado pela SEFAZ. O Layout do arquivo de solicitação de cancelamento poderá ser consultado no Manual de Integração do Contribuinte.
- dentro de certas condições, emitir uma Nota Fiscal Eletrônica complementar, ou uma Nota Fiscal Eletrônica de ajuste, conforme o caso.
- sanar erros em campos específicos da NF-e, por meio de Carta de Correção Eletrônica - CC-e transmitida à Secretaria da Fazenda. Como esta modalidade de emissão ainda não foi implantada, o contribuinte poderá emitir Carta de Correção Complementar, em papel, conforme definido através do Ajuste Sineif 01/07."
terça-feira, 22 de junho de 2010
NeXT ERP com Nota Fiscal Eletrônica - versão 1.4.5
Implementações:
- Tabela de NCM, CST e CNAE
- Anotações e tarefas (possibilidade de enviar tarefas para os usuários de rede pelo ERP)
- CFOP automático para venda fora da UF
- Opção para observações por CFOP
- CST ICMS, CST PIS/COFINS e CFOP no cadastro de produtos
- Mais de 250 parametrizações
- Configuração das cores dos campos/tela/fonte
- Parametrização do faturamento (compras/vendas)
- Parametrização da baixa de estoque
- Configuração para travar visualização dos pedidos de outros vendedores
- Melhoria na importação financeira OFX
- Margem de lucro fixa por parametrização
- Nova opção de venda e orçamentos - Venda Rápida
Estamos com 70 empresas utilizando o NeXT ERP nos seguintes estados:
Região Sudeste
- São Paulo
- Minas Gerais
- Rio de Janeiro
- Espírito Santo
Região Nordeste
- Bahia
- Pernambuco
Região Sul
- Santa Catarina
- Paraná
- Rio Grande do Sul
Região Norte
- Pará
Região Sudeste
- São Paulo
- Minas Gerais
- Rio de Janeiro
- Espírito Santo
Região Nordeste
- Bahia
- Pernambuco
Região Sul
- Santa Catarina
- Paraná
- Rio Grande do Sul
Região Norte
- Pará
Visualização do XML da NFe
Próxima versão:
- Cobrança CNAB
- Arquivos SINTEGRA
sábado, 29 de maio de 2010
sexta-feira, 28 de maio de 2010
terça-feira, 27 de abril de 2010
NeXT ERP com Nota Fiscal Eletrônica - versão 1.4.1
O NeXT ERP está integrado com a Nota Fiscal Eletrônica nacional.
O gerenciador utilizado foi o UniNFe da Unimake (http://www.uninfe.com.br/).
Segue abaixo telas do novo módulo:
Pedido de venda com envio da NFe
Gerenciador da Nota Fiscal Eletrônica
Impressão do DANFe
Novidades da nova versão (1.4.1):
- Nova instalação (diretório componentes)
- Módulo estoque - transferência de estoque entre empresas
- NFe - Tabelas de UF e Municípios
- Configuração para impressão do nr. de página no rodapé dos relatórios
- Melhoria no comissionamento - flag para serviços e re-gerar comissões
- Consulta tabelas auxiliares
- Configuração para alterar vendedor no PDV
Instruções de instalação:
http://www.nextsoftware.com.br/downloads/next_erp_nfe_leiame.txt
Para download do demo:
- Nova instalação (diretório componentes)
- Módulo estoque - transferência de estoque entre empresas
- NFe - Tabelas de UF e Municípios
- Configuração para impressão do nr. de página no rodapé dos relatórios
- Melhoria no comissionamento - flag para serviços e re-gerar comissões
- Consulta tabelas auxiliares
- Configuração para alterar vendedor no PDV
Instruções de instalação:
http://www.nextsoftware.com.br/downloads/next_erp_nfe_leiame.txt
Para download do demo:
Instalação do Microsoft .Net Framework 2.0:
Instalação do UniNFe:
Instalação do UniDANFe:
domingo, 28 de março de 2010
Nova versão - NeXT ERP 1.3.6 (Final)
Nova versão do software NeXT ERP disponível para download.
Últimos desenvolvimentos:
---------------------------------------------------------------------
Versão 1.3.6 (28/Março)
---------------------------------------------------------------------
Cache de dados nas configurações (melhor desempenho)
Parametrização do código do produto nas impressões de entrada e saída de estoque
Maior relacionamento no pagamento de cheques entre pagar e receber
Corrigido Bug no perfil do usuário quando somente perfil do centro de custo é cadastrado
Ordenação no relatório de cheques
Entradas e saídas não classificadas no Fluxo de Caixa
Verificação da versão do software
Reimpressão do cupom não fiscal
Baixa de Duplicatas em Lote
Troca de usuário em tempo de execução
Condição de pagamento na impressão da nota fiscal
---------------------------------------------------------------------
Versão 1.3.5 (10/Março)
---------------------------------------------------------------------
Nova busca de CEP diretamente nos cadastros
Corrigido bug na baixa de cheques
Novos alertas (O.S. , Cadastros e Cheques)
Novo ítem - Orçamento rápido
Novo ítem - Inserir produtos em estoque
Todas os forms de busca retornam o registro com ENTER
Novos relatórios - ranking de produtos e vendas por clientes
Melhoria na movimentação de estoque
PDV - Quantidade automática (1)
---------------------------------------------------------------------
Versão 1.3.4 (01/Março)
---------------------------------------------------------------------
Manutenção na sincronização entre réplica e banco de dados principal
Combos digitáveis no cadastro de produtos
Maior eficiência no tratamento de erros
Alteração no layout do log de erros
Revisão nas classes - controle de transação
Corrigido bug no cálculo de reposição de estoque no resumo financeiro
Cancelamento completo de compras e vendas (estoque e financeiro)
Novos filtros na visualização do contas a pagar e receber
Cancelamento de pagamentos recorrentes
Status da duplicata na visualização de lançamentos
Tratamento para tabelas com chaves diferenciadas no Restore Database e melhor desempenho
---------------------------------------------------------------------
Links para download:
NeXT ERP:
http://www.nextsoftware.com.br/downloads/next_erp_v1118.zip
NeXT ERP Auto Peças:
http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip
NeXT Finance:
http://www.nextsoftware.com.br/downloads/next_finance.zip
Últimos desenvolvimentos:
---------------------------------------------------------------------
Versão 1.3.6 (28/Março)
---------------------------------------------------------------------
Cache de dados nas configurações (melhor desempenho)
Parametrização do código do produto nas impressões de entrada e saída de estoque
Maior relacionamento no pagamento de cheques entre pagar e receber
Corrigido Bug no perfil do usuário quando somente perfil do centro de custo é cadastrado
Ordenação no relatório de cheques
Entradas e saídas não classificadas no Fluxo de Caixa
Verificação da versão do software
Reimpressão do cupom não fiscal
Baixa de Duplicatas em Lote
Troca de usuário em tempo de execução
Condição de pagamento na impressão da nota fiscal
---------------------------------------------------------------------
Versão 1.3.5 (10/Março)
---------------------------------------------------------------------
Nova busca de CEP diretamente nos cadastros
Corrigido bug na baixa de cheques
Novos alertas (O.S. , Cadastros e Cheques)
Novo ítem - Orçamento rápido
Novo ítem - Inserir produtos em estoque
Todas os forms de busca retornam o registro com ENTER
Novos relatórios - ranking de produtos e vendas por clientes
Melhoria na movimentação de estoque
PDV - Quantidade automática (1)
---------------------------------------------------------------------
Versão 1.3.4 (01/Março)
---------------------------------------------------------------------
Manutenção na sincronização entre réplica e banco de dados principal
Combos digitáveis no cadastro de produtos
Maior eficiência no tratamento de erros
Alteração no layout do log de erros
Revisão nas classes - controle de transação
Corrigido bug no cálculo de reposição de estoque no resumo financeiro
Cancelamento completo de compras e vendas (estoque e financeiro)
Novos filtros na visualização do contas a pagar e receber
Cancelamento de pagamentos recorrentes
Status da duplicata na visualização de lançamentos
Tratamento para tabelas com chaves diferenciadas no Restore Database e melhor desempenho
---------------------------------------------------------------------
Links para download:
NeXT ERP:
http://www.nextsoftware.com.br/downloads/next_erp_v1118.zip
NeXT ERP Auto Peças:
http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip
NeXT Finance:
http://www.nextsoftware.com.br/downloads/next_finance.zip
sexta-feira, 26 de fevereiro de 2010
NeXT ERP 1.3.3
Novidades na interface do NeXT ERP - teclas de atalho
Nova tabela de preços - maior agilidade na busca dos produtos e nos cálculos para compor a tabela
Layout da nota fiscal modelo 1 e 1-A agora é configurável e tem impressão de testes.
Outros recursos:
- Backup automático
- Banco de dados MySQL e Microsoft SQL Server
- Réplica do banco de dados on line e sincronização de dados
- Alertas automáticos
Em breve:
- ECF
- Nota Fiscal Eletrônica
terça-feira, 12 de janeiro de 2010
NeXT ERP e NeXT ERP Auto-Peças - Versão 1.3.1
Essa nova versão do NeXT ERP traz maior agilidade e rapidez na busca de informações, diversas melhorias, várias opções de configurações, além de vários novos recursos, como:
- Tabela de preços (pode ser ligada ao cliente ou utilizada diretamente na tela de orçamentos e pedidos).
- Opção para configurar papel de parede
- Nova consulta de posição de estoque
- Nova busca de lançamentos a pagar / receber
Links para download da versão demo (válida por 60 dias):
ERP: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
ERP Versão auto-peças: http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip
Outros links:
- Superdownloads: http://superdownloads.uol.com.br/download/196/next-erp/
- Ultradownloads: http://ultradownloads.com.br/download/NexT-ERP/
- Baixe.Net: http://baixe.net/download/1710/next-erp/
- Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html
- Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6
domingo, 6 de dezembro de 2009
NeXT ERP Sistema Gerencial versão 1.2.9 disponível para download
Nova versão disponível para ERP e auto peças.
Implementações:
NeXT Reports - envio de emails via MAPI

Cálculo das parcelas X Formas de Pagto
Múltiplas condições de pagamento em orçamentos

Melhorias na busca de CEP

Controle de Entregas e romaneio parcial de entrega

Corrigido bug no resumo financeiro
PDV - Ao selecionar forma de pagamento parcelada, mostra as parcelas com juros, se existir, e o valor final com as datas
Cálculo de ICMS/IPI/Situação Tributária
Tipo de Cliente - Industrialização, revenda, consumidor final
Corrigido bug no cálculo do custo médio
Alteração nos cálculos de totais e tratamento ao adicionar produtos nos grids
Corrigido bug no cancelamento de vendas - entrada de estoque
Links para download:
ERP: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
ERP Versão auto-peças: http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip
Outros links:
Implementações:
NeXT Reports - envio de emails via MAPI

Cálculo das parcelas X Formas de Pagto
Múltiplas condições de pagamento em orçamentos

Melhorias na busca de CEP

Controle de Entregas e romaneio parcial de entrega
Corrigido bug no resumo financeiro
PDV - Ao selecionar forma de pagamento parcelada, mostra as parcelas com juros, se existir, e o valor final com as datas
Cálculo de ICMS/IPI/Situação Tributária
Tipo de Cliente - Industrialização, revenda, consumidor final
Corrigido bug no cálculo do custo médio
Alteração nos cálculos de totais e tratamento ao adicionar produtos nos grids
Corrigido bug no cancelamento de vendas - entrada de estoque
Links para download:
ERP: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
ERP Versão auto-peças: http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip
Outros links:
- Superdownloads: http://superdownloads.uol.com.br/download/196/next-erp/
- Ultradownloads: http://ultradownloads.com.br/download/NexT-ERP/
- Baixe.Net: http://baixe.net/download/1710/next-erp/
- Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html
- Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6
NeXT ERP no SuperDownloads !
O NeXT ERP agora está disponível no SuperDownloads !
O Link é : http://superdownloads.uol.com.br/download/196/next-erp/
Link para outros sites de downloads:
O Link é : http://superdownloads.uol.com.br/download/196/next-erp/
Link para outros sites de downloads:
- Ultradownloads: http://ultradownloads.com.br/download/NexT-ERP/
- Baixe.Net: http://baixe.net/download/1710/next-erp/
- Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html
- Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6
domingo, 8 de novembro de 2009
Nova versão do NeXT ERP - 1.2.7 - Sistema Gerencial
Nova versão de demonstração (válido por 60 dias) do NeXT ERP disponível para download, com várias melhorias e novas funções.
Links para download da versão demo:
http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
http://www.4shared.com/file/148828236/e6d62fb4/next_erp_v127_demo.html
Algumas implementações:
- Cadastro de observações
- Tela para configuração de banco de dados (replica e MySQL disponível)
- Mudança nas grids
- Melhorias de performance na busca de produtos e posição de estoque
- Atualização do preço de compra no cálculo do custo médio
- Inserção de fabricante e concorrente no cadastro de produtos (auto-peças)
- Importação PLANSYST
- Inclusão de percentual para substituição tributária
- Inclusão da substituição tributária na entrada de nota fiscal de fornecedor
- Melhorias nos relatórios financeiros
- Impressão da ficha do produto
- Impressão de recibo de pagamento no contas a receber
- Melhorias na visualização de lançamentos a pagar e receber
- Melhorias no orçamento (+ IPI)
- Nova busca de produtos
- Nova rotina para fácil atualização do software
- Ficha de separação de produtos em estoque
domingo, 30 de agosto de 2009
Sistema de gerenciamento de imóveis
Sistema NeXT Webimóveis no ar em http://www.nextsoftware.com.br/webimoveis/ para testes.
Esse sistema poderá ser implementado como um administrador de um site de imóveis.
Para maiores informações, entre no site da NeXT.
segunda-feira, 17 de agosto de 2009
Nova versão do NeXT ERP- Release 1.1.37 - Sistema Empresarial

Bom dia,
Nova versão de demonstração (válido por 60 dias) do NeXT ERP disponível para download.
Obs.: clientes NeXT receberão o link de ATUALIZAÇÃO do software.
Link para download da versão demo: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
Novas implementações nessa versão:
- Transferência entre contas (em financeiro => movimentação => combo "Conta a debitar/creditar")
- Baixa parcial de títulos (baixando com valor menor, o sistema irá gerar um novo título com a diferença)
- Pode-se definir uma senha para alteração nos cadastros - clique no menu Administrador => Configurações -> Digite a senha no campo "Senha para alteração nos dados"
- Impressão do recibo de venda e ordem de serviço em 2 vias
- Correção na troca de senha de novos funcionários
- Nova configuração em administrador => configurações => checkbox "calcular curva abc de estoque" - exibir classificação ABC na tela "Posição de estoque"
- Novas consistências na rotina de restore do banco de dados
- Otimização de queryes SQL da classe estoque e produto
- Criação de novos índices no banco de dados
- Outras implementações e correções detectadas
[]'s
segunda-feira, 10 de agosto de 2009
Novo site da NeXT
Novo site da NeXT.
http://www.nextsoftware.com.br
Algumas novas páginas e melhorias foram feitas, inclusive para ver se melhoramos no pagerank.
[]'s
domingo, 26 de julho de 2009
Nova versão do NeXT ERP- Release 1.1.35
Boa tarde,
nova versão de demonstração (válido por 60 dias) do NeXT ERP disponível para download.
Obs.: clientes NeXT receberão o link de ATUALIZAÇÃO do software.
Link para download da versão demo: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
Detalhes da versão:
- Novo layout do cadastro de produtos
- Cálculo da margem de lucro dos produtos
- Campos para visualizar última compra e última venda do produto
- Criada nova aba no cadastro de produtos para visualização da movimentação de estoque
- Corrigido bug na abertura de caixa
- Melhorias no processo de backup/restore do banco de dados
- Criada rotina interna para atualização do software, com recovery
- Melhoria na visualização do histórico financeiro do cliente
[]'s
nova versão de demonstração (válido por 60 dias) do NeXT ERP disponível para download.
Obs.: clientes NeXT receberão o link de ATUALIZAÇÃO do software.
Link para download da versão demo: http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
Detalhes da versão:
- Novo layout do cadastro de produtos
- Cálculo da margem de lucro dos produtos
- Campos para visualizar última compra e última venda do produto
- Criada nova aba no cadastro de produtos para visualização da movimentação de estoque
- Corrigido bug na abertura de caixa
- Melhorias no processo de backup/restore do banco de dados
- Criada rotina interna para atualização do software, com recovery
- Melhoria na visualização do histórico financeiro do cliente
[]'s
domingo, 19 de julho de 2009
Nova versão do NeXT ERP
Disponível para download gratuíto, válido por 60 dias.
Baixe em http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
Baixe em http://www.nextsoftware.com.br/downloads/next_erp_v1117.zip
quinta-feira, 21 de maio de 2009
segunda-feira, 11 de maio de 2009
Javascript - ordenar combo
Código não tão antigo, de 2006. Estava liderando um pequeno projeto de um site para uma seguradora.
function Reorganizar(objCombo)
{
//07-Mai-2006 - Thiago França
var iQtdeItens = objCombo.length;
if (iQtdeItens > 0)
{
var i;
var x;
arrItens = new Array(iQtdeItens);
arrTemp = new Array(1)
arrTemp[0] = new Array(1)
//armazenar os valores em array
for (i=0;i<=iQtdeItens-1;i++)
{
arrItens[i] = new Array(1);
arrItens[i][0] = objCombo.options[i].value;
arrItens[i][1] = objCombo.options[i].text;
}
//remover ítens e ordenar array
for (i=0;i<=iQtdeItens-1;i++)
{
objCombo.options[i] = null;
}
for (x=i+1;x<=iQtdeItens-1;x++)
{
if (arrItens[i][0] > arrItens[x][0])
{
arrTemp[0][0] = arrItens[x][0];
arrTemp[0][1] = arrItens[x][1];
arrItens[x][0] = arrItens[i][0];
arrItens[x][1] = arrItens[i][1];
arrItens[i][0] = arrTemp[0][0];
arrItens[i][1] = arrTemp[0][1];
}
}
//inserir ítens no controle
for (i=0;i<=iQtdeItens-1;i++)
{
objCombo.options[i] = new Option(arrItens[i][1], arrItens[i][0]);
}
}
}
Esse código recebe um objeto HTML SELECT (combo) e ordena os ítens.
function Reorganizar(objCombo)
{
//07-Mai-2006 - Thiago França
var iQtdeItens = objCombo.length;
if (iQtdeItens > 0)
{
var i;
var x;
arrItens = new Array(iQtdeItens);
arrTemp = new Array(1)
arrTemp[0] = new Array(1)
//armazenar os valores em array
for (i=0;i<=iQtdeItens-1;i++)
{
arrItens[i] = new Array(1);
arrItens[i][0] = objCombo.options[i].value;
arrItens[i][1] = objCombo.options[i].text;
}
//remover ítens e ordenar array
for (i=0;i<=iQtdeItens-1;i++)
{
objCombo.options[i] = null;
}
for (x=i+1;x<=iQtdeItens-1;x++)
{
if (arrItens[i][0] > arrItens[x][0])
{
arrTemp[0][0] = arrItens[x][0];
arrTemp[0][1] = arrItens[x][1];
arrItens[x][0] = arrItens[i][0];
arrItens[x][1] = arrItens[i][1];
arrItens[i][0] = arrTemp[0][0];
arrItens[i][1] = arrTemp[0][1];
}
}
//inserir ítens no controle
for (i=0;i<=iQtdeItens-1;i++)
{
objCombo.options[i] = new Option(arrItens[i][1], arrItens[i][0]);
}
}
}
Esse código recebe um objeto HTML SELECT (combo) e ordena os ítens.
Visual Basic com ADOX - Retornando tabelas, campos e propriedades de um MDB e gravando em um arquivo texto
Essa eu fiz quando trabalhava em um banco, desenvolvendo softwares e ferramentas. Em 1 hora fui programando, reprogramando e cheguei a esse pequeno mas útil código:
Option Explicit
'*************************************************************
'* Faz a leitura de todas as tabelas, colunas e propriedades *
'* e grava em um arquivo texto, utilizando ADOX *
'* Out/2002 - Thiago França *
'*************************************************************
Sub Main()
Dim catNovo As ADOX.Catalog
Dim intNF As Integer 'Número de arquivo disponível para uso
Dim blnOpen As Boolean 'Flag - se arquivo aberto, true
Dim intTable As Long
Dim intColumn As Long
Dim objTabela As Object
Dim strColunas As String
On Error GoTo Erros
Set catNovo = New ADOX.Catalog
catNovo.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\It\db\dbweb.mdb"
intNF = FreeFile()
Open "c:\bd.txt" For Output As #intNF
blnOpen = True
For Each objTabela In catNovo.Tables
If TypeOf objTabela Is ADOX.Table Then
For intTable = 0 To catNovo.Tables.Count - 1
Print #intNF, catNovo.Tables.Item(intTable).Name
Print #intNF, "Campo" & Space$(15) & "Tipo" & vbTab & "Tam." & vbTab & "Prec." & vbTab & "Auto Incr." & vbTab & "Padrao" & vbTab & "Descrição" & vbTab & "Nulo" & vbTab & "Compr.Zero"
For intColumn = 0 To catNovo.Tables.Item(intTable).Columns.Count - 1
strColunas = catNovo.Tables.Item(intTable).Columns(intColumn).Name
strColunas = strColunas & Space$(30 - Len(strColunas)) & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Type) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).DefinedSize) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Precision) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Autoincrement").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Default").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Description").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Nullable").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Jet OLEDB:Allow Zero Length").Value)
Print #intNF, strColunas
Next intColumn
Next intTable
End If
Next
Close #intNF
blnOpen = False
Set objTabela = Nothing
Set catNovo = Nothing
Exit Sub
Erros:
Set objTabela = Nothing
Set catNovo = Nothing
If blnOpen Then
Close #intNF
End If
MsgBox "Erro no processamento - " & CStr(Err.Number) & "-" & Err.Description, vbOKOnly + vbCritical, "Erro!"
End Sub
Detalhes:
- Nunca se esquecer, após instanciar objetos, destruí-los. Lembrar também de destruir na rotina de tratamento de erros.
- A variável blnOpen é um boolean para controlar o momento da abertura do arquivo. Caso ocorra um erro de run-time, e a variável blnOpen estiver setada como True, o arquivo será fechado.
- Programadores VB geralmente desconhecem o uso da função FreeFile(), e utilizam literais para abertura de arquivos.
- O código não está identado devido às configurações do blogger !
Option Explicit
'*************************************************************
'* Faz a leitura de todas as tabelas, colunas e propriedades *
'* e grava em um arquivo texto, utilizando ADOX *
'* Out/2002 - Thiago França *
'*************************************************************
Sub Main()
Dim catNovo As ADOX.Catalog
Dim intNF As Integer 'Número de arquivo disponível para uso
Dim blnOpen As Boolean 'Flag - se arquivo aberto, true
Dim intTable As Long
Dim intColumn As Long
Dim objTabela As Object
Dim strColunas As String
On Error GoTo Erros
Set catNovo = New ADOX.Catalog
catNovo.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\It\db\dbweb.mdb"
intNF = FreeFile()
Open "c:\bd.txt" For Output As #intNF
blnOpen = True
For Each objTabela In catNovo.Tables
If TypeOf objTabela Is ADOX.Table Then
For intTable = 0 To catNovo.Tables.Count - 1
Print #intNF, catNovo.Tables.Item(intTable).Name
Print #intNF, "Campo" & Space$(15) & "Tipo" & vbTab & "Tam." & vbTab & "Prec." & vbTab & "Auto Incr." & vbTab & "Padrao" & vbTab & "Descrição" & vbTab & "Nulo" & vbTab & "Compr.Zero"
For intColumn = 0 To catNovo.Tables.Item(intTable).Columns.Count - 1
strColunas = catNovo.Tables.Item(intTable).Columns(intColumn).Name
strColunas = strColunas & Space$(30 - Len(strColunas)) & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Type) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).DefinedSize) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Precision) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Autoincrement").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Default").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Description").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Nullable").Value) & vbTab & _
CStr(catNovo.Tables.Item(intTable).Columns(intColumn).Properties("Jet OLEDB:Allow Zero Length").Value)
Print #intNF, strColunas
Next intColumn
Next intTable
End If
Next
Close #intNF
blnOpen = False
Set objTabela = Nothing
Set catNovo = Nothing
Exit Sub
Erros:
Set objTabela = Nothing
Set catNovo = Nothing
If blnOpen Then
Close #intNF
End If
MsgBox "Erro no processamento - " & CStr(Err.Number) & "-" & Err.Description, vbOKOnly + vbCritical, "Erro!"
End Sub
Detalhes:
- Nunca se esquecer, após instanciar objetos, destruí-los. Lembrar também de destruir na rotina de tratamento de erros.
- A variável blnOpen é um boolean para controlar o momento da abertura do arquivo. Caso ocorra um erro de run-time, e a variável blnOpen estiver setada como True, o arquivo será fechado.
- Programadores VB geralmente desconhecem o uso da função FreeFile(), e utilizam literais para abertura de arquivos.
- O código não está identado devido às configurações do blogger !
Turbo Basic
Estava vendo uns códigos antigos, e vou postar esse que fiz em 1995 num PC-XT monitor fósforo verde, no Turbo Basic. Nessa época eu fazia eletrônica no Senai e ouvia heavy metal diariamente. Esse programa desenha o logo do Iron Maiden.
5 REM
10 REM ***********************
15 REM * *
20 REM * THIAGO FRANÇA *
30 REM * SOFTWARE *
40 REM * DATA: 18/01/95 *
45 REM * *
50 REM ***********************
55 REM
60 KEY OFF:CLS:SCREEN 2
65 PSET(80,10):DRAW"D50 R20 U50 L20"
70 PSET(110,10):DRAW"D50 R20 U10 F25 E10 H20 E15 H20 G10 U10 L20"
75 PSET(134,30):DRAW"G7 R15 H7"
80 PSET(200,10):DRAW"G42 F10 R65 E10 H42"
85 PSET(202,30):DRAW"G20 R40 H20"
90 PSET(240,10):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"
95 PSET(80,85):DRAW"F10 D40 R20 U35 F10 E10 D40 F17 U58 H15 G10 H9 L32"
100 PSET(215,85):DRAW"L20 G18 H10 G10 F10 G13 F10 E15 F15 R25 U51 L3"
105 PSET(200,98):DRAW"G10 F10 U20"
110 PSET(230,85):DRAW"D50 R20 U50 L20"
115 PSET(260,85):DRAW"D50 R50 E15 H35 L30"
120 PSET(278,95):DRAW"D30 R30 H30"
125 PSET(330,85):DRAW"D40 F10 R40 U10 L30 U10 R30 U10 L30 U10 R30 U10 L50"
130 PSET(390,85):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"
5 REM
10 REM ***********************
15 REM * *
20 REM * THIAGO FRANÇA *
30 REM * SOFTWARE *
40 REM * DATA: 18/01/95 *
45 REM * *
50 REM ***********************
55 REM
60 KEY OFF:CLS:SCREEN 2
65 PSET(80,10):DRAW"D50 R20 U50 L20"
70 PSET(110,10):DRAW"D50 R20 U10 F25 E10 H20 E15 H20 G10 U10 L20"
75 PSET(134,30):DRAW"G7 R15 H7"
80 PSET(200,10):DRAW"G42 F10 R65 E10 H42"
85 PSET(202,30):DRAW"G20 R40 H20"
90 PSET(240,10):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"
95 PSET(80,85):DRAW"F10 D40 R20 U35 F10 E10 D40 F17 U58 H15 G10 H9 L32"
100 PSET(215,85):DRAW"L20 G18 H10 G10 F10 G13 F10 E15 F15 R25 U51 L3"
105 PSET(200,98):DRAW"G10 F10 U20"
110 PSET(230,85):DRAW"D50 R20 U50 L20"
115 PSET(260,85):DRAW"D50 R50 E15 H35 L30"
120 PSET(278,95):DRAW"D30 R30 H30"
125 PSET(330,85):DRAW"D40 F10 R40 U10 L30 U10 R30 U10 L30 U10 R30 U10 L50"
130 PSET(390,85):DRAW"F10 D40 R20 U30 F15 D20 F17 U72 L20 D15 H15 L27"
quarta-feira, 18 de janeiro de 2006
Apple II

Apple II, O primeiro computador pessoal com capacidade de 48K na placa mãe.Na época, o comum era 4K.
Apple II, O primeiro computador pessoal com RAMs dinâmicas do tipo Intel.Apple II, O segundo computador pessoal com saída padrão de vídeo. O Apple I foi o primeiro.
Apple II, O primeiro computador pessoal com modo gráfico colorido em baixa resolução para jogos.
Apple II, O primeiro computador pessoal com controladores para jogos. (Era pré-joystick!)
Apple II, O primeiro computador pessoal com fonte de alta força e baixa temperatura. (Sem cooler!)Apple II, O primeiro computador pessoal com speaker integrado para som.
Apple II, O terceiro computador pessoal do tipo TV-terminal. O Apple I foi oprimeiro.
Apple II, O primeiro computador pessoal com modo gráfico colorido de alta resolução.
Apple II, O primeiro computador pessoal com memória RAM compartilhada entre CPU e vídeo na placa mãe.
Apple II, O primeiro computador pessoal com tão poucos chips em um sistema completo.
Apple II, O primeiro computador pessoal com comandos de alto nível para controles, som e gráficos.Tudo onboard...
Assinar:
Postagens (Atom)








