UEMERSON NEGREIRO DA SILVA

Boa Tarde.. estou tendo esse Problema ao CriarCobrancaImediata.. qual o procedimento a ser seguido ? já Criei os Client ID, Client Secret, Developer

Ok.. já entrei em contato com o Suporte Técnico do Órgão.. Muito Obrigado

Sim https://colegionotarialdobrasil.freshdesk.com/support/solutions/articles/43000585342-ccn-documentacão-técnica

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 ?

BLz Obg....

Bom dia.. Gostaria de Saber como que faço para assinar arquivo como PDF, jpeg etc ? Pelo acbr tem como Fazer /

Sim e uma particularidade minha... Você poderia me ajudar ?

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;

Bom dia como que faço para assinar Documentos em PDF e XML ?

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

Boa tarde o WebService está me retornando este erro "Nao existe licenca valida para este sistema ou a licenca expirou!" Seria Algum problema no Cadastro da empresa o qual o sistema esta rodando ?? Alguém poderia me dar uma dica

Bom dia Estou com dificuldades com relação aos arquivos "Xsd" da pasta Schema para poder fazer a validadeção do xml de nota de serviço.. Onde encontrar sendo o que tem na pasta da Abaco não estão todos conforme mostra a imagem.. Grato Uemerson

BLZ..... Obrigado...

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

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

Blz Vou fazer la no Sistema OBG

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 ??

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

Funcionou... Muito Obrigado Juliomar Marchetti

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 ??

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);

Ok vou dar uma olhadinha lá Muito Obrigado

MP-4200 TH...

Bom dia Poderia me passar um exemplo de como se usa esse componente ACBrPosPrinter ??? Como que passaria o comando para a impressora visto que ela esta instalado na porta "COM4" via USB...

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 ???