Ir para conteúdo
  • Cadastre-se

joemil

Membros
  • Total de ítens

    393
  • Registro em

  • Última visita

Posts postados por joemil

  1. Bom dia @Italo Giurizzato Junior, Fiorilli alterou o endereco do webservice da cidade Agua Azul do Norte-PA. segue as configuracoes atualizadas

    [1500347]
    ; Incluído em 08/08/2024
    ; Atualizado em 26/02/2025 - Joemil
    Nome=Agua Azul do Norte
    UF=PA
    Provedor=Fiorilli
    Versao=2.00
    Params=Assinar:NaoAssinar
    ProRecepcionar=http://177.75.231.75:5661/IssWeb-ejb/IssWebWS/IssWebWS
    ProLinkURL=http://177.75.231.75:5661/IssWeb-ejb/IssWebWS/IssWebWS/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

     

  2. Bom dia Italo, td bem? realmente o componente ta fazendo todas as fases do envio e cancelamento, era eu q nao tava preenchendo algumas propriedades corretamente

    depois q eu debuguei, fui achando o q precisa em especifico pra esse provedor. agora só falta fazer gerar o token, e to vendo quais propriedades ainda faltam.

    valeu galera pelo apoio.

    pode fechar este tópido, e obrigago

  3. o envio eu consigo pegar o xml assinado, antes de enviar, mas no cancelamento nao.

    nao ta cancelando pelo ACBr, ai to fazendo a assinatura manual usando este codigo:
     

    function AssinarXML(AXml: String; ATag1, ATag2, ASerieCert: String): String;
    var SSL: TDFeSSL;
    begin
      SSL := TDFeSSL.Create;
      try
        SSL.SSLCryptLib   := cryWinCrypt;
        SSL.SSLHttpLib    := httpWinHttp;
        SSL.SSLXmlSignLib := xsLibxml2;
        SSL.NumeroSerie   := ASerieCert;
        SSL.CarregarCertificadoSeNecessario;
        Result := SSL.Assinar(AXml, ATag1, ATag2);
      finally
        SSL.free;
      end;
    end;

    porem vem esta msg do provedor:

    image.png.0af355ec24b63c6c4896b9efe77df6f8.png

     

     

  4. reinstalei o certificado, marcando a opcao exportavel. agora ta assinando, mas nao reconhece a assinatura:
     

    CPF do representante: ***.497.489-**
    Nº de série de certificado emitente: 0x54e751a502f3d773
    Data da assinatura:
     
    icp.svg
    Assinatura reprovada.

    Hash incorreta
  5. bom dia pessoal, pesquisei no forum, mas nao achei a solucao.

    to tentando assinar um xml, mas ocorre o erro raised exception class Exception with message 'CryptExportKey - len', e nao assina

    to usando a rotina abaixo

    function AssinarXML(AXml: RawByteString; ATag1, ATag2, ASerieCert: String): RawByteString;
    var SSL: TDFeSSL;
    begin
      SSL := TDFeSSL.Create;
      try
        //SSL.SSLCryptLib := libWinCrypt;
        //SSL.SelecionarCertificado;
        SSL.SSLCryptLib   := cryWinCrypt; //cryOpenSSL; //cryWinCrypt;
        SSL.SSLHttpLib    := httpWinHttp; //httpOpenSSL; //httpWinHttp;
        SSL.SSLXmlSignLib := xsLibxml2; //libWinCrypt;}
        //SSL.SSLType       := LT_TLSv1_2;
        SSL.NumeroSerie   := ASerieCert;
        SSL.CarregarCertificadoSeNecessario;
        Result := SSL.Assinar(AXml, ATag1, ATag2);
      finally
        SSL.free;
      end;
    end;

    ja conferi os parametros e parecem normais. o xml é este (provedor Softplan - NFSe)

    <?xml version="1.0" encoding="UTF-8"?>
    <xmlCancelamentoNfpse>
      <motivoCancelamento>1 - Erro de emissao TESTE DE ENVIO</motivoCancelamento>
      <nuAedf>1140619</nuAedf>
      <nuNotaFiscal>1828</nuNotaFiscal>
      <codigoVerificacao>C0DB03E288CB3119</codigoVerificacao>
    </xmlCancelamentoNfpse>

    alguem tem alguma rotina pra fazer a assinatura do XML?

  6. ola pessoal, passei dias procurando os enderecos dos WS, para o MT e, de quebra, achei os do MS (somente de homologacao)

    vou deixar aqui no post (arquivo ACBrNFComServicos.ini)

    ainda nao fiz os testes

    [NFCom_MS_P]
    Usar=NFCom_SVRS_P
    
    [NFCom_MS_H]
    ; https://www.sefaz.ms.gov.br/lista-de-webservices-nfcom/
    URL-QRCode_1.00=
    URL-ConsultaNFCom_1.00=
    ;
    NFComRecepcao_1.00=https://hom.nfcom.sefaz.ms.gov.br/ws/NFComRecepcao
    NFComRecepcaoEvento_1.00=https://hom.nfcom.sefaz.ms.gov.br/ws/NFComRecepcaoEvento
    NFComConsulta_1.00=https://hom.nfcom.sefaz.ms.gov.br/ws/NFComConsulta
    NFComStatusServico_1.00=https://hom.nfcom.sefaz.ms.gov.br/ws/NFComStatusServico
    
    [NFCom_MT_P]
    Usar=NFCom_SVRS_P
    
    [NFCom_MT_H]
    ; [email protected]
    URL-QRCode_1.00=https://homologacao.sefaz.mt.gov.br/nfcom-ext-fe/qrcode
    ; consulta resumida
    URL-ConsultaNFCom_1.00=https://homologacao.sefaz.mt.gov.br/nfcom-ext-fe/resumo
    ;
    NFComRecepcao_1.00=https://homologacao.sefaz.mt.gov.br/nfcom/services/NFComRecepcao
    NFComRecepcaoEvento_1.00=https://homologacao.sefaz.mt.gov.br/nfcom/services/NFComRecepcaoEvento
    NFComConsulta_1.00=https://homologacao.sefaz.mt.gov.br/nfcom/services/NFComConsulta
    NFComStatusServico_1.00=https://homologacao.sefaz.mt.gov.br/nfcom/services/NFComStatusServico

     

  7. ola pessoal, segue as configuracoes para a cidade mencionada na descricao do topico

    [1500347]
    Nome=Agua Azul do Norte
    UF=PA
    Provedor=Fiorilli
    Versao=2.00
    Params=Assinar:NaoAssinar
    ProRecepcionar=http://177.23.225.106:5661/IssWeb-ejb/IssWebWS/IssWebWS
    ProLinkURL=http://177.23.225.106:5661/IssWeb-ejb/IssWebWS/IssWebWS/formGerarNF.jsf?nroNota=%NumeroNFSe%&codVerificacao=%CodVerif%&cnpj=%Cnpj%&hash=%ChaveAcesso%

     

  8. bom dia pessoal, to testando o envio das nfse para o provedor softplan, e esta normal.

    mas a consulta e o cancelamento nao estão funcionando. ja dei uma pesquisa no form e vi q foram feitas em 2022, mas atualizei agora de novo e continua sem funcionar.

    alguma dica?

  9. pessoal, eu nao tenho ninguem no RS ou SC pra fazer os testes, mas aparentemente ta funcionando. só os probleminhas acima q nao resolvi ainda

    vou enviar as alteracoes q fiz aqui, caso alguem queira testar

    ACBrNFCom.rar

    to usando o código abaixo pra gerar a nota

    procedure TForm40.Button1Click(Sender: TObject);
    var MinhaNFCom: TACBrNFCom;
        //DANFeCom: TACBrNFComDANFComClass;
        sPath: String;
    begin
      sPath := ExtractFilePath(ParamStr(0))+'NFCom';
      MinhaNFCom := TACBrNFCom.Create(Self);
      //DANFeCom := TACBrMinhaNFComDAMinhaNFComClass.Create(Self);
      //MinhaNFCom.DAMinhaNFCom := DANFeCom;
      MinhaNFCom.Configuracoes.Arquivos.PathArquivoMunicipios := sPath+'/Municipios';
      MinhaNFCom.Configuracoes.Arquivos.PathEvento  := sPath+'/Eventos';
      MinhaNFCom.Configuracoes.Arquivos.PathNFCom   := sPath;
      MinhaNFCom.Configuracoes.Arquivos.PathSalvar  := sPath+'/Salvar';
      MinhaNFCom.Configuracoes.Arquivos.PathSchemas := sPath+'/Schemas';
    
      MinhaNFCom.Configuracoes.Certificados.NumeroSerie := 'xxxx';
      MinhaNFCom.Configuracoes.Certificados.Senha       := 'xxxx';
      MinhaNFCom.Configuracoes.Certificados.VerificarValidade := true;
    
      MinhaNFCom.Configuracoes.Geral.FormaEmissao := teNormal;
      MinhaNFCom.Configuracoes.Geral.CSC          := 'tokencsc';
      MinhaNFCom.Configuracoes.Geral.ExibirErroSchema := True;
      //MinhaNFCom.Configuracoes.Geral.FormatoAlerta := '';
      MinhaNFCom.Configuracoes.Geral.IdCSC       := 'idcsc';
      MinhaNFCom.Configuracoes.Geral.IdentarXML  := True;
      MinhaNFCom.Configuracoes.Geral.Salvar      := True;
      MinhaNFCom.Configuracoes.Geral.SSLCryptLib := cryWinCrypt;
      MinhaNFCom.Configuracoes.Geral.SSLHttpLib  := httpWinHttp;
      MinhaNFCom.Configuracoes.Geral.SSLLib      := libWinCrypt;
      MinhaNFCom.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; //xsLibXml2;
      MinhaNFCom.Configuracoes.Geral.RetirarAcentos := True;
      MinhaNFCom.SSL.SSLType := LT_TLSv1_2;//LT_ALL;
    
      MinhaNFCom.Configuracoes.RespTec.CSRT := '';
      MinhaNFCom.Configuracoes.RespTec.IdCSRT := 0;
    
      MinhaNFCom.Configuracoes.WebServices.Ambiente := taHomologacao;
      MinhaNFCom.Configuracoes.WebServices.IntervaloTentativas := 5;
      MinhaNFCom.Configuracoes.WebServices.Salvar := true;
      //MinhaNFCom.Configuracoes.WebServices.SSLType := LT_TLSv1_2;
      MinhaNFCom.Configuracoes.WebServices.Tentativas := 3;
      MinhaNFCom.Configuracoes.WebServices.TimeOut := 3000;
      MinhaNFCom.Configuracoes.WebServices.UF := '';
      MinhaNFCom.Configuracoes.WebServices.Visualizar := True;
    
      MinhaNFCom.NotasFiscais.Clear;
      with MinhaNFCom.NotasFiscais.Add do
      begin
    
        with NFCom.Ide do
        begin
          cDV        := 1;
          cMunFG     := 5107909;
          cNF        := 1;
          cUF        := 51;
          //dhCont     := Now;
          dhEmi      := Now;
          finNFCom   := fnNormal;
          indPrePago := tiNao;
          modelo     := 62;
          nNF        := 1;
          indCessaoMeiosRede := tiSim; {???}
          indNotaEntrada     := tiNao; {???}
          nSiteAutoriz       := sa0; {???}
          NFCom.Ide.tpFat    := tfNormal;
          NFCom.Ide.verProc  := '1.00';
        end;
        //NFCom.Ide.xJust       := 'nada a informar';
        NFCom.infNFCom.ID     := '1';
        NFCom.infNFCom.Versao := 1.00;
    
        with NFCom.Emit do
        begin
          CNPJ  := 'xxxx';
          CRT   := crtSimplesNacional;
          IE    := 'xxx';
          //IEUFDest := '';
          xFant := 'NOME FANTASIA EMISSOR';
          xNome := 'RAZAO SOCIAL EMISSOR';
          EnderEmit.CEP   := 78555000;
          EnderEmit.cMun  := 5107909;
          EnderEmit.email := '[email protected]';
          EnderEmit.fone  := '66123123123';
          EnderEmit.nro   := '123';
          EnderEmit.UF    := 'MT';
          EnderEmit.xCpl  := '';
          EnderEmit.xLgr  := 'logradouro emitente';
          EnderEmit.xMun  := 'Sinop';
          EnderEmit.xBairro :='bairro emitente';
        end;
    
        with NFCom.Dest do
        begin
          CNPJCPF         := '34589014009';
          //IE              := '';
          //IM              := '123456';
          indIEDest       := inNaoContribuinte;
          xNome           := 'TESTE DE NOTA FISCAL';
          idOutros        := '';
          EnderDest.CEP   := 78555000;
          EnderDest.cMun  := 5107909;
          EnderDest.email := '[email protected]';
          EnderDest.fone  := '66987987987';
          EnderDest.nro   := '987';
          EnderDest.UF    := 'MT';
          EnderDest.xCpl  := '';
          EnderDest.xLgr  := 'logradouro destinatario';
          EnderDest.xMun  := 'Sinop';
          EnderDest.xBairro :='bairro destinatario';
        end;
    
        with NFCom.assinante do
        begin
          cUFPrinc      := 56;
          dContratoFim  := Now;
          dContratoIni  := Now;
          iCodAssinante := '123';
          nContrato     := '12345';
          NroTermPrinc  := '';
          tpAssinante   := taResidencial;
          tpServUtil    := suAcessoInternet;
          {with NFCom.assinante.TermAdic.new do
          begin
            cUFAdic := 96;
            NroTermAdic := '';
          end;}
        end;
    
        with NFCom.Det.New do
        begin
          nItem := 1;
          //chNFComAnt := '';
          {Imposto.COFINS;
          Imposto.FUNTTEL;
          Imposto.FUST;
          Imposto.ICMS;
          Imposto.ICMSUFDest;
          Imposto.PIS;}
          //infAdProd := '';
          Prod.cClass       := '0100401'; // https://dfe-portal.svrs.rs.gov.br/NFCOM/tabelacclass
          Prod.CNPJLD       := '';
          Prod.cProd        := '1234';
          Prod.indDevolucao := tiNao; {???}
          Prod.qFaturada    := 1;
          Prod.uMed         := umMB;
          Prod.vDesc        := 0;
          Prod.vItem        := 10;
          Prod.vOutro       := 0;
          Prod.vProd        := 10;
          Prod.xProd        := 'DESCRICAO DO SERVICO';
        end;
    
        NFCom.infRespTec.CNPJ     := '37848330000141';
        NFCom.infRespTec.email    := '[email protected]';
        NFCom.infRespTec.fone     := '66123456789';
        NFCom.infRespTec.hashCSRT := 'asfafafdasf';
        NFCom.infRespTec.idCSRT   := 1;
        NFCom.infRespTec.xContato := 'contato resptec';
    
        NFCom.Total.vBC        := 10;
        NFCom.Total.vCOFINS    := 0;
        NFCom.Total.vDesc      := 0;
        NFCom.Total.vFCP       := 0;
        NFCom.Total.vFUNTTEL   := 0;
        NFCom.Total.vFUST      := 0;
        NFCom.Total.vICMS      := 0;
        NFCom.Total.vICMSDeson := 0;
        NFCom.Total.vIRRF      := 0;
        NFCom.Total.vNF        := 10;
        NFCom.Total.vOutro     := 0;
        NFCom.Total.vPIS       := 0;
        NFCom.Total.vProd      := 10;
        NFCom.Total.vRetCOFINS := 0;
        NFCom.Total.vRetCSLL   := 0;
        NFCom.Total.vRetPIS    := 0;;
    
        //NFCom.infNFComSupl.qrCodNFCom := MinhaNFCom.GetURLQRCode(51, taHomologacao, teNormal, ;
    
      end;
    
      MinhaNFCom.NotasFiscais.GerarNFCom;
      //AssinarXML;
      //MinhaNFCom.NotasFiscais.LoadFromFIle('.\nfcom.xml');
      MinhaNFCom.NotasFiscais.Assinar;
      MinhaNFCom.NotasFiscais.GravarXML('.\nfcom2.xml');
      //MinhaNFCom.NotasFiscais.Validar;
    
      //MinhaNFCom.Cancelamento('justificativa', 1 {lote});
      //MinhaNFCom.Consultar('chave', True);
      MinhaNFCom.Enviar(True);
      //MinhaNFCom.Gravar('filename', 'xml', 'path');
      //MinhaNFCom.NotasFiscais.Imprimir;
      //MinhaNFCom.NotasFiscais.ImprimirPDF;
    
      // NFCom.Status.;
      // NFCom.WebServices.Consulta.ArqEnv;
      // NFCom.WebServices.Consulta.ArqResp;
    
      {NFCom.WebServices.Enviar.;
      NFCom.WebServices.Retorno;
      NFCom.WebServices.StatusServico;}
      ShowMessage('OK');
    end;

    se alguem tiver os links pro MT (e para as outras UFs tb), me envia q ja vou fazer os testes.

    • Curtir 1
  10. pelos meus testes aqui, o problema esta em gerar o xml novamente depois q ele é assinado, mas parece q ta enviando normal

    este foi o retorno q recebi

    <retNFCom versao="1.00">
    <tpAmb>2</tpAmb>
    <cUF>43</cUF>
    <verAplic>RS20230912133943</verAplic>
    <cStat>209</cStat>
    <xMotivo>Rejeição: IE do emitente inválida</xMotivo>
    </retNFCom>

    vou pegar uns dados originais pra enviar um xml de teste

    e tb quando manda validar, dá erro

×
×
  • 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.