tdpsistemas

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.

Vou efetuar o Teste Unitário e volto a lhe falar o resultado. Obrigado desde já pela atenção.

Boa tarde Daniel, Primeiramente obrigado pelo retorno. Também não compreendo, mas nos testes feitos o TruncTo estava sempre retornando 0,01 centavos a menos do que foi passado para ele. Não sei se pode ser a versão do Delphi utilizada pois a minha versão é o Delphi 7. Testamos se era algo relacionado ao SetRoundMode, pois já tivemos problemas relacionados em formatação, mas mesmo passando para o SetRoundMode(rmNearest) o calculo fica incorreto. Você acha necessário ter a formatação desse valor, já que o mesmo já está vindo formatado corretamente da unit: ACBrECF. Mais uma vez obrigado pela atenção.

Olá a todos, Gostaria de compartilhar mais um pequeno caso que localizei na unit: ACBrECFVirtual, exatamente no método: EfetuaPagamento. O método estava programado da seguinte forma: function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency; AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom; begin Result := fpPagamentosCupom.New; with Result do begin PosFPG := APosFPG ; ValorPago := fpECFVirtualClasse.RoundECF(AValor); Observacao := AObservacao ; fpTotalPago := fpTotalPago + max(ValorPago, 0); end; end; Esse método fpECFVirtualClasse.RoundECF utiliza a property fpArredondaItemMFD, e a mesma está igual a False no meu caso. Ou seja, o sistema irá truncar o valor os valores. (Essa propriedade precisa ficar False, pois os produtos nesse caso precisam ser truncados na venda) Ex: Enviei um pagamento de 78,22, o método que efetua o TruncTo retornava 78,21; Pensando nisso esse Valor não deveria ser formatado, pois o mesmo já vem com seu valor respectivamente correto, pois no método: EfetuaPagamento da unit: ACBrECF (TACBrECF.EfetuaPagamento) já faz a devida formatação do campo, enviando assim corretamente para unit: ACBrECFVirtual; Meu método ficou da seguinte forma: function TACBrECFVirtualClassCupom.EfetuaPagamento(AValor: Currency; AObservacao: String; APosFPG: Integer): TACBrECFVirtualClassPagamentoCupom; begin Result := fpPagamentosCupom.New; with Result do begin PosFPG := APosFPG ; ValorPago := AValor; //fpECFVirtualClasse.RoundECF(AValor); Observacao := AObservacao ; fpTotalPago := fpTotalPago + max(ValorPago, 0); end; end; Não consegui pensar em outra solução ou encontrar algo que mudasse esse calculo. Peço por gentileza que desconsidere a sugestão caso exista outra. Agradeço a todos pela ajuda desde já. ACBrECFVirtual.pas

Boa noite Daniel, Baixamos e testamos deu certo a modificação. Agradeço muito pela prontidão no auxílio!!! Tópico pode ser colocado como resolvido

Olá Daniel, Primeiramente muito obrigado pelo retorno. Espero ter deixado tudo certo, qualquer coisa estou a disposição. Aguardo seu retorno.

Olá a todos, Gostaria de passar um caso que pegamos: Utilizamos o Compontente: ACBrECFVirtualNaoFiscal, com ACBRECF, para simular a venda na tela para o cliente, após isso finalizamos a venda SAT normalmente. Mas em clientes que trabalham 24 horas estava ocorrendo um problema na venda na mudança de dia. Após algumas validações vimos que na unit: ACBrECFVirtual, no método: function TACBrECFVirtualClass.GetEstado: TACBrECFEstado; existia o seguinte tratamento: if not (fpEstado in [estNaoInicializada,estDesconhecido]) then begin if (CompareDate( now, fpDia) > 0) and ( not (fpEstado in [estBloqueada,estRequerX])) then fpEstado := estRequerZ ; if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then fpEstado := estRequerX ; end; Ou seja no meio de uma venda o estado era modificado para RequerZ, bloqueando assim a venda e a finalização. Pensando nisso fizemos a seguinte "Melhoria" no processo, para que só seja modificado o estado para estRequerZ apenas se o estado da impressora for igual a estLivre. Ficando da seguinte forma: if not (fpEstado in [estNaoInicializada,estDesconhecido]) then begin if (CompareDate( now, fpDia) > 0) and ( (fpEstado in [estLivre])) then fpEstado := estRequerZ ; if (fpEstado = estBloqueada) and (CompareDate( now, fpDia) > 0) then fpEstado := estRequerX ; end ; Não achei outra solução, por gentileza se existir alguma outra solução me avise. Agradeço desde já pela atenção de todos. ACBrECFVirtual.pas

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

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