Este é um post disponível para assinantes MVPVocê também pode acessá-lo através de Créditos DevMedia. Clique aqui para saber mais!
downloadVideo: Crie uma aplicação PAF-ECF do inicio ao fim usando o Delphi e Dlls dos fabricantes-Parte 5-Implementando rotinas para comparação de Data e Hora do ECF com o sistema
Neste vídeo-aula, Alteraremos a rotina de verificação do Serial de GT da impressora migrando a mesma para uma função global.
[fechar]
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
Título: Crie uma aplicação PAF-ECF
do inicio ao fim usando o
Delphi e Dlls dos fabricantes-Parte 5-Implementando rotinas para comparação de Data e Hora do ECF com o sistema
Tempo: 24:08
Míni
Resumo: Neste vídeo-aula, Alteraremos a rotina de verificação do Serial de GT
da impressora migrando a mesma para uma função global, onde poderá ser usada em
outros formulários de nosso projeto. E adicionaremos a esta função as
comparações de data e hora do ECF com o sistema.
Tecnologias
utilizadas:
Delphi 7, Firebird 2.1.
Exemplos
construídos:
Função para verificação de Serial, GT, Data e hora do ECF com o aplicativo.
Palavras
chaves:
PAF-ECF, TEF, ASSINATURA EAD, HOMOLOGAÇÃO.
Luis Carlos Godinho
Programador formado em 1995, pela ETEIT – Escola técnica da UNIVALE. Atualmente trabalhando com a plataforma Delphi. Tem se dedicado nos últimos anos, ao desenvolvimento de aplicações PAF-ECF, SPED fiscal e NFe.
O que você achou deste post?
6 COMENTÁRIOS
Rogério Silva Lira
Ola Godinho.
*Na VerificacoesPAFECF, mesmo dando erro de comunicação com ECF é preciso mostrar a mensagem 'Serial do ECF não confere. O Aplicativo será encerrado!'?.
* Para conferir a hora fiz assim:
if Abs(MinutesBetween(aHora,aHoraECF)) > 15 then
e nos meus testes não deu erro.
Valeu.
*Na VerificacoesPAFECF, mesmo dando erro de comunicação com ECF é preciso mostrar a mensagem 'Serial do ECF não confere. O Aplicativo será encerrado!'?.
* Para conferir a hora fiz assim:
if Abs(MinutesBetween(aHora,aHoraECF)) > 15 then
e nos meus testes não deu erro.
Valeu.
[há +1 ano] -
Responder
[autor]
Luis Carlos Godinho
Olá!
As mensagens colocadas, assim como todo o projeto do curso, são apenas exemplos de como poderá ser feito. Mas não quer dizer que tem que seguir a risca o que esta lá.
O projeto do PAF-ECF deverá atender aos requisitos do roteiro. Desde que estaja atendendo, os recursos usado não farão diferença.
Abs.!
As mensagens colocadas, assim como todo o projeto do curso, são apenas exemplos de como poderá ser feito. Mas não quer dizer que tem que seguir a risca o que esta lá.
O projeto do PAF-ECF deverá atender aos requisitos do roteiro. Desde que estaja atendendo, os recursos usado não farão diferença.
Abs.!
[há +1 ano] -
Responder
Daniel Augusto Crudo
Olá Godinho.
Primeiramente gostaria de agradecer por estar disponibilizando essas video aulas.
Na função VerificacoesPAFECF achei estranho a parte do código em que você faz a verificação da hora, pois é utilizado a váriavel que a Data está armazenada. O correto não seria usar as variáveis aHoraECF e aHora?
aDataECF := StrToDateTime(Copy(auxData,1,2)+'/'+Copy(auxData,3,2)+'/'+Copy(auxData,5,2));
aHoraECF := StrToDateTime(Copy(auxHora,1,2)+':'+Copy(auxHora,3,2)+':'+Copy(auxHora,5,2));
aData := Date;
aHora := Time;
if aData <> aDataECF then
begin
Mensagem := 'A Data ECF não confere!';
Result := false;
end
else
begin
if Abs(aData - aDataECF) > 15 then
begin
Mensagem := 'A hora do ECF não confere!';
Result := false;
end;
end;
Primeiramente gostaria de agradecer por estar disponibilizando essas video aulas.
Na função VerificacoesPAFECF achei estranho a parte do código em que você faz a verificação da hora, pois é utilizado a váriavel que a Data está armazenada. O correto não seria usar as variáveis aHoraECF e aHora?
aDataECF := StrToDateTime(Copy(auxData,1,2)+'/'+Copy(auxData,3,2)+'/'+Copy(auxData,5,2));
aHoraECF := StrToDateTime(Copy(auxHora,1,2)+':'+Copy(auxHora,3,2)+':'+Copy(auxHora,5,2));
aData := Date;
aHora := Time;
if aData <> aDataECF then
begin
Mensagem := 'A Data ECF não confere!';
Result := false;
end
else
begin
if Abs(aData - aDataECF) > 15 then
begin
Mensagem := 'A hora do ECF não confere!';
Result := false;
end;
end;
[há +1 ano] -
Responder
[autor]
Luis Carlos Godinho
Olá!
Realmente esta trocado as váriáveis.
Recentemente fiz uma homologação já com o novo roteiro 1.08 e o homologador pediu para não barrar o sistema em caso de diferença de horario, e sim apenas tomar o cuidado de gravar no banco a data e hora da impressora e não do sistema.
Abs!
Realmente esta trocado as váriáveis.
Recentemente fiz uma homologação já com o novo roteiro 1.08 e o homologador pediu para não barrar o sistema em caso de diferença de horario, e sim apenas tomar o cuidado de gravar no banco a data e hora da impressora e não do sistema.
Abs!
[há +1 ano] -
Responder
José Ribeiro
Olá Parabéns por este curso realmente é otimo!
É normal travar o aplicativo quando eu clico em inserir cupom ? isto esta acontecendo no meu sistema, e é muito ruim ter que esperar a tela destravar... Abraços
É normal travar o aplicativo quando eu clico em inserir cupom ? isto esta acontecendo no meu sistema, e é muito ruim ter que esperar a tela destravar... Abraços
[há 27 dias] -
Responder
[autor]
Luis Carlos Godinho
Olá José!
Não é comum travar. Se estiver usando emulador isso ocorre por que o emulador requer muita memoria. Atualmente eu uso o componente AcbrECF.
Abs.!
Não é comum travar. Se estiver usando emulador isso ocorre por que o emulador requer muita memoria. Atualmente eu uso o componente AcbrECF.
Abs.!
[há 27 dias] -
Responder
Cursos relacionados
Publicidade
