Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

Luiz Carlos de Lima

Membros Pro
  • Posts

    470
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Luiz Carlos de Lima

  1. Boa tarde, Estou passando a carteira > Carteira := 5, então é chamado a rotina procedure TACBrTitulo.SetCarteira(const AValue: String); var aCarteira: Integer; begin if fCarteira = AValue then > Valores fCarteira = '' e AValue = 005 exit; with ACBrBoleto.Banco do begin aCarteira:= StrToIntDef(trim(AValue),0); fCarteira:= AValue; if aCarteira < 1 then exit; fCarteira:= IntToStrZero(aCarteira,TamanhoCarteira); end; end; Até aí tudo bem, mas quando chama a ACBrBoleto.Imprimir, ele chama novamente a TACBrTitulo.SetCarteira(const AValue: String); e muda a carteira para 101 ( fCarteira = 005 e AValue = 101) Já debuguei e não consigo descobrir onde esta carregando o 101 e porque disso.
  2. Foi colocado para remover os antigos mas não resolver. removi a pasta e baixoi tudo novamente e resolveu. Grato pela atenção.
  3. Boa noite, Fiz atualização do ACBr e ao rodar o ACBrInstall_Trunk2.exe esta dando erro. Anexei o log. log_Delphi_XE6_Win32.txt
  4. 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?
  5. 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.
  6. 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'));
  7. 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
  8. 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
  9. 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.
  10. 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
  11. 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.
  12. 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
  13. 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 ?
  14. 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
  15. 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
  16. 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.
  17. 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!
  18. 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
  19. 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.
  20. 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...
  21. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.