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

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

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/

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

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

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

download de porta com virtual

porta com virtual

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

COM1 para usar com notebook e emulador mp2100 bematech

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.

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

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

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

buscar o estoque do almox 01 p/ para o dre

Estoque no dre




select sum(a.atual)
from testextsaldoproduto a
where a.empresa = '01' -- coloque o %S aqui
and a.almox = '01'
and a.anomes = (select max(b.anomes)
from testextsaldoproduto b
where b.empresa = a.empresa
and b.produto = a.produto
and b.almox = '01'
and b.anomes < (extract(year from cast('01.10.2008'as date)) || -- coloque o %S aqui, no lugar da data
extract(month from cast('01.10.2008'as date))) -- coloque o %S aqui, no lugar da data
)

Sefaz multa 500 empresas por não disporem do Emissor de Cupom Fiscal

Sefaz multa 500 empresas por não disporem do Emissor de Cupom Fiscal
#
A Secretaria de Fazenda de Mato Grosso (Sefaz/MT) emitiu multas a 500 contribuintes do Imposto Sobre Circulação de Mercadorias e Prestação de Serviços (ICMS) pelo fato dessas empresas não disporem de equipamento Emissor de Cupom Fiscal (ECF). A utilização do dispositivo, interligado ao sistema de Transferência Eletrônica de Fundos (TEF), é obrigatória para estabelecimentos varejistas que registrem faturamento superior a R$ 120 mil no ano anterior.
A aplicação das multas é 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. As multas estão sendo emitidas em lotes, conforme a Sefaz constata a irregularidade. Cada multa custa R$ 3.070. “Assim, as empresas que têm o ECF devem se adequar o mais rápido possível, para evitar ter de pagar multa”, pondera o secretário de Fazenda, Eder Moraes.
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.
Assim, além da multa, a empresa que utilizar impressoras não fiscais poderá ter tais equipamentos apreendidos. O último levantamento feito pela Sefaz, em 2005, apontou que 1.500 das cerca de 11 mil empresas estabelecidas em Mato Grosso obrigadas a utilizar o ECF não dispunham do equipamento.

FUNCIONALIDADE

A Portaria nº 043/2005-Sefaz instituiu o Sistema Eletrônico de Controle de Equipamento Emissor de Cupom Fiscal. Ela prevê que os fabricantes e os importadores de ECF deverão atender algumas exigências, antes de realizarem operações de comercialização do equipamento, como possuir cadastramento no Sistema ECF, do estabelecimento fabricante ou importador e da marca, do tipo e do modelo do equipamento, devidamente aprovado por Ato Cotepe (Comissão Técnica Permanente do Conselho Nacional de Política Fazendária do Ministério da Fazenda)/ICMS; e obter senha de acesso ao sistema junto à Sefaz.

As operações de comercialização de ECF a contribuintes de Mato Grosso e as intervenções técnicas realizadas no equipamento deverão ser informadas eletronicamente, mediante acesso ao Sistema ECF, conforme o caso, pelos fabricantes, importadores, revendedores, usuários e estabelecimentos credenciados a prestar assistência técnica. O acesso ao sistema será efetuado no endereço eletrônico www.sefaz.mt.gov.br.

Concluída a intervenção técnica, o contribuinte usuário de ECF, por meio do profissional de contabilidade devidamente inserido no Cadastro de Contribuintes do Estado (CCE/MT), terá o prazo de 10 dias para efetivar a confirmação, via Sistema ECF, do uso ou da cessação de uso do equipamento.
# Fonte: Assessoria Sefaz/MT
# Fonte: http://www.cdlaf.com.br/index.php?pg=noticias&cod=715&tipo=1

SEFAZ/MT dispensa uso de Formulário de Segurança para NF-e emitida em contingência

4.6.08
SEFAZ/MT dispensa uso de Formulário de Segurança para NF-e emitida em contingência
A Portaria nº 095/08 dispensou o uso de FORMULÁRIO DE SEGURANÇA de Nota Fiscal Eletrônica emitida em contingência, para o contribuinte que efetuar o registro no Sistema de Digitação de Notas Fiscais de Saída –Portaria 31/2005

Salientamos que o contribuinte deve emitir o DANFE em contingência em papel A4(normal) e depois registrar a nota fiscal no Sistema de Digitação de Notas Fiscais e gerar o comprovante que acompanhará o DANFE para baixa no Posto Fiscal ou trânsito interno.

Fonte: Informe Tributário

ops, errei

[preferencias]

;; no eco.ini em prefereincias, onde estava TipoAtividade=CONVENIENCIA na verdade é:
Atividade=CONVENIENCIA


