Pesquisar na Comunidade
Showing results for tags 'sat;posprinter'.
Encontrado 1 registro
-
Pessoal, Estou com o seguinte problema: Na tela de vendas do SAT tenho um botão de SANGRIA que sempre usaram numa boa na impressora fiscal, é uma tela simples, aparece a forma da sangria (dinheiro, cheque) e o valor e em seguida sai um cupom impresso com essas informações. O problema é que agora com o SAT (uso Delphi XE2, trunk2, PosPrinter no cupom, Dimep e Epson TM-20) esse botão da sangria imprime apenas antes de ser impresso qualquer cupom SAT, ou seja, se o usuário quiser imprimir a sangria e já tiver impresso um cupom SAT ele precisa sair do sistema e entrar novamente, aí o sistema imprime a SANGRIA, caso contrário não imprime, entendo com isso que o SAT não está liberando a impressora/porta. Abaixo está a rotina da impressão do cupom da Sangria. cds003ePdvFpagDescr.Value := DMgpl.cds_ve_fpagsangriaPdvFPagDescr.Value; // try AssignFile(WcFIle, DMsat.WcPosP_Porta); Rewrite(WcFile); // Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,copy(FoMenu.XcNomeEmp,1,40)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,'Data: ' + DateToStr(Date) + ' Hora: ' + TimeToStr(Time)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,Space(48)); Writeln(WcFile,'SANGRIA'); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,copy(DMgpl.cds_ve_fpagsangriaPdvFPagDescr.Value,1,26) + ': R$ ' + Format('%8.2f',[cds003eSangriaValor.Value])); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,'------------------------------------------------'); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile, #27 + #105''); // corta papel Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); Writeln(WcFile,Space(48)); finally CloseFile(WcFile); end; O cupom eu imprimo assim: DMsat.DM_PrepararImpressao; // DMsat.ACBrSAT1.ImprimirExtrato; Se alguém puder me ajudar a liberar a impressora/porta de antemão agradeço. Rogério