tdpsistemas

Boa tarde, tivemos este tipo de problema nas impressoras da EPSON TM-U220D SERIES , TM-T20 de rede e na Bematech MP-4200. Elas apresentaram o problema de ficar com o documento no spool. Até agora sem uma solução definitiva. Fizemos atualização de driver, configuração para imprimir direto no spool, formatação de micro. Ainda não conseguimos identificar qual é o problema. Se alguém tiver mais alguma sugestão, por favor postar aqui, obrigado.

Boa tarde a todos! Nosso software em Delphi, efetua a impressão de um recibo através do Fast Report em impressoras térmicas (Epson T20, Bematech MP 4200, CIS, etc...). Porém está ocorrendo alguns casos, onde o documento fica preso no Spool dessas impressoras e consequentemente não é impresso mais os recibos. Ao desligar e ligar a impressora geralmente ela volta a imprimir, ou as vezes, temos que remover o cabo USB e conectar novamente, ou reiniciar o micro. Porém isso ocorre somente quando o sistema faz essa impressão em Fast Report. Alguém já passou por isso? Tem alguma alguma dica? Obrigado.

Boa tarde. Um cliente nosso adquiriu um certificado A3 da Certisign na nuvem chamado RemoteID (https://www.certisign.com.br/certificado-digital/remoteid). Configuramos no sistema, ele consegue validar a NFe, porém ao transmitir ele retorna o seguinte erro: Rejeição: Assinatura difere do calculado. Cstat: 297 Em conversa com o suporte da Certisign, ele nos informaram que ele trabalha igual ao A3. Teoricamente era para funcionar normal no sistema com o Acbr. Alguém já passou por isso? Alguma dica? Obrigado.

Algo me diz que nesse caso é a configuração que está sendo passada para o ACBrSAT. Eu validaria novamente os parâmetros de configuração para o componente. E os processos que estão sendo feito até o momento do envio da Venda.

Você consegue executar o comando "ACBrSAT1.ConsultarSAT" por exemplo? Trava apenas na venda? Se sim, você validou o processo de geração da venda do seu sistema se está gerando conforme o exemplo do SATTeste?

Tente colocar a DLL dentro da pasta do seu sistema.

Daniel, Muito Obrigado novamente pela prontidão.

É não havia pensando nisso, não pensei em ver como é que é salvo no Fortes. Agradeço por aceitar e pela ajuda Daniel. P.s: Por mim tópico resolvido

Daniel, Esqueci de enviar um exemplo do PDF já com a nova Fonte. Sat.pdf

Daniel, Segue em anexo o PDF. Como poderá ver nesse exemplo cortou o ")", mesmo utilizando a margem.direita acaba cortando alguma outra informação. A unica forma de sair foi trocando o tipo da fonte. Obrigado pela atenção. AnexoReteste_003.pdf

Olá, Utilizamos o componente ACBRSatExtratoFortes para efetuar a impressão dos comprovantes SAT normalmente. Utilizamos sempre as configurações das Margens e sempre nos atende. Mas ao utilizar esse mesmo componente para geração do arquivo ".PDF" o mesmo acaba cortando algumas informações dentro do componente "mSwHouseSite". (Mesmo efetuando os ajustes das margens) Após algumas validações e testes trocamos a fonte de "Arial" para "Courier New". Dessa forma toda descrição informada no componente acima sai corretamente tanto na impressão (Já estava ok mesmo com Arial) quanto no arquivo PDF. Existe algum problema de modificarmos o nome da fonte apenas desse componente "mSwHouseSite" e "mSwHouseSiteCanc"? Demais componentes presentes não foram alterados. Segue em anexo o DFM alterado. Obrigado desde já pela atenção. ACBrSATExtratoFortesFr.dfm

Bom dia Desculpe pela demora, estivemos envolvidos em outros projetos. Segue em anexo arquivo atualizado com a alteração necessária para nosso projeto. Linha 1486: De - FieldDefs.Add('Sistema', ftString, 150); Para - FieldDefs.Add('Sistema', ftString, 300); No constructor TACBrNFeFRClass.Create(AOwner: TComponent) da unit ACBrNFeDANFEFRDM.pas ACBrNFeDANFEFRDM.pas

Foi realizada a seguinte modificação na unit ACBrNFeDANFEFRDM.pas, na construção da classe TACBrNFeFRClass: foi necessário aumentar o tamanho do campo cdsParametros.Sistema, pois a revenda quer que o nome da empresa apareça impresso na NFe e NFC-e, no rodapé. O tamanho do campo está com 150 caracteres, porém, a descrição solicitada pelo cliente ficaria: "Distribuido por Revenda Informática - www.revendainformatica.com.br - [email protected] - Desenvolvido por Empresa de Software - www.empresa.com.br" (conteúdo meramente ilustrativo), totalizando 174 caracteres. FieldDefs.Add('Sistema', ftString, 300); Para adaptar aos clientes que utilização este recurso, alterei a quantidade de caracteres para 300. Foram realizados diversos testes e nenhum problema foi encontrado. Estou utilizando a revisão 15372. Agradeço pela atenção!

Obrigada por aceitar a alteração!

Foi realizada a seguinte modificação na unit ACBrSATExtratoESCPOS.pas, na procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento: procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento; Var ChaveEmUmaLinha, Suporta128c : Boolean; Chave, TagCode128 : String; QRCode: AnsiString; begin FBuffer.Add('</fn></linha_simples>'); FBuffer.Add(ACBrStr('</ce><n>DADOS DO CUPOM FISCAL ELETRÔNICO DE CANCELAMENTO</n>')); FBuffer.Add('</ce>SAT No. <n>'+IntToStr(CFe.ide.nserieSAT)+'</n>'); FBuffer.Add(FormatDateTimeBr(CFeCanc.ide.dEmi + CFeCanc.ide.hEmi)); Chave := FormatarChaveAcesso(CFeCanc.infCFe.ID); if Length(Chave) > FPosPrinter.ColunasFonteCondensada then Chave := OnlyNumber(Chave); if not FPosPrinter.ConfigBarras.MostrarCodigo then FBuffer.Add('<c>'+Chave+'</fn>'); Suporta128c := (FPosPrinter.TagsNaoSuportadas.IndexOf(cTagBarraCode128c) < 0); TagCode128 := IfThen(Suporta128c,'code128c', 'code128' ); ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or ((ImprimeChaveEmUmaLinha = rAuto) and Suporta128c); if not ChaveEmUmaLinha then begin FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,1,22)+'</' + TagCode128 + '>'); FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,23,22)+'</' + TagCode128 + '>'); end else FBuffer.Add('<' + TagCode128 + '>'+CFeCanc.infCFe.ID+'</' + TagCode128 + '>'); if ImprimeQRCode then begin QRCode := CalcularConteudoQRCode( CFeCanc.infCFe.ID, CFeCanc.ide.dEmi+CFeCanc.ide.hEmi, CFeCanc.Total.vCFe, Trim(CFeCanc.Dest.CNPJCPF), CFeCanc.ide.assinaturaQRCODE ); FBuffer.Add('<qrcode_tipo>2</qrcode_tipo>'+ '<qrcode_error>0</qrcode_error>'+ '<qrcode>'+QRCode+'</qrcode>'); end; if MsgAppQRCode <> '' then FBuffer.Add('</ce><c>' + QuebraLinhas(MsgAppQRCode, FPosPrinter.ColunasFonteCondensada )); if (SoftwareHouse <> '') or (Site <> '') then FBuffer.Add('</linha_simples>'); // SoftwareHouse if SoftwareHouse <> '' then FBuffer.Add('</ce><c>' + SoftwareHouse); if Site <> '' then FBuffer.Add('</ce><c>' + Site); FBuffer.Add('</zera>'); if FPosPrinter.CortaPapel then FBuffer.Add('</corte_total>') else FBuffer.Add('</pular_linhas>'); end; No rodapé da impressão do SAT, são apresentados os dados da Software House e o Site. Porém, na impressão do cancelamento não é impresso. É necessário que os dados da Software House e do Site sejam apresentados no rodapé da impressão do cancelamento do SAT. Foram realizados diversos testes de impressão e não foi apresentado nenhum problema. Estou utilizando a revisão número 15238 da unit. ACBrSATExtratoESCPOS.pas

