Este é um post disponível para assinantes MVP
download
dê seu feedback
post favorito
Video: Arquivo INI: Rotina de atualização - Curso PAF - ECF com Delphi 7 e Dlls dos fabricantes - aplicação completa - Parte 14
Nesta vídeo, veremos também os testes de emissão de cupom e cancelamento para verificação do funcionamento do mesmo.
Título: Arquivo INI: Rotina de atualização - Curso PAF - ECF com Delphi 7 e Dlls dos fabricantes - aplicação completa - Parte 14
Tempo: 16:10 min.
Míni Resumo: Neste vídeo aula, encerra a
criação da tela de emissão de cupom fiscal, criando a rotina para atualizar o
arquivo de verificação do serial e GT no formato INI, e acionando a chamada da mesma
nos locais necessários no formulário. Efetuamos
também os testes de emissão de cupom fiscal, mostrando os dados registrados na
impressora, através do emulador disponibilizado pelo fabricante, realizando
testes tanto para cancelamento quando para fechamento do cupom, confirmando
assim o funcionamento do mesmo.
Tecnologias utilizadas: Delphi 7, Firebird 2.1.
Exemplos construídos: Rotina para atualizar o
arquivo .ini com informações do serial e GT do ECF.
Palavras chaves: PAF-ECF, TEF, ASSINATURA EAD, HOMOLOGAÇÃO.
8 COMENTÁRIOS
ITEM 1: O PAF-ECF deve, para viabilizar a utilização de Sistema de Gestão (SG) ou de Retaguarda ou de sistema de emissão de documento fiscal por Processamento Eletrônico de Dados (PED), estar integrado aos mesmos, considerando como integração a capacidade de importar e exportar dados reciprocamente.
No meu entendimento, este requisito diz que para quem for usar o sistema de retaguarda (recomendado), deverá ter a opção de importação e exportação de dados entre os modulos. Mas não diz como deverá ser efetuado esta rotina. Sendo assim não vejo nenhum impedimento no compartilhamento de base de dados, pois se analizarmos a situação uma aplicação grava a informação e a outra captura a mesma atravês do banco de dados, que seria parecido com o procedimento de gravar em arquivo TXT ou XML.
O primeiro é quando vou "Cadastrar produtos", e clico em incluir,
da o seguinte erro : "Project PAF_ECF.exe raised exception class EDatabaseError with
message 'Unable to find record. No key specified'. ".
O segundo é quando eu vou "Emitir cupom fiscal". Apos abrir a tela, clico com o botão direito
e mando "Incluir cupom fiscal", ele da o mesmo erro : "Project PAF_ECF.exe raised exception class EDatabaseError with message 'Unable to find record. No key specified'.", e logo apos da um access violation :
" Access violation at address 1005B98D in module ' BEMAFI32.DLL'.Write of address 00000000. ".
Se puder ajudar, agradeço desde já.
// fecha cupom na tabela
DM.AbreTabelaCupons(0); <<<----- AQUI ao abrir a tabela
function TDM.AbreTabelaCupons(fID: Integer): boolean;
begin
CdsCupom.Close;
QryCupom.Close;
QryCupom.SQL.Clear;
QryCupom.SQL.Add(''''''''select * from cupom_fiscal'''''''');
QryCupom.SQL.Add(''''''''where cupom_fiscal.id = :pID''''''''); <<<----- AQUI....
CdsCupom.FetchParams;
CdsCupom.Params.ParamByName(''''''''pID'''''''').AsInteger := fID;
CdsCupom.Open;
// verifica resultado
Result := false;
if CdsCupom.RecordCount > 0 then
Result := true;
end;
CONTINUACAO DO COMANDO.
Dm.AbreTabelaICupons(0);
TotalizaCupom;
Memo1.Lines.Clear;
PnInforma.Caption := ''''''''Caixa Livre'''''''';
EdtProduto.SetFocus;
Por causa do erro acima ele não deixa as tabelas abertas. Ocorrendo outros erros e não deixa finalalizar a tela.
function TDM.AbreTabelaCupons(fID: Integer): boolean;
begin
CdsCupom.Close;
CdsCupom.Params.Clear;
QryCupom.Close;
QryCupom.SQL.Clear;
QryCupom.SQL.Add(''select * from cupom_fiscal'');
QryCupom.SQL.Add(''where cupom_fiscal.id = :pID'');
CdsCupom.FetchParams;
CdsCupom.Params.ParamByName(''pID'').AsInteger := fID;
CdsCupom.Open;
// verifica resultado
Result := false;
if CdsCupom.RecordCount > 0 then
Result := true;
Curso(s):
Space do autor
1
0
