Carlos Alberto Dias Filho

Boa tarde, gostaria de saber como capturar os erros de comunicação com a impressora Termica, no meu caso Argox Os240 via LPT1, ou quelquer outro Modelo,pois mesmo testando com o exemplo do Acbr, Tenho um Timeout e travamento da aplicação quando a Impressora Térmica nao está conectada.

Boa tarde, Gostaria de uma sugestão dos senhores, sobre como percorrer uma Lista de Objetos. Estou atualmente fazendo desta forma, Utilizando por Meio do TEnumerator o que achei apropriado devido a facilidade de manipulação, porém não consigo encontrar materiais de referências, Bons para poder Inserir na Lista percorrendo o Dataset e comparando os FieldName, se possível os senhores, alguma sugestão de melhora, ou algum material de referência, que me leve diretamente ao ponto. Lendo o Manual do RAD, verifiquei a existência do Uso do Bindings TBindAdapterDataset , porém minhas experiências com Live Binding não são excelentes. Abaixo um exemplo, ilustrando como estou fazendo atualmente. procedure TContaRecDuplicatas.AfterScroll(Dataset: Tdataset); var Itens: TEnumerator<TContaRec>; var Field: TField; var I: Integer; begin Itens := FModelContaRec.GetEnumerator; while Itens.MoveNext do begin Itens.Current.ID:= Dataset.FieldByName('ID').AsInteger; Itens.Current.DATA:= Dataset.FieldByName('DATA').AsDateTime; Itens.Current.HORA:= Dataset.FieldByName('HORA').AsDateTime; Itens.Current.USUARIO:= Dataset.FieldByName('USUARIO').AsString; end; end;

AcbrFortes foi o que salvou

Opa Boa tarde, obrigado André por responder ao tópico , sim realmente o fabricante fala que é compatível inclusive no manual diz que é, mas comprei uma briga muito feia com esses caras, por que não imprime Qrcode.... e não imprime mesmo, o modelo que imprime o QrCde é o Sispr3000, mas consegui resolver utilizando AcbrFortes. Aproveitando o Gancho, onde eu fecho o tópico aqui, como resolvido?

Resolvido: Falei com o Amigo Juliomar, vou dar uma revisada na minha aplicação, pois se já funciona, então tem que funcionar aqui,

Bom dia, Ontem atualizei o Acbr normalmente, junto com o Amigo Juliomar que me ajudou para resolver o problema das Unit´s, hoje precisei testar a impressão utilizando o ExtratoFortes que já funcionava Perfeitamente, inclusive fiz um rollback da versão do Acbr reinstalei r na versão antes da atualização funciona, imprime certinho o Relatório. Atualizei novamente a Suite Acbr e recebe o seguinte erro. Um outro amigo no grupo do AcbrGit, reclamou o mesmo erro que estou tendo, gostaria de saber se houve algum parametro que foi alterado, ou é minha aplicação que precisa ser revisada? ErroAcbrextratoFortes.bmp

Então rapaz, eu consegui agorinha, até postei na comunidade, agorinha mesmo, troquei o try para chegar a condição, para o famoso if ... procedure TValidaNcmCest.setValorNcm (const Value: String); begin FTACBrNCMs := TACBrNCMs.Create (Nil); FValorNcm := Value; if FTACBrNCMs.Validar (Value) = true then DmSrvProd.DTmServerCadProd.CDSCADPROD.FieldByName ('ENTR_NCM').FocusControl end raise EListError.Create(TResourceMessages.OngetCodeNcmerror) at ReturnAddress; end; Então o porém é que o método Set.. da property está sendo acionado no constuctor da Classe, e justamente o metodo set é o cara que faz o que eu preciso, ja no caso de nova instância, o metodo desctuctor da classe ja está se encarregando de liberar o cara ao final de cada pesquisa.

Bom dia, estou efetuando uma consulta simples utilizando a Classe TAcbrNcm´s dentro da Minha classe de validação dos dados do Ncm, estava funcionando perfeitamente, porém 5 ou 6 dias atraz , por volta das 2 horas da manhã estava testando e sempre me retornava erros, pensei que fosse o servidor web que poderia estar passando por manutenções, na manhã segunte atualizei como de prátiica o trunk do acbr, não houveram alterações no componente, mas porém o que acontece, ele só valida se estiver em branco, ou seja se eu passar um valor nullo ele gera um timeout na aplicao e não está me gerando a exception, e quando informo um valor como por exemplo '12345678' ele passa normalmente e não valida o Ncm... gostaria de saber se estou usando erroneamente a Classe TAcbrncm´s ou é algo que deva ser avaliado pela equipe? Devo ter certeza que sou eu quem não esteja consumindo corretamente a classe AcbrNcm´s, devo estar utilizando de forma incorreta , mas gostaria de uma avaliação sobre o uso desse cara na classe.! unit TValidaNcm; interface uses ACBrNCMs, SysUtils; Type TValidaNcmCest = class(TObject) private FTACBrNCMs: TACBrNCMs; FValorNcm : String; procedure setValorNcm (const Value: String); protected public property ACBrNCMs1: TACBrNCMs read FTACBrNCMs write FTACBrNCMs; Property valorNcm : String read FValorNcm write setValorNcm; constructor Create (aValueNcm: String); destructor Destroy; override; published end; implementation { TValidaNcmCest } uses ResourceMessages, DmSrvProd; constructor TValidaNcmCest.Create (aValueNcm: String); begin self.valorNcm := aValueNcm; end; destructor TValidaNcmCest.Destroy; begin inherited; self.ACBrNCMs1.DisposeOf; end; procedure TValidaNcmCest.setValorNcm (const Value: String); begin FTACBrNCMs := TACBrNCMs.Create (Nil); FValorNcm := Value; try FTACBrNCMs.Validar ( FValorNcm ); Except on E: EACBrNcmException do TResourceMessages.OngetCodeNcmerror end; end; end.

