Robo NFe no Twitter

Alertas de disponibilidade dos Serviços de Autorização de NFe do Brasil, conforme testes realizados a cada 5 minutos por programa robô. Mantido pela SEFAZ-RS.

URL: http://twitter.com/robonfe

NeXT ERP com Nota Fiscal Eletrônica - Roteiro de emissão em Power Point

Novo arquivo no site da NeXT: Roteiro de emissão da nota fiscal eletrônica com o NeXT ERP.

Link para download da apresentação: 
http://www.nextsoftware.com.br/downloads/next_erp_nfe.pps

Link para download do NeXT ERP NFe Demo:
http://www.nextsoftware.com.br/downloads/next_erp_nfe_demo_im.exe

Manual do usuário:
http://www.nextsoftware.com.br/downloads/next_erp_manual.pdf

Instruções NeXT ERP com NFe:
http://www.nextsoftware.com.br/downloads/next_erp_nfe_leiame.txt

Versão 1.4.11 prevista para essa semana

Principais funcionalidades em desenvolvimento para nova versão 1.4.11: 

Algumas empresas em que foi implantado o NeXT ERP em Outubro:

- Project Services (Diadema/SP)
- BIlly Toys Export (Osório/RS)
- Alves & Moura Materiais Elétricos (Campinas/SP)
- US Imports (São Paulo/SP)
- Envplas Comercial (São Paulo/SP)
- Só Madureira (Patos/PB)
- Interplas (São Paulo/SP)

NeXT ERP 1.4.10 - o mais veloz e robusto do mercado de mini-ERP´s

Nova versão do NeXT ERP (1.4 release 10). Novas implementações:

- 65% mais veloz (otimização de queries, componentes, code-review)

- Feeds

- Novo layout para nota fiscal impressa (1A) e modelo de configuração

- NFe - venda para Zona Franca de Manaus (SUFRAMA)

- Envio das NFe´s para contabilidade (compactação 7zip)

- Reestruturação nos menus e ícones

- Envio de emails por SMTP, Outlook Express e Office Outlook

- Busca do plano de contas

- Duplicatas múltiplas (salvar N duplicatas a partir da primeira)

- Anotações no cadastro de clientes e fornecedores

- Desconto programado no faturamento 

- Nova cotação de materiais - exportação de planilhas de cotação para envio aos fornecedores, e importação dos preços

- Menu Utilitários 

- Novo Setup 

- Mais de 250 opções de menus e 300 parametrizações

- Mais de 3500 downloads efetuados

Fluxo de caixa - agora com Realizado x Previsão

Consulta Inscrição Estadual de todos os estados

Livro Caixa

Configurações do Software

Utilitário de backup

Links versão demo:

Nota Fiscal Eletrônica: 

http://www.nextsoftware.com.br/downloads/next_erp_nfe_demo.zip

ERP: 
http://www.nextsoftware.com.br/downloads/next_erp_v1118.zip

ERP Auto peças: 
http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip

NeXT NFe (software com o módulo NFe e vendas, com preço reduzido, para empresas que desejam somente um software pare emissão de NFe) 
http://www.nextsoftware.com.br/downloads/next_erp_nfe_demo.zip

Finance: 
http://www.nextsoftware.com.br/downloads/next_finance.zip

Configurações de webmails para Outlook, SMTP (NeXT ERP / UniDANFe)

Hotmail

POP3: pop3.live.com porta 995
SMTP: smtp.live.com porta 25

Servidor requer autenticação

Servidor requer conexão de segurança SSL

http://www.verinha.de/configurando_sua_conta_hotmail_no_outlook_express.htm

Ig

POP3: pop.ig.com.br porta 995
SMTP: smtp.ig.com.br porta 465

Servidor requer autenticação

http://www.ig.com.br/email/help/ig_acesso_pop10.html

BOL

POP3: pop3.bol.com.br porta 995
SMTP: smtps.bol.com.br porta 587

Servidor requer autenticação

Servidor requer conexão de segurança SSL

http://email.bol.uol.com.br/ajuda/configuracao/outlook_express_6.jhtm

Terra

POP3: porta 110
SMTP: porta 587

Servidor requer autenticação

http://duvidas.terra.com.br/bin/controller.php?action=FAQS_SHOW_CONTENT&id=1080

UOL

POP3: pop3.uol.com.br
SMTP: smtps.uol.com.br

Servidor requer autenticação

http://email.uol.com.br/configuracoes/outlook_6.jhtm

Yahoo

POP3: pop.mail.yahoo.com.br porta 995
SMTP: smtp.mail.yahoo.com.br porta 465

Servidor requer autenticação

Servidor requer conexão de segurança SSL

http://help.yahoo.com/l/br/yahoo/mail/pop/pop-06.html

Twitter / Linkedin

http://twitter.com/thiagofranca
http://br.linkedin.com/pub/thiago-fran%C3%A7a/4/102/5b4

Consulta Inutilização de NFe

https://www.nfe.fazenda.gov.br/portal/NFeInutilizacao/FormularioDePesquisaInut.aspx

Consulta Inscrição Estadual

http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/consultaSintegraServlet

Lançamento da versão 1.4.8 do NeXT ERP

Demo disponível para download nos links :
Nota Fiscal Eletrônica:  
http://www.nextsoftware.com.br/downloads/next_erp_nfe_demo.zip

ERP:  
http://www.nextsoftware.com.br/downloads/next_erp_v1118.zip

ERP Auto peças
http://www.nextsoftware.com.br/downloads/next_erp_autopecas.zip

Melhorias no tratamento de envio e retorno da nota fiscal eletrônica. Na consistência dos dados, abertura automática do cadastro para identificação dos dados a corrigir.

