datilas

segue o arquivo com os intents necessarios.AndroidManifest.template.xml
nesse arquivo tem um trecho:
<service android:name="br.com.setis.interfaceautomacao.ComunicacaoServico" android:exported="true" android:configChanges="orientation|screenSize"> <intent-filter> <action android:name="br.com.setis.interfaceautomacao.SERVICO"/> </intent-filter> </service> para o demo ser mostrado no "PGIntegrado-v4.1.27.13_CERT-signed.apk" como mostra a imagem abaixo.

desde já agradeço a atenção.

dentro do ACBrValidador existe a funcao ValidarPrefixoGTIN vc pode fazaer a verificação antes de usar:
If ACBrValidador.ValidarPrefixoGTIN('7898341430036') = '' Then ShowMessage('Pode usar') Else ShowMessage('Não pode usar'); vc pode adaptar para sua necessidade

tenta usar :
procedure TForm1.ACBrPSPGerenciaNet1QuandoTransmitirHttp(var AURL, AMethod: string; ReqHeaders: TStrings; ReqBody: AnsiString); begin ReqHeaders.Add('partner-token: seutoken'); end; mas creio que não há necessidade.
já tentou usar o demo como esta preenchendo ClientId e ClientSecret?

não sei qual componente vc esta usando.
mas tente:
jSubObj.TryGetValue<string>('cont_pessoa')  

dentro do ACBrValidador tem a função FormatarFone( const AValue : String; const DDDPadrao: String = '' 😞 String;
 
ACBrValidador.FormatarFone(Edit1.Text, '65');  

aqui esta funcionando perfeitamente.
mas estou enviando um demo em delphi.
 
funcao.zip
 

instala o zilb no seu linux e faça o processo de de sdk linux denovo
red hat e derivados yum install zlib-devel debian e derivados sudo apt install zlib openSUSE e derivados zypper install zlib-devel  

usando RESTRequest4Delphi de forma automática não.
para isso vc vai ter que ler o json na "mão" vai ter que criar sua própria rotina de leitura de json e mover para os memtable's que vc deseja

hoje veio a atualização e esta funcionando.
muito obrigado.

as dlls do libxml2 estão atualizadas e na mesma pasta do seu exe (libxml2,libxmlsec...)
isso também esta naquele link que te passei

o campo <cProdANVISA> é o campo GERISTRO no .xls
da uma olhada aki:
https://www.gov.br/anvisa/pt-br/assuntos/medicamentos/cmed/precos

vc pode tentar um metodo do synautil: (ReadStrFromStream)
sRetornoAPIOriginal := String(ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size)); ou
sRetornoAPIOriginal := ReadStrFromStream(synHttpTextMsg.Document, synHttpTextMsg.Document.Size);  

aqui ta normal:

vc pode acessar no navegador:
http://www.sped.fazenda.gov.br/spedtabelas/WsConsulta/WsConsulta.asmx/consultarVersoesTabelasExternas?codigoSistema=spedfiscal
se houver resposta o servidor esta funcionando e o problema é no seu programa

qual DB?
se for firebird:
https://firebirdsql.org/refdocs/langrefupd15-substring.html

eu instalei o xml2 no mint:
apt-get install libxml2-utils
depois copiei o libxml2.so.2:
 /usr/lib/x86_64-linux-gnu/libxml2.so.2
e colei no meu windows:
"pathlazarus\cross\lib\x86_64-linux\libxml2.so.2"
"pathlazarus\cross\lib\x86_64-linux\libxml2.so"
alterei o ACBr.inc
{$IfDef DFE_SEM_OPENSSL} {$Define DFE_SEM_XMLSEC} {$Define DFE_SEM_LIBXML2} {$EndIf} {$IfDef DFE_SEM_LIBXML2} {$UnDef DFE_ACBR_LIBXML2} {$EndIf} {$DEFINE DFE_SEM_XMLSEC} e funcionou perfeitamente
muito obrigado.

entre no grupo do telegram do rdw, la eles podem te ajudar:
https://t.me/restdataware

entrei em contato com a paygo e eles me passaram uma nova versão do GP (PG_004.006.001.001_demo)
e resolveu meu problema.
por favor algum admin do ACBr atualize o link:
https://projetoacbr.com.br/tef/
pois a versão que esta la, esta gerando problema

vc pode varrer todos os itens da nfce e comparar com a tabela ibpt

