Ir para conteúdo
  • Cadastre-se

dev botao

problemas com pos printer


  • Este tópico foi criado há 697 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá pessoal, tenho utilizado o pós printer a tempos com sucesso em vários clientes sem problemas.

 A pouco tempo foi implantado em um novo cliente o sistema na seguinte situação: 1 servidor, 3 impressoras GERTEC G250 imprimindo direto por IP

config de impressão do ACBR:

--------------INICIO

if (ACBrPosPrinter1.Ativo) then
      ACBrPosPrinter1.Desativar;

     {
        ppTexto       = 0
        ppEscPosEpson = 1
        ppEscBematech = 2
        ppEscDaruma   = 3
        ppEscVox      = 4
        ppEscDiebold  = 5
        ppEscEpsonP2  = 6
     }
     if (LimpressorasModeloAcbr.Value = 'ppTexto') then
       ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(0)
     else
       if (LimpressorasModeloAcbr.Value = 'ppEscPosEpson') then
         ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(1)
       else
         if (LimpressorasModeloAcbr.Value = 'ppEscBematech') then
           ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(2)
         else
           if (LimpressorasModeloAcbr.Value = 'ppEscDaruma') then
             ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(3)
           else
             if (LimpressorasModeloAcbr.Value = 'ppEscVox') then
               ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(4)
             else
               if (LimpressorasModeloAcbr.Value = 'ppEscDiebold') then
                 ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(5)
               else
                 if (LimpressorasModeloAcbr.Value = 'ppEscEpsonP2') then
                   ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(6)
                 else
                    if (LimpressorasModeloAcbr.Value = 'ppCustomPos') then
                      ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(7)
                    else
                      if (LimpressorasModeloAcbr.Value = 'ppEscPosStar') then
                        ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(8)
                      else
                        if (LimpressorasModeloAcbr.Value = 'ppEscZJiang') then
                          ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(9)
                        else
                          if (LimpressorasModeloAcbr.Value = 'ppEscGPrinter') then
                            ACBrPosPrinter1.Modelo := TACBrPosPrinterModelo(10);

     ACBrPosPrinter1.LinhasBuffer               := 0;                                       //0
     ACBrPosPrinter1.LinhasEntreCupons          := 0;                                       //0
     ACBrPosPrinter1.EspacoEntreLinhas          := LimpressorasEspacoEntreLinhas.value;     //0
     ACBrPosPrinter1.ColunasFonteNormal         := LimpressorasNumeroColunas.value;         //
     ACBrPosPrinter1.ControlePorta              := True;                                    //True
     ACBrPosPrinter1.CortaPapel                 := True;                                    //True
     ACBrPosPrinter1.TraduzirTags               := True;                                    //True
     ACBrPosPrinter1.IgnorarTags                := False;                                   //False

     { pcNone = 0
       pc437  = 1
       pc850  = 2
       pc852  = 3
       pc860  = 4
       pcUTF8 = 5
       pc1252 = 6 }
     ACBrPosPrinter1.PaginaDeCodigo             := TACBrPosPaginaCodigo(2);         //pc850
     ACBrPosPrinter1.ConfigBarras.MostrarCodigo := False;                           //False
     ACBrPosPrinter1.ConfigBarras.LarguraLinha  := 0;                               //0
     ACBrPosPrinter1.ConfigBarras.Altura        := LimpressorasAlturarBarras.value; //80
     ACBrPosPrinter1.ConfigQRCode.Tipo          := 2;                               //2
     ACBrPosPrinter1.ConfigQRCode.LarguraModulo := 4;                               //4
     ACBrPosPrinter1.ConfigQRCode.ErrorLevel    := 0;                               //0
     ACBrPosPrinter1.ConfigLogo.KeyCode1        := 32;                              //32
     ACBrPosPrinter1.ConfigLogo.KeyCode2        := 32;                              //32
     ACBrPosPrinter1.ConfigLogo.FatorX          := 1;                               //1
     ACBrPosPrinter1.ConfigLogo.FatorY          := 1;                               //1

     if (Limpressorasporta.AsString = 'ETHERNET') then
       ACBrPosPrinter1.Porta := 'TCP:' + Limpressorasip.AsString + ':' + LimpressorasPortaTcp.AsString
     else
       ACBrPosPrinter1.Porta := Limpressorascaminho.AsString;

     ACBrPosPrinter1.Ativar ;


     CBrPosPrinter1.Imprimir('', False, True, True, LconfiguracoesNumeroViasPedido.Value);

-----------------------------------------------FIM

antes de enviar a impressão tenho um campo no banco que confirma para mim que o dado foi para a fila de impressao mas quando eu aplico o comando:

try

tabelaimpressao.entrounafila.asstring := ''True;

CBrPosPrinter1.Imprimir('', False, True, True, LconfiguracoesNumeroViasPedido.Value);

tabelaimpressao.impresso.asstring := ''True;

except

   //o campo de confirmacao 'impresso' não recebe o valor de impresso no caso de erro e a impressão volta para a fila.

end;

--PROBLEMA: nesta ocasição é dado como comando executado e não retorna erro da impressora mas a impressão não sai!

isto acontece quando tem mais de 1 impressao enviada, então vem a principal pergunta: INICIALMENTE, tem alguma forma de pegar uma confirmação da impressora que foi enviado impressão e isto foi realmente impresso? o que posso 

fazer para contornar isto? já tentei várias coisas lá como citado: trocar impressora para testar, refazer ponteiras de rede, trocar hub... e meu problema neste cliente persiste.

Aberto a toda e qualquer dica! desde já agradeço a atenção!

OBS: segue anexo um log onde apresentou falha lá!

 

 

21042022_LogPosPrinter.txt

Link para o comentário
Compartilhar em outros sites

Fala Alex, tudo bem?

Me chamo Yago e falo em nome do time de integração da Gertec, você teria um e-mail/telefone de contato para entendermos melhor o seu problema e ajudar a soluciona-lo?
(Depois disso podemos atualizar aqui no fórum para que todos saibam como resolver)

Até breve.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 697 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.