Na NFe 4.00 temos enfrentado um problema com o Wincrypt em alguns clientes que utilizam Windows server 2008 R2 e windows server 2012 R2, através do terminal service utilizando o usuário administrador ele comunica corretamente com o SEFAZ enviando ou consultando uma NFe 4.0, porém com outros usuários do servidor ele não comunica (O usuário no servidor possui acesso de Administrador) , o certificado funciona, já foi testada a comunicação antes de atualizar, e funcionava, alguém já passou por esse problema?? Retorno ao tentar consultar status Serviço (imagem). Na hora de emitir ele retorna o erro CStat 0.

Ok então, vou atualizar aqui. Obrigado pela atenção

Bom dia, Primeiramente muito obrigado pelo retorno, apenas respondendo a pergunta, nos nossos testes a versão com HTTPS foi a que funcionou, tanto pelo aplicativo como pelo navegador, mas como no fonte já estava a versão HTTP, achamos melhor implementar uma property. Foram realizadas as alterações conforme solicitado, no ACBrSocket foi realizado o revert e no ACBrConsultaCPF foi implementada a property ProtocoloHTTPS . ACBrConsultaCPF.pas

Olá a todos, estávamos implementando a consulta de CPF baixamos a ultima revisão 14884 da unit ACbrConsultaCPF.pas, e não estávamos conseguindo capturar o captcha em Delphi 7, após algumas pesquisas que o endereço de captura do captcha estava sem o "s" do http seguro. Pensando nisso fizemos uma implementação nas units ACbrConsultaCPF.pas e ACBrSocket.pas. Na unit ACBrSocket.pas foi incluída uma property ProtocoloHTTPS : Boolean read FProtocoloHTTPS write FProtocoloHTTPS default False; Já na unit ACBrConsultaCPF.pas, no método function TACBrConsultaCPF.GetCaptchaURL : String ; foi incluído a seguinte linha de código: if ProtocoloHTTPS then siteconsulta := 'https://' else siteconsulta := 'http://'; siteconsulta := siteconsulta + 'cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp'; Self.HTTPGet(siteconsulta); Da forma acima foi possível efetuar as consultas normalmente com a propriedade igual a True. Estou subindo os arquivos para análise, caso esteja fazendo algo de errado, favor informar para corrigir o erro. Agradeço a todos pela atenção. ACBrSocket.pas ACBrConsultaCPF.pas

