Páginas

Google
 

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

segunda-feira, 13 de outubro de 2008

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
)

segunda-feira, 29 de setembro de 2008

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

quinta-feira, 28 de agosto de 2008

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

terça-feira, 5 de agosto de 2008

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=

sexta-feira, 25 de julho de 2008

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)

sexta-feira, 11 de julho de 2008

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
)

terça-feira, 8 de julho de 2008

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
)

segunda-feira, 7 de julho de 2008

atualizando parametros

/*
## TRecParametro
*/
update trecparametro a1
set a1.idbaixa = coalesce((select max(a2.idbaixa) from trecbaixa a2
where a2.empresa = a1.empresa),0);
update trecparametro b1
set b1.idbaixach = coalesce((select max(b2.idbaixach) from trecchequebaixa b2
where b2.empresa = b1.empresa),0);

update trecparametro c1
set c1.idboleto = coalesce((select max(c2.idboleto) from trecparcela c2
where c2.empresa = c1.empresa),0);

update trecparametro d1
set d1.idsequencia = coalesce((select max(d2.idsequencia) from trecparcela d2
where d2.empresa = d1.empresa),0);

update trecparametro e1
set e1.iddocumentojuro = coalesce((select max(e2.documento) from trecdocumento e2
where e2.empresa = e1.empresa and
e2.tipo = e1.tipodocjuro),0);



/*
## TPagParametro
*/
update tpagparametro f1
set f1.idpagamento = coalesce((select max(f2.idpagamento) from tpagbaixa f2
where f2.empresa = f1.empresa),0);

update tpagparametro g1
set g1.idrequisicao = coalesce((select max(g2.documento) from tpagdocumento g2
where g2.empresa = g1.empresa and
g2.tipo = g1.tipodocrequisicao),0);



/*
## TEstParametro
*/

update testparametro h1
set h1.inventarioid = coalesce((select max(h2.lote) from testinventario h2
where h2.empresa = h1.empresa),0);


/*
## TGerSequencia
*/
/* Atencao ao usar mais de uma empresa */
update tgersequencia i1
set i1.produto = coalesce((select max(i2.codigo) from testprodutogeral i2),0);

update tgersequencia j1
set j1.cliente = coalesce((select max(j2.codigo) from trecclientegeral j2
where j2.codigo < '88888'),0);

update tgersequencia k1
set k1.consumidor = coalesce((select max(k2.codigo) from tvenconsumidor k2),0);

update tgersequencia L1
set L1.transportador = coalesce((select max(L2.codigo) from tventransportador L2),0);

segunda-feira, 30 de junho de 2008

corrigindo...

update testinventarioitens a set
a.qtdcontada = (select sum(b.diferenca)
from testinventarioitens b
where b.empresa = a.empresa
and (b.lote >= '0013' and
b.lote <= '0014')
and b.produto = a.produto
)
where (a.empresa = '01') and
(a.lote = '0015');



update testinventarioitens inv
set inv.qtdcontada = inv.estoque
where inv.qtdcontada is null
and inv.empresa = '01'
and inv.lote = '0015';



update testinventarioitens i
set i.diferenca = i.qtdcontada - i.estoque
where i.empresa = '01'
and i.lote = '0015'
and i.qtdcontada is not null;

sexta-feira, 27 de junho de 2008

o Cara da Informática

1) O CARA DA INFORMÁTICA dorme. Pode parecer mentira, mas o CARA DA INFORMÁTICA precisa dormir como qualquer outra pessoa. Esqueça que ele tem celular e telefone em casa, ligue só para o escritório;

2) O CARA DA INFORMÁTICA come. Parece inacreditável, mas é verdade. O CARA DA INFORMÁTICA também precisa se alimentar e tem hora para isso;

3) CARA DA INFORMÁTICA pode ter família. Essa é a mais incrível de todas: Mesmo sendo um CARA DA INFORMÁTICA, a pessoa precisa descansar no final de semana para poder dar atenção à família, aos amigos e a si próprio, sem pensar ou falar em informática, impostos, formulários, concertos e demonstrações, manutenção, vírus e etc.;

4) CARA DA INFORMÁTICA, como qualquer cidadão, precisa de dinheiro. Por essa você não esperava, né? É surpreendente, mas o CARA DA INFORMÁTICA também paga impostos, compra comida, precisa de combustível, roupas e sapatos, e ainda consome Lexotan para conseguir relaxar. Não peça aquilo pelo que não pode pagar ao CARA DA INFORMÁTICA;

5) Ler, estudar também é trabalho. E trabalho sério. Pode parar de rir. Não é piada. Quando um CARA DA INFORMÁTICA está concentrado num livro ou publicação especializada ele está se aprimorando como profissional, logo
trabalhando;

