Pesquisar na Comunidade
Showing results for tags 'bebatech'.
Encontrado 1 registro
-
Bematech MP-S100 TH + Spooler do Windows
um tópico no fórum postou dsv Object Pascal - Delphi & Lazarus
Boa tarde Estou abrindo este tópico pois pesquisando no fórum não achei nenhum problema parecido. Estou utilizando a função abaixo para abrir a uma gaveta que esta ligada a impressora não fiscal Bematech MP-S100 TH Function AcionaGavetaNaoFiscal(sPorta: string): Boolean; Var txt: TextFile; sComando: string; begin try // Comando para Acionar a Gaveta de Dinheiro AssignFile(txt, sPorta); Rewrite(txt); if (frmPrincipal.LerIni('.\Cfg\pdv_sat.ini', 'GUILHOTINA', 'MODELO', 'PADRÃO') = 'PADRÃO') or (frmPrincipal.LerIni('.\Cfg\pdv_sat.ini', 'GUILHOTINA', 'MODELO', 'PADRÃO') = 'BEMATECH') then sComando := #27 + #118 + #140; // BEMATEH E PADRAO if frmPrincipal.LerIni('.\Cfg\cfg_sat.ini', 'GUILHOTINA', 'MODELO', 'PADRÃO') = 'DARUMA' then sComando := #27 + #112; // DARUMA Write(txt, sComando); CloseFile(txt); except Result := False; end; end; Essa função funciona perfeitamente, a gaveta abre normal, porem se eu imprimir o cupom SAT com o Extrato configurado na opção FORTES utilizando o Spooler do Windows a gaveta para de funcionar, mesmo utilizando a mesma função novamente, ela para de abrir, o que da a entender que a porta fica ocupada alguém tem alguma luz?