Bom dia, comigo também está ocorrendo este problema, vc achou a solução?

Boa tarde Daniel, Durante o desenvolvimento percebemos uma falha no comando PosicionarCursor do SmakTecladoLib, a DLL é ao contrário sendo coluna e linha. procedure TACBrDISSmakTecladoLib.PosicionarCursor(Linha, Coluna: Integer); begin if Assigned(xGotoxy) then xGotoxy( Coluna, Linha); end; Fiz essa alteração na unit ACBrDISSmakTecladoLib na minha máquina pra testar e deu certo, se você puder corrigir na versão do SVN eu agradeço. Obrigado.

Boa tarde Daniel, Sim deu certo o que você disse, joguei somente a DLL sk_access.dll na pasta do sistema e já funcionou, deixei a porta no componente vazia e também funcionou. Obrigado.

Bom dia Daniel, Fiz os testes com a nova versão do componente e está funcionando perfeitamente! Parabéns pelo empenho e eficiência na resolução do problema. Segue os dados do modelo do teclado SMAK: SKO-44 PR AX HID, ele possui a interface USB. No ACbrDis, selecionar o modelo disSmakTecladoLib e na porta eu coloquei HID e funcionou. Faça a instalação do pacote da SMAK conforme link que já está neste tópico (SKO_Tool_BoxV21.exe) e copie o arquivo sk_access.inc para a pasta do seu aplicativo. Feito isso funcionou. Muito obrigado.

No site da Smak tem um software de comunicação, com ele já vem exemplos em Delphi que funcionam(eu testei as funcionalidades), vou te passar o link, e o caminho dos manuais e exemplos: Download "(partição)\Program Files (x86)\Smak\SKO\manuais" - Manuais "(partição)\Program Files (x86)\Smak\SKO\exemplos\sk_access\exemplo_Delphi" - Exemplo no Delphi

Olá, bom dia. Recentemente fiz um estudo sobre a comunicação com o miniteclado smak SKO-44, porém o teclado usado para estudo era PS/2, que foi facilmente utilizado em conjunto com o ACBrDis, porém recebemos aqui um teclado USB, porém nao consegui comunicar e mandar comandos com o ACBRDis, pois quando conecta, ele comunica como HID no software de configuração da Smak, então tentei colocar HID na porta do ACBrDis, porém não funcionou, tentamos comunicar de varias formas, tentamos entrar em contato com o fabricante para ver se tinha como emular o PS/2(falou que o tipo HID já era PS/2 emulado), então eles falaram para entrar em contato com o ACBr para verificar a melhor forma de se comunicar. Obs.: tentei utilizar um adaptador USB p/ PS/2 como foi falado no seguinte tópico( Link) e também não deu certo, nesse caso o teclado não funcionava nem no windows(não digitava nada) e não comunicava no software. Então gostaria de saber se tem alguma alternativa para esse caso, se teria o que ser feito, obrigado.