6) De uma vez por todas, vale reforçar: O CARA DA INFORMÁTICA não é vidente, não joga tarô e nem tem bola de cristal, pois se você achou isto demita-o e contrate um PARANORMAL OU DETETIVE. Ele precisa planejar, se organizar e assim ter condições de fazer um bom trabalho, seja de que tamanho for. Prazos são essenciais e não um luxo. Se você quer um milagre, ore bastante, faça jejum, e deixe o pobre do CARA DA INFORMÁTICA em paz;

7) Em reuniões de amigos ou festas de família, o CARA DA INFORMÁTICA deixa de ser o CARA DA INFORMÁTICA e reassume seu posto de amigo ou parente, exatamente como era antes dele ingressar nesta profissão. Não peça
conselhos, dicas. ele tem direito de se divertir;

8) Não existe apenas um 'levantamentozinho' , uma 'pesquisazinha' , nem um 'resuminho', um 'programinha pra controlar minha loja', um 'probleminha que a maquina não liga', um 'sisteminha' , uma 'passadinha rápida(ALIAS CONTA-SE DE ONDE SAIMOS E ATÉ CHEGARMOS)', pois esqueça os 'inha e os inho (programinha, sisteminha, olhadinha, )' pois OS CARAS DA INFORMATICA não resolvem este tipo de problema. Levantamentos, pesquisas e resumos são frutos de análises cuidadosas e requerem atenção, dedicação. Esses tópicos podem parecer inconcebíveis a uma boa parte da população, mas servem para tornar a vida do CARA DA INFORMATICA mais suportável;

9) Quanto ao uso do celular: celular é ferramenta de trabalho. Por favor, ligue, apenas, quando necessário. Fora do horário de expediente, mesmo que você ainda duvide, o CARA DA INFORMATICA pode estar fazendo algumas coisas que você nem pensou que ele fazia, como dormir ou namorar, por exemplo;

10) Pedir a mesma coisa várias vezes não faz o CARA DA INFORMATICA trabalhar mais rápido. Solicite, depois aguarde o prazo dado pelo CARA DA INFORMATICA;

11) Quando o horário de trabalho do período da manhã vai até 12h, não significa que você pode ligar às 11:58 horas. Se você pretendia cometer essa gafe, vá e ligue após o horário do almoço (relembre o item 2). O mesmo vale para a parte da tarde: ligue no dia seguinte;

12) Quando CARA DA INFORMATICA estiver apresentando um projeto, por favor, não fique bombardeando com milhares de perguntas durante o atendimento. Isso tira a concentração, além de torrar a paciência. ATENÇÃO: Evite perguntas que não tenham relação com o projeto, tipo como.. vocês entendem é claro..;

13) O CARA DA INFORMATICA não inventa problemas, não muda versão de WINDOWS, não tem relação com vírus, NÃO É CULPADO PELO MAL USO DE EQUIPAMENTOS, INTERNET E AFINS. Não reclame! O CARA DA iNFORMATICA com certeza fez o possível para você pagar menos. Se quer EMENDAR, EMENDE, mas antes demita o CARA DA INFORMATICA e contrate um QUEBRA GALHO;

14) Os CARAS DA INFORMATICA não são os criadores dos ditados 'o barato sai caro' e 'quem paga mal paga em dobro'. Mas eles concordam. ;

15) E, finalmente, o CARA DA INFORMATICA também é filho de DEUS e não filho disso que você pensou.

16) Agora, depois de aprender sobre O CARA DA INFORMATICA, repasse aos seus amigos,afinal, essas verdades precisam chegar a todos. O CARA DA INFORMATICA agradece.

17) Não pergunte para O CARA DA INFORMATICA uma sugestão de computador BOM e BARATO para você comprar. Não existe computador BOM e BARATO. Ou é uma coisa, ou é outra.

>> autor desconhecido

quarta-feira, 18 de junho de 2008

antivirus (clique aqui para download)

Remova vírus com o Kaspersky Rescue Disk
16/06/2008 12:56

http://dnl-eu10.kaspersky-labs.com/devbuilds/RescueDisk/

Alguns vírus são muito destrutivos e difíceis de serem removidos do Windows quando o usuário não tem conhecimento para isso.

A boa notícia é que a Kaspersky está oferecendo um Rescue Disk (Disco de Recuperação) para fazer a varredura e remover vírus do computador sem a necessidade de iniciar o Windows. Uma grande vantagem é que você pode utilizar este CD em qualquer computador para detectar e eliminar os vírus ali existentes.

