Ir para conteúdo
  • Cadastre-se

Deunerf

Membros
  • Total de ítens

    27
  • Registro em

  • Última visita

Posts postados por Deunerf

  1. No momento esta :    
     

         SSLlib = libWinCrypt , 
         CryptLib = libWinCrypt,
         HttpLib = httpWinHttp,
         XmlSignLib = xsLibXml2
    
         SLLType = LT_TLSv1_2

    também tentei da seguinte forma:

         SSLlib = libCustom, 
         CryptLib = libWinCrypt,
         HttpLib = httpWinINet,
         XmlSignLib = xsLibXml2
    
         SLLType = LT_TLSv1_2

     

  2. Bom dia, 

    no provedor ISSnet de Brasilia -DF também ocorre o erro mesmo tipo de erro, porem é quando eu aciono o método Emitir, (sem o modo de Envio ou com modo de envio) "Mensagem: Erro de Validação:  --> 1845 - Element '{http://www.abrasf.org.br/nfse.xsd}EnviarLoteRpsEnvio': No matching global declaration available for the validation root." 
     

  3. Olá,

    Estou fazendo a migração dos projetos para o novo componente  ACBRNfseX . E quando envio um RPS no componente para o provedor DBSeller em produção na cidade de Carazinho - RS e na ConsultaNfseRps da  mensagem "Erro de Validação:  --> 1845 - Element '{http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd}ConsultarNfseRpsEnvio': No matching global declaration available for the validation root."

    Porem no soap contem o erro que esta causando no provedor, agora gostaria de saber o que pode ser esse erro, porque para fazer os tratamentos e mensagem para usuário eu devo verificar em cima do xml de retorno, no caso sempre deixar marcado a opção Salvar envelope Soap? 

    Estou com os códigos todos atualizados, apontando para schemas do próprio ACBR.

    18442-env-lot.xml 18442-env-lot-soap.xml 18442-rec.xml 18442-rec-soap.xml

  4. Boa tarde, 

    atualizei o projeto todo para novo componente ACBrNFSeX , agora quando faço o ConsultarNFSeporRps esta retornando o seguinte erro "Erro de Conexão: Opening and ending tag mismatch: situacao line 1 and li"  porem no soap do arquivo aparece normal.

    Nas configurações tenho marcado  o SSLType = LT_TLSv1_2 

    image.png.2885db7c92f30d177796a885d17273f9.png

    Já desinstalei todo o ACBR e baixei em uma nova pasta o repositório e o erro persiste.  

    13-lista-nfse-ger.xml 13-lista-nfse-ger-soap.xml 131-rps.xml

  5. Olá, fiz a atualização dos fontes e no momento que vou imprimir a Danfce da um access violation, fiz teste pelo demo do acbr e ocorre o mesmo problema.

    Pelo debug o erro esta na linha  mLinhaTotalItem.Width := (rlbDetItem.Width - lTotalItem.Width);   da procedure TACBrNFeDANFCeFortesFr.rlVendaBeforePrint(Sender: TObject;  var PrintIt: boolean);  

    No programa Demo eu vou direto no botão "Imprimir DANFCE" e carrego um xml que esta em anexo.

    43221106895107000121650010000008581547089049-nfe.xml

  6. Estou usando o delphi 10.2 a principio é versão recente.

    Fiz as mudanças para RestClient mas tenho uma duvida ainda como devo informar o valor da query. Tentei da forma que esta o código agora  e antes com as linhas que estão comentadas e nas duas situações retorna o erro 500, que pela documentação seria "Unexpected error on server.". Porem pelo postman se eu desmarca o file ou query também da erro 500, por isso acredito que forma que estou informando o body que não esteja correto.

    try
        Caminho := edtUrlInt.Text;
    
        DMAPI.RESTClient.BaseURL     := Caminho;
        DMAPI.RESTClient.ContentType := 'multipart/form-data';
        DMAPI.RESTRequest.Client     := DMAPI.restClient;
        DMAPI.RESTRequest.Method     := rmPOST;
        DMAPI.RESTRequest.Response   := DMAPI.RESTResponse;
        DMAPI.RESTRequest.Params.AddHeader('Authorization', 'Bearer ' + access_token);
        DMAPI.RESTRequest.Params.ParameterByName('Authorization').Options := [poDoNotEncode];
    
    
        Ret := FindFirst(PastaLocal+'\*.xml', faAnyFile, F);
        while Ret = 0 do
        begin
           if (F.Name <> '.') And (F.Name <> '..') then
           begin
              Arquivo := verificaCaminho(PastaLocal) + F.Name;
    
              //DMAPI.RESTRequest.AddFile('file[]', arquivo, TRESTContentType.ctAPPLICATION_ATOM_XML);
              //DMAPI.RESTRequest.AddBody('query={"boxeFile":true}', TRESTContentType.ctAPPLICATION_JSON);
    
              DMAPI.RESTRequest.Params.AddItem;
              DMAPI.RESTRequest.Params.Items[1].name  := 'file[]';
              DMAPI.RESTRequest.Params.Items[1].Value := Arquivo;
              DMAPI.RESTRequest.Params.Items[1].ContentType := ctAPPLICATION_XML;
              DMAPI.RESTRequest.Params.Items[1].Kind  := TRESTRequestParameterKind.pkREQUESTBODY;
    
              DMAPI.RESTRequest.Params.AddItem;
              DMAPI.RESTRequest.Params.Items[2].name  := 'query';
              DMAPI.RESTRequest.Params.Items[2].Value := '{"boxe/File": true}';
              DMAPI.RESTRequest.Params.Items[2].ContentType := ctAPPLICATION_JSON;
              DMAPI.RESTRequest.Params.Items[2].Kind  := TRESTRequestParameterKind.pkREQUESTBODY;
    
              DMAPI.restRequest.Execute();
    
              if(DMAPI.RESTResponse.StatusCode = 201)then
              begin
                mmoInfo.Lines.add('Arquivo Enviado ' + DMAPI.RESTResponse.Content);
                Application.ProcessMessages;
              end
              else
              begin
                 mmoInfo.Lines.add('Falha ao enviar o arquivo ' + DMAPI.RESTResponse.Content);
                 Application.ProcessMessages;
              end;
           end;
    
           Ret := FindNext(F);
        end;
      except
      on e: Exception do
         showmessage(e.Message);
      end;

     

  7. Olá amigos,

    Estou fazendo a integração do meu ERP com a Api da Onvio (Domínio) pelo Delphi 10, mas estou com dificuldade de enviar o xml para a Api. Precisa ser enviado dois parâmetros no body que é o arquivo e a query e como estou utilizando o IdHTTP não sei como informar eles em conjunto.  Hoje da forma que eu envio da retorno de erro "HTTP 415 Unsupported Media Type";

    function TfrmIntOnvio.EnviarArquivosApi:Boolean;
        var F: TSearchRec;
        Ret: Integer;
        Auth : TNetHeaders;
        Caminho, Arquivo : String;
        Resultado: TStringStream;
        xReqBody: TStringStream;
        ArqOnvio: TIdMultiPartFormDataStream;
        Arq: TStringStream;
        begin
       try
          Caminho := edtUrlInt.Text;
          ArqOnvio := TIdMultiPartFormDataStream.Create;
          Auth := [TNetHeader.Create('Authorization', 'Bearer ' + access_token)];
          Ret := FindFirst(PastaLocal+'\*.xml', faAnyFile, F);
          while Ret = 0 do
          begin
            if (F.Name <> '.') And (F.Name <> '..') then
            begin
              Arquivo := verificaCaminho(PastaLocal) + F.Name;
    
              Arq := TStringStream.Create('file[]=' + Arquivo + '&'
                                        + 'query={"boxe/File": true};application/json',TEncoding.UTF8);
              Resultado := TStringStream.Create('', TEncoding.UTF8);
              DMAPI.httpApi.Post(Caminho, Arq, Resultado, Auth);
              mmoInfo.Lines.add('Arquivo Enviado ' + Resultado.DataString);
              Application.ProcessMessages;
           end;
           Ret := FindNext(F);
        end;
        except
         on e: Exception do
           showmessage(e.Message);
         end;
       end;

    Na imagem tem exemplo funcional no postmam que pessoal do suporte da Api me enviou.

     

    Formato_Valido.jpg

  8. Bom dia Italo, precisei fazer mais duas alterações em units para funcionar o cancelamento. Vou colocar em anexo para você avaliar.

    Na Unit pnfsCancNfseResporta fiz alteração na function LerXml_ABRASF para pegar código do Cancelamento.

    Na unit ACBrNFSeWebServices na function CancelarNfse coloquei o provedor junto ao result := True, quando entrava no sleep para AguardarConsultaRet ele retorna erro "Nfse não encontrada",  pois acabava perdendo Numero do Rps antes de executar consulta novamente.

    O que não esta funcionando ainda é a impressão da NFSe a estrutura do xml é diferente, ele tem uma tag  RPS onde fica a maior parte das informação.

     

     

     

     

    pnfsCancNfseResposta.pas ACBrNFSeWebServices.pas 35-nfse.xml

  9. Boa Tarde Italo,

    Tem mais um detalhe que esta dando erro agora na unit pnfsNFSeR na function LerNFSe, quando ele vai fazer a leitura do campo DataEmissao. No caso fiz a alteração no meu fonte local e deu certo, coloquei o provedor nesta linha para pegar a data certo.

    Citar

    case FProvedor of
            proFreire,
            proSpeedGov,
            proVitoria,
            proDBSeller,
            proFriburgo,
            proTcheInfov2,
            proElotech: NFSe.DataEmissao := Leitor.rCampo(tcDat, 'DataEmissao');

      Outro detalhe também que não estou conseguindo imprimir correto,  fiz comparação com o provedor dbSeller  e na  tag InfNfse é diferente.

     

    Diferenca.jpg

    201-comp-nfse.xml 201-comp-nfse-soap.xml 201-con-nfse-rps.xml 201-con-nfse-rps-soap.xml 12-nfse.xml

  10. O pessoal do provedor me informou que firewall deles que estava bloqueando as requisições quando estava em produção, por isso a resposta vinha em branco.  

    Depois da alteração do firewall  esta dando um novo erro "E172 -  Arquivo enviado com erro na assinatura". Segundo eles esta nesta linha o problema:

    Flavio agora o erro esta aqui... Esse é o arquivo que vc esta Enviando...
           <?xml version="1.0" encoding="UTF-8"?><GerarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"><Rps><InfDeclaracaoPrestacaoServico>
    Porem quando foi assinado foi assinado com xmlns="http://www.abrasf.org.br/nfse.xsd"
         <?xml version="1.0" encoding="UTF-8"?><GerarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"><Rps xmlns="http://www.abrasf.org.br/nfse.xsd">        <InfDeclaracaoPrestacaoServico>  
    Editei o arquivo 8-ger-nfse.xml que vc mandou... adicionei o " http://www.abrasf.org.br/nfse.xsd" e funcionou o WebService
     
    Mudei as marcação no arquivo .ini na parte do ASSINAR porem não consegui encontrar alguma que traga "xmlns" no RPS. Tem outro lugar que posso alterar para acertar isso?
     
  11. Coloquei em homologação e passou daquele erro. Agora retornou  Erro: 259  CNPJ/CPF não encontrado na base de dados.  Acredito que possa ser alguma liberação para emitir notas em homologação na prefeitura.   Vou enviar um e-mail para provedor com mensagem. 

    • Curtir 1
  12. Ola Amigos,

    Estou com dificuldade para autorizar a NFS-e  no provedor TcheInfov2 do município de Santo Antonio do Planalto-RS. No ACBR atualizei os fontes, schemas e compilei  no Delphi. O problema esta quando vou fazer o processo de  Enviar o RPS (Gerar)  que acaba gerando "raise EACBrDFeException.CreateDef(MsgErro) " dentro da Unit ACBrDFe, porem ele não mostra nada, fica em branco.

    Falei com o pessoal do provedor para ver se precisava de alguma liberação para emissão, mas segundo eles apenas preciso de um Token o qual já foi gerado na prefeitura. Enviei o RPS e arquivos soap para eles e me responderam que eu não estou usando os métodos presentes no webservice mas são idênticos os que temos no arquivo ini.

    No arquivo TcheInfov2.ini eu não fiz nenhuma alteração, apenas verifiquei que os caminhos da URL estão corretos.  

    5-ger-nfse.xml 5-ger-nfse-soap.xml 5-lista-nfse.xml 5-lista-nfse-soap.xml 51-rps.xml

  13. Olá pessoal, 

    Estou desenvolvendo NFS-e de Santa Rosa-RS que também utiliza o provedor IPM porem estou com dificuldades. Sempre me retorna a mensagem "Nao foi encontrado na tb.dcarq.unico a cidade(codmun) do Usuario". 

    Informei o Usuário e Senha conforme acesso na prefeitura e nas formas de envio testei com todas  (SSLHttpLib = httpOpenSSL, SSLHttpLib = httpWinHttp, SSLHttpLib = httpWinINet) e sempre retorna mesmo erro.  

    Não fiz nenhuma alteração de configuração no IPM.ini pois acredito não ser necessário? 

    Adicionei no cidade.ini

    [4317202]
    Nome=Santa Rosa
    UF=RS
    Provedor=IPM
     

  14. Olá Amigos, 

    Para encerrar a questão da mensagem "Assinatura do Hash não confere" no município de Soledade-RS, entrei em contato com o responsável pela NFS-e na prefeitura e me pediram para enviar e-mail detalhando o problema.  Obtive o retorno agora conforme descrito: "O Pessoal da DUETO checou algumas parametrizações e fez uma alteração em um campo que, segundo eles, deve ser o gerador do problema. Desta forma, pediram para que efetue um teste pois não deverá ocorrer mais aquele erro. Qualquer dificuldade, estamos a disposição. "

    Apos isso realizei os teste e funcionou corretamente. 

  15. Olá Jfm_ose!

    Ontem liguei na prefeitura de Soledade e consegui falar com o pessoal responsável pela NFS-e, me pediram para enviar um e-mail descrevendo o problema. Agora tive a resposta " O Pessoal da DUETO checou algumas parametrizações e fez uma alteração em um campo que, segundo eles, deve ser o gerador do problema. Desta forma, pediram para que efetue um teste pois não deverá ocorrer mais aquele erro. Qualquer dificuldade, estamos a disposição. "

    Realizei os teste e funcionou corretamente. 

     

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