Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

UEMERSON NEGREIRO DA SILVA

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    37

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por UEMERSON NEGREIRO DA SILVA

    'HTTP/1.1 401 Unauthorized'

    em Object Pascal - Delphi & Lazarus

    Postado

    Bom dia
    Pessoal estou com a seguintes duvidas..
    Tenho que consumir uma API de um determinado Orgão..
    Esse seria a integração do a API

    curl --location --request POST 'https://pessoas-hml.e-notariado.org.br/api/uploads' \
    --header 'X-Api-Key: your-app|xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx' \
    --form 'file=@/C:/CCN27052020-10.xml' \
    --form 'name=CCN27052020-10.xml' \
    --form 'contentType=text/xml'

    Estou tentando montando dessa forma


    var
        restClient: TRESTClient;
        restRequest: TRESTRequest;
        restResponse: TRESTResponse;
     begin

        restClient := TRESTClient.Create(nil);
      //  restClient.Authenticator := HTTPBasicAuthenticator1;
      //  restClient.ContentType := 'application/json';

        restRequest := TRESTRequest.Create(restClient);
        restResponse := TRESTResponse.Create(restClient);


        try
          try
            if wsProxyServer <> '' then
            begin
              restClient.ProxyServer := wsProxyServer;
              restClient.ProxyPort := piProxyPort;
              restClient.ProxyUsername := wsProxyUsername;
              restClient.ProxyPassword := wsProxyPassword;
            end;

            restClient.BaseURL := edtUploadEndPoint.text;   // ==> //'https://pessoas-hml.e-notariado.org.br/api/uploads';
            restRequest.Client := restClient;
            restRequest.Method := rmPOST;

            RESTRequest.Resource := '';
            restRequest.Response := restResponse;


            restRequest.Params.Add;
            restRequest.Params[0].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED;
            restRequest.Params[0].Kind := pkURLSEGMENT;
            restRequest.Params[0].Name := 'X-Api-Key';
            restRequest.Params[0].Value :=edtKey.Text;


            restRequest.Params.Add;
            restRequest.Params[1].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED;
            restRequest.Params[1].Kind := pkFILE;
            restRequest.Params[1].Name := 'file';
            restRequest.Params[1].Value :=edtFile.text;

            restRequest.Params.Add;
            restRequest.Params[2].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED;
            restRequest.Params[2].Kind :=  pkREQUESTBODY;
            restRequest.Params[2].Name := 'name';
            restRequest.Params[2].Value := ''+EdtNomeArq.Text;


            restRequest.Params.Add;
            restRequest.Params[3].ContentType := ctAPPLICATION_X_WWW_FORM_URLENCODED;
            restRequest.Params[3].Kind := pkREQUESTBODY;
            restRequest.Params[3].Name := 'contentType';
            restRequest.Params[3].Value := 'text/xml';

            restRequest.Execute;
            result := restResponse.Content;
          except
            on e: Exception do
            begin
              result := 'Erro retornado pelo webservice: '+ e.Message + ' XML: ' + restResponse.Content;
            end
          end;
        finally
          restClient.Free;
        end;


    Ele me retorno o erro 'HTTP/1.1 401 Unauthorized'.
    O que poderia estar dando de errado ?
     

    ASSINAR ARQUIVOS PDF E XML

    em Dúvidas não relacionadas ao ACBr

    Postado

    2 minutos atrás, Juliomar Marchetti disse:

    Xml já é feito no ACBr basta olhar como é feito

    PDF tem que usar alguma ferramenta, por exemplo gnostice tem e outros da tms senão me engano

    O xml eu já estou conseguindo assinar ele....

    já o PDF que esta meio complicado...

    Talvez você possa me ajudar Juliomar..

    eu estou usando esse Código para poder assinar o PDF...

    Só que o Validador de assinatura diz que o documento não foi assinado...

    function TFCenprot.assinar(caminho: string): string;
    var
      fs : TFileStream;
      qt : integer;
      ch : PChar;
      msg, content : WideString;
       SignedData : ISignedData;
     ISigner : ISigner2;
    begin
      { Abre o arquivo original para obter dele o conteúdo a ser assinado }

      fs := TFileStream.Create (caminho, fmOpenRead);
      New (ch);
      repeat
      qt := fs.Read(ch^, 1);
      if (qt > 0) then
      content := content + ch^;
      until qt = 0;
      fs.Free;
      Dispose (ch);


        if(Certificado = nil) Then
         buscaceritifcado;


       ISigner := CoSigner.Create;
       ISigner.Certificate := Certificado;

       SignedData := CoSignedData.Create;
       SignedData.Content := content;

        msg := SignedData.Sign(ISigner, true, CAPICOM_ENCODE_BASE64 );

       fs := TFileStream.Create ('C:\XML\13112019144_Ass.pdf', fmCreate);
        for qt := 1 to Length (msg) do
        fs.Write(msg[qt], 2);

      
        fs.Free;


    end;

    dll CAPICOM

    em Object Pascal - Delphi & Lazarus

    Postado

    Boa Tarde....

    Eu estou desenvolvendo uma aplicação que vai assinar xml atraves do certificado digital....

    eu estou usando a dll CAPICOM...

    só que esta dando esse erro " Undeclared identifier: 'TSigner' " alguém poderia me ajudar fazendo um favor..

    Já declarei na Uses CAPICOM_TLB ,WinINet, JwaWinCrypt

    Desde já agradeço

    Erro ao Enviar nota Fiscal de Produto

    em ACBrNFe

    Postado

    14 horas atrás, BigWings disse:

    Problema na SEFAZ autorizadora.

    Não tem muito o que fazer, a não ser entrar em contato com eles, verificar se há contingência ativada...

    Mas isso só esta acontecendo com a empresa que é "3 - Regime Normal" na  "1 - Simples Nacional" ele envia de boa...

    Ou será que a empresa esta com algum problema....

    Erro ao Enviar nota Fiscal de Produto

    em ACBrNFe

    Postado

    Boa Tarde ao tentar enviar uma nota fiscal de produto esta dando este erro abaixo......

    Nota(s) não confirmadas:
    73->Rejeicao: Erro nao catalogadoInvalid XPath expression: 'null'. Caused by: null

    mas o xml e gerado mas não envia como o xml ja esta tudo OK....

    O que seria ??

    Aguem poderia me dar umas dicas de como proceder...

    NOTA SERVIÇO

    em ACBrNFe

    Postado

    Não Entrei....ainda

    O mais curioso e que se fizer a nota pelo site ele envia de boa ...

    Quando eu der desconto por cada item ele aceita e envia normal...

    será que terei que saber quantos porcento foi dado em cima do valor total da nota e Ratear o percentual em cima de cada item ??

     

    NOTA SERVIÇO

    em ACBrNFe

    Postado

    Bom dia estou tendo o seguinte problema

    quando eu dou desconto na venda geral  e depois eu vou emitir a nota de serviço

    ele dar este erro 

    ---------------------------
    Erro de validacao de Script:
    Valor de Desconto nao permitido para este item de servico!

    ---------------------------
    OK   
    ---------------------------

     

    O que seria ?

    alguém poderia me ajudar...
     

    Imprimir Carta de Correção

    em ACBrNFe

    Postado

    Boa Tarde

    Estou tendo dificuldade em fazer uma Carta de correção em Ambiente de Homologação..qual o procedimento ?

    eu tentei fazer assim 

       ACBrNFe1.CartaCorrecao.CCe.Evento.Clear;

      ACBrNFe1.CartaCorrecao.CCe.idLote := StrToInt('1') ;


      with ACBrNFe1.CartaCorrecao.CCe.Evento.Add do

       begin

         infEvento.chNFe := Trim(EdtChaveNotaFiscal.Text);

        // infEvento.cOrgao := StrToInt(codOrgao);

         infEvento.CNPJ   := copy(EdtChaveNotaFiscal.Text,7,14);;;

         infEvento.dhEvento := now;

         infEvento.tpEvento := 110110;

         infEvento.nSeqEvento := StrToInt('1');

         infEvento.versaoEvento := '1.00';

         infEvento.detEvento.descEvento := 'Carta de Correção';

         infEvento.detEvento.xCorrecao := Correcao;

         infEvento.detEvento.xCondUso := ''; //Informar vazio, o componente vai colocar o texto correto

       end;


      ACBrNFe1.EnviarCartaCorrecao(StrToInt('1'));

      ACBrNFe1.ImprimirEventoPDF;  <<<<---- ERRO

     

    Ele retorna esse erro 

    ImprimirPDF não implementado em: TACBrNFeDANFeESCPOS.

     

    O que devo fazer ?? 


     

     

     

    ACBrECF ecfBematech

    em ACBrSerial

    Postado

    Bom dia Problema Resolvido vou deixar um trecho do código para quem estiver com duvidas    

    ACBrPosPrinter.Modelo := ppEscBematech;
        ACBrPosPrinter.Porta := PORTA;
        ACBrPosPrinter.Ativar;

        ACBrPosPrinter.ImprimirLinha('--------------------------------------------------');

       ACBrPosPrinter.ImprimirLinha('Obrigado Pela Preferencia  - '+FormatdateTime('dd/mm/yyyy',DataBanco)+' '+FormatdateTime('hh:mm:ss',HoraBanco));
        ACBrPosPrinter.ImprimirLinha('');
        ACBrPosPrinter.CortarPapel(true);

    ACBrECF ecfBematech

    em ACBrSerial

    Postado · Editado por UEMERSON NEGREIRO DA SILVA

    6 horas atrás, UEMERSON NEGREIRO DA SILVA disse:

    Bom dia Estou tendo erros com o componente ACBrECF quando eu mando ativar ele me retorna esse erro 
    'Communication error 9997: Timeout during operation'.

    como faço para resolver

     ACBrECF1.Modelo:=  ecfBematech;
      ACBrECF1.Porta:= 'COM4'
     ACBrECF1.Ativar;

    BEMATECH MP-4200 TH..

    E Tbm Estou tentando mandar a impressão direta para ela mas nada

    AssignFile(F,'COM4');
    Rewrite(F);

    Se eu for usar o printDialog e depois tento mandar direto pelo codigo acima ela funciona blezinha mas quando eu tentao enviar direto em clicar no printDialog ele não envia..

    tu teria alguma dica ai ???

     

     

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