Então Sergio, boa noite, cara por um momento de distração como mandei no codigo, eu to passando a chave como string, um amigo me ajudou na revisão, a chave como no exemplo do acbr está como ansistring, bom amanhã vou testar.

Boa noite Estou implementando o SAT com o ACBrSAT, porém tenho o seguinte erro quando vou gerar o SAT em produção, a assinatura do aplicativo comercial foi associada ao sat pelo Gerenciador Kryptus, versão 0.07, com sucesso, ja revisei o fonte, e ao que me parece está tudo dentro da normalidade, Efetuei os mesmos testes utilizando o ACBrSat testes e obtive a mesma resposta, porém gostaria de saber se, nos fontes do ACBrSat vi que existem uma const inbicializando uma assintura AC, isso pode interferir, em homologação utilizando a chave para testes padrão de testes , funciona. Gostaria de saber se é realmente uma divergência no aparlho , na chave gerada, se no satKrytpus tem algum adendo, ou se no meu fonte estou enviando os dados errados.. Segue tela para verificação, da minha aplicação informando o erro, trecho do fonte onde gero e envio, e chave e um CFe enviado. Observação, no Cfe enviado a chave está informada corretamente, efetuei a programação utilizando um SAT testes Bematech, com o layout 0.06, não sei se isso interfere. Codigo enviosat.txt AD20170206014611-065800-env.xml

André, a duvida é a mesma, eu quem não havia percebido que as questões eram as mesmas, porém como as impressoras são diferentes, pensei que ja houvesse alguém que já conseguiu implementar para esse modelo de impressora.

Daniel, muito obrigado pela atenção, vou começar a trabalhar nisso.

André, André muito obrigado pela atenção, porém questão aqui apresentada é a mesma, porém a duvida é outra, mas acho que si o ponto de partida.

Boa tarde, gostaria de saber se é possível e como posso fazer para implementar nos modelos de impressoras Leopardo, que são impressoras termicas que utilizam bobinas de cartão de credito para impressão do qrcode, utilizando o acbrposprinter e extratopos a impressora responde a todos os comandos, porém a impressão do QRcode não é traduzida, imprime somente caracteres, estou perguntando devido ao fato de tenho em mãos os comandos escpos e as tags segundo o fabricante para impressão do QRcode, porém como faze-lo para impressão utilizando o ACBRSAT.

Boa tarde, gostaria de saber se é possível implementar a impressora Modelo CIS PR1800 para impressão do qrCode do SAT, tenho os comandos do fabricante que me disponibilizou via PDF, para modo desenvolvedor. Sem mais, grato pela atenção.

Muito obrigado André, vou ler sim, acho que até entendi o porque. CST Tributação do ICMS = 40, 41, 60 E N03 N 1-1 2 Tributação do ICMS – 40 - Isenta 41 - Não tributada 60 - ICMS cobrado anteriormente por substituição tributária As alterações serão incorporadas na versão 0.07 do leiaute do CF-eSAT a ser publicada pela SEFAZ. Somente na versão 0.07 estou ainda na versao 0.06

Boa tarde, acho que o enumerado está apontando a 060 para 041 no ICMS. function StrToCSTICMS(out ok: boolean; const s: string): TpcnCSTIcms; begin result := StrToEnumerado(ok, s, ['00', '10', '20', '30', '40', '41', '50', '51', '60', '70', '80', '81', '90', '91', '92'], [cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]); end; function CSTICMSToStrTagPos(const t: TpcnCSTIcms): string; begin result := EnumeradoToStr(t, ['02', '03', '04', '05', '06', '06', '06', '07', '08', '09', '10', '11', '12', '10a', '10a', '10b'], [cst00, cst10, cst20, cst30, cst40, cst41, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstPart10 , cstPart90 , cstRep41]); end; function CSTICMSToStrTagPosText(const t: TpcnCSTIcms): string; begin result := EnumeradoToStr(t, ['00 - TRIBUTAÇÃO NORMAL DO ICMS', '10 - TRIBUTAÇÃO COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '20 - TRIBUTAÇÃO COM REDUÇÃO DE BC DO ICMS', '30 - TRIBUTAÇÃO ISENTA E COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '40 - ICMS ISENÇÃO', '41 - ICMS NÃO TRIBUTADO', '45 - ICMS ISENTO, NÃO TRIBUTADO OU DIFERIDO', '50 - ICMS SUSPENSÃO', '51 - ICMS DIFERIDO', '60 - ICMS COBRADO ANTERIORMENTE POR SUBSTITUIÇÃO TRIBUTÁRIA', '70 - TRIBUTAÇÃO COM REDUÇÃO DE BC E COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA', '80 - RESPONSABILIDADE DO RECOLHIMENTO DO ICMS ATRIBUÍDO AO TOMADOR OU 3° POR ST', '81 - ICMS DEVIDO À OUTRA UF', '90 - ICMS OUTROS', '90 - ICMS DEVIDO A UF DE ORIGEM DA PRESTACAO, QUANDO DIFERENTE DA UF DO EMITENTE', 'SN - SIMPLES NACIONAL'], [cst00, cst10, cst20, cst30, cst40, cst41, cst45, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]); end;

