Páginas

Google
 

quinta-feira, 8 de outubro de 2009

EFD: Sefaz prorroga prazo para entre de contas ao Fisco

O governador Blairo Maggi autorizou a Secretaria de Fazenda de Mato Grosso (Sefaz) a prorrogar para até 31 de dezembro de 2009 o prazo para as empresas obrigadas a utilizar a Escrituração Fiscal Digital (EFD) entregarem ao Fisco estadual os arquivos referentes às operações efetuadas a partir de janeiro deste ano. A data limite seria nesta quarta-feira (30.09).
A partir de janeiro de 2010, a Sefaz notificará as empresas que não tiverem apresentado os arquivos digitais ao Fisco a pagarem multa sancionatória correspondente a 1% do valor das operações e prestações efetuadas, limitada ao máximo de 200 UPFMT- Unidade Padrão Fiscal de Mato Grosso (R$ 6.398) por mês em atraso, quando tal cálculo ultrapassar este teto.
A relação de contribuintes obrigados a utilizar a EFD em 2009 está disponível no Diário Oficial da União do dia 18 de junho. Também pode ser consultada no portal www.receita.fazenda.gov.br, na página principal. Em Mato Grosso, 11.857 empresas estão obrigadas a utilizar a sistemática.

SOBRE A EFD

Integrante do Sistema Público de Escrituração Digital (Sped), projeto que compõe o Programa de Aceleração do Crescimento do Governo Federal (PAC 2007-2010), a EFD é um mecanismo consistente no preenchimento e na escrituração digital em ambiente fazendário de internet, bem como na recepção de informações eletrônicas com assinatura digital.
A empresa que utilizar a EFD, em substituição à escrituração impressa em papel, é dispensada de atender a obrigações acessórias fixadas em âmbito federal e estadual. No que tange às informações do Imposto sobre a Circulação de Mercadorias e Prestação de Serviços (ICMS), algumas obrigações acessórias que foram incorporadas à EFD são: livros de escrita fiscal e arquivos do Convênio ICMS 57/95.
Até então, as informações requeridas pelo Fisco eram fornecidas por meio de um grande número de demonstrações em meio eletrônico e diferentes layouts, o que acarretava um aumento de obrigações acessórias ao contribuinte.


Fonte: Sefaz/MT

quarta-feira, 23 de setembro de 2009

buscador ecologico

buscador ecologico

http://www.eco4planet.com/pt/

http://olhardigital.uol.com.br/central_de_videos/video_wide.php?id_conteudo=9322&/ECO4PLANET+O+BUSCADOR+ECOLOGICO

leitor de codigo de barras, elgin, bematech...

Atendendo a pedidos.

como desabilitar o control + j do leitor de codigo de barras elgin.

va na página 16 do manual e passe o leitor em:

1-Start Configuration
2-CR (%7s0+)
3-end configuration
4-save configuration


Atenção para o item 2:

* se vc fizer a leitura no item vai enviar ENTER + CTRL + J após a leitura do codigo de barras.
* se vc fizer a leitura do item None não vai enviar nada.
* se vc fizer a leitura do item CR vai enviar somente o ENTER
* se vc fizer a leitura do item LF vai enviar somente o CTRL + J

sexta-feira, 18 de setembro de 2009

Travamento do monitor de nota fiscal eletronica

De acordo com o Cristian (guaranta) ele resolveu os travamentos estranhos do moinitor de nota fiscal eletronica apenas validando o windows XP... ou seja.... tem que ser windows original





ou




ehehe


procure no google

validar windows xp

ou

http://www.burlar.org/outros/aprenda-a-validar-seu-windows-xp-como-original-sem-instalar-nada/

quarta-feira, 29 de julho de 2009

OMS conclui que câmara de bronzeamento provoca câncer (oia a cagada)

fonte:
http://www1.folha.uol.com.br/folha/ciencia/ult306u601870.shtml

29/07/2009 - 02h51
OMS conclui que câmara de bronzeamento provoca câncer
====================
da Folha Online
====================
A Iarc (Agência Internacional para Pesquisa do Câncer), braço da OMS (Organização Mundial da Saúde) voltado para pesquisas da área oncológica, elevou o nível de alerta do bronzeamento artificial. Para a entidade, as cabines usadas no processo deixaram de ser "prováveis cancerígenas" para representar uma causa concreta de tumor de pele --a mesma relação entre o cigarro e o câncer, por exemplo.

