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

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

Bom dia ítalo, Tinha razão, debuguei com mais atenção e o erro realmente estava no código. Obrigado pela dica e desculpe a falha.

Boa tarde Ítalo, Aí que esta o problema, voce consulta e não tem o evento. Então envia o evento que retorna com erro de duplicidade. Volta a consultar e lá está o Evento!

Boa tarde, Todos os testes chamando o evento teComprEntrega retorna duplicidade de evento. Consultando tanto o CTe quanto a NFe na Sefaz, só consta o Evento de Autorizacao de Uso. Já mandei nSeqEvento como 2 mas continua retornando duplicidade. Consultando tanto o CTe quanto a NFe na Sefaz, só consta o Evento de Autorizacao de Uso. Quanto ao XML de retorno esta OK. Anexo XML do CTe enviado e do Evento. with vACBRCTE.EventoCTe.Evento.new do begin infEvento.nSeqEvento := 1; infEvento.chCTe := vChave; infEvento.CNPJ := vCNPJ; infEvento.dhEvento := vDataHoraServ; infEvento.tpEvento := teComprEntrega; infEvento.detEvento.nProt := vProtocolo; infEvento.detEvento.dhEntrega := vDataHoraServ; infEvento.detEvento.nDoc := ('CTe-' + IntToStr(vConhecimento) + ' Serie-' + vSerie); infEvento.detEvento.xNome := xNomeRecebedor; infEvento.detEvento.hashEntrega := CalcularHashDados(vImagemStream, vChave); infEvento.detEvento.dhHashEntrega := vDataHoraServ; with InfEvento.detEvento.infEntrega.New do begin chNFe := CdsNotas.FieldByName('ChaveNFe_NotaFrete_Carga').AsString; end; vACBRCTE.EnviarEvento(1); 1101802120121520498400010857001000035589107766705001-procEventoCTe.xml 21201215204984000108570010000355891077667050-cte.xml

Boa tarde a todos, Grato pela atenção, resolvido o problema mandando uma imagem em branco se não existir uma real, assim fica a critério da empresa informá-la ou não.

A informação do xNomeRecebedor concatenado com CPF de quem retirou a mercadoria, mais as outras informações já é alguma comprovacao. Muitas empresas não tem como tirar fotos em todas as filiais. Pelo que entendi não é um campo controlado pela sefaz, portanto poderia informar apenas a xChaveCTe e deixar a xStreamImagem vazia...

Boa tarde, Como fazer para enviar o evento sendo que a xStreamImagem esta vazia, tenho somente a xChaveCTe? Então da erro na linha if (ADados.Size = 0) then. infEvento.detEvento.hashEntrega := CalcularHashDados(xStreamImagem, xChaveCTevChave); Grato

Boa tarde Ítalo, Esse "X" no nome do XML é você que esta colocando > Sim, para separá-los, o do envio e o da consulta. Fiz novos teste agora a tarde e não deu mais o erro, pode ser algum problema com os embarcados na Sefaz de MT, pois só eles estavam com o problema. Grato pela atenção