Mapa de localização do cliente

Venda rápida balcão

 Link do software para o site de consulta pública da NFe

Nova tela de emissão de NF

Comissões e fechamento de caixa - dados precisos de todas as vendas, comissões, vendedores e produtos

Faturamento a pagar diretamente pela nota fiscal de entrada

Parametrização do cálculo da substituição tributária 

Novo serviço - NeXT SyncERP - para integração com filiais ou backup remoto

Envio das notas fiscais eletrônicas para contabilidade

Nova funcionalidade nas telas de pedidos (compras/vendas), orçamentos e produtos - cópia - tecle no campo código e copie um pedido ou cadastro anterior

Gerar DANFE na web a partir do arquivo XML

Gere facilmente a DANFE a partir do XML assinado!

Link: http://www.webdanfe.com.br/

Consulta Pública de NFe e credenciamento

Link para consulta:

http://nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx

Será necessário digitar a Chave de Acesso da Nota Fiscal (44 dígitos).

Consulta de NFe de um dos clientes da NeXT Software na SEFAZ-SP:

Consulta NFe no portal nacional da nota fiscal eletrônica:

 
Link para consultas no ambiente de homologação da SEFAZ-SP:
http://homologacao.nfe.fazenda.sp.gov.br/ConsultaNFe/consulta/publica/ConsultarNFe.aspx

Portal Nacional da NFe
http://www.nfe.fazenda.gov.br/portal/

Homologação: 
http://hom.nfe.fazenda.gov.br/

Informações sobre credenciamento para emissão da nota fiscal eletrônica (SP).

 http://www.fazenda.sp.gov.br/nfe/credenciamento/credenciamento.asp

Link para contribuintes solicitarem credenciamento: 
https://www.fazenda.sp.gov.br/credenciamentonfe

Consulta empresas credenciadas:
http://www.fazenda.sp.gov.br/nfe/empresas/consulta/empresas.asp

Disponibilidade de Serviços das Secretarias de Fazenda

Essa consulta oferece uma visão geral dos Serviços NF-e disponíveis na SEFAZ em cada Unidade Federativa (UF).

http://www.nfe.fazenda.gov.br/portal/VerificacaoDeServicos/VerificacaoServicos.aspx

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:

http://www.fazenda.gov.br/confaz/confaz/atos/atos_cotepe/2010/ac013_10.htm

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á:

• 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."

Link: http://www.nfe.fazenda.gov.br/portal/assuntoagrupado3.aspx#sc0316

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á

Visualização do XML da NFe

Próxima versão:

- Cobrança CNAB

- Arquivos SINTEGRA

SPED: NF-e: Comprei mercadoria com NF-e denegada. E agora?

http://www.joseadriano.com.br/profiles/blog/show?id=3326143%3ABlogPost%3A13000

Preenchimento da nota fiscal eletrônica para optantes do simples nacional

http://www.robertodiasduarte.com.br/preenchimento-de-nf-e-para-optantes-do-simples-nacional/

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:

http://www.nextsoftware.com.br/downloads/next_erp_nfe_demo.zip

Instalação do Microsoft .Net Framework 2.0:

http://www.microsoft.com/downloads/details.aspx?FamilyID=0856eacb-4362-4b0d-8edd-aab15c5e04f5&DisplayLang=pt-br

Instalação do UniNFe:

http://www.unimake.com.br/uninfe/downloads/iuninfe2.exe

Instalação do UniDANFe:

http://www.unimake.com.br/uninfe/downloads/iunidanfe2.exe

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

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

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/

• Baixatudo: http://baixatudo.globo.com/download/next-erp.html

• Baixe.Net: http://baixe.net/download/1710/next-erp/

• iProgramas: http://www.iprogramas.com.br/2008/programas/xjmu/NeXT_Software.html

• Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html

• Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6

• ObaDownloads: http://obadownloads.obarecados.com/download/1/355/6792/next-erp.html

• Ziggi: http://www.ziggi.com.br/downloads/next-erp

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:

• Superdownloads: http://superdownloads.uol.com.br/download/196/next-erp/

• Ultradownloads: http://ultradownloads.com.br/download/NexT-ERP/

• Baixatudo: http://baixatudo.globo.com/download/next-erp.html

• Baixe.Net: http://baixe.net/download/1710/next-erp/

• iProgramas: http://www.iprogramas.com.br/2008/programas/xjmu/NeXT_Software.html

• Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html

• Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6

• ObaDownloads: http://obadownloads.obarecados.com/download/1/355/6792/next-erp.html

• Ziggi: http://www.ziggi.com.br/downloads/next-erp

• 4Shared: http://www.4shared.com/file/153704958/548c40bd/next_erp_v1118.html

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:

• Ultradownloads: http://ultradownloads.com.br/download/NexT-ERP/

• Baixatudo: http://baixatudo.globo.com/download/next-erp.html

• Baixe.Net: http://baixe.net/download/1710/next-erp/

• iProgramas: http://www.iprogramas.com.br/2008/programas/xjmu/NeXT_Software.html

• Kero Download: http://www.kerodownload.com/s-fx_download-id-21127.html

• Meus Downloads: http://www.meusdownloads.com.br/p.jsp?ppID=eec6

• ObaDownloads: http://obadownloads.obarecados.com/download/1/355/6792/next-erp.html

• Ziggi: http://www.ziggi.com.br/downloads/next-erp

• 4Shared: http://www.4shared.com/file/153704958/548c40bd/next_erp_v1118.html

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

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.

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

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

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 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

Ordenação em C# e Fatorial

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.

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 !