ActiveDelphi

LinoSus

Bom dia, amigos

Eu gostaria de que ao pressionar uma tecla de atalho "F5" que ele executasse algumas funções para fechamento de cupom fiscal mas quando executo não acontece nada abaixo segue o código:

begin
if Key = VK_F5 then
Begin
if form26.DBCheckBox31.Checked then
Int_Retorno:= vendendo.iCFTotalizarCupomPadrao_ECF_Daruma();
if form26.DBCheckBox31.Checked then
Int_Retorno:= vendendo.iCNFEfetuarPagamentoPadrao_ECF_Daruma();
if form26.DBCheckBox31.Checked then
Int_Retorno:= vendendo.iCNFEncerrarPadrao_ECF_Daruma();
end;
end;
end;

faccruz · Enviada: Qua Dez 21, 2011 9:17 am Assunto:

Onde você colocou esses procedimentos?

Ativou o KeyPreview do Form?
_________________
Facc System - Sistemas para Computador

LinoSus · Enviada: Qua Dez 21, 2011 9:20 am Assunto:

Sim o Key Press esta ativado, eu coloquei esta sequencia de códigos no OnkeyDow de um Edit

faccruz · Enviada: Qua Dez 21, 2011 9:36 am Assunto:

qndo vc clica no F5, o foco está nesse edit?
_________________
Facc System - Sistemas para Computador

LinoSus · Enviada: Qua Dez 21, 2011 9:41 am Assunto:

Sim esta, eu suspeito (posso estar errado, e espero que sim srsrs) que os comandos para ecf devam ser 1 por um, de qualquer modo, se faço do modo tradicional como já venho fazendo em minha aplicação apertando F4 ele no on-show totaliza depois abre-se um form aonde o cliente digita o valor recebido então depois passando pelo on-exit, ele aperta F8 e ai imprime-se o cupom fiscal

mas....

gostaria de tornar mais simples por isto, estou tentando fazer assim com F5 já mandando todos os comandos de uma vez para a ecf

rafmattos · Enviada: Qua Dez 21, 2011 9:41 am Assunto:

Já debugou? os CheckBox estão marcados?

LinoSus · Enviada: Qua Dez 21, 2011 9:43 am Assunto:

sim já e o dbcheckbox esta setado tanto que funciona normalmente se não for por este "novo" método que estou tentando implantar

rafmattos · Enviada: Qua Dez 21, 2011 9:59 am Assunto:

LinoSus · Enviada: Qua Dez 21, 2011 10:03 am Assunto:

Não entendi muito bem sua colocação, mas minha questão é que ao pressionar o F5 ao qual eu designei como tecla de atalho através da propriedade onkeyDow do Edit1 não acontece nada, o código ficou assim:

begin
if Key = VK_F5 then
Begin
if form26.DBCheckBox31.Checked then
begin
Int_Retorno:= vendendo.iCFTotalizarCupomPadrao_ECF_Daruma();
Int_Retorno:= vendendo.iCNFEfetuarPagamentoPadrao_ECF_Daruma();
Int_Retorno:= vendendo.iCNFEncerrarPadrao_ECF_Daruma();
end;
end;
end;

rafmattos · Enviada: Qua Dez 21, 2011 10:16 am Assunto:

o q eu quiz dizer e se ele entrou em cada linha dessa

LinoSus · Enviada: Qua Dez 21, 2011 10:18 am Assunto:

Eureka!

Você esta certo ele vai até a primeira linha, como poderia resolver isso?

rafmattos · Enviada: Qua Dez 21, 2011 10:20 am Assunto:

LinoSus · Enviada: Qua Dez 21, 2011 10:29 am Assunto:

ele para na segunda, APENAS TOTALIZA O CUPOM

begin
if Key = VK_F5 then
Begin
if form26.DBCheckBox31.Checked then
begin
Int_Retorno:= vendendo.iCFTotalizarCupomPadrao_ECF_Daruma();
PÁRA AQUI ===>>
Int_Retorno:= vendendo.iCNFEfetuarPagamentoPadrao_ECF_Daruma();
Int_Retorno:= vendendo.iCNFEncerrarPadrao_ECF_Daruma();
end;
end;
end;

rafmattos · Enviada: Qua Dez 21, 2011 10:31 am Assunto:

ela retornou erro na hora de totalizar?

LinoSus · Enviada: Qua Dez 21, 2011 10:33 am Assunto:

Nenhum erro, apenas totaliza