Ir para conteúdo
  • Cadastre-se

lsergios

Membros
  • Total de ítens

    12
  • Registro em

  • Última visita

Últimos Visitantes

277 visualizações

lsergios's Achievements

Rookie

Rookie (2/14)

  • Collaborator Rare
  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later

Recent Badges

1

Reputação

  1. realmente comentando as linhas acima o tpbm não é gerado e funcionou aqui em franca/sp ou alterando o C:\ACBR\Fontes\ACBrDFe\ACBrNFSeX\Base\ACBRNFSeXConversão.pas para: type TtpBM = (tbIsencao, tbReducaoBCperc, tbReducaoBCvalor, tbAliquota, tbNenhum); const TtpBMArrayStrings: array[TtpBM] of string = ('1', '2', '3', '4','5'); e no C:\ACBR\Fontes\ACBrDFe\ACBrNFSeX\Provedores\PadraoNacional.GravarXml.pas para: if NFSe.Servico.Valores.tribMun.tpBM <> tbNenhum then begin Result.AppendChild(AddNode(tcStr, '#1', 'tpBM', 1, 1, 0, tpBMToStr(NFSe.Servico.Valores.tribMun.tpBM), '')); case NFSe.Servico.Valores.tribMun.tpBM of tbIsencao: Result.AppendChild(AddNode(tcDe2, '#1', 'vCalcBM', 1, 15, 0, 0, '')); tbReducaoBCvalor: Result.AppendChild(AddNode(tcDe2, '#1', 'vCalcBM', 1, 15, 0, NFSe.Servico.Valores.tribMun.vRedBCBM, '')); tbReducaoBCperc, tbAliquota: Result.AppendChild(AddNode(tcDe2, '#1', 'vCalcBM', 1, 15, 0, NFSe.Servico.Valores.tribMun.pRedBCBM, '')); end; end; no componente mover Servico.Valores.tribMun.tpBM := tbNenhum; Até o pessoal da acbr resolver o problema
  2. pra mudar esse campo tpBm: Servico.Valores.tribMun.tpBM := tbAliquota; type TtpBM = (tbIsencao, tbReducaoBCperc, tbReducaoBCvalor, tbAliquota);
  3. Estou com o mesmo problema aqui também (Franca/SP). Rejeitado pela regras municipais: O tipo de retenção informada não confere com o esperado. Valor Informado: Isento. Valor esperado: SimNao
  4. neste post da página 9 tem o xml completo que utilizei
  5. sim, consegui enviar algumas vezes dava timeout, mas tentava novamente e transmitia se for franca o arquivo ACBrNFSeXServicos.ini deverá estar assim: [3516200] ; Atualizado em 05/08/2024 Nome=Franca UF=SP Provedor=SilTecnologia ;Versao=2.03 ;ProRecepcionar=https://franca.siltecnologia.com.br/services/Abrasf23 ;HomRecepcionar=https://homologacao.siltecnologia.com.br/tbfranca/services/Abrasf23 ;ProLinkURL=http://franca.siltecnologia.com.br/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif% ;HomLinkURL=http://franca.siltecnologia.com.br/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif% ; Descomentar as linhas abaixo para usar a API própria Versao=1.01 Params=APIPropria: ProRecepcionar=https://franca.siltecnologia.com.br/services/NotaFiscalNacional HomRecepcionar=https://homologacao.siltecnologia.com.br/tbfranca/services/NotaFiscalNacional se alterar esse arquivo tem que executar o compila_res.bat que esta na mesma pasta do arquivo
  6. esta assim: if NFSe1.Configuracoes.Geral.Provedor in [proCitta, proSilTecnologia] then begin { Dados necessários para os provedores indicados acima pois eles requerem que seja enviado o XML da NFS-e em vez do XML da DPS. } infNFSe.nNFSe := dm1.CDSNfNUMERO.AsString; infNFSe.nDFSe := dm1.CDSNfNUMERO.AsString; infNFSe.dhProc := dm1.CDSNfDATCAD.Value; // agPrefeitura, agSistemaNacional infNFSe.ambGer := agPrefeitura; // tePadraoNacional, teProprio infNFSe.tpEmis := teProprio; // Valores infNFSe.Valores.BaseCalculo := 0; infNFSe.Valores.Aliquota := 0; infNFSe.Valores.ValorIss := 0; infNFSe.Valores.vTotalRet := 0; infNFSe.Valores.ValorLiquidoNfse := dm1.CDSNfTotVL_LIQUIDO.Value; Servico.Valores.tribMun.tribISSQN := tiOperacaoTributavel; Servico.Valores.tribMun.tpImunidade := timNenhum; Servico.Valores.totTrib.indTotTrib := indNao; Emitente.IdentificacaoPrestador.CpfCnpj := dm1.CDSNfEMI_CNPJ_CPF_MOSTRAR.Value; if dm1.CDSNfINSCR_MUNIC_EMI.Value <> '' then Emitente.IdentificacaoPrestador.InscricaoMunicipal := dm1.CDSNfINSCR_MUNIC_EMI.Value; Emitente.RazaoSocial := dm1.CDSNfRAZAO_EMI.Value; Emitente.Endereco.Endereco := dm1.CDSNfENDER_EMI.Value; Emitente.Endereco.Numero := dm1.CDSNfENDER_NRO_EMI.Value; Emitente.Endereco.Complemento := dm1.CDSNfENDER_COMPL_EMI.Value; Emitente.Endereco.Bairro := dm1.CDSNfBAIRRO_EMI.Value; Emitente.Endereco.xMunicipio := dm1.CDSNfCIDADE_EMI.Value; Emitente.Endereco.UF := dm1.CDSNfUF_EMI.Value; Emitente.Endereco.CEP := dm1.CDSNfCEP_EMI.Value; Emitente.Endereco.CodigoMunicipio := dm1.CDSNfCID_IBGE_EMI.AsString; Emitente.Contato.Telefone := dm1.CDSNfFONE_EMI.Value; Emitente.Contato.Email := dm1.CDSNfEMAIL_EMI.Value; end; O xml completo gerado esta alguns posts acima
  7. No meu caso utilizo o componente direto no delphi with NFSe1.NotasFiscais.New.NFSe do begin Emitente.RazaoSocial := dm1.CDSNfRAZAO_EMI.Value; Emitente.Endereco.Endereco := dm1.CDSNfENDER_EMI.Value; Emitente.Endereco.Numero := dm1.CDSNfENDER_NRO_EMI.Value; Emitente.Endereco.Complemento := dm1.CDSNfENDER_COMPL_EMI.Value; Emitente.Endereco.Bairro := dm1.CDSNfBAIRRO_EMI.Value; Emitente.Endereco.xMunicipio := dm1.CDSNfCIDADE_EMI.Value; Emitente.Endereco.UF := dm1.CDSNfUF_EMI.Value; Emitente.Endereco.CEP := dm1.CDSNfCEP_EMI.Value; Emitente.Endereco.CodigoMunicipio := dm1.CDSNfCID_IBGE_EMI.AsString; Emitente.Contato.Telefone := dm1.CDSNfFONE_EMI.Value; Emitente.Contato.Email := dm1.CDSNfEMAIL_EMI.Value; end; Consegui também abrir o danfe chamando esta url (franca): https://franca.siltecnologia.com.br/loginWeb.jsp?execobj=NFSENotaFiscalBuscarDireto&cnpj=99.999.999/9999-99&numero=999&chave=99999999999999999999999999999999999999999999999999 Mesma que ja existia antes se não me engano, trocando somente o parâmetro chave que antes era código de verificação e agora a chave da nfse
  8. uses System.SysUtils, XmlDoc, XmlIntf; type TRetorno = record Status: string; ChaveAcesso: string; nNFSe: string; mensagemErro: string; end; function LerXMLRetorno(const FileName: string): TRetorno; var XMLDoc: IXMLDocument; RootNode: IXMLNode; function GetNodeTextSafe(Parent: IXMLNode; const NodeName: string): string; var Node: IXMLNode; begin Node := Parent.ChildNodes.FindNode(NodeName); if Assigned(Node) then Result := Node.Text else Result := ''; // valor padrão se não existir end; begin XMLDoc := TXMLDocument.Create(nil); XMLDoc.LoadFromFile(FileName); // carrega direto do arquivo XMLDoc.Active := True; RootNode := XMLDoc.DocumentElement; Result.Status := GetNodeTextSafe(RootNode, 'Status'); Result.ChaveAcesso := GetNodeTextSafe(RootNode, 'chaveAcesso'); Result.nNFSe := GetNodeTextSafe(RootNode, 'nNFSe'); Result.mensagemErro:= GetNodeTextSafe(RootNode, 'mensagemErro'); end; pra chamar a function e obter os campos: procedure TestarLeituraXML; var Ret: TRetorno; begin // chama a função passando o nome do arquivo XML Ret := LerXMLRetorno('C:\temp\retorno.xml'); // agora você pode acessar os campos do record ShowMessage('Status: ' + Ret.Status); ShowMessage('Chave de Acesso: ' + Ret.ChaveAcesso); ShowMessage('Número NFSe: ' + Ret.nNFSe); ShowMessage('Mensagem de Erro: ' + Ret.mensagemErro); end;
  9. Consegui enviar notas tanto em homologação quanto em produção para franca/sp o arquivo ACBrNFSeXServicos.ini ficou assim: [3516200] ; Atualizado em 05/08/2024 Nome=Franca UF=SP Provedor=SilTecnologia ;Versao=2.03 ;ProRecepcionar=https://franca.siltecnologia.com.br/services/Abrasf23 ;HomRecepcionar=https://homologacao.siltecnologia.com.br/tbfranca/services/Abrasf23 ;ProLinkURL=http://franca.siltecnologia.com.br/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif% ;HomLinkURL=http://franca.siltecnologia.com.br/loginWeb.jsp?execobj=NFENotaFiscalBuscarDireto&cnpj=%Cnpj%&numero=%NumeroNFSe%&chave=%CodVerif% ; Descomentar as linhas abaixo para usar a API própria Versao=1.01 Params=APIPropria: ProRecepcionar=https://franca.siltecnologia.com.br/services/NotaFiscalNacional HomRecepcionar=https://homologacao.siltecnologia.com.br/tbfranca/services/NotaFiscalNacional Realmente como foi dito anteriormente, o único jeito de pegar o número da nota e a chave é através do arquivo xml retornado, que no programa de testes do acbr esta com o nome de temp2.xml: <Retorno> <Status>PROCESSADO_COM_SUCESSO</Status> <chaveAcesso>99999999999999999000100000000000066026010000009999</chaveAcesso> <nNFSe>999</nNFSe> </Retorno> consultando a chave no ambiente nacional em produção (NFS-e | Consulta Pública de NFS-e) a nota está la Na prefeitura também: O xml de envio gerado pelo componente esta assim: <?xml version="1.0" encoding="UTF-8"?> <NFSe xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.01"> <infNFSe Id="NFS99999999999999999000100000000000099999990000009999"> <xLocEmi>Franca</xLocEmi> <xLocPrestacao>Franca</xLocPrestacao> <nNFSe>999</nNFSe> <cLocIncid>3516200</cLocIncid> <xLocIncid>Franca</xLocIncid> <xTribNac>010601</xTribNac> <verAplic>1.01</verAplic> <ambGer>1</ambGer> <tpEmis>2</tpEmis> <cStat>100</cStat> <dhProc>2026-01-07T21:55:59-03:00</dhProc> <nDFSe>999</nDFSe> <emit> <CNPJ>99999999999999</CNPJ> <IM>99999</IM> <xNome>XXXXXXX</xNome> <enderNac> <xLgr>XXXXXXX</xLgr> <nro>999</nro> <xBairro>XXXXXX</xBairro> <cMun>3516200</cMun> <UF>SP</UF> <CEP>99999999</CEP> </enderNac> <fone>99999999999</fone> <email>[email protected]</email> </emit> <valores> <vLiq>30.00</vLiq> </valores> <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.01"> <infDPS Id="DPS999999999999999900010000001000000000000999"> <tpAmb>1</tpAmb> <dhEmi>2026-01-07T21:55:59-03:00</dhEmi> <verAplic>1.01</verAplic> <serie>1</serie> <nDPS>999</nDPS> <dCompet>2026-01-07</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3516200</cLocEmi> <prest> <CNPJ>99999999999999</CNPJ> <fone>99999999999</fone> <email>[email protected]</email> <regTrib> <opSimpNac>3</opSimpNac> <regApTribSN>1</regApTribSN> <regEspTrib>0</regEspTrib> </regTrib> </prest> <toma> <CPF>99999999999</CPF> <xNome>XXXXXXXXXXXXXX</xNome></xNome> <end> <endNac> <cMun>3516200</cMun> <CEP>99999999</CEP> </endNac> <xLgr>XXXXXXXXXXXX</xLgr> <nro>999</nro> <xBairro>XXXXXXXX</xBairro> </end> <fone>99999999999</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3516200</cLocPrestacao> </locPrest> <cServ> <cTribNac>010601</cTribNac> <xDescServ>CONTRATO MENSAL</xDescServ> <cNBS>115021000</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>30.00</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <totTrib> <indTotTrib>0</indTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> </infNFSe> <Signature xmlns="http://www.w3.org/2000/09/xmldsig#"> <SignedInfo> <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/> <Reference URI="#NFS999999999999999990001000000000000999999010000009999"> <Transforms> <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/> <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/> </Transforms> <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/> <DigestValue>oxxxxxxwrr9V932YdxDE9oj06FhM=</DigestValue> </Reference> </SignedInfo> <SignatureValue>xxxxxxxxxxxxxxx237Ftq7dJGrx0isoKnG6Lcc/mTg8t9JFifQnpPuC6avGb+5i6cc9oFTRpxKvc5DAHMMPHMfXgGFe3L1vb718tssFTrXvs6A51zqSPN7XEqb0JCEzfQ3sdSC0lbwyERfqfezX4PScEHqu3JSsQWlcuLIsM31u8yW85FHaDVeNJbWmy6wickkex2iJlnEL/uae23Y4D5tRTgeJwQy1LntpKZeKhM1ogf5uKewi5QiK3QBpPi4yVC3Oic5IYPkWK44PV1sF8jkvC/bsIw1yfv9d6z67eLQR/0hSVWeM20w/vuLTZxs6WXotzKCIowSxxxxxxxxx==</SignatureValue> <KeyInfo> <X509Data> <X509Certificate>xxxxxxxxxxxxxxxBAgIQDgQMDrTNq5fCxxvvEMQ7LTANBgkqhkiG9w0BAQsFADBxMQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRUwEwYDVQQDEwxBQyBCUiBSRkIgRzQwHhcNMjUxMTE4MjA1ODMzWhcNMjgxMTE3MjA1ODMzWjCCARAxCzAJBgNVBAYTAkJSMRMwEQYDVQQKDApJQ1AtQnJhc2lsMQswCQYDVQQIDAJTUDEPMA0GA1UEBwwGRnJhbmNhMRwwGgYDVQQLDBNDZXJ0aWZpY2FkbyBEaWdpdGFsMRcwFQYDVQQLDA4wMDY3OTE2MzAwMDE0MjE2MDQGA1UECwwtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLDA1SRkIgZS1DTlBKIEEzMUcwRQYDVQQDDD5RIFQgUiBTRVJWSUNPUyBFTSBURUNOT0xPR0lBIERBIElORk9STUFDQU8gTFREQToyMzY3NzkzNzAwMDEwMDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAM2EdsTRnjAShN6BqQgnEIuQvMzhfKmTRyfBz+68+GTmlUWLpuJL/nmmQ1+Y2h6RcNoS2OPnNtTeN3r8CIGW/lmyww37pOV9PqcSlnmeLJF2FgNxiFVB+t7oij3nukrlcigRfcOLs8mLpdSZxsyHPRZmwczIzXecioLeRJsvRMzwFvO9Tm5/VEi22lJpMDjzv8f+blH4n4gMf6Tz0SwQt+JHkVAo9hfX5wMt0nR3Zzv0y8RRqrhwfMb85YP7WqJQspheYZJYbKEgKEtOQD2D24obxIdn2+2ykIZTgwNWsPqmvpFxl+Yz8Hq/Lzq6kSb6n24qIGgfGliBMohuyiYowF0CAwEAAaOCAs8wggLLMIG3BgNVHREEga8wgaygPQYFYEwBAwSgNAQyMTkwMjE5NjcwODE1NTA5MTg5OTAwMDAwMDAwMDAwMDAwMDAwMDE2NDA5ODA3c3NwU1CgHwYFYEwBAwKgFgQUTFVJUyBTRVJHSU8gREEgU0lMVkGgGQYFYEwBAwOgEAQOMjM2Nzc5MzcwMDAxMDCgFwYFYEwBAwegDgQMMDAwMDAwMDAwMDAwgRZsLnNlcmdpby5zQGhvdG1haWwuY29tMAkGA1UdEwQCMAAwHwYDVR0jBBgwFoAUdb8gigSrtNF55L3vJhGgQTbY9L0wbAYDVR0gBGUwYzBhBgZgTAECAxgwVzBVBggrBgEFBQcCARZJaHR0cDovL2ljcC1icmFzaWwuYWNici5vcmcuYnIvcmVwb3NpdG9yaW8vZHBjL0FDX0JSX1JGQi9EUENfQUNfQlJfUkZCLnBkZjCBqQYDVR0fBIGhMIGeMEugSaBHhkVodHRwOi8vaWNwLWJyYXNpbC5hY2JyLm9yZy5ici9yZXBvc2l0b3Jpby9sY3IvQUNCUlJGQkc0L0xhdGVzdENSTC5jcmwwT6BNoEuGSWh0dHA6Ly9pY3AtYnJhc2lsLm91dHJhbGNyLmNvbS5ici9yZXBvc2l0b3Jpby9sY3IvQUNCUlJGQkc0L0xhdGVzdENSTC5jcmwwDgYDVR0PAQH/BAQDAgXgMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcDBDCBmQYIKwYBBQUHAQEEgYwwgYkwUwYIKwYBBQUHMAKGR2h0dHA6Ly9pY3AtYnJhc2lsLmFjYnIub3JnLmJyL3JlcG9zaXRvcmlvL2NlcnRpZmljYWRvcy9BQ19CUl9SRkJfRzQucDdjMDIGCCsGAQUFBzABhiZodHRwOi8vb2NzcC1hYy1ici1yZmIuY2VydGlzaWduLmNvbS5icjANBgkqhkiG9w0BAQsFAAOCAgEAvv64cedgZwfw9pH25tQegyaiCBxGe443lzLBx7Mvn40Ed7vUuWcyFZyJJda7+0wYr87kuv1/QluU7VetywtMlYJIHibeydn65g1uBy5fLkxPN7BghLQPdSi5wJ2H0sKKKC5FY8Z2lFJ2ZXQkvmxRfYADef67q7qFmprHWC0QVpaGueVI3knsLihQU/fz+B7UWOl5b7YCg9tP1jdJpAkOgh9nNG1wM/ctRjMb1RMzGL7oczsUKXVOu8MYb5hn1xWyo1G9M9L5t2wgZJtkAGkMZ2Q4VLj9OMjmxyaavimfbbZKZn8Gk4kzUKC9b6DeljAvFuueVeedcUapBp7EapB8ATr8eVcVwJVvQTmg6ZWjGbpq2Ak7zw2OYPxjwvm+wRCx7ARrwJD7Q6sdzPTIUNRpaURSzfF48ecE8dsDceeoLBvLQ++EnHAKhHIKNdKpnRtfgCozd3wMBIzOommmG4lSnCeWky8W/sqovFn1tVUESsmccld+PY4/jvd2wzrAOuiGad0ReZrtA8Ve+4DxBhfqjADuQ6A+JSYZ5+EcGMtsTJDQ64KryvZFw+2k9gH0TcpETmi/GKHyE/z6RBOK92Q4VZDrw+ZEd495u0QatW2dhnCd6IStjZpHW2SdIyt9Tf8xDnI+vh7DTRviFBThOc9Ha0BrtabcdefN9HK37s2HGTcY=</X509Certificate> </X509Data> </KeyInfo> </Signature> </NFSe> Problemas: O xml com a nota gerada completa contendo o nro da nfse e a chave de acesso por exemplo não foi gerado na pasta "notas". Somente foi gerado o xml de envio na pasta "recibos". O xml de retorno com o nro da nfse e chave não esta sendo tratado pelo componente. Temos que fazer isso manulamente. Espero ter ajudado.
  10. Segundo esse manual a12-moc-danfe-nfcom-anexo-v.pdf a tag: infAdFisco deve ser listada no danfe-com. no teste que fiz no ambiente de homologação, no xml consta a tag infAdFisco conforme imagem abaixo: Porém ao listar o danfcom não imprimiu essa informação. Vou anexar a unit alterada. ACBrNFCom.DANFComRLRetrato.pas
  11. Estou testando a nfcom no ambiente de homologação e mesmo constando no xml gerado a informação do fisco, o mesmo não sai no DanfCom. A única coisa que resolveu foi alterando o fonte ACBrNFCom.DANFComRLRetrato.pas no evento before print do rlbDivisao04 conforme abaixo: procedure TfrlDANFComRLRetrato.rlbDivisao04BeforePrint( Sender: TObject; var PrintIt: Boolean); begin with fpNFCom.Total do begin rllTotalNF.Caption := FormatFloatBr(VNF); rllBaseICMS.Caption := FormatFloatBr(VBC); rllValorICMS.Caption := FormatFloatBr(VICMS); rllDescontos.Caption := FormatFloatBr(VDesc); rllAcessorias.Caption := FormatFloatBr(VOutro); rllValorPIS.Caption := FormatFloatBr(vPIS); rllValorCOFINS.Caption := FormatFloatBr(vCOFINS); rllValorFUST.Caption := FormatFloatBr(vFUST); rllValorFUNTTEL.Caption := FormatFloatBr(vFUNTTEL); end; rlmDadosFisco.Lines.Text := StringReplace(fpNFCom.infAdic.infAdFisco, fpDANFCom.CaractereQuebraDeLinha, #13, [rfReplaceAll]); // ALTEREI AQUI end;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.