Ir para conteúdo
  • Cadastre-se

Luiz Carlos de Lima

Membros Pro
  • Total de ítens

    565
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Luiz Carlos de Lima postou

  1. Bom dia José, ACBrBoleto.NomeArqRetorno := NomeArquivo; AcbrBoleto.DirArqRetorno := NomeDiretorio; ACBrBoleto.LerRetorno(); with ACBrBoleto do begin if ListaRetornoWeb.Count > 0 then > aqui encerra, ela esta vazia begin Já debuguei o ACBrBoleto e esta carregando informações do arquivo enviado, mas a ListaRetornoWeb retorna vazia. Tem alguma idéia do que estou fazendo de errado?
  2. Então estou fazendo de forma errada. O que precisa é de forma assincrona, ou seja, pego o arquivo TXT de retorno do banco para fazer a baixa no sistema dos Titulos baixados. O ACBr tem algo desse tipo pronto? caso tenha tem um exemplo que eu possa seguir? Pois vou fazer para vários bancos.
  3. Estou fazendo para o ITAU, mas está retornando esta Exception. A variavel BancoRetorno esta 341 mas Banco.Numero esta Zerado. Estou passando o caminho ACBrBoleto.NomeArqRetorno e chamando ACBrBoleto.LerRetorno(); Precisa passar mais algum parametro? if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno ) and ( IntToStrZero(Banco.NumeroCorrespondente, 3) <> BancoRetorno ) then if LeCedenteRetorno then Banco.TipoCobranca := GetTipoCobranca( StrToIntDef(BancoRetorno, 0)) else raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente'));
  4. Bom dia, Estou fazendo o retorno usando o exemplo do Demo conforme abaixo, mas não consigo achar a conta. Podem por favor verificar se este exemplo está correto e como pegar a Conta. with ACBrBoleto do begin if ListaRetornoWeb.Count > 0 then begin SLRemessa := TStringList.Create; try for i:= 0 to ListaRetornoWeb.Count -1 do begin DMREMov.CDSBaixaTitulo_NroBoleto.Params[1].AsString := ACBrBoleto.ListaRetornoWeb[i].DadosRet.IDBoleto.NossoNum; DMREMov.CDSBaixaTitulo_NroBoleto.Params[2].AsString := ACBrBoleto.ListaRetornoWeb[i].DadosRet.IDBoleto.Conta; Grato, Luiz Carlos
  5. Bom dia, Resolvido. Grato pela colaboração.
  6. Boa tarde, As posições abaixo não estão montando e não consigo descobrir porque: Registro Header Remessa > 01REMESSA01COBRANCA 00000000000000000000I ZZZ BEZERRA XX 033SANTANDER Posição 27-46 Codigo de Trasmissao não está montando Registro Movimento Remessa > 1021520498400010800000000000000000000 Posicao 18-37 Agencia / Conta Movimento / Conta Bancária Estas informações estão sendo passadas em : ACBrBoleto.Cedente.Agencia := 'Agencia'; ACBrBoleto.Cedente.AgenciaDigito := DigAgencia; ACBrBoleto.Cedente.TipoInscricao := pJuridica; ACBrBoleto.Cedente.CNPJCPF := Inscricao; ACBrBoleto.Cedente.Conta := Conta; ACBrBoleto.Cedente.ContaDigito := DigitoConta; ACBrBoleto.Cedente.CodigoCedente := Conta; ACBrBoleto.Cedente.Convenio := Convenio; ACBrBoleto.Cedente.Nome := Cedente; Agradeço a colaboração
  7. O Layout que estava comparando Peguei de um Site do banco, mas era Padrão Febraban que é da posição 19-32 com 14 caracteres. Como no Arquivo ACBrBancoBrasil na linha abaixo esta na mesma posição fiquei na dúvida. PadLeft(OnlyNumber(CNPJCPF), 15, '0') + // 19 a 32 -Número de inscrição do cedente Peguei um outro layout igual ao do José, que esta como 15, então paramos por aqui e fica com 15 mesmo. Obrigado pela atenção.
  8. Estou montando a rotina de cobrança, ao montar a Remessa do Banco do Brasil verifiquei que no Registro Header de Lote na posicao 19 a 32 deve ficar o CNPJ com 14 posições, mas esta com 15, disposicionando as próxima posições. No arquivo ACBrBancoBrasil Alguns locais estão definindo o CNPJ com 15 posicoes. Neste registro especifico, na function TACBrBancoBrasil.GerarRegistroHeader240(NumeroRemessa : Integer): String, na linha PadLeft(OnlyNumber(CNPJCPF), 15, '0'), é que estava o problema. Passei para 14. Obs. Não tenho cliente que usa o Banco do Brasil, então não sei se isto é uma particularidade deles. Anexei o arquivo caso o correto seja 14. ACBrBancoBrasil.pas
  9. Resolvido apos atualizar o ACBrBPeWebServices. Grato.
  10. 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.
  11. 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
  12. 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 ?
  13. 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
  14. 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
  15. 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.
  16. 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!
  17. 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
  18. 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.
  19. 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...
  20. 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
  21. 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
  22. 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;
  23. 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
  24. Feito. Encerrando, grato a todos.
  25. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.