tdpsistemas

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.

Boa tarde, Desculpe faltou uma informação.: 1) Com ANP fora dos códigos especificados consegui emitir normal como pode ver os xmls em anexo. 2) Após a alteração sugerida, consegui gerar a nota com grupo de ICMSST. Mas mesmo assim foi recusada com erro: "Grupo de Tributação informado indevidamente [nItem: 1]". Conforme poderá ver nos xmls em anexos. Não sei o que mais pode estar errado. Agradeço desde já pela ajuda. Autorizado_CST040.xml Autorizado_CST060.xml Recusada_ANP210203001_2.xml Recusada_ANP320102001_1.xml

Boa tarde a todos, Também estou passando pelos problemas documentados acima. @Wanderson Paiva pelo que entendi você fez uma adequação no fonte do componente, para forçar a geração do grupo de repasse OK. Pois aqui só consigo fazer a geração do grupo quando informo valores em alguns dos campos abaixo: vBCSTDest, vICMSSTRet, vBCSTDest e vICMSSTDes. E mesmo preenchendo não consegui fazer a emissão. E como pude ver ainda não tiveram retorno a respeito do erro "Somatorio percentuais de GLP derivado do petroleo, GLGNn e GLGNi diferente de 1 [nItem:1]" Também estou com esse erro. Agradeço desde já pela atenção.

Ok Claudemir, vou fazer conforme o Daniel orientou no Post do By by Capicom. Vou acertar o ACBr.inc, para compilar sem CAPICOM. É que em nosso projeto iriamos manter o CAPICOM para 3.10 e WinCrypt para 4.00. Tento alguma resposta eu aviso aqui. Obrigado pela atenção.!!!

Claudemir primeiramente obrigado pelo Retorno. Essa configurações do IE, também se aplica para o LibWinCrypt? (Sem CAPICOM)? Pois pelas orientações aqui do fórum quando atribuímos: "libWinCrypt", não há necessidade de configuração do IE. No seu caso deu certo você está utilizando WinCrypt ou CAPICOM? Pois no CAPICOM meu ambiente também está funcionando. Obrigado mais uma vez.

Bom dia a todos, Também estou tendo esse problema com window 7 (32 e 64) e Windows 8. Estou com a cadeia de certificado atualizada (Baixei direto do site da certificadora) e o erro persiste. Pelo que vi acima falam que precisa estar com windows atualizado, estou executando o windows update em minhas maquinas de testes, mas alem disso existe algo mais que posso fazer? A configuração do componente utilizada é: ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; Claudemir qual o link que você utilizou para baixar a cadeia de certificado? Agradeço a todos pela ajuda;

OK Obrigado!

Pessoal me desculpe acabei subindo o tópico, mas o mesmo já foi corrigido na Revisão abaixo: Revision: 14084 Author: hleorj Date: sexta-feira, 3 de novembro de 2017 10:08:47 Message: -- ACBrNFeDANFEFRDM -- [*] Ajuste para apresentar data de recebimento em Delphi 7 por: BigWings ---- Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFR-change-log.txt Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFRDM.pas Obrigado a todos pela atenção.

Bom dia a todos, Baixei essa manhã o fonte do projeto, e ao tentar instalar o mesmo tive um problema no seguinte pas: ACBrNFeDANFEFRDM.pas. Analisando o fonte verifiquei que o problema estava na seguinte procedure: TACBrNFeFRClass.CarregaParametros; Exatamente na seguinte linha: FieldByName('dhRecbto').AsDateTime := StringToDateTimeDef(Trim(Copy(FDANFEClassOwner.ProtocoloNFe, P + 1)), 0, 'dd/mm/yyyy hh:nn:ss'); Fiz o copy da seguinte forma: FieldByName('dhRecbto').AsDateTime := StringToDateTimeDef(Trim(Copy(FDANFEClassOwner.ProtocoloNFe, P + 1,Length(FDANFEClassOwner.ProtocoloNFe)-(P + 1))), 0, 'dd/mm/yyyy hh:nn:ss'); Após a alteração a instalação foi feita com sucesso. Segue o PAS corrigido em anexo. Qualquer coisa estou a disposição. Obrigado a todos pela atenção.

Também não consegui um detalhamento, nem da secretária da fazenda. Enviei o questionamento, mas como sempre responderam evasivamente. Obrigado pela atenção.

Boa tarde a todos os mestres, Apenas para confirmar se não entendi errado a NT 2016.002: 1.31 (e as anteriores correlacionadas). Todas os novos campos, novas regras e exclusão de algumas outras regras de validação são respectivamente relacionada ao layout 4.00. O 3.10 não terá essas validações e regras, continuando o mesmo que está em vigor atualmente. OK? Pensando nisso teremos novos WebServices específicos para novo layout; "NFeAutorizacao4 NFeRetAutorizacao4 NFeInutilizacao4 NFeConsultaProtocolo4 NFeStatusServico4 NFeRecepcaoEvento4 CadConsultaCadastro4" Compreendi errado? Agradeço a todos pela ajuda.

Olá Leonel Araujo você descobriu onde pode ser capturado esta informação? Agradeço pela atenção.

Pensei da mesma forma e questionei o suporte, a posição foi que o mesmo será ajustado para realidade do SAT e NFC-e. Nos resta aguardar os ajustes. kkkkkkk Obrigado pelo auxílio Daniel.

Bom dia Daniel, Novamente obrigado pelo retorno. Tentei utilizar o método que você passou. Mas fazendo os testes a DLL não retorna valor algum, sempre retorna zero! Mas no Relatório de Transações do SiTef a transação consta como PENDENTE. Vendo esse problema entrei em contato com a Software Express e recebi o seguinte retorno do suporte: Pensando nisso podemos desconsiderar a minha duvida e minha sugestão. Obrigado mais uma vez pelo auxilio.

No momento que aparece no Pinpad: "TRANSACAO ACEITA" e logo em seguida pede para remover o cartão, se olharmos no Relatório de Transações do SiTef, a Transação ainda está Pendente. Mas da forma que implementei acima, fazendo o processo de homologação seq 16, ao abrir novamente a aplicação, o retorno é: "Transação TEF efetuada. Favor reimprimir último Cupom. (Para Cielo utilizar os 6 últimos dígitos.)" Hoje existe algum método ACBrTEFDCliSiTef, que valida a última transação sem a existência do arquivo *.tef?