Bom dia, Ítalo, Como disse, ele monta este *-bpeX.xml após Executar ACBrBPe.Enviar(1, false), com retorno do erro ‘List index out of bounds(0)' e após ACBrBPe.Consultar(); ele monta o *-bpe.xml . Juliomar, este é o procedimento. Obs. Isto está ocorrendo com o envio dos embarcado em 'Contingencia'. FDMBPe.ACBrBPe.Bilhetes.Clear; with FDMBPe.ACBrBPe.Bilhetes.Add do begin BPe.Ide.cUF := FDMBPe.CDSBilheteBPe.FieldByName('CodEstado_Estado_NucleoR').AsInteger; BPe.Ide.tpAmb := taHomologacao; BPe.Ide.modelo := FDMBPe.CDSBilheteBPe.FieldByName('Codigo_ModeloFiscal_Carga').AsInteger; BPe.Ide.serie := StrToIntDef(FDMBPe.CDSBilheteBPe.FieldByName('Serie_Serie_Receber').AsString, 0); BPe.Ide.nBP := FDMBPe.CDSBilheteBPe.FieldByName('Bilhete_MovtoBilh_TrafegoR').AsInteger; BPe.Ide.cBP := FDMBPe.CDSBilheteBPe.FieldByName('cBP_MovtoBilh_TrafegoR').AsInteger; BPe.Ide.modal := moRodoviario; BPe.Ide.dhEmi := dhEmissao; BPe.Ide.tpEmis := teOffLine; BPe.Ide.verProc := 100; BPe.Ide.tpBPe := tbNormal; BPe.Ide.indPres := pcPresencialForaEstabelecimento; BPe.Ide.UFIni := FDMBPe.CDSBilheteBPe.FieldByName('Codigo_Estado_NucleoIni').AsString; BPe.Ide.cMunIni := FDMBPe.CDSBilheteBPe.FieldByName('CodMuni_Cidade_NucleoIni').AsInteger; BPe.Ide.UFFim := FDMBPe.CDSBilheteBPe.FieldByName('Codigo_Estado_NucleoFim').AsString; BPe.Ide.cMunFim := FDMBPe.CDSBilheteBPe.FieldByName('CodMuni_Cidade_NucleoFim').AsInteger; BPe.Ide.dhCont := BPe.Ide.dhEmi; BPe.Ide.xJust := 'Problema de comunicação, Internet'; // dados do emitente, Filial responsável BPe.Emit.CNPJ := FDMBPe.CDSBilheteBPe.FieldByName('CNPJ_Filial_NucleoR').AsString; demais campos...... // dados da agencia BPe.Agencia.xNome := FDMBPe.CDSEmitenteBPe.FieldByName('RazaoSocial_Filial_Nucleo').AsString; demais campos ........... // informações sobre a passagem BPe.infPassagem.cLocOrig := FDMBPe.CDSBilheteBPe.FieldByName('CodMuni_Cidade_NucleoIni').AsString; BPe.infPassagem.xLocOrig := FDMBPe.CDSBilheteBPe.FieldByName('Nome_Cidade_NucleoIni').AsString; BPe.infPassagem.cLocDest := FDMBPe.CDSBilheteBPe.FieldByName('CodMuni_Cidade_NucleoFim').AsString; BPe.infPassagem.xLocDest := FDMBPe.CDSBilheteBPe.FieldByName('Nome_Cidade_NucleoFim').AsString; BPe.infPassagem.dhEmb := DtHrEmbarque BPe.infPassagem.dhValidade := IncMonth(BPe.Ide.dhEmi, 12); // informações sobre a viagem with BPe.infViagem.New do begin cPercurso := FDMBPe.CDSBilheteBPe.FieldByName('Numero_Linha_TrafegoR').AsString; xPercurso := FDMBPe.CDSBilheteBPe.FieldByName('Nome_Linha_TrafegoR').AsString; tpViagem := SuperIF(FDMBPe.CDSBilheteBPe.FieldByName('Codigo_TipoViagem_TrafegoR').AsString = 'NORMAL', tvRegular, tvExtra); tpServ := tsConvencionalComSanitario; tpAcomodacao := taAssento; tpTrecho := ttNormal; Prefixo := FDMBPe.CDSBilheteBPe.FieldByName('Numero_Linha_TrafegoR').AsString; Poltrona := FDMBPe.CDSBilheteBPe.FieldByName('Numero_Poltrona_TrafegoR').AsInteger; Plataforma := FDMBPe.CDSBilheteBPe.FieldByName('Plataforma').AsString; dhViagem := DtHrViagem end; ValorPassagem := valor BPe.Imp.vTotTrib := FDMBPe.CDSBilheteBPe.FieldByName('vTotTrib').AsCurrency; BPe.infValorBPe.vBP := ValorPassagem; BPe.infValorBPe.vDesconto := FDMBPe.CDSBilheteBPe.FieldByName('Desconto_MovtoBilh_TrafegoR').AsCurrency; BPe.infValorBPe.vPgto := ValorPassagem - FDMBPe.CDSBilheteBPe.FieldByName('Desconto_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMS.CST := cst00; BPe.Imp.ICMS.vBC := FDMBPe.CDSBilheteBPe.FieldByName('BaseICMS_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMS.pICMS := FDMBPe.CDSBilheteBPe.FieldByName('AliquoICMS_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMS.vICMS := FDMBPe.CDSBilheteBPe.FieldByName('ValorICMS_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMSUFFim.vBCUFFim := FDMBPe.CDSBilheteBPe.FieldByName('BaseICMS_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMSUFFim.pICMSUFFim := VAliquotaEstadoDestino; BPe.Imp.ICMSUFFim.pICMSInter := FDMBPe.CDSBilheteBPe.FieldByName('AliqPart_MovtoBilh_TrafegoR').AsCurrency; BPe.Imp.ICMSUFFim.vICMSUFFim := (ValorTotalDaPartilha * PercPartilhaUFDestino)/100; BPe.Imp.ICMSUFFim.vFCPUFFim := (((ValorTotalDaPartilha * PercPartilhaUFDestino)/100) with BPe.Pag.New do begin tPag := fpDinheiro; vPag := ValorPassagem - FDMBPe.CDSBilheteBPe.FieldByName('Desconto_MovtoBilh_TrafegoR').AsCurrency; CNPJ := FDMBPe.CDSBilheteBPe.FieldByName('CNPJ_Operadora_Nucleo').AsString; cAut := FDMBPe.CDSBilheteBPe.FieldByName('cAut_Operadora_Nucleo').AsString; tpIntegra := tiNaoInformado; tBand := bcOutros; end; // dados do responsável tecnico -> campo 182 BPe.infRespTec.CNPJ := FDMBPe.CDSRespTecnicoBPe.FieldByName('CNPJ_EmprFilial_Nucleo').AsString; Demais Campos end;

Boa tarde, Ao Executar ACBrBPe.Enviar(1, false), retorna ‘List index out of bounds(0)' na função abaixo. Isto ocorre somente em alguns BPe, e não consegui descobrir o que está causando. function TProtBPeCollection.GetItem(Index: Integer): TProtBPeCollectionItem; begin Result := TProtBPeCollectionItem(inherited Items[Index]); end; o XML 51200901331907000104630040000000052833929482-bpeX é gerado com este erro. Ao consultar na Sefaz ele existe, então faço uma Sincronização e ele retorna o XML OK 51200901331907000104630040000000052833929482-bpe Obs. O problema não é por ser contingência, pois outras contingencia não dá o erro. Grato 51200901331907000104630040000000052833929482-bpeX.xml 51200901331907000104630040000000052833929482-bpe.xml

Feito. Encerrando, grato a todos.

Agora carregou. Só que o XML começa diferente. Os outros começam: <?xml version="1.0" encoding="UTF-8"?><BPeProc versao="1.00" xmlns="ht........ Este começa assim: <procEventoBPe versao="1.00" xmlns="ht...., não carrega a versao do XML

Bom dia Juliomar, Não esta retonando nada, já tentei ler antes com FDMBPe.ACBrBPe.WebServices.EnvEvento.EventoRetorno.LerXml, mas também não funcionou.

Boa noite, Após executar ACBrBPe.EnviarEvento, como ler o XML? No XML do bilhete é ACBrBPe.Bilhetes.Items[0].XML. No evento não tem esta condição? Obrigado

Problema resolvido, obrigado.

Fico no aguardo, obrigado.

Bom dia, Anexado. 1101175120090133190700010463002000000040184042090301-procEventoBPe.xml

Boa tarde Ítalo, Problema resolvido. A impressão saiu, mas não esta aparecendo o valor do comprovante.

Bom dia Ítalo, Retorna "Componente DABPE não associado" ao executar FDMBPe.ACBrBPeSub.ImprimirEvento;

Boa tarde, Ao enviar um evento de excesso de bagagem não esta sendo impresso o comprovante, estou fazendo algo errado ou não imprime mesmo? with DMBPe.ACBrBPeSub.EventoBPe.Evento.New do // Deve ser posterior a data e hora do embarque begin InfEvento.CNPJ := FDMBPe.ACBrBPe.Bilhetes.Items[0].BPe.Emit.CNPJ; // passa o CNPJ do emitente infEvento.chBPe := FDMBPe.CDSComBilheteBPe.FieldByName('ChaveBPe_ComBilh_TrafegoR').AsString; // chave infEvento.dhEvento := FDataHoraJust; infEvento.tpEvento := teExcessoBagagem; InfEvento.detEvento.nProt := FDMBPe.CDSComBilheteBPe.FieldByName('Protoc_ComBilh_TrafegoR').AsString; infEvento.detEvento.qBagagem := VolumeBagagem; infEvento.detEvento.vTotBag := ValorBagagem; end; OK := FDMBPe.ACBrBPeSub.EnviarEvento(FDMBPe.ACBrBPeSub.EventoBPe.idLote); Grato

grato

OK, assim que possivel voltarei aos testes. qualquer problema entro em contato. Desde já, muito obrigado.

Bom dia, Desde já agradeço a atenção.

Boa Tarde, Não estou encontrando no exemplo do BPe o evento Excesso de bagagem. Já atualizei os fontes. Grato.