usuario=
empresa=01
programa=0
PesquisaTotalDosProdutos=S
PesquisaIncrementalDosProdutos=S
ModeloDoPedido=1
Firebird=C:\ecosis\windows\fbclient.dll
DiretorioLMC=C:\Documents and Settings\Administrador\Desktop
MultiplasInstancias=N
DiretorioDoExeNovo=
Desenvolvimento=N
DiretorioDeRelatorios=

Bematech faz a 5a aquisição para fortalecer área de software

Original
http://br.tecnologia.yahoo.com/article/24072008/5/noticias-tecnologia-bematech-5a-aquisi-fortalecer-area-software

Por Taís Fuoco

SÃO PAULO (Reuters) - A Bematech, companhia brasileira de automação comercial, anunciou nesta quinta-feira sua quinta aquisição em um ano--a terceira desde a abertura de capital, em abril de 2007.

O foco de todas elas é o mesmo: fortalecer o segmento de softwares da empresa de equipamentos de automação comercial para que ela possa levar o pacote completo ao varejo: os terminais eletrônicos com os respectivos programas e serviços.

Em todas as compras, a Bematech decidiu estabelecer o valor do negócio com base em um determinado desempenho futuro com o qual a empresa comprada se compromete.

Segundo afirmou em entrevista à Reuters Luciano Sfoggia, vice-presidente financeiro e de relações com investidores, a estratégia "é um estímulo ao desempenho satisfatório e uma forma de reter os talentos dessas empresas".

Segundo ele, até o momento, "o modelo tem se mostrado satisfatório". Apenas em uma dessas compras, até agora, a companhia comprada não atingiu o desempenho acertado em contrato: a transação com a Gemco, anunciada no final de 2006.

Por isso, a segunda parcela da aquisição dessa companhia, de 20 milhões de reais, não foi paga pela Bematech.

No caso da aquisição anunciada nesta quarta, a empresa de automação vai assumir a MisterChef Sistemas de Automação, segunda compra da Bematech na área de softwares para restaurantes e redes de fast food.

O valor será calculado utilizando um múltiplo de 5 vezes o Ebitda calculado sobre o período de 24 meses após a data de fechamento da operação, com pagamento em duas parcelas. A empresa adiantou um pagamento de 5 milhões de reais, que será descontado do valor final do negócio.

12 ACORDOS ASSINADOS

A fase de aquisições da Bematech, entretanto, está longe de terminar, segundo o vice-presidente.

De acordo com Sfoggia, "a estratégia é buscar novas aquisições em software para cobrir todas as verticais do varejo", que são em torno de 16 segmentos.

Ele informou que a Bematech tem 12 acordos de confidencialidade assinados "dentro e fora do Brasil" para avaliar novas aquisições.

O setor varejista "continua com bom desempenho, com crescimento consistente, o que favorece o nosso negócio", disse ele.

(Edição de Vanessa Stelzer)

corrigindo.. parte II

/*
abrir um lote de invetario
>> pegar o numero do lete e apagar os itens deste lote aberto
>> ajustar e executar a sql abaixo
>> entrar no sistema com o usuario supervizor e zerar as quantidades
>> fechar o lote de inventario.

*/




insert into testinventarioitens (empresa,
lote,
produto,
estoque)
select a.empresa,
'0019', -- numero do lote
a.produto,
a.estdisponivel
from
testestoque a
where
a.empresa = '01'
and a.almox = '01'
and not exists (select b.produto
from testinventarioitens b
where b.empresa = a.empresa
and b.lote in('0016') -- colocar todo o intervalo de lotes
and b.produto = a.produto
)
and not exists (select d.produto
from testnfe c
left outer join testnfeprod d on( d.empresa = c.empresa
and d.codigoid = c.codigoid)
where c.status <> 'CA'
and c.dataentrada between '01.01.2008' and '31.12.2008' -- colocar a data de entrada das notas fiscais
and d.produto = a.produto
)

novo lote de inventario

/*
1 - abra um lote de inventario com um unico produto e pegue o numero do lote,
2 - va na testinventarioitens e delete os itens do lote que acabou de abrir
3 - faça os ajustes e no script abaixo e execute o script abaixo.
4 - entre com o usuario supervisor e va na contagem de estoque e clique na opção zera qtde contada
5 - feche o lote de invetario.
*/

insert into TESTINVENTARIOITENS (EMPRESA,
LOTE,
PRODUTO,
ESTOQUE)
select '01',
'3540', -- colocar o numero do lote novo aqui
pdg.codigo,
est.estdisponivel
from testprodutogeral pdg
inner join testestoque est on(est.empresa = '01' and -- colocar a empresa
est.almox = '01' and -- colcoar o almox
est.produto = pdg.codigo)
where est.empresa = '01' and -- colocar a empresa
not exists(select inv.produto
from testinventarioitens inv
where inv.empresa = '01' -- colocar a empresa
and inv.produto = pdg.codigo
and inv.lote in('3540', '3541') -- colocar os lotes que tem os produtos que nao devem entrar neste lote novo
)