Jump to content

-=Ma®©oS=-

Membros
  • Posts

    308
  • Joined

  • Last visited

Everything posted by -=Ma®©oS=-

  1. Obrigado por reportar, logo alguém do ACBr verifica e se for o caso adiciona na versão.
  2. Ola! Tenho uma balança dessas UDC 30000/5 aqui, é uma balança "antiga", somente tem porta serial e utiliza mesmo o protocolo UDC. Consegui fazer funcionar criando um novo modelo devido ao "SolicitarPeso" que neste caso da UDC tem de ser: fpDevice.EnviaString(#04); enquanto o padrão de todas as outras balanças serem (ACBrBalClass.pas, para todas as balanças e não só Urano) fpDevice.EnviaString(#05) Anexo alterações. ACBrBalUranoUDC é a que interessa nesta thread, mas inclui também as balanças Toledo IP: balToledoIP_W9091, balToledoIP_WOhaus, balToledoIP_WMSI3360, balToledoIP_WMSI6260 que utilizamos aqui a algum tempo e não conseguimos fazer funcionar sem alterar o ACBrBal. ACBrBAL.pas ACBrBALUranoUDC.pas ACBRBALToledoIP_WMSI3360.pas ACBRBALToledoIP_WMSI6260.pas ACBRBALToledoIP_WOhaus.pas ACBRBALToledoIP.pas ACBRBALToledoIP_W9091.pas Teste feito aqui com o "BalancaTeste" do ACBr depois de alterar o componente com as units acima: Peso retornado bateu com o exibido no display da balança.
  3. Pelo que entendi esta balança utiliza protocolo UDC CO que não é suportado pelo ACBr. Manual: https://www.urano.com.br/media/wysiwyg/manuais/Protocolo Serial UDC CO-E e UDC CO.pdf ACBrBalUrano utiliza um protocolo que não consegui identificar(copiado da TACBrBALGertecSerial) ACBrBalUranoPOP utiliza protocolo USE-CB2 e USE-P2
  4. Aqui ocorria problema mesmo (A.V.), correção no fast report exportando para PDF Compactado no Delphi 11/11.1 aqui:
  5. bom dia! Fiz a correção do problema de exportar pdf compactado no fast report aqui:
  6. Bom dia! Para mim não funcionou com estas alterações, tive de alterar diretamente no Fast Report (frxZLib). Com a alteração que fiz não precisa desativar a compactação do PDF. Sem compactar estava inviável gerar PDF e enviar para o destinatário. Temos clientes que emitem centenas de notas por dia e sem compactar aumenta de 8 a 10x o tamanho do PDF. Pasta das notas do dia com pdf compactado beirava 1Gb e sem compactação quase chegou a 10Gb.... totalmente inviável. Vendo o fonte parece pouca alteração (faça um compare e verá) mas levei quase 7 horas para chegar no resultado esperado. EDIT: Só para afirmar, é um problema para quem usa o Delphi Alexandria (11 / 11.1) frxZLib.pas
  7. Só para registrar, continuo aguardando o pessoal do suporte da empresa me passar os XMLs e o respectivo teste
  8. Boa pergunta, foi o que o pessoal do suporte me passou, vou verificar.
  9. Sim, no validador da receita passa normalmente
  10. Ola! Seguinte, temos um cliente que precisa enviar os XMLs das notas para a Amazon, porem eles estão negando o mesmo por um "problema" na assinatura. XML assinado pelo ACBr (negado pela Amazon): XML assinado por um terceiro, aceito normalmente pela Amazon: Observem que os atributos da "Signature" são diferentes, se o cliente vai la e apaga o "xmlns:Signature.." a Amazon aceita o XML. Alguma sugestão de como resolver isso?
  11. Bom dia! Vi sim, só não tive tempo para testar ainda (em um teste de 5 minutos parece estar ok), está meio corrido aqui Estava focado alterações para equiplano, agora surgiu uma para IPM mas solicitei a documentação ao suporte deles, tem um campo "novo" que não tem no ACBrNFSe nem no ACBrNFSeX, mas para justificar pedi a documentação, mas isto é outra thread
  12. Boa Tarde Italo! Atualizei e realizei os testes, está funcionando corretamente. Desculpe pela demora em testar, estava com outros problemas aqui para resolver. Obrigado
  13. Bom Dia Italo! Funcionou a questão da quebra de linha. Acredito que só falte validar minha alteração no ConsultaNFSePorRPS de NFSe cancelada que postei acima
  14. Bom Dia Italo! - Segue anexo sugestão de melhoria para a ConsultaNFSePorRPS de NFS-e Cancelada. - Testei com NFS-e Cancelada e não cancelada. - Falta a questão da quebra de linha ACBrNFSeXWebservicesResponse.pas Equiplano.Provider.pas Vou fazer update e testar, estava postando a questão do ConsultaNFSeporRPS, ja testo e atualizo novamente aqui
  15. - Esta questão da quebra de linha será tratada no componente ou na aplicação ? (Particularmente prefiro no componente assim já evita problemas para outros desenvolvedores) - Outra questão (que está ligada diretamente a esta) é a consulta de status (ConsultaNFSePorRPS) de uma NFSe cancelada, não está considerando o cancelamento no retorno. Retorno: <es:esConsultarNfsePorRpsResposta xmlns:es="http://www.equiplano.com.br/esnfs" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.equiplano.com.br/esnfs consultarNfsePorRpsResposta_v01.xsd"> <nfse> <nrNfse>32</nrNfse> <cdAutenticacao>F2ACDF08BDD106755D8263CB198B50CB</cdAutenticacao> <dtEmissaoNfs>2022-03-04T09:10:30</dtEmissaoNfs> <nrRps>357</nrRps> <nrEmissorRps>1</nrEmissorRps> <cancelamento> <dtCancelamento>2022-03-04T09:13:24</dtCancelamento> <dsCancelamento>TESTE CANCELAMENTO DATA/HORA CANCELAMENTO: 04/03/2022 09:11:34</dsCancelamento> </cancelamento> </nfse> </es:esConsultarNfsePorRpsResposta> Veja que é retornado o bloco de cancelamento, porem o TNFSeConsultaNFSeporRpsResponse não suporta tais campos, se não houver objeção posso tentar implementar
  16. Essa sua idéia me fez realizar um debug mais detalhado no motivo do cancelamento e acabei encontrando uma falha. No ACBrNFSe tratava: erador.wCampo(tcStr, '#4', 'MotivoCancelamento', 01, 36, 1, MotivoCanc, ''); Gerador.wCampo(tcStr, '#4', 'MotivoCancelamento', 01, 36, 1, MotivoCanc, ''); Já no ACBrNFSeX: procedure TACBrNFSeProviderEquiplano.PrepararCancelaNFSe( Response: TNFSeCancelaNFSeResponse); Response.ArquivoEnvio := '<es:esCancelarNfseEnvio' + NameSpace + '>' + '<prestador>' + '<nrInscricaoMunicipal>' + OnlyNumber(Emitente.InscMun) + '</nrInscricaoMunicipal>' + '<cnpj>' + OnlyNumber(Emitente.CNPJ) + '</cnpj>' + '<idEntidade>' + FpCodigoCidade + '</idEntidade>' + '</prestador>' + '<nrNfse>' + Response.InfCancelamento.NumeroNFSe + '</nrNfse>' + '<dsMotivoCancelamento>' + Response.InfCancelamento.MotCancelamento + <--- AQUI '</dsMotivoCancelamento>' + '</es:esCancelarNfseEnvio>'; Apenas concatena, não removendo a quebra de linha. Removi manualmente e autorizou corretamente o cancelamento.
  17. Boa Tarde! Mesmo problema. Pelo vi entre o ACBrNFSe e o ACBrNFSeX a direfença está no envelope soap, porem na teoria não deveria impactar já que não é o envelope que é assinado.
  18. Observando minha resposta anterior, testei alterando tambem no ACBrNFSeX AACBrNFSeX.SSL.SSLType := LT_TLSv1_2; AACBrNFSeX.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; porem o erro (1056 - Rejeição: Assinatura - Digest difere do calculado) continua
  19. Abaixo AACBrNFSeX.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrNFSeX.SSL.SSLXmlSignLib := xsMsXml; AACBrNFSeX.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrNFSeX.Configuracoes.Certificados.DadosPFX := LCertificado.DadosPFX; AACBrNFSeX.Configuracoes.Certificados.NumeroSerie := LCertificado.NumeroSerie; AACBrNFSeX.Configuracoes.Certificados.Senha := LCertificado.Senha; AACBrNFSe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrNFSe.SSL.SSLXmlSignLib := xsMsXml; AACBrNFSe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrNFSe.SSL.Senha := LCertificado.Senha; AACBrNFSe.SSL.NumeroSerie := LCertificado.NumeroSerie; AACBrNFSe.SSL.DadosPFX := LCertificado.DadosPFX; AAcBrNFSe.SSL.SSLType := LT_TLSv1_2; AAcBrNFSe.Configuracoes.Geral.SSLHttpLib := httpOpenSSL;
  20. Bom dia Italo! Testei aqui novamente mas sem sucesso. Anexo envio e retorno capturados diretamente do AService.Envio e do AService.Retorno dentro da procedure TACBrNFSeXProvider.CancelaNFSe envio.xml retorno.xml
  21. Boa Tarde Italo! Anexo envio e retorno capturadas direto das variáveis FPEnvelopeSoap (envio) e FPRetornoWS (retorno) do cancelamento que ocorre corretamente no ACBrNFSe (dentro do ACBrDFeWebService na versão anterior do componente) envio_acbrnfse.xml retorno_acbrnfse.xml
  22. Boa Tarde Italo! Acabei atualizar e testar aqui, está ok. Obrigado
  23. Boa Tarde Italo! Sem sucesso. Anexo XMLs capturados diretamente do AService.Envio e do AService.Retorno dentro da procedure TACBrNFSeXProvider.CancelaNFSe envio.html retorno.html
  24. Ola! Ao tentar cancelar ocorre a rejeição do Digest difere do calculado, passei algumas horas debugando mas não obtive sucesso. Estou fazendo o cancelamento usando de base o exemplo do ACBrNFSeX LInfCancelamento := TInfCancelamento.Create; try LInfCancelamento.NumeroNFSe := IntToStr(LNumNota); LInfCancelamento.SerieNFSe := LSerie; LInfCancelamento.ChaveNFSe := LcdAut; LInfCancelamento.MotCancelamento := LxMotivo; LInfCancelamento.NumeroLote := IntToStr(ANotaId); LInfCancelamento.NumeroRps := LNumRPS; //LInfCancelamento.SerieRps := LSerie; //LInfCancelamento.ValorNFSe := StrToFloatDef(ValNFSe, 0); //LInfCancelamento.CodVerificacao := CodVerif; // Codigo de Cancelamento // 1 - Erro de emissão // 2 - Serviço não concluido // 3 - RPS Cancelado na Emissão if LACBrNFSeX.Configuracoes.Geral.Provedor in [proCoplan, proWebISS] then begin LInfCancelamento.NumeroNFSe := FormatFloat('0000', YearOf(LDataEmissao)) + FormatFloat('00000000000', LNumNota); LInfCancelamento.CodCancelamento := '2'; end else LInfCancelamento.CodCancelamento := '1'; LACBrNFSeX.CancelarNFSe(LInfCancelamento); finally LInfCancelamento.Free; end; e o retorno (LACBrNFSeX.WebService.CancelaNFSe.Erros): 1056 - Rejeição: Assinatura - Digest difere do calculado
  25. Sim, salvando direto pela ConsultaNFSePorRPS grava corretamente, pois lá na procedure TACBrNFSeXProvider.SalvarXmlNfse(aNota: TNotaFiscal) grava usando aNota.XmlNfse, ou seja, o xml da NFSe em si. coisa que no GravarXML não faz. Porem aqui por questões internas o caminho, nome do arquivo e configurações são dependentes de alguns fatores, por isso utilizamos o GravarXML.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.