A conclusão surgiu depois que um grupo de 20 especialistas concluiu que o risco de câncer de pele aumenta em cerca de 75% quando as pessoas começam a usar câmaras de bronzeamento antes dos 30 anos.

Leia mais sobre saúde
Cientistas produzem camundongos por meio de células-tronco
Corante azul de comida trata lesão medular
Obesidade provoca pane no sistema de defesa do corpo

Os raios UVA emitidos pelas câmaras estimulam a produção de melanina (que dá a coloração mais escura da pele). É justamente essa radiação que está relacionada a um maior risco de melanoma, o tipo mais agressivo de câncer de pele.

As lâmpadas usadas nessas cabines são capazes de acelerar o envelhecimento da pele. O excesso de radiação, por sua vez, pode danificar o DNA das células. O melanoma surge quando uma dessas células danificadas se prolifera.

Desde 1992, os raios solares ultravioletas (A, B e C), do mesmo modo que os UVA artificiais de lâmpadas de bronzeamento, são classificados no nível 2 de perigo do Iarc. Com os novos estudos, essa radiação passa a ser de nível 1, que classifica produtos cancerígenos para o homem.

O organismo destaca ainda que "numerosos estudos mostraram uma ligação entre o bronzeamento artificial e o melanoma ocular". "Não somos uma agência reguladora; publicamos resultados científicos para que as agências de saúde nacionais possam tomar as decisões que julguem necessárias", explicou Vincent Cogliano, um dos pesquisadores da Iarc.

Segundo um estudo da Associação Alemã para a Prevenção Dermatológica, realizado no final de 2008, cerca de 14 milhões de alemães com entre 18 e 45 anos fazem bronzeamento artificial e um quarto deste total começou com entre 10 e 17 anos.

Georges Reuter, presidente do Sindicato Francês de Dermatologistas, disse que o "grande perigo é tentar manter o bronzeado durante todo o ano". Segundo Reuter, o limite de sessões de bronzeamento é de dez ao ano. "O outro perigo é a má manutenção das instalações", disse.

Com France Presse

terça-feira, 16 de junho de 2009

Limite de conexões de entrada no Windows XP

fonte: Suporte microsoft

ID do artigo: 314882 - Última revisão: quinta-feira, 22 de março de 2007 - Revisão: 3.0
Limite de conexões de entrada no Windows XP
Exibir os produtos aos quais esse artigo se aplica.

