datilas

eRRO: Ação br.com.setis.payment.TRANSACTION não encontrada. AMBIENTE: Android 13 (Moto Edge 20 pro) Paygo Kit-PayGo-Android-v4.1.27.13 Pin-Pad: Gertec MP5 apk PGIntegrado-v4.1.27.13_CERT-signed.apk acbr: rev: 35712 Delphi 12.2 (RAD Studio 12 Version 29.0.53571.9782) (Athens) WINDOWS 11 OBS: Usando PDVS que veio junto com o Kit-PayGo-Android Funciona perfeitamente Usando o ACBrTEFAndroid que esta em: ..\Exemplos\ACBrTEFD\Android\TEFDemoAndroid.dproj acontece o erro abaixo. LOG: DesInicializar TACBrTEFPGWebAndroid.DesInicializar Inicializar TACBrTEFPGWebAndroid.Inicializar VerificarTransacoesPendentes EfetuarPagamento( 154637, 1,00, tefmpCartao, tefmfAVista, [ teftcDebito ] ) TACBrTEFPGWebAndroid.AdicionarDadosObrigatorios TACBrTEFPGWebAndroid.IniciarTransacao URI: app://payment/input?operation=VENDA&transactionId=154637&amount=100&currencyCode=986&cardType=CARTAO_DEBITO&finType=A_VISTA&paymentMode=PAGAMENTO_CARTAO&fiscalDocument=154637&aditionalPosData4=ACBrTEFPGWebAndroid%200.1.0 DadosAutomacao: app://payment/posData?posName=THOR%20MOBILE&posVersion=1&posDeveloper=THOR%20SISTEMAS&allowCashback=false&allowDiscount=true&allowDifferentReceipts=true&allowShortReceipt=false&allowDueAmount=false Personalizacao: app://payment/posCustomization package: br.com.projetoacbr.TEFDemoAndroid integracaoDireta: true EACBrTEFPayGoWeb: Ação br.com.setis.payment.TRANSACTION não encontrada. DesInicializar TACBrTEFPGWebAndroid.DesInicializar como posso resolver?

nesse caso não tem codigo de retorno pois o erro foi na validação ou seja ainda não foi enviado para sefaz. só existe código de retorno quando o xml vai para sefaz. o erro de validação é um erro local, quando o xml não condiz com os schemas. para pegar o retorno quando tentar enviar vc pode usar: ACBrNFe1.WebServices.Enviar.cStat; ACBrNFe1.WebServices.Enviar.xMotivo; mas se vc ja tem um xml "enviado" vc pode ler em: ACBrNFe1.NotasFiscais[0].NFe.procNFe.cStat; ACBrNFe1.NotasFiscais[0].NFe.procNFe.xMotivo;

Var i: integer; ACBrCEP1: TACBrCEP; Begin ACBrCEP1 := TACBrCEP.Create(nil); Try ACBrCEP1.WebService := wsBrasilAPI;//wsNenhum,wsBuscarCep,wsCepLivre,wsRepublicaVirtual,... ACBrCEP1.ChaveAcesso := edChaveWS.Text; ACBrCEP1.Usuario := edUser.Text; ACBrCEP1.Senha := edPass.Text; ACBrCEP1.ProxyHost := edProxyHost.Text; ACBrCEP1.ProxyPort := edProxyPort.Text; ACBrCEP1.ProxyUser := edProxyUser.Text; ACBrCEP1.ProxyPass := edProxyPass.Text; ACBrIBGE1.ProxyHost := edProxyHost.Text; ACBrIBGE1.ProxyPort := edProxyPort.Text; ACBrIBGE1.ProxyUser := edProxyUser.Text; ACBrIBGE1.ProxyPass := edProxyPass.Text; ACBrIBGE1.IgnorarCaixaEAcentos := cbIgnorar.Checked; ACBrCEP1.BuscarPorCEP(edCEP.Text); If ACBrCEP1.Enderecos.Count > 0 Then Begin For i := 0 To Pred(ACBrCEP1.Enderecos.Count) Do Begin edtRua.Text := ACBrCEP1.Enderecos[i].Logradouro; //... End; End; Finally FreeAndNil(ACBrCEP1); End; End;

vc já testou usando o demo do ACBr "..\Exemplos\ACBrTCP\ACBrConsultaCNPJ"?

teste usar: ACBrConsultaCNPJ1.PesquisarIBGE := True;

quando executa: lGTIN.Consultar('7891991304269');

no libxml do windows não testei. no linux eu tenho uma vps com AlmaLinux 9.4 (Seafoam Ocelot) (eu instalo do zero, vc pode usar virtual box) dnf upgrade -y dnf install libxml2 libxml2-devel -y ele vai instalar a ultima versão do lbxml2. no meu caso eu uso o ACBrGTIN. com a seguinte configuração: lGTIN.Configuracoes.Geral.SSLLib := libOpenSSL; lGTIN.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; lGTIN.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; lGTIN.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; lGTIN.SSL.SSLType := LT_TLSv1_2; e o erro com a libxml2 acontece