tente assim:
// para emular o navegador opera (alguns servidores bloqueiam acesso de navegador desconhecido) IdHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.141 Safari/537.36 OPR/73.0.3856.344'; S := UTF8ToString(IdHTTP.Get('http://www.meusite.com.br/arquivos/arquivo.sql'));  

se você estiver usando GENERATOR ou SEQUENCE
poderia retornar o codigo assim:
suaquery.Close; suaquery.SQL.Clear; suaquery.SQL.Add('INSERT INTO SUATABELA (SEUSCAMPOS...) VALUES (:SEUSPARAMS...) RETURNING SEUCAMPOCODIGO'); ... suaquery.Open; iCodigoProduto := suaquery.Fields[0].AsInteger;  

me desculpe o transtorno, eu vi que em uma classe minha muito antiga estava carregando o aLote com a tag Ide.dEmi sem formatação.
muito obrigado pela ajuda. 

Vamos supor que o seu cliente venha perder o XML da nota por exemplo, neste caso basta você ler os dados da nota do banco de dados, gerar e assinar o XML e por fim realizar uma consulta com o XML carregado, desta forma ao realizar a consulta a SEFAZ vai retornar o protocolo de autorização e o componente se encarrega de atualizar o XML acrescentando o protocolo nele, deixando-o assim um documento com validade jurídica.

remova o IdHTTP1 do seu formulario e tente usar assim:
Var code: Integer; sResponse: String; Json: String; JsontoSend, AResponseContent: TStringStream; iStatusCode: Integer; http: TIdHTTP; Begin Json := '{"Customer": { "DocumentType" : "CNPJ", "DocumentNumber" : "11229082000167" }, "Driver": { "PhoneCountry": "+55", "PhoneNumber": "19999690130", "Name": "Daniel Marcelo"} }'; JsonToSend := TStringStream.Create(Json); AResponseContent := TStringStream.Create(''); http := TIdHTTP.Create(Nil); Try http.Request.CharSet := 'utf-8'; http.Request.ContentType := 'application/json'; http.Request.CustomHeaders.AddValue('AppKey', '58fb05c3-4e8b-4929-b7df-95bd261035c9'); http.Request.CustomHeaders.AddValue('RequesterKey', '629eda6f-9df5-40e7-a94e-4c54cec83a15'); http.Response.ContentType := 'applicattion/json'; http.Response.CharSet := 'utf-8'; Try http.Post('https://api.tudoentregue.com.br/v1/customers/AddDriver', JsontoSend, AResponseContent); Except On E: Exception Do Begin Memo1.Lines.Clear; Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText); Memo1.Lines.Add('Error on Request: ' + sLineBreak + e.Message); exit; End; End; Memo1.Lines.Clear; Memo1.Lines.Add('Response Content: ' + AResponseContent.DataString); Memo1.Lines.Add('Response Code: ' + InttoStr(http.ResponseCode)); Memo1.Lines.Add('Response Text: ' + http.ResponseText); Finally JsontoSend.Free; AResponseContent.Free; http.Free; End; eu adicionei essas duas linhas:
     Memo1.Lines.Add('Error on Response Code: ' + InttoStr(http.ResponseCode));
     Memo1.Lines.Add('Error on Response Text: ' + http.ResponseText);
porque caso ResponseCode for 403,404,422 o indy vai levantar um except
sendo que
//IdHTTP1.ResponseCode = 403 Motorista não Relacionado. *response vazio*
//IdHTTP1.ResponseCode = 404 Motorista não Localizado. *response vazio*
então você não conseguiria tratar o erro de Motorista não Localizado por exemplo.
caso tenha resolvido seu problema marque o post como melhor resposta
clicando no sinal de ✔️ no canto superior esquerdo do post 

da uma olhada nesses links:
https://youtu.be/nsYvgmQlT58
https://github.com/tdevrocks/qrcode
https://blog.andreamagni.eu/2017/06/scannermapp-a-qrbarcode-scanner-app-with-delphi-zxing-and-tframestand/

Resposta:
1- Exatamente isso o "1" seria o digito verificador ele pode ser fixo caso ele não seja valido o ACBrValidador vai gerar um digito valido pra vc
2- O ACBrInStore é um componente para ler e decodificar codigo de barras de balanças
da uma olha da nos demos:
Exemplos\ACBrDiversos\ACBrInStore