Para obter uma versão deste artigo para o Microsoft Windows 2000, consulte 122920 (http://support.microsoft.com/kb/122920/PT-BR/ ) .

Expandir tudo | Recolher tudo
SintomasEm um computador executando o Windows XP ou o Windows 2000, ao tentar se conecta...Em um computador executando o Windows XP ou o Windows 2000, ao tentar se conectar a outro computador com o Windows XP, talvez a seguinte mensagem seja exibida:
Não podem ser feitas mais conexões a este computador remoto no momento, porque já foi atingido o número máximo de conexões que o computador pode aceitar.
Voltar para o início
CausaEsse comportamento ocorre se o computador atingir o número máximo de conexões de...Esse comportamento ocorre se o computador atingir o número máximo de conexões de entrada que podem ser hospedadas por ele.

Nesse caso, quando o cliente do Windows 2000 realizou uma conexão de sessão nula, o servidor com base no Windows XP contou essa conexão como uma sessão. Portanto, o computador retorna as mensagens de erro mencionadas na seção "Sintomas" mesmo se as conexões do computador forem inferiores ao limite da sessão.

Observação No Windows XP Professional, o número máximo de outros computadores permitidos para conexão simultânea sobre a rede é dez. Este limite inclui todos os protocolos de transporte e compartilhamento de recursos combinados. Para o Windows XP Home Edition, o número máximo de outros computadores com permissão para se conectar simultaneamente na rede é de cinco. Esse limite é o número de sessões simultâneas de outros computadores que o sistema pode hospedar. Ele não se aplica ao uso de ferramentas administrativas anexadas por um computador remoto.
Voltar para o início
Mais InformaçõesQualquer sessão de arquivo, impressão, pipe nomeado ou slot de mensagem que não...Qualquer sessão de arquivo, impressão, pipe nomeado ou slot de mensagem que não tiver nenhuma atividade é automaticamente desconectada após o tempo de desconexão automática ter expirado; o padrão para o tempo de Desconexão automática é 15 minutos. Quando a sessão é desconectada, uma das dez conexões se torna disponível, de modo que outro usuário possa se conectar ao sistema do Windows XP. Portanto, a diminuição do tempo de Desconexão automática pode ajudar a reduzir alguns dos problemas enfrentados pelos usuários com o limite de dez ou de cinco conexões em um sistema que não é usado com freqüência ou que é usado como um servidor.

É possível configurar o tempo de Desconexão automática executando o seguinte comando por um prompt de comando:
net config server /autodisconnect:time_before_autodisconnect
Especifique o tempo em minutos.

Observação O serviço do Windows Server é ajustado automaticamente. Geralmente, os parâmetros de configuração do servidor são configurados automaticamente (calculados e definidos) sempre que o Windows XP é iniciado. Se o comando net config server for executado juntamente com as opções /autodisconnect, /servcomment ou /hidden, os valores atuais dos parâmetros de ajuste automático serão exibidos e gravados no Registro. Após a gravação desses parâmetros no Registro, não é possível ajustar o serviço Servidor usando a ferramenta Redes no Painel de controle. Se você alterar qualquer configuração do serviço Servidor, o Windows XP não poderá mais ajustar automaticamente o serviço Servidor para a nova configuração. Para evitar a perda do recurso de ajuste automática dos serviços do Server, faça a alteração usando o Editor do Registro em vez de uma linha de comando ou através do Painel de controle.
Toda unidade lógica, impressora lógica e conexões no nível de transporte combinadas em um único computador são consideradas como uma sessão. Por isso, essas conexões contam apenas como uma no limite de dez. Por exemplo, se um usuário estabelecer duas conexões de unidade lógica, dois soquetes do Windows e uma conexão de impressora lógica com um sistema do Windows XP, uma sessão será estabelecida. Como resultado, apenas uma conexão será usada de todas que podem ser feitas no sistema do Windows XP, apesar de três conexões lógicas terem sido estabelecidas.

A única maneira de o sistema A ter diversas sessões para outro sistema, o sistema Z, é se o sistema A estiver executando serviços que criaram conexões lógicas para o sistema B. Por exemplo, se um usuário estiver conectado ao sistema A, como convidado, e um serviço estiver em execução nesse sistema sob a conta user1, e tanto o usuário como o serviço (como user1) estabelecerem conexões para o sistema Z, duas sessões são estabelecidas. Cada sessão de logon que usa o serviço Servidor conta contra o limite de conexão.

Por implantação: o limite de conexão refere-se ao número de conexões com base no redirecionador e é forçado para qualquer sessão de arquivo, impressão, pipe nomeado ou slot de mensagem. O limite de conexão TCP não é forçado, mas pode ser limitado por contrato legal para não permitir mais de 10 clientes.

Para obter mais informações sobre limite de conexões de entrada no Windows Server 2000, clique no número abaixo para ler o artigo na Base de Dados de Conhecimento Microsoft (a página pode estar em inglês):
122920 (http://support.microsoft.com/kb/122920/ ) Limite de conexões de entrada no Windows
Voltar para o início

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

A informação contida neste artigo aplica-se a:
Microsoft Windows XP Home Edition
Microsoft Windows XP Professional
Voltar para o início
Palavras-chave: kbnetwork kbprb KB314882

domingo, 14 de junho de 2009

Dê boot a partir de um pendrive e carregue no bolso seus aplicativos

http://pcworld.uol.com.br/dicas/2009/06/12/de-boot-a-partir-de-um-pendrive-e-carregue-no-bolso-seus-aplicativos/


fonte: pcworld

Dê boot a partir de um pendrive e carregue no bolso seus aplicativos
Monica Campi, da PC World
12-06-2009
Ter um sistema operacional em um dispositivo USB pode ajudar na hora do aperto e garantir seus aplicativos em qualquer PC.

E-mail Imprima Comente Erros? del.icio.us Digg a a a [ + Dicas ]Mais recentesMais lidasDê boot a partir de um pendrive e carregue no bolso seus aplicativosDecida se você deve ou não abrir seu PC para limpá-loFique ligado no que as crianças fazem ao usar a internetWindows 7: Sete atalhos para facilitar o uso do sistema operacionalFerramenta gratuita ajuda monitorar a infraestrutura de TI da empresa
Reportagem feita a partir de dúvida de leitor; saiba mais

Instalar o sistema operacional em um pendrive e a partir dele iniciar seu computador é um recurso muito útil, principalmente para administradores de rede que, vez ou outra, precisam fazer um backup de emergência, ou para usuários preocupados com a possibilidade de perda de dados.


A idéia é muito parecida com o que é oferecido por algumas distribuições Linux, que já vem no formato de pendrive ou em Live CDs. Mas vamos mostrar como utilizar dessa forma o Windows XP (para o Linux as instruções são as mesmas) e o Windows Vista. Além de alguns aplicativos que também podem ser levados no bolso.


Pré-requisitos
Antes de começar é importante saber o que será preciso para iniciar o processo. Além do pendrive, que deve ter no mínimo 2 gigabytes (GB) de capacidade e estar completamente vazio (para quem for instalar o Vista, recomenda-se no mínimo 4GB de espaço no dispositivo flash), o disco de instalação original do sistema operacional a ser utilizado e baixar alguns softwares para ajudar na tarefa.


Outro detalhe importante é verificar na BIOS do seu computador (ao ligar a máquina, pressione Del ou F2 para acessar a configuração do PC) se existe a opção de boot através do dispositivo USB. Se não houver, então sua máquina não suportará esse tipo de tarefa.


Windows XP
Para começar, baixe o freeware Bart PE Builder, que é um dos responsáveis pelo processo de criação dos arquivos bootáveis. Para facilitar, durante a instalação, observe a opção de gerar de um ícone do programa no desktop. Dê duplo clique para rodar o programa.


Certifique-se de que o disco do Windows XP esteja no drive óptico. Na tela do Bart PE Builder, indique o caminho do drive onde está o sistema operacional no campo Source: (path to Windows installation files). Exemplo: D:.


Marque a opção Create ISO Image e coloque, logo abaixo, o caminho e o nome para salvar o arquivo gerado. Clique no botão Build para começar o processo. Isso pode demorar alguns minutos.


O arquivo ISO gerado contém os componentes mínimos necessários do Windows XP, algumas ferramentas de reparo e fica em torno de 150 megabytes (MB).




As imagens ISO são usadas para gravar CDs ou DVDs. Para gravar os arquivos no pendrive e, para que este desempenhe a função de boot, você terá de baixar outro programa, o FlashBoot.


Após baixar e instalar o software, dê duplo clique no ícone correspondente para rodar o FlashBoot. Na tela inicial, clique em Next. O próximo passo é escolher o tipo de disco a ser criado. Use a primeira opção, Convert BartPE Bootable Disk to Flash Disk. Clique no botão Next novamente.


Nesse momento, você terá de indicar a localização do arquivo ISO que foi criado no primeiro passo. Clique em Browse para esta operação.


Ao localizar o arquivo, conecte o pendrive em alguma porta USB do computador. Feito isso, clique em Next e escolha a unidade (Drive Letter) correspondente ao dispositivo USB e marque a opção Make Bootable USB Flash Disk Which is Physically Present on This PC. Pressione Next.


Escolha a opção de particionamento USB-HDD e clique em Finish. Aí é só esperar que a cópia seja feita e que não ocorra nenhum erro de gravação.




Ao iniciar o sistema usando o pendrive, aparecerá a mensagem “Starting BartPE”. O processo é lento e é preciso ter paciência.


Após carregá-lo, uma versão enxuta do Windows XP estará disponível para uso. Se o computador estiver conectado a uma rede, basta configurar o TCP/IP. O menu Go, que aparece no canto inferior esquerdo, é semelhante ao menu Iniciar do Windows e oferece o caminho para todos os utilitários instalados.


Windows Vista
Usar o pendrive para dar boot com o Vista é mais simples e rápido que com o XP. Para começar abra o prompt de comando do sistema, na função executar localizada no menu Iniciar. Digite cmd e dê Enter.




Isso abrirá a janela de comando, onde você deverá digitar: diskpart. Dê Enter. A seguir, digite o comando list disk. Este comando lhe informará os discos presentes no sistema. Através desta informação, identifica-se o disco alvo (pendrive) para o particionamento/formatação.



Atenção: cuidado para não particionar/formatar o disco errado. Na janela pode-se ver o resultado do comando e em destaque o pendrive de 1GB (usado no exemplo), identificado pelo DiskPart como sendo o "Disk 3".




Em seguida, aplique o seguinte comando: select disk 3 (nesse caso é o "disk 3", mas use o número relativo a seu dispositivo flash, como exemplificado no procedimento anterior). Após isso, aplique os comandos a seguir, na ordem que estão. E dê Enter após digitar cada um deles:


• clean
• create partition primary
• select partition 1
• active
• format fs=fat32
• assign
• exit


Como resultado deste procedimento, seu pendrive está pronto para receber os arquivos do Vista, provenientes do DVD de instalação. Habilite a visualização de arquivos do sistema no Windows Explorer (tecle Windows + E) e copie todo o conteúdo do DVD para dentro do dispositivo flash, mantendo a estrutura original de arquivos.


Na imagem a seguir estão todos os arquivos que devem ser copiados. Verifique se todos foram passados para o pendrive. Após realizar esse processo, seu dispositivo USB estará pronto para iniciar com o Windows Vista.




Aplicativos no pen drive
A lista dos aplicativos portáteis é longa. Clientes de e-mail, browsers, pacotes de escritório, mensageiros, dicionários, editores de imagens, agenda, utilitários multimídia e assim por diante. Quase tudo que você usa no seu computador de casa, hoje, pode ser usado em forma portátil, sem necessidade de instalar nada, independentemente do computador que você use. Você roda o software a partir do próprio pen drive, que também contém seus documentos e arquivos.


Um dos mais conhecidos é o Portable Apps, que reúne os principais programas de código aberto, em formato portátil para acesso a partir de dispositivos flash.


Entre os principais aplicativos da suíte, estão o navegador Firefox, o antivírus ClaimWin, o Gaim (mensageiro que conecta a servidor do MSN, Yahoo, AOL, etc.), Open Office completo (textos, planilha, cálculo, apresentações), Thunderbird como cliente de e-mail e o calendário Sunbird, além do joguinho Sudoku.




O download tem apenas 90MB e, para usar todos os aplicativos, é preciso um pendrive de no mínimo 512MB. Mas se você quer apenas um aplicativo office e que seja compatível com o Microsoft Office, então o OpenOffice é ideal.


Já para quem quer um leitor PDF, recomendamos o Sumatra. Para atividades multimídia, o editor de áudio Audacity também tem sua versão portátil, assim como o editor de imagens Gimp (ambos com versões para Mac e PC). Na wikipedia existe uma imensa lista com todos os aplicativos portáteis disponíveis.



Tela do GIMP



Widgets PC WorldColoque a PC World no seu site
Revista Digital PC WorldFolheie gratuitamente a PC World
Newsletters PC WorldAssine as Newsletters da PC World

Opinião do leitor
Não há comentários para essa notícia. Seja o primeiro a comentar

quarta-feira, 27 de maio de 2009

download de porta com virtual

porta com virtual

http://www.virtualserialport.com/download/vspd.exe

COM1 para usar com notebook e emulador mp2100 bematech

quarta-feira, 6 de maio de 2009

Aplicação pratica pra key log - abrir gaveta

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Procedure AbreGaveta;
end;

var
Form1: TForm1;

const
ESC = chr($1B); // Escape global...
GavBematech = ESC+chr($76)+chr($80); // Abre gaveta bematech

implementation

{$R *.dfm}

procedure TForm1.AbreGaveta;
var F:TextFile;
begin
AssignFile(F,'LPT2');
Rewrite(F);
Writeln(F,GavBematech);
CloseFile(F);

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
keyloop, KeyResult : Integer;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then
begin
case keyloop of
123: AbreGaveta;
end;
end;
inc(keyloop);
until keyloop = 255;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AbreGaveta;
end;

end.

Monitorar que tecla foi digitada - key logger (delphi 6)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


const
ESC = chr($1B); // Escape global...
// comandos matriciais
lg05CPP = ESC+chr($50)+chr($12); // 40 colunas
lg10CPP = ESC+chr($50)+chr($12); // 80 colunas
lg12CPP = ESC+chr($4D)+chr($12); // 96 colunas
lg17CPP = ESC+chr($50)+chr($0F); // 136 colunas
lg20CPP = ESC+chr($4D)+chr($0F); // 160 colunas
lgDRAFT = ESC+chr($78)+chr($00); // liga modo qualidade rascunho
lgNLQ = ESC+chr($78)+chr($01); // liga modo qualidade Carta
mv6Lpi = ESC+chr($32); // mov vertical 6 linhas p/inch -
mv8Lpi = ESC+chr($30); // mov vertical 8 linhas p/inch
ELineFeed = chr($0A);
EFormFeed = #12;



implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;


function Coloca(txt: String): String;
begin
Form1.Memo1.Text := Form1.Memo1.Text + txt;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
keyloop, KeyResult : Integer;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then
begin
case keyloop of
8: Coloca(' [BACKSPACE] ');
9: Coloca(' [TAB] ');
12: Coloca(' [ALT] ');
13: Coloca(' [ENTER] ');
16: Coloca(' [SHIFT] ');
17: Coloca(' [CONTROL] ');
18: Coloca(' [ALT] ');
20: Coloca(' [CAPS LOCK] ');
21: Coloca(' [PAGE UP] ');
27: Coloca(' [ESC] ');
33: Coloca(' [PAGE UP] ');
34: Coloca(' [PAGE DOWN] ');
35: Coloca(' [END] ');
36: Coloca(' [HOME] ');
37: Coloca(' [SETA ESQUERDA] ');
38: Coloca(' [SETA ACIMA] ');
39: Coloca(' [SETA DIREITA] ');
40: Coloca(' [SETA ABAIXO] ');
45: Coloca(' [INSERT] ');
46: Coloca(' [DEL] ');
91: Coloca(' [WIN ESQUERDA] ');
92: Coloca(' [WIN DIREITA] ');
93: Coloca(' [MENU POP-UP] ');
96: Coloca('0');
97: Coloca('1');
98: Coloca('2');
99: Coloca('3');
100: Coloca('4');
101: Coloca('5');
102: Coloca('6');
103: Coloca('7');
104: Coloca('8');
105: Coloca('9');
106: Coloca(' [NUM *] ');
107: Coloca(' [NUM +] ');
109: Coloca(' [NUM -] ');
110: Coloca(' [NUM SEP. DECIMAL] ');
111: Coloca(' [NUM /] ');
112: Coloca(' [F1] ');
113: Coloca(' [F2] ');
114: Coloca(' [F3] ');
115: Coloca(' [F4] ');
116: Coloca(' [F5] ');
117: Coloca(' [F6] ');
118: Coloca(' [F7] ');
119: Coloca(' [F8] ');
120: Coloca(' [F9] ');
121: Coloca(' [F10] ');
122: Coloca(' [F11] ');
123: Coloca(' [F12] ');
144: Coloca(' [NUM LOCK] ');
186: Coloca('Ç');
187: Coloca('=');
188: Coloca(',');
189: Coloca('-');
190: Coloca('.');
191: Coloca(';');
192: Coloca(' [APÓSTROFO] ');
193: Coloca('/');
194: Coloca(' [NUM PONTO] ');
219: Coloca('´');
220: Coloca(']');
221: Coloca('[');
222: Coloca('~');
226: Coloca('\');
else
if (KeyLoop >= 65) and (keyloop <= 90) then
Coloca(Chr(keyloop));
if (keyloop >= 32) and (keyloop <= 63) then
Coloca(Chr(keyloop));
//numpad keycodes
if (keyloop >= 96) and (keyloop <= 110) then
Coloca(Chr(keyloop));
end;
end; //case;
inc(keyloop);
until keyloop = 255;
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled := true;
end;


procedure TForm1.Button3Click(Sender: TObject);
var F:TextFile;
begin
AssignFile(F,'LPT1');
Rewrite(F);
Writeln(F,lg12CPP);
CloseFile(F);

end;

end.

quinta-feira, 12 de março de 2009

limpa spooler de impressão no xp

net stop spooler
cd\ %systemroot%\system32\spool\PRINTERS
del /f /s *.SHD
del /f /s *.SPL
net start spooler
exit

quarta-feira, 11 de fevereiro de 2009

Levantamento da Sefaz identifica empresas sem Emissor de Cupom Fiscal

Fonte: http://www.sefaz.mt.gov.br/portal/index.php?action=noti&codg_Noticia=9936&PHPSESSID=981cae57905454c367a005bb77f438c9


(atenção para os paragrafos destacados em negrito)

A Secretaria de Fazenda de Mato Grosso (Sefaz-MT) dará início, nos próximos dias, a novos levantamentos para identificar empresas de contribuintes do Imposto Sobre Circulação de Mercadorias e Prestação de Serviços (ICMS) obrigadas a utilizar o Emissor de Cupom Fiscal (ECF), mas que não dispõem do equipamento.

Em 2008, a Sefaz emitiu multas a 500 contribuintes do ICMS, cada uma no valor de R$ 3.070, pelo fato dessas empresas não disporem do ECF. A utilização deste equipamento é obrigatória para estabelecimentos varejistas que registrem faturamento superior a R$ 120 mil no ano anterior ao em curso.

A aplicação das multas foi resultado de levantamento feito pela Gerência de Informações Cadastrais (GCAD) da Sefaz junto às empresas que se enquadram neste critério no Estado, a fim de identificar quais não dispõem do equipamento.

Dessa forma, o secretário de Estado de Fazenda, Eder Moraes, observa que as empresas que se enquadrarem nesta situação e não tiverem o equipamento devem se adequar o quanto antes, para evitar o pagamento de multa. “É importante deixar claro que esses equipamentos devem estar registrados no sistema eletrônico da Sefaz. Quem possuir ECF sem o registro eletrônico encontra-se igualmente em situação irregular, sujeito, portanto, a multa”, esclarece.

Considera-se ECF o equipamento de automação comercial com capacidade para emitir documentos fiscais e realizar controles de natureza fiscal, referentes a operações de circulação de mercadorias ou a prestação de serviços.

O gerente de Informações Cadastrais da Sefaz, José Mazini, observa que algumas empresas utilizam impressoras não fiscais para fazer o controle das transações comerciais. “Essas impressoras não têm valor fiscal para o contribuinte e o fisco. São equipamentos proibidos para empresas voltadas a vendas no varejo com faturamento acima de R$ 120 mil”, pontua o gerente.

Assim, além da multa, a empresa que utilizar impressoras não fiscais poderá ter tais equipamentos apreendidos. Outra irregularidade que deixa o contribuinte sujeito a multa é a falta de integração com o sistema de Transferência Eletrônica de Fundos (TEF, - interligação do ECF com os equipamentos de cartão de crédito).



MUDANÇAS

A partir de 1º de janeiro de 2011 não será mais permitida a utilização de ECF que não possua recursos que implementem a Memória de Fita-Detalhe (MFD). A alteração está prevista no Decreto nº 1.765, de 6 de janeiro de 2009. “Assim, o contribuinte que adquirir hoje um equipamento sem este recurso terá que se desfazer do mesmo em menos de dois anos”, salienta Mazini.

Vale destacar que quem adquirir o equipamento ECF, com requisito de MFD para fins de substituição de ECF sem requisito de MFD, fica concedido crédito presumido de até R$ 1 mil, por equipamento, limitado a 12 equipamentos por contribuinte.

Fonte: http://www.sefaz.mt.gov.br/portal/index.php?action=noti&codg_Noticia=9936&PHPSESSID=981cae57905454c367a005bb77f438c9

quinta-feira, 22 de janeiro de 2009

select para buscar o numero do danfe de acordo com o numero do pedido

Ufa! Vortei

select para buscar o numero do danfe de acordo com o numero do pedido!!!!!


SELECT A.ID as Nfe_TBNfes_ID,
A.Gid as Nfe_TBNfes_GID,
B.SERIE AS SERIE,
B.Numero AS NOTANFE,
C.ID AS NUMERODANFE,
A.*
FROM NFE_TBITEMSCONCLUIDOS A
INNER JOIN Nfe_Tbnfeside B ON A.Id = B.Gid
INNER JOIN Nfe_Tbnfes C ON C.GId = A.Id
WHERE A.USREMPRESA = '03'
AND A.USRID = '0006978' // numero do pedido
AND A.Tipoitem = 1