eu tive esse problema e só resolveu usando a versão 2.9.1 ou menor do xml2 no Linux. o porque isso acontece não sei. mas se voltar a versão do libxml2 vai funcionar. eu estava com essa libxml2-2.9.13 e retornava erro. voltei versões até acertar

pelo que entendi do "NFCe00454.docx" isso não é uma NFCe modelo 65. isso é uma NFCom modelo 21 (21-Nota Fiscal de Serviço de Comunicação) https://www.sped.fazenda.gov.br/spedtabelas/AppConsulta/publico/aspx/ConsultaTabelasExternas.aspx?CodSistema=SpedFiscal

para gerar pdf o acbr usa esse componente: https://github.com/Projeto-ACBr-Oficial/FPDF-Pascal

paga pegar o resultado: //136 Contém as 6 primeiras posições do cartão (bin) ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(136, 0).AsString; //1003 Nome do Portador do Cartão ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(1003, 0).AsString; //1190 Embosso (4 últimos dígitos) do Cartão ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(1190, 0).AsString; resultaldo: 000-000 = 107 1002-000 = 2505 1003-000 = DOUGLAS A M D SOUZA 1190-000 = 3507 136-000 = 999999 2021-000 = 999999******3507 2022-000 = 2505 2023-000 = DOUGLAS A M D SOUZA 4100-000 = TCP:C:10060:TO 899-100 = ADM 899-103 = 0

vc pode usar: ACBrTEFAPI1.EfetuarAdministrativa('430'); e pegar o resultado em: ACBrTEFAPI1.UltimaRespostaTEF.

ja testei e esta ok. muito obrigado.

ok. é que eu ainda não comecei a trabalhar com api, então para mim pareceu claro. me desculpe.

por favor leia o tópico para entender:

se vc olhar o tópico inteiro, essa alteração não tem relação com a api. ela tem relação com a parte visual na mensagem de pagamento. é uma alteração simples. que não vai gerar conflito nem problema.

existe a possibilidade dessas alterações serem incluidas no acbr?

segue a unit alterada caso o @Daniel Simoes queira adicionar ao acbr ACBrTEFAPI.pas

na assinatura do metodo esta como smallint que vai até 32.767 então faça a alteração na unit ACBrTEFAPI passando para o tipo inteiro: antes: function ObterDadoPinPad(TipoDado: TACBrTEFAPIDadoPinPad; TimeOut: SmallInt = 30000; MinLen: SmallInt = 0; MaxLen: SmallInt = 0): String; depois: function ObterDadoPinPad(TipoDado: TACBrTEFAPIDadoPinPad; TimeOut: Integer = 30000; MinLen: SmallInt = 0; MaxLen: SmallInt = 0): String; não posso subir a unit alterada mas vc pode alterar e adicionar aqui (se vc estiver com o acbr atualizado) para ver se alguém adiciona no projeto

tenta assim: dtmTEF.ACBrTEFAPI1.ObterDadoPinPad(dpCPF, 90000, 11, 11);

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

se for uma transação com cartão "visa" e chamar a função 130 ela será cancelada automaticamente (não temos controle sobre isso "foi a informação que recebi durante a minha homologação") tente chamar a função 131. eu fiz assim e a homologação foi aprovada: dtmTEF.ACBrTEFAPI1.EfetuarAdministrativa('131'); If dtmTEF.ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(210, 0).AsInteger > 0 Then Begin TACBrTEFAPIClassCliSiTef(dtmTEF.ACBrTEFAPI1.TEF).TEFCliSiTefAPI.FinalizaFuncaoSiTefInterativo( 1{1=true,0=false}, pansichar(dtmTEF.ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(160, 0).AsString),//pCupomFiscal: pansichar(dtmTEF.ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(163, 0).AsString),//pDataFiscal: pansichar(dtmTEF.ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(164, 0).AsString),//pHoraFiscal: '' ); TfrmAlert.Alert( 'Última transação TEF foi efetuada' + sLineBreak + 'Favor reimprimir o cupom.', tmAviso); End;

Entendi. Mas seria interessante ter essa opção no AcbrBoleto

existe alguma forma para eu saber se algum banco possui ou não emissão de boleto por webservice? pois são muitos bancos dentro do Type TACBrTipoCobranca por exemplo existe cobBancoDoBrasil,cobBancoDoBrasilWS,cobBancoDoBrasilAPI,cobPenseBankAPI mas eu gostaria de saber quais possuem WS para eu mostrar ou não as configurações de WS

sim, eu uso lazarus 3.2.4, não tenho delphi instalado, só tenho uma pasta acbr, não tem outras units, meu ambiente esta completamente limpo, vc pode testar com o demo do boleto como citei no primeiro post, mas ja enviei as correções no post anterior se quiser testar.