O Kaspersky Rescue Disk oferece uma maneira segura de remover um vírus de computador de maneira rápida, gratuita e sem o risco de ficar infectado. Tudo o que você precisa fazer é o download do arquivo ISO, gravar a imagem em um CD ou DVD e reiniciar o computador a partir desse disco.

Veja um passo-a-passo sobre como usar o Kaspersky Rescue Disk:

1. Faça o download da ISO do Kaspersky Rescue Disk.

2. Grave o CD com seu software de gravação de ISO/DVD.

3. Reinicie seu computador através do disco.

4. Aparecerá uma tela como a imagem abaixo. Pressione a tecla Enter para iniciar o Antivírus.

5. Depois que o Kaspersky Anti-Virus 2009 estiver carregado, escolha os discos rígidos que você deseja verificar e clique em Start scan.

6. O programa fará o resto.

Você pode utilizar este CD em qualquer computador para detectar e eliminar os vírus ali existentes.

Caso você esteja utilizando o Kaspersky Anti-Virus 2009 ou o Kaspersky Internet Security 2009 no seu computador, você também pode criar o seu próprio Rescue Disk, mas usá-lo em outros computadores poderá levar a conseqüências imprevisíveis, uma vez que contém informações sobre os parâmetros de um determinado computador.

Fonte: Fórum do BABOO

desabilitar o ctrl + j leitor de codigo de barras elgin

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

quarta-feira, 11 de junho de 2008

Leitor VS2200 psc (configurações)

Site internacional do fabricante: www.datalogic.com
Site do fabricante no Brasil http://www.scanning.datalogic.com/pt/html/brazil.htm
Telefone do suporte Datalogic no brasil: 011 5507 7721

Link para download do manual
http://www.scanning.datalogic.com/html/manuals.htm.
https://easeofaccess.scanning.datalogic.com/public/marketlit/Send.aspx?file=R44-2365A

Se o link direto não funcionar, procure pelo arquivo R44-2365A.



Páginas para configuração do Leitor:
>> 5-4 entra em modo de programação
>> 5-48 Interface type = pc keyboard e >> Ativa o modo teclado
>> 5-87 rs 232 label id cintrol = disable >> Tira a letra "F" do inicio do codigo de barras.

Leitor VS2200 psc (configurações)

Site internacional do fabricante: www.datalogic.com
Site do fabricante no Brasil http://www.scanning.datalogic.com/pt/html/brazil.htm
Telefone do suporte Datalogic no brasil: 011 5507 7721

Link para download do manual
http://www.scanning.datalogic.com/html/manuals.htm.


Páginas para configuração do Leitor:
>> 5-4 entra em modo de programação
>> 5-48 Interface type = pc keyboard e >> Ativa o modo teclado
>> 5-87 rs 232 label id cintrol = disable >> Tira a letra "F" do inicio do codigo de barras.

quarta-feira, 28 de maio de 2008

Guia rápido NF-E Eco

1. Instalar o Cristal Reports 9 ou o run time deste
2. Instalar o firebird 1.5.5
3. Instalar o Firebird ODBC Driver
4. No diretorio \x\Intall\adicional instalar os seguintes porgramas
4.1 \x\Install\Adicional\CAPICOM_dc_sdk_2102.msi
4.2 \x\Install\Adicional\Security Update for CAPICOM (KB931906) for WinXP only\all-capicom-kb931906-v2102_5891b5de8ce331dc998656e20f1ce0b795e88786.exe
4.3 \x\Install\Adicional\NetFx20SP1_x86.exe
5. Criar o diretorio c:\ecosis\nfe
6. copiar os diretorios e todo o conteudo \x\Install\Adicional\bin e
\x\Install\Adicional\bin para c:\ecosis\nfe\bin e lib respectivamente
7. Copie o certificado digital modelo A1 para c:\ecosis\nfe\lib
8. De duplo click no certificado digital e instale
9. Copie o nfe.eco para c:\ecosis\dados
10. Ajuste o eco.ini conforme abaixo: (sempre use com endereço IP)
[windows]
dados =127.0.0.1:\ecosis\dados\ecodados.eco
dadosnfe=127.0.0.1:\ecosis\dados\nfe.eco
[ParametroVenda]
tempoespera=60 >> tempo para tentar emitir a nfe
11. Crie uma uma conexao ODBC para o nfe.eco com o nome de nfe ...(sempre use com endereço IP)
12. use o programa C:\ecosis\nfe\Bin\NFeMonitor.exe parafazer as configuações
13. No eco, no cadastro de empresas marque a opção usa nfe
14. Ajuste o cadastro de produtos