Ir para conteúdo
  • Cadastre-se

Alfeu

Membros
  • Total de ítens

    23
  • Registro em

  • Última visita

Posts postados por Alfeu

  1. As ultimas alterações a opção Aceite            :=atNao; oi atSim  ficou  por padrão =atNao  banco bradesco quando homologuei no boleto impresso sai como S  como faço, alguem sabe se  esta correto?

    Tem algum jeito de passar este Aceite ?

     

  2. Boa tarde, instalei um sat BEMATECH  sat@GO   ate então tudo certo, mas em seguida começou a desligar os drivers  exemplo  tem dias que não cai mas outros cais 10 vezes ao dia pra voltar tem que  tirar da tomada e ligar novamente, bematech ja acessou reinstalou driver fez o que pode mas  erro continua.

    Da uma mensagem:  estackoverflow -slack overflow anexo to mandando uma mensagem detalhada.

    Sistema roda com dimep, sweda, tanca elgin, daruma e não tive nenhum erro parecido  com isso .

    ERRO DO SAT.jpeg

  3. Srs, estou homologando o boleto caixa rg registrado, porem os boletos me retornaram que esta tudo certo, porem a remessa tive a seguinte informação.

    Critica do arquivo não validado

    a.     Padrão CNAB 400

    b.     Arquivo nOK

    c.     Arquivo no padrão SICOB 400. O correto é SIGCB 400.

     

    Como proceder para gerar remessa SIGCB 400?

    Agradeço

  4. Srs, descobri este comando que ja solucionou minha necessidade!! Desde ja agradeço.

           if  ACBrPosPrinter1.Device.EmLinha=False then
            begin
            MessageDlg('Impressora não esta  funcionando!!', mtInformation,[mbOk], 0);
              end;

  5. Bom dia, estou usando Acbr virtual não fiscal em uma adaptação do paf para o SAT esta perfeito, uso a impressão AcbrPosprinter ja em produção, unico problema que estou tendo e com relação a impressora, se desligar a impressora por exemplo o aplicativo trava, não consegui tratar retornos ou erro quando envia um comando de impressão que a impressora esteja off ou sem papel por exemplo.

    Uso o elgin 9i USB, tambem com a daruma 700 usb

    Alguem teria uma dica, mesmo que nao tenha como obter o retorno se foi impresso ou não a solução que preciso seria algo que não gere um travamento do plicativo, usando os tratamentos de try etc nao consegui barrar o travamento geral.

    Desde ja agradeço

  6. Outra duvida!  Estou usando AcbrPosprinter  ESCpos  .quando chamo os comandos de impressão,  PrepararImpressao;
           ACBrSAT1.ImprimirExtrato se a impressora estiver conectada imprime certinho, mas se eu tirar o cabo a aplicação trava, fica aguardando algum retorno, não consegui tratar com try except por exemplo. 

    Usei as duas opções controle de porta ou não as duas opções tambem travam.

    Caso tenha uma sugestão agradeço, o que preciso seria ao menos tratar que a impressora nao esta ok  ou um retorno caso negativo apos um tempo.

    Desde ja agradeço.

  7. Boa noite! Gostaria de tirar ma duvida.

    ACBrSAT1.CFe.ide.nserieSAT   retorna numero de serie do SAT pelo que estou testando
    ACBrSAT1.CFe.ide.nCFe   este Toda vez que eu chamar vai ser randômico ?

     Este da discussão acima é a unico que retorna direto do SAT? que vai ser sempre unico?  xNumSessao := inttostr(ACBrSAT1.Resposta.NumeroSessao);  

  8. Daniel, sendo assim deixa como esta mesmo ate por que creio que devo estar utilizando de maneira especifica.

    Estou utilizando o ACBrECFVirtualNaoFiscal +ACBrECF +TACBrPosPrinter com isso consegui rodar o PAF nao adicionei o ecfvirtualSAT para conservar minhas formas de pagamentos inclusive o TEF que tambem esta funcional devo ainda homologar.

    Apos finalizar todas as formas de pagamentos inclusive tef com transação e impressão ai chamo uma nova tela com as rotinas do sat envio e impressão o que ocorria e  imprimia em paralelo no caso eu comentando ficou ok.

    Agradeço pela atenção 

     

  9. Consegui localizar onde estava imprimindo apos finalizar cupom sat ou cancelamento, podendo remover caso não seja utilizado para outra finalidade.

    Desde ja agradeço.

     

    procedure TACBrECFVirtualPrinterClass.Imprimir(AString: AnsiString);
    Var
      OldAguardandoResposta : Boolean ;
    begin
      OldAguardandoResposta := AguardandoResposta ;
      AguardandoResposta    := True ;
      try
      //  fsECFVirtualPrinter.PosPrinter.Imprimir(AString); //Imprime dados que deveria ser so virtualizado
     
        repeat
          Sleep(IntervaloAposComando);
        until Device.EmLinha() ;
      finally
        AguardandoResposta := OldAguardandoResposta ;
      end ;
    end;
     
     
     
     
  10. Daniel, fiz ajustes para meu aplicativo rodar com TACBrPosPrinter deu tudo certo, imprime super rapido excelente!

    Porem estou tendo uma dificuldade estou usando o ACBrECFVirtualNaoFiscal +ACBrECF +TACBrPosPrinter ou seja o PAF ECF usando acbrvirtual.

    Quando faço um cupom SAT imprime certo mas apos cortar o papel imprime um rascunho que vem provavelmente do Acbrvirtual, ja revirei as classes do acbr virual mas nao consegui descobrir onde posso remover o mesmo ocorrecom cancelamento imprime uma imagem de cupom fiscal cancelado antes de eu localizar o xml sat.

    Vejo que nao tem nada haver com sat, nao removo a mnha função de cancelamento do cupom paf por que tambem armazeno informações do cancelamento etc.

    Caso possa dar uma dica agradeço vou anexar as impressõescupom_sat.thumb.jpg.f3234a0e62b055b14ed6cancelamento.thumb.jpg.dbb2326b98968bb66

  11. Daniel, preciso de uma ajuda!  Usei O AcbrEcvirtualNaofiscal para fazer meu paf rodar 100% e adaptar o SAT, isso na versao Trunk agora mudei para versao Trunk2.

    Notei que o AcbrEcvirtualNaofiscal esta vinculado ao ACBrPosPrinter pelo menos para eu conseguir rodar tive de associar ou nao retornava todas as informações principalmente de porta etc. Ate ai tudo bem, o problema e que prende a porta, se o aplicativo esta ativo nao consegue imprimir nada em paralelo.

    Como faço para desbloquear a porta em tempo de execução? Sei que o ideal seria o AcbrEcfvirtual SAT mas no meu caso especifico pretendia usar desta forma.

    Desde ja agradeço

  12. Não estou usando o Trunk2 mas não tive problemas!

    Consegui fazer meu paf funcionar 100% com o ACBrECFVirtualNaoFiscal+ACBrECF , nao usei o ACBrECFVirtualSAT.

    Fiz pequenos ajustes no synaser,ACBRECFVirtual assim o aplicativo funcionou 100%  adaptei o SATTeste  apos todas as formas de pagamento serem executadas.

    Eu precisava fazer o TEF imprimir os comprovantes antes da transmissão do CUPOM ao analisar o ACBrTEFD fiz a seguinte modificação:

    Improvisei com um componente que utilizo mas pode ser adaptado melhor veja a baixo adaptação dentro de uma Função do ACBrTEFD.

    Caso seja possivel criar algo definitivo nesta função com parametros para diferenciar quando for ACBRECFVirtual sera otimo acredito que muitos poderão utilizar.

    function TACBrTEFD.ECFImprimeVia( TipoRelatorio : TACBrTEFDTipoRelatorio;
       Via : Integer; ImagemComprovante : TStringList) : Integer;
    Var
       Erro : String ;
       Linha,I,I2:Integer;
    begin
      fTefClass.GravaLog( fTefClass.Name +' ECFImprimeVia: '+
        GetEnumName( TypeInfo(TACBrTEFDTipoRelatorio), Integer(TipoRelatorio) ) +
        ' Via: '+IntToStr(Via) ) ;

      Result := -1 ;  // -1 = Não tratado

     

    ////////////////////////////////////////////////////////////////////////////////////
    //////////IMPRIME EXTRATO TEF COM SAT////////////////
      if FDataModule.ACBrECF.Modelo=ecfECFVirtual then
         begin
         with FDataModule.RDprint_CFe do
         begin
         FDataModule.RDprint_CFe.SetPrinterbyName(FDataModule.IMPRESSORA_SAT); //NOME DA IMPRESSORA NA REDE
         abrir;
         FDataModule.RDprint_CFe.TamanhoQteColunas     :=45;
         FDataModule.RDprint_CFe.OpcoesPreview.Preview := False;
         //--
         linha:=1;
        if Via=1 then
          begin
          for I := 0 to ImagemComprovante.Count - 1 do
          begin
          impc(linha,01,ImagemComprovante,[]);//Imprime o TEF linha a linha
          inc(linha);
          end;
          end;
          /////////////ESPAÇO ENTRE COMPROVANTE TEF/////////////
          if Via=1 then
          begin
          for I := 0 to 8 do
          begin
          impc(linha,01,' ',[]);//Imprime espaço TEF
          inc(linha);
          end;
          end;
          //--
          OnComandaECFImprimeVia( TipoRelatorio, Via, ImagemComprovante, Result ) ;

      // Coloquei ao centro para mostrar as mensagens de destaque a via do cliente
          //--
          if Via=2 then
          begin
           for I := 0 to ImagemComprovante.Count - 1 do
          begin
          impc(linha,01,ImagemComprovante,[]);//Imprime o TEF linha a linha
          inc(linha);
          end;
          end;
         //--
          /////////////ESPAÇO APOS SEGUNDA VIA TEF/////////////
          if Via=2 then
          begin
          for I := 0 to 8 do
          begin
          impc(linha,01,' ',[]);//Imprime espaço Apos TEF
          inc(linha);
          end;
          end;
          //--
           fechar;
          end;
    //////////////////////////////////////////////////
    ////////////FIM IMPRIME EXTRATO TEF COM  SAT///////////////


      if Result < 1 then
      begin
         if Result = 0 then
            Erro := 'Erro ao executar "OnComandaECFImprimeVia"'
         else
            Erro := '"OnComandaECFImprimeVia" não tratado' ;

         fTefClass.GravaLog(Erro);

         raise EACBrTEFDECF.Create( ACBrStr( Erro ) )
      end;
    end;

     

  13. Daniel, fiz uso o AcbrECFVirtual no meu PAF transformando em um PDV -SAT todas as funções foram possiveis.

    O Tef faz todos os procedimentos, so nao imprime, gostaria de saber se tem alguma rotina de impressão para impressora nao fiscal no ACBR?

    Ja estive analisando a rotina de impressão para adaptar alguma cosa mas acaso ja exista agradeço.

×
×
  • 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.

The popup will be closed in 10 segundos...