Boa tarde, Muito obrigado Daniel pela sua atenção depositada, entrei em contato com o fabricante da impressora Perto printer, que por sinal é excelente, rápida, barata e robusta, obtive um canal direto com os engenheiros de software da empresa onde me enviaram os comandos de abertura da gaveta. Writeln(F,Chr($10) + Chr($14) + Chr($1) + Chr($0) + Chr($5)); Obrigado. Inclusive vou assinar mensalmente o suporte com a comunidade Acbr.

Bom dia, estou com uma certa dúvida quanto ao Xml-SAT gerado na venda isto em Homologação e simulando a venda por empresa do Regime Normal, onde informo no produto a cst 060 , o xml é validado e transmitido sem erros para o equipamento, porém no xml tenho o seguinte resultado.: <vItem12741>0.33</vItem12741> <ICMS> -<ICMS40> <Orig>0</Orig> <CST>60</CST> </ICMS40> </ICMS> Onde deveria está informado < ICMS40> deveria ser <ICMS060>, porém não sei bem se isto está correto, se algo que deva ser reparado no componente AcbrSat ou eu estou tratando errado os campos. Poderiam analisar essa situação, é de muita importância, aqui está o trecho do código escrito em Delphi 10 Seatle. if (DataModule1.CDSITENSIMPOSTO_ICMSCST.AsString = '060') then begin Imposto.ICMS.CST := cst60; Imposto.ICMS.pICMS := 0; Imposto.ICMS.vICMS := 0; end;

Boa tarde amigos programadores, estou com problema relacionado ao comando acbrPosPrinter.Abrirgaveta utilizando o equipamento impressora perto printer. Não estou conseguindo fazer com que a impressora responda aos comandos de abertura de gaveta, ja tentei trocar os modelos e não deu certo, o fabricante me enviou o manual técnico dos comandos escpos. comandos ESC p , DEC 27 112 m t1 t2 , HEX , 10 14 fn m t Emite um pulso com tempo ligado de t1 x 2 milissegundos e tempo desligado de t2 x 2 milissegundos ao conector m da seguinte forma: m Conector 0 Abertura da gaveta (se presente). Será que terei que implementar esses comandos no componente ou é possível através do que já tem, conseguir o resultado.

Pessoal, muito obrigado pela atenção depositada, resolvi o problema da seguinte forma, eu identifiquei que no form haviam declarações que estavam corrompendo a aplicação, então recriei o form e o componente funcionou perfeitamente, não sei como fechar o post, então se alguem puder me dizer como fecho o post.

Boa noite, esta é a primeira vez aqui no fórum, por isso peço a gentileza de me informar se há algo fora das regras, mas estou com esse problema e não sei como resolve-lo. Utilizo o Delphi 10 seatle, refiz a instalação dos pacotes da Trunk, até recriei novamente via svn, declarei na uses tudo que é necessário para trabalhar com os componentes, estou implentando em um projeto piloto, a emissão de cupom fiscal, mas antes mesmo de abrir e efetuar vendas, tenho o form de configurações, para configurar o Ecf, nada de mais, somente o componente AcbrEcf1, AcbrRfd1 e um botão com a porta e modelo já configurados, com o seguinte comando, simples para somente emitir leitura X pelo emulador da Bematech MP 4200 TH-FI. Ambiente funcionando, no AcbrEcfteste, eu compilo e emito a LX sem problemas, mas na minha aplicação o form se fecha sozinho sem mensagem de erro nenhuma, isto quando executo o seguinte comando. AcbrEcf1.Porta := 'com1'; Acbrecf1.Modelo := ecfEscecf; Acbrecf1.Ativar; AcbrEcf1.leiturax; ou quando executo AcbrEcf1.Porta := 'com1'; Acbrecf1.Modelo := ecfEscecf; Acbrecf1.Ativar; AcbrEcf1.AguardandoResposta; o Form onde eu executo a chamada fecha sozinho, mas a Leitura x emite certinho, como posso resolver essa situação.