Erro ao fazer Consulta do BPe, Delphi.

[Luiz Carlos de Lima]

Estou com seguinte problema, O envio(ACBrBPe.Bilhetes.Imprimir) está normal, a impressao esta ok.

Mas ao fazer a Consulta (ACBrBPe.Consultar() ) para pegar o XML de retorna da erro de TimeOut e cai no except não trazendo o retorno. 

try
    FDMBPe.ACBrBPe.Configuracoes.WebServices.TimeOut  := 30000;
    OK  := FDMBPe.ACBrBPe.Enviar(1, false);
     if (OK) then
     begin
      codigoResultado := FDMBPe.ACBrBPe.WebServices.Enviar.cStat;
      FDMBPe.ACBrBPeDABPeESCPOS.ViaConsumidor := true;
      FDMBPe.ACBrBPe.Bilhetes.Imprimir ; //  A Impressao sai normal

      FDMBPe.ACBrBPe.Configuracoes.WebServices.TimeOut  := 30000;
      FDMBPe.ACBrBPe.Consultar();

      // Consulta para gravar o retorno no Banco  de dados

    end;

  except on E: Exception do
    begin

 

[Juliomar Marchetti]

Qual o motivo de consultar?

ao enviar ele já trás os dados pra que tu possa gravar pois o xml é atualizado com os dados salvo algum engano

 

[Luiz Carlos de Lima]

No metodo  ACBrBPe.Consultar() eu consigo pegar:

ACBrBPe.WebServices.Consulta.protBPe.chBPe e ACBrBPe.WebServices.Consulta.protBPe.dhRecbto

No método ACBrBPe.Enviar(1, false) enviar nao consigo pegar chBPe  e dhRecbto .

E o XML gravado no disco esta no formato abaixo, tentei anexar ele mas nao consegui.

