Alfeu

Acbr tem algum moduplo para integrar com control id

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 ?

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 .

Tem alguma implementação para fortes? Tenho esta necessidade .

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

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;

Elgin 9I uso a configuração da EPSON, funciona corretamente.

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

Desculpa! Agente acaba se esquecendo Obrigado pelo alerta..

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.

Muito obrigado!

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);

Otimo! Obrigado pela dica.

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

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;

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ões

Sim vou, estudar melhor o TACBrPosPrinter e possivelmente usarei ele.

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

Estarei detalhando minhas alterações nos componentes e lhe passo

Foi resolvido! Houve uma ma interpretação

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;

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.

Srs, em uma NFe ocorreu um problema serio! A nota foi assinada transmitida impressa tudo certinho, mas la no sefaz consta apenas 1 item, valores totais diferentes descrição em campos adicionais diferentes. Como isso pode ter acontecido? Data e hora são os mesmos.. Erro no SEFAZ ou no ACBR?