tdpsistemas

Boa tarde a todos, Estou com um grande problema em um cliente que utiliza o SiTEF através da dll Clisitef, utilizamos o ACBrTEFD em nosso sistema para efetuar as transações TEF. O problema é o seguinte, ele possui contrato com a ValeCard (https://www.valecard.com.br) para venda de combustíveis através do ValeCard combustíveis. Em contato com a Innova Capture (http://www.innovacapture.com.br/) que é a representante do SiTEF e cuida de toda a instalação e parametrização dos cartões, fizemos todo o procedimento de instalação. Configuraram o Clisitef.ini com os parâmetros necessários para habilitar a transação com combustível através do cartão ValeCard, porém no menu do TEF que o sistema apresenta, não mostra de forma alguma a opção "Cartão Combustível". Minha dúvida é a seguinte: A dll Clisitef mais o AcbrTEFD é responsável por ler os parâmetros e montar o menu dinamicamente de acordo com os parâmetros configurado no SiTEF ? Se sim, deve ser algum problema de configuração. Se não, vocês sabem me dizer qual o procedimento que devo adotar ? Estou enviando em anexo o arquivo Clisitef.ini e o manual que a software Express enviou com as configurações do ValeCard. Se alguém já passou por isso ou conhece o que deve ser feito, por favor compartilhe a solução. Obrigado. Valecard_Guia de Instalação.pdf CliSiTef.ini

Boa tarde, Esse erro você soluciona passando o tipo do ssllib que o ACBR irá utilizar. ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom ou ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicomDelphiSoap; Para Server windows server estamos utilizando: libCapicomDelphiSoap e para os demais windows libCapicom; Dessa forma está funcionando (Até ontem antes do almoço). Após a instabilidade do SEFAZ aqui em SP não estamos conseguindo consultar NFe.

Muito Obrigado Daniel.

Sem problemas, Muito obrigado mesmo pela ajuda, se fizer da mesma forma acredito que também irá funcionar para quem for utilizar. Por mim pode colocar o tópico como resolvido.

Daniel, Testei aqui, precisei fazer alguns ajustes, pois não estava compilando. (Nome dos parâmetros estavam diferente do que estava dentro do método) Outra coisa era que no método: VendeItem estava dessa forma Total := CalcTotalItem( Qtd * ValorUnitario,-2); Troquei para Total := CalcTotalItem( Qtd, ValorUnitario) Após isso finalizou normalmente a venda, atendendo assim a necessidade, e resolvendo meu problema. Segue em anexo a Unit alterada. Obrigado mais uma vez pelo auxilio e atenção. ACBrECFNaoFiscal.pas

Boa tarde Daniel, Primeiramente Obrigado pelo retorno. Se você não ver problema em utilizar o ArredondaItemMFD, sem problemas podemos utilizar ele. Não fiz a implementação nos demais locais que utilizam o RoundABNT, pois a falha é entre o valor do item que foi vendido no total do SubTotal. Corrigindo apenas o valor que é calculado no item o Subtotal já fica correto. Por isso não fiz a troca nos demais locais. Estou a disposição para auxiliar na implementação se necessário. Obrigado mais uma vez pelo auxilio.

Olá a todos, Tive dificuldades na utilização do ACBrECFNaoFiscal, onde estou utilizando os métodos em um sistema para posto de combustível. (Utilizo o ACBREcf com ACBrECFVirtualNaoFiscal para fazer a Venda do "Cupom" na tela do aplicativo, após a finalização geramos o SAT.) O problema estava na finalização do cupom, onde não nos permitia continuar, pois os valores não batiam (Valor da Finalização com o Subtotal). Após muitas analises e pesquisas verificamos que o método vendeitem, por padrão arredonda (RoundABNT), mas no caso de posto de combustível os valores devem ser truncados. Tentei achar alguma solução que não fosse alterar o fonte, mas não consegui encontrar nada. Então por isso estou enviando para vocês a solução que encontramos e que está funcionando. Peço por gentileza que se já existir alguma solução desconsidere o que foi feito e me passe o que devo fazer para que funcione corretamente. Agora vou descrever o que foi feito. Na unit: ACBrECFClass Criei uma propriedade: TruncarItemECF: Boolean com seu valor default False; (Justificativa da criação da nova propriedade: Não achei legal utilizar as propriedades: ArredondaPorQtd ou ArredondaItemMFD, pois poderia influenciar em algum outro processos, por isso resolvi criar uma nova propriedade exclusivamente para isso) Após isso na Unit: ACBrECF, também fiz a implementação da propriedade. Dentro da Unit.: ACBrECFNaoFiscal, no método: VendeItem fiz a seguinte implementação. iF TrucarItemECF Then Total := TruncTo( Qtd * ValorUnitario, -2) Else Total := RoundABNT( Qtd * ValorUnitario, -2) ; Se a property estiver habilitada, o valor será truncado, caso contrário continuará da mesma maneira. Segue em anexo as 3 units alteradas. Obrigado desde já pela atenção e auxilio. ACBrECF.pas ACBrECFClass.pas ACBrECFNaoFiscal.pas

Muito obrigado Daniel

Olá, Estudando o documento de Especificações Técnicas de Requisitos do SAT: (http://www.fazenda.sp.gov.br/sat/downloads/Especificacao_SAT_v_ER_2_18_08.pdf), a partir da página: 97 até a página 98, trata exclusivamente das Informações Adicionais do CF-e ( Z - Informações Adicionais do CF-e); Observando o documento verifiquei que haverá uma mudança na redação atual, a partir do dia 01/07/17, alguns campos deixaram de ser enviados para o envio de outros. Alguns itens desse manual já foi até implementado no componente, apenas senti "falta" desses itens das paginas supracitadas. Então resolvi fazer a minha contribuição e enviar para analise de vocês. As units alteradas são: pcnCFeCancW e pcnCFeW; Metodos: TCFeW.GerarInfAdicObsFisco; TCFeCancW.GerarInfAdicObsFisco; Resumidamente validei se a versão está igual ou superior ao 0.08, se tiver irá informar as tags esperadas. Houvendo divergência ou inconsistência no que implementei peço por gentileza que me informe para que eu possa me retratar. Desde já agradeço pela atenção. Especificacao_SAT_v_ER_2_18_08.pdf pcnCFeCancW.pas pcnCFeW.pas

Olá Juliomar, Primeiramente obrigado pela prontidão. Eu havia marcado essa opção nas duas tentativas que fiz de instalação não havia dado certo, na terceira desmarquei e foi normalmente. Mas agora está tudo OK. Obrigado mais uma vez pela ajuda.

Olá, Venho me retratar, fiz o processo por uma terceira vez, resolveu o problema instalou novamente sem erros agora. Provavelmente havia mesmo algo antigo que foi excluído nessa última tentativa. Obrigado pela ajuda.

Olá, Estou tentando reinstalar utilizando o ACBrInstall, meu fonte está "atualizado" rev.: 11951; Está dando o seguinte erro ao compilar o Package: ACBr_DFeComum.dpk Compiling package D:\ACBrTestes\ACBr\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk .. D:\ACBrTestes\ACBr\Fontes\ACBrDFe\ACBrDFeConfiguracoes.pas(89) Error: E2003 Undeclared identifier: 'TTimeZoneConf' D:\ACBrTestes\ACBr\Fontes\ACBrDFe\ACBrDFeConfiguracoes.pas(153) Error: E2005 'TTimeZoneConf' is not a type identifier D:\ACBrTestes\ACBr\Fontes\ACBrDFe\ACBrDFeCapicomDelphiSoap.pas(2069) Fatal: F2063 Could not compile used unit 'ACBrDFe.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Já estava utilizando o Trunk2, mas por algumas razões o fonte não estava atualizado, então fiz a atualização fui executar o instalador, fiz o procedimento de apagar os arquivos antigo mas mesmo assim deu erro. Qual é a unit que está declarada a TTimeZoneConf? Obrigado desde já pela ajuda;

Boa tarde André. Compreendi o caso da CST50. Apenas uma informação você conseguiu testar com algum emulador ou conseguiu atualizar algum SAT de Desenvolvimento que permita emitir com a nova regra? Desde já agradecemos pela ajuda.

Boa tarde a Todos, Aproveitando o ensejo, encontrei a NT no seguinte link: http://www.fazenda.sp.gov.br/sat/downloads/vigentes.asp. Em: Especificação de Requisitos do SAT Contém a especificação técnica do Cupom Fiscal Eletrônico-SAT e do equipamento SAT (para fabricantes/órgãos técnicos/desenvolvedores). Leiaute dos arquivos de mensagens atualmente implantadas no Ambiente de Testes: v 0.06 Versão ER 2_18_08 – 03 de março de 2016 Contém o leiaute dos arquivos de mensagens v 0.06, 0.07 e 0.08. Analisando as páginas 76 a 80, verifiquei que a CST: 50 - Suspensão não vai estar mais no grupo de ICMS40 e CSOSN: 400 irá fazer parte do grupo: ICMSSN102 Com isso fomos testar a NT, pois como nosso amigo acima entra em vigor agora dia 01/06/2016 Ao tentar a emissão pelos sat's de desenvolvimento que temos (TANCA,DIMEP,URANO) deu erro até mesmo no emulador da SEFAZ, pois o xml que enviamos gera com a tag icms sem informação. Observando o fonte: pcnCFeW, verifiquei que no método: GerarDetImpostoICMS não tratava a CSOSN 400 no case, e a CST 50 ainda estava presente no case. Como não existia alteração nesse caso, implementamos a melhoria nesse método. Testamos após a alteração quando emitimos com CST 400 gera-se dentro do XML e a CST 50 não entra mais no XML. A unica questão é que o SAT não aceita o arquivo, baixamos o novo emulador da sefaz mas o mesmo também retorna que a CSOSN 400 não é aceita pelo equipamento. Acredito que não tenham atualizado ainda o software para permitir o envio. Segue em anexo os arquivos para teste: XML gerado antes da alteração: CFe-716697. XML gerado após a alteração: CFe-191624. Documento de especificação técnica está em anexo, e no link disponibilizado acima. E o fonte alterado. Se estivermos errado por alguma coisa nos informe por gentileza. Agradecemos muito a atenção. CFe-191624.xml CFe-716697.xml Especificacao_SAT_v_ER_2_18_08.pdf pcnCFeW.pas

Obrigado Daniel pela ajuda!!!

Boa tarde Daniel. Eu baixei a ultima versão do svn: (11727), em uma pasta separada para comparação exclusivamente dessa function. Não vi nenhuma implementação que resolva meu caso, como descrevi acima. Acabei de fazer a alteração para a unit pcnCFe.pas atualizada. Obrigado mais uma vez. pcnCFe.pas Desculpe vi agora que li errado não era pcnCFe.pas e sim pcnCFeW.pas, mesmo assim comparando exatamente onde executa a ExecutarAjusteTagNro, não ouve alteração do meu .pas para o atualizado. Por isso da implementação da property.

Olá a todos, Identifiquei o seguinte caso no package - ACBr_SAT.dpk. Dentro da unit: pcnCFeW existe a seguinte propriedade: FAjustarTagNro, que é utilizada na function: ExecutarAjusteTagNro (pcnAuxiliar). Essa function basicamente adiciona zeros a esquerda do numero do endereço do emitente ou dos dados da entrega, mas no meu caso eu não quero essa opção. Mas como essa property estava apenas declarada dentro do pcnCFeW. Para resolver, criei uma nova propriedade (property AjustarTagNro:boolean read FAjustarTagNro write FAjustarTagNro;) dentro da pcnCFe.pas. Essa propriedade irá ser utilizada na function, GerarXML. Apartir dai dentro do componente ACBrSAT (ACBRSat.CFe.AjustarTagNro) consigo determinar se desejo ou não ajustar o tamanho do campo numero. Baixei a ultima versão: (11727), e dentro dessa versão não havia nenhuma solução para esse caso. Agradeço desde já pela atenção. pcnCFe.pas pcnCFeW.pas

Olá, Então foi isso mesmo que implementei Regys (com outros nomes é claro), mas que bom que já está ok então é que não vi nenhuma resposta, pensei que não seria feito alteração nesse caso. Agradeço a atenção e solução do problema. Obrigado. Att, Alan Leônidas

Boa tarde a todos, Também enfrentamos esse problema do arquivo ficar muito grande, ocasionando uma demora no envio do email. Vendo a justificativa do Régys resolvi criar duas propriedades no componente que irá atender ambas necessidades. property SegundoPlano: Boolean read FSegundoPlano write FSegundoPlano; (Background) property FontesIncorporadas: Boolean read FFontesIncorporadas write FFontesIncorporadas;(EmbeddedFonts) Deixando essas propriedades igual True, o PDF irá continuar sendo gerado no formato padrão atual, caso contrário o mesmo será gerado com seu tamanho bem reduzido. Espero que gostem da alteração, a mesma resolveu o nosso problema. Qualquer coisa estou a disposição. Att, Alan Leônidas ACBrNFeDANFEFR.pas ACBrNFeDANFEFRDM.pas

Olá Daniel, Desculpe, mas mesmo preenchendo essa propriedade o corte estava sendo executado de forma errada (Não estava considerando as linhas). Estamos utilizando o componente: ACBrECFVirtualNaoFiscal, e o mesmo está ligado ao ACBrPosPrinter, mesmo preenchendo a propriedade passada corta de forma incorreta. Funciona apenas com a modificação que coloquei no post. Estamos utilizando o ACBrECFVirtualNaoFiscal, ligado ao Componente ACBrECF, onde imprimimos os comprovantes não fiscal SiTef, não modificamos codificação do sistema, aproveitamos o que já estava pronto, apenas ligamos o não fiscal para imprimir nas térmicas. Obrigado mais uma vez pela atenção. Att. Alan Leônidas

Olá a todos, Segue em anexo a unit atualizada, pois cometi um erro na parte do corte do papel. No código acima eu defini o corte com o Comando: CortePapel(False); with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; For A := 1 to LinhasEntreCupons do Add( '' ) ; CortaPapel(False); // Corte total já pula linhas end ; Mas essa procedure efetua o corte imediatamente, e na logica o corte é para acontecer após a impressão. Então deixei da seguinte forma: with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; For A := 1 to LinhasEntreCupons do Add( '' ) ; Add( '</corte_total>'); // Corte total já pula linhas end ; Desculpe pelo erro; Obrigado pela atenção. Att. Alan Leônidas. ACBrECFVirtualBuffer.pas

Olá a todos da comunidade, Encontramos uma dificuldade na na unit: ACBrECFVirtualBuffer, mais especificamente na classe: TACBrECFVirtualBufferClass, procedure AddBufferRodape; No final da impressão existe o comando: '</corte_total>', mas sem contar a quantidade de linhas necessárias precisa pular para efetuar o corte, dessa forma acaba cortando a impressão antes mesmo de finalizar a impressão corretamente, deixando textos abaixo do corte. O Código encontrava-se da seguinte maneira: with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; </corte_total> // Corte total já pula linhas end ; Alterei o código para: with fsBuffer do begin Add( '</linha_simples>' ) ; Add( PadSpace('N.Serie '+PadRight(fpNumSerie,21)+'|Maq '+GetNumECF+'|'+ 'v'+NumVersao,Colunas,'|') ); Add( PadSpace('Oper. '+PadRight(Operador,15) +'|'+ FormatDateTimeBr(now, 'dd/mm/yy hh:nn:ss')+V, Colunas,'|') ); Add( PadCenter('** N A O E C U P O M F I S C A L **',Colunas) ); Add( '</linha_dupla>' ) ; For A := 1 to LinhasEntreCupons do Add( '' ) ; CortaPapel(False); // Corte total já pula linhas end ; O mesmo código pode ser encontrado na unit: ACBrECFNaoFiscal, procedure: AddBufferRodape. A unica diferença que dentro da Unit ACBrECFVirtualBuffer, tem o comando para cortar papel diretamente nela. Gostaria de saber se o código pode ser adicionado ao repositório. Estou anexando a unit para analise de vocês. Desde já agradecemos a atenção. Att, Alan Leônidas. ACBrECFVirtualBuffer.pas

Olá a todos, Me desculpem se estou respondendo algo errado, mas também estou utilizando o Trunk não migramos para nova arquitetura. Estou nesse momento validando, caso estejam com duvidas se está correto ou não os endereços olhem nesse link: http://hom.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs= Tem para cada estado o endereço correto que deve ser utilizado. Abaixo os endereços do Webservice de RS. Sefaz Rio Grande do Sul - (RS) Serviço Versão URL RecepcaoEvento 1.00 https://nfe-homologacao.sefazrs.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx NfeDownloadNF 1.00 https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeDownloadNF/nfeDownloadNF.asmx NfeConsultaDest 1.01 https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeConsultaDest/nfeConsultaDest.asmx NfeConsultaCadastro 2.00 https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro2.asmx NfeInutilizacao 3.10 https://nfe-homologacao.sefazrs.rs.gov.br/ws/nfeinutilizacao/nfeinutilizacao2.asmx NfeConsultaProtocolo 3.10 https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta2.asmx NfeStatusServico 3.10 https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico2.asmx NFeAutorizacao 3.10 https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeAutorizacao/NFeAutorizacao.asmx NFeRetAutorizacao 3.10 https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeRetAutorizacao/NFeRetAutorizacao.asmx Olhando o fonte, estão todas corretas. Lembrando que precisa estar com a versão atualizada do fonte, para ter certeza se estava com a correta hoje mesmo fiz a atualização do fonte. Espero ter ajudado.

Segue os logs para analise. Obrigado. AcbrLog1102062015.txt CliSiTef.txt

Bom dia, Mas estou utilizando uma impressora Não Fiscal (Epson TM T20), por isso estou utilizando o AcbrECFVirtualNaoFiscal. Este componente possui está limitação? Como posso estar utilizando a impressão dos dados das vendas em um único vinculado na impressora Não Fiscal? Obrigado.