51 1 63 1 154 59515867 1 1 2021-03-09T10:59:24-04:00 1 100 0 1 MT 5102678 MT 5107040 02969272000120 131859820 DUARTE AMORIM E AMORIM LTDA DUARTE CUIABA 75800 4929904 3 AV ARQUIMEDES PEREIRA LIMA 2333 SALA 9 BOA ESPERANA 5103403 CUIABA MT 6536641177 [email protected] 513948 DUARTE AMORIM E AMORIM LTDA 02969272000120 AV ARQUIMEDES PEREIRA LIMA 2333 SALA 9 BOA ESPERANA 5103403 CUIABA MT 1058 BRASIL 6536641177 [email protected] 5102678 CAMPO VERDE 5107040 PRIMAVERA DO LESTE 2021-03-09T19:00:00-04:00 2022-03-09T10:59:24-04:00 1 CUIABA-MT X PRIMAVERA DO LESTE-MT 00 2 1 1 2021-03-09T19:00:00-04:00 1 30.00 0.00 30.00 0.00 01 30.00 00 30.00 17.00 5.10 6.20 01 30.00 15112101000121 Luiz Carlos de Lima [email protected] 6536245002 Mi4hIRytlp1kIWRtTq5qvlLdULM= O1F6+uukjhiEb1n8DU+qAP2aOlqLguLhNCe0maVUSDOzbwYcQ90bI9GMCeLaa4/YGNurTCNRmS9dufx2Cdof+5wuwPnmbb6HaOhZLmo5xJoQpuGsT8V305xAkL9g0opBXkSKgHggesSej0+ogSAW8sEWxIOlYBwV3oGR2uYA6fBpTRFm0DOugBAWlDrbIfI0+kK11mPp2SNPEWngW1VjXZ6trlu0eTmBhtAH1OEk5PqJ3jF1uRNqSNSQMMQMlB52lf1eScQyVZBCuzV374ovkSZC6Yoao6GIdtGstvhXzPiZdrQIeDj9PE2stB5Zm/gG24HypiFZTDPbFUsWnHZe/w== MIIHLzCCBRegAwIBAgIIS14gEhg+gkowDQYJKoZIhvcNAQELBQAwWTELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxFTATBgNVBAsTDEFDIFNPTFVUSSB2NTEeMBwGA1UEAxMVQUMgU09MVVRJIE11bHRpcGxhIHY1MB4XDTIwMTIxODE3MTgwMFoXDTIxMTIxODE3MTgwMFowgd8xCzAJBgNVBAYTAkJSMRMwEQYDVQQKEwpJQ1AtQnJhc2lsMQswCQYDVQQIEwJNVDEPMA0GA1UEBxMGQ3VpYWJhMR4wHAYDVQQLExVBQyBTT0xVVEkgTXVsdGlwbGEgdjUxFzAVBgNVBAsTDjMxNjY3NDkxMDAwMTUyMRMwEQYDVQQLEwpQcmVzZW5jaWFsMRowGAYDVQQLExFDZXJ0aWZpY2FkbyBQSiBBMTEzMDEGA1UEAxMqRFVBUlRFIEFNT1JJTSBFIEFNT1JJTSBMVERBOjAyOTY5MjcyMDAwMTIwMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAl1W+tKtiJyiTmr8MVehtkiOWRw30F2C+KccUEKtaoDzFs2c++mfrqLtzJ8eRrpjuYvKzUDUH+Eiqr7U+A5IYDPj2dnalxuQWoqnrFYHttTr+P592AaO+LHbpBbCzxrjQLBiFJr08brjGoraKpM3vb50xqhKfTPM0CORiPHvIUkReOH7RYWoeci4TQKJSiIXflNPgpA4nSLztPRpGssyTZTV6h1S/SQL7oFCiMM2Q4PFbGmEG7CMKmaTi8R8hx94uMTQEqa5BY+0uBwvT8O8kQHMf6MX1UASF1ki5MdZ7Z/k+wqh0JaVAtbXIsu0myL6grVV7lGgdKXsfpzHUKDj0mwIDAQABo4ICcjCCAm4wCQYDVR0TBAIwADAfBgNVHSMEGDAWgBTFUu0lgAnfnILIn0fG3bRfMd25sTBUBggrBgEFBQcBAQRIMEYwRAYIKwYBBQUHMAKGOGh0dHA6Ly9jY2QuYWNzb2x1dGkuY29tLmJyL2xjci9hYy1zb2x1dGktbXVsdGlwbGEtdjUucDdiMIGtBgNVHREEgaUwgaKBE2RwbGVzdHR1ckBnbWFpbC5jb22gHQYFYEwBAwKgFBMSU09OSUEgUEVSRVMgQU1PUklNoBkGBWBMAQMDoBATDjAyOTY5MjcyMDAwMTIwoDgGBWBMAQMEoC8TLTAyMDUxOTcxODcyNDk4MDQxMjAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMKAXBgVgTAEDB6AOEwwwMDAwMDAwMDAwMDAwXQYDVR0gBFYwVDBSBgZgTAECASYwSDBGBggrBgEFBQcCARY6aHR0cDovL2NjZC5hY3NvbHV0aS5jb20uYnIvZG9jcy9kcGMtYWMtc29sdXRpLW11bHRpcGxhLnBkZjAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwgYwGA1UdHwSBhDCBgTA+oDygOoY4aHR0cDovL2NjZC5hY3NvbHV0aS5jb20uYnIvbGNyL2FjLXNvbHV0aS1tdWx0aXBsYS12NS5jcmwwP6A9oDuGOWh0dHA6Ly9jY2QyLmFjc29sdXRpLmNvbS5ici9sY3IvYWMtc29sdXRpLW11bHRpcGxhLXY1LmNybDAdBgNVHQ4EFgQUAiHYU23dgEdnf+DNwnTvBXEw6E4wDgYDVR0PAQH/BAQDAgXgMA0GCSqGSIb3DQEBCwUAA4ICAQAshuBECn+tBGogpvyzKGp6ufgdasKGagbDHuRgavaw7lhMhDU6+0shkOcqUJQzRWfn9FTLFJyYdMHW3BDDCLt7zzBJumnmmccULTRPWtAQjN2hj8gs9WlYbs3KpYFEObcuqhBsp4g1zXqaVwmlSlTH7IHT6v8PyofL8Gl1Zqm4bjd/51rUxDxYReGuTCwhbE4MkqDqG+uTA0MGcX84mbMYXGpVyubKII3tFrjHZwErWpGlIYfOkPMPCn4/C4woG7ePXMEKdC1EBbeI8sD2Bo6mHdxCFwxZbkcsJ9vSt63BnKIvqv01V4HMUvY17F8FMfjNW5eXsvl+57x5NJ+k69mjP+pxt1pvK659RzstEyDHCEFOrRszOAx8kumnv8/6KgPAao1dHHYxnDd38msOsZ9r2RYkswU3wgMPRa20O1LgcNhX0954+eL6Wn3Wp7qZZ6gRIM7XcCTWogrNTliKRFQpCISCrPr9GTOO/jLyAjHZjbbnEVR1orsPDopjom7miVWz0+F/Is4OJudpeOzIA0ZTdopaUVC37KepgkWSnFrJIX5BMO21FzCfQj+SogpoOgGOsb7McrMMOAnz4l8bwBrD5MkCKQthWYN3G9ebrXyfPtJNDnDQ5Tv+Jq+3QbJnVPKbRo7Yi2/miiqJEcG4BO+m7sWCmE1V1CeOV9bXd6ntXA== 1 1.00 51210302969272000120630010000001541595158671 2021-03-09T10:59:44.314 151210000797331 TWk0aElSeXRscDFrSVdSdFRxNXF2bExkVUxNPQ== 100

[Juliomar Marchetti]

Acho que tu tem que dar um tempo pra consultar .

tenta por um sleep ali de uns segundos

[Luiz Carlos de Lima]

já coloquei e não resolveu. Isso acontece as vezes mas com várias emissões.

Não tem como pegar do método ACBrBPe.Enviar ?

[Italo Giurizzato Junior]

Boa tarde Luiz,

Tente da seguinte forma:

Citar

  xChave := ACBrBPe1.WebServices.Enviar.BPeRetorno.ProtBPe.Items[0].chBPe;
 

 

[Luiz Carlos de Lima]

blz ítalo, deu certo.

Só o XML que continua gerando errado como coloquei acima. Ele só gera na estrutura correta com o método consulta

[Italo Giurizzato Junior]

Bom dia Luiz,

Veja se você consegue anexar o XML aqui no fórum da forma que você postou não da para saber o que esta ocorrendo.

Você esta com todos os fontes de todas as pastas atualizados?

[Luiz Carlos de Lima]

Bom dia Ítalo, Em janeiro foi atualizado e reinstalado.

Não consigo anexar porque o arquivo tem 6 KB, tem um email que possa te enviar, mandeu pelo discord.

[Italo Giurizzato Junior]

Luiz,

Entra no seu perfil e apague os arquivos que você anexou, para poder voltar a anexar.

 

[Luiz Carlos de Lima]

Resolvido apos atualizar o ACBrBPeWebServices. Grato.

[antonio.carlos]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.