luciano_f

Estou executando o Seguinte Código e quando existe algum erro da receita como por exemplo rejeição pela falta de algum campo :: Try Try Result := ACBrCTe1.WebServices.EnviaOS(1); Finally cStatCTe := ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.cStat); // Retorna Vazio cStatCTe := ACBrCTe1.WebServices.Retorno.cStat; // Retorna Vazio End; Except on E: Exception do // Vai entrar no Exception porque faltou por exemplo o Tomador do Serviço porém preciso capturar o cStat da Rejeição 757 End;

Italo acabei de testar de acordo com o topico https://www.projetoacbr.com.br/forum/topic/38912-cte-os-como-obter-os-dados-do-retorno-após-aprovação/?tab=comments#comment-256055 Tentei da seguinte forma Protocolo := ACBrCTe.Conhecimentos.Items[ x ].CTe.procCTe.nProt;Status := ACBrCTe.Conhecimentos.Items[ x ].CTe.procCTe.cStat; Motivo := ACBrCTe.Conhecimentos.Items[ x ].CTe.procCTe.xMotivo; Porém volta tudo vazio

Desconsiderem essa questão. Para ficar documentado para CTeOS tem que ser preenchida a tag "Toma" no lugar da tag "Toma4"

Estou tentando gerar um CTe com o Modelo 67 porém está me retornando o erro :: Status Código: 757 Status Descrição: O tomador do serviço deve estar informado para Transporte de Pessoas e Valores. Eu estou preenchendo essa Tag porém percebo que o componente não o Faz. na unit pcteCTeW.pas na linha 470 if (CTe.ide.modelo = 67) then GerarInfPercurso; Onde deveria ser assim if (CTe.ide.modelo = 67) then Begin GerarInfPercurso; GerarToma03; GerarToma4; End; Porem de alterar esse código ai dá o erro :: "is unexpected according to content model of parent element Toma4" O que preciso fazer para resolver isso ? Grato a todos.

Colega consegiu resolver ? eu também estou com o mesmo Problema acredito ser um Bug do Acbr já tentei depurar mais não consegui.

Pessoal tenho um código que uso perfeitamente no AcbrNFe onde consigo capturar o cStat caso volte alguma rejeição da Sefaz o problema que no CTe o mesmo código não funciona. Try Try Result := ACBrCTe1.WebServices.Envia(1); Finally cStatCTe := ACBrCTe1.WebServices.Retorno.cStat; // Aqui nessa linha no AcbrNFe volta certinho o codigo do cSat mesmo se voltar rejeição da Sefaz e entrar no Bloco Exception xMotivo := ACBrCTe1.WebServices.Retorno.xMotivo; End; Except on E: Exception do Begin // codigo para Tratamento da exceção End; É alguma configuração no ACBrCte que tenho que fazer ?? Grato.

Deu certo amigo fico muito grato.

Pessoal boa tarde acabei de atualizar o ACBR e está dando esse erro quando tento gerar a CT-e com o Modelo 67 para transporte de passageiros. Eu também atualizei a pastas dos Schemas o erro ocorre quando "ACBrCTe1.Conhecimentos.Assinar;" O que pode ser ? Obs : todas as pastas do ACBR estão atualizadas com a versão de hoje 06/10/2017

Achei meu erro :: No Lugar de ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.Versao Trocar por :: ACBrNFe.NotasFiscais.Items[0].NFe.infNFe.Versao

Pessoal estou carregando um XML já emitido para o componente AcbrNfe e quando tento ver a versão do XML com o código abaixo sempre me retorna vazio. ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.Versao // vazio Se eu tentar VersaoDFToStr(TpcnVersaoDF(ACBrNFe.IdentificaSchema(ACBrNFe.NotasFiscais.Items[0].XML)) me retorna 3.00 sendo que se trata de um XML 3.10 Eu preciso de uma forma de saber a versão do XML existe outra maneira ? Grato.

Ok agora deu certo baixas BradescoSiccob realizadas com sucesso. Muito Grato.

Conseguir ver o arquivo retorno ? Acredito que minha solução de alterar o código para if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno ) then if LeCedenteRetorno then Banco.TipoCobranca := GetTipoCobranca( StrToInt(BancoRetorno)); Resolve o problema

Bom dia Poderia por favor anexar o arquivo de retorno deste banco, para simularmos essa situação... Arquivo Retorno do BradescoSicredi em Anexo. Grato C4340_0015059_180717_35092 - Copia.ret

Boa Tarde O código comentado na unit ACBrBoleto não pode ser alterado, pois não validaria os demais bancos. Para este caso você pode setar a propriedade "LeCedenteRetorno" como (true) e não terá mais este problema, pois vai atualizar o Código do Cedente conforme o arquivo de Retorno. Não resolveu aqui já estava setado como True a propriedade LeCedenteRetorno se eu colocar como False ai dispare esse raise raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente')); O correto então é alterar o codigo para que fique sem esse " Else raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente'));" Ficando assim :: if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno ) then if LeCedenteRetorno then Banco.TipoCobranca := GetTipoCobranca( StrToInt(BancoRetorno)); Pois de outra forma não será mais possível ler arquivos retorno do BradescoSiccob.

Essa procedure foi alterada e dá problema com a unit "ACBrBancoBradescoSICOOB.pas" pois o codigo :: if ( IntToStrZero(Banco.Numero, 3) <> BancoRetorno ) then if LeCedenteRetorno then Banco.TipoCobranca := GetTipoCobranca( StrToInt(BancoRetorno)) else raise Exception.Create( ACBrStr( 'Arquivo de retorno de banco diferente do Cedente')); Altera o tipo de Cobrança de acordo com a leitura do arquivo retorno isso não pode ser, o correto de a gente setar o tipo de cobrança manualmente o componente não pode fazer isso automático de acordo com o conteúdo do arquivo remessa pois no caso do BradescoSicoob vai estar 756 porém é um boleto do Bradesco assim ele vai alterar para carteira do tipo ACBrBancoBancoob onde deveria ser ACBrBancoBradescoSICOOB Assim esse código acima deve ser retirado pois antes de chamar a procedure LerRetorno a gente seta o componente e depois dentro da LerRetorno não pode mais setar o tipo de cobrança Outra coisa que está errado é o retorno do NossoNumero := Copy(Linha,76,6); de acordo com o manual tem que ser NossoNumero := Copy(Linha, 71, 11); Está na pagina 3 do Manual Coloquei as duas units alteradas em anexo para os administradores subirem para o SVN ACBrBancoBradescoSICOOB.pas ACBrBoleto.pas

usando o método "ACBrNFe1.DistribuicaoDFePorChaveNFe(uf,cnpj,chave)" Eu só consigo baixar um resumo da NFe como faço para baixar ela completa ?? o que está retornando é isso <?xml version="1.0" encoding="UTF-8"?> -<resNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <chNFe>41170561186888013333550050008753171089401420</chNFe> <CNPJ>61186888013333</CNPJ> <xNome>Spal Ind. Bras.Bebidas SA</xNome> <IE>9064621090</IE> <dhEmi>2017-05-04T22:58:15-03:00</dhEmi> <tpNF>1</tpNF> <vNF>101.86</vNF> <digVal>n4oRnzgatMEqBmaMmqawPb8A1ko=</digVal> <dhRecbto>2017-05-05T00:28:04-03:00</dhRecbto> <nProt>141170071011340</nProt> <cSitNFe>1</cSitNFe> </resNFe> Pessoal eu não tinha feito o evento de confirmação da NFE agora deu certo peguei o XML completo da nota

olá amigos, utilizem ACBrNFe1.DistribuicaoDFePorChaveNFe(uf,cnpj,chave); que após a sua nota manifestada, você conseguirá obter o xml quando fizer essa consulta. Já testei isso porque não consigo obter o XML o colega poderia postar o seu codigo e quais propriedades tem que ativar no acbrnfe para isso funcionar

Boa tarde, comecei a utilizar o ACBr pela primeira vez ontem, com intuito de criar uma aplicação onde monitore os documentos fiscais emitidos contra o meu CNPJ (fazendo manifesto antes para poder baixar todas), porém o grande numero de tópicos existentes me deixou um pouco confuso, gostaria de tirar algumas duvidas. O método DistribuicaoDFePorUltNSU() busca os documentos pelo NSU, automaticamente baixa os XML que já contém o evento de manifesto ? Existe como fazer o manifesto do destinatário usando o ultimo NSU? Como eu consigo as ler as chaves pelo NSU? Qual é o processo correto? Existe algum manual ou um código fonte para que eu consiga me basear, pois os exemplos fornecidos eu consigo fazer somente já tento a chave Muito pertinente sua duvida pois estou na mesma situação, existe muitos topicos aqui no forum já estou pesquisando a 3 horas e até agora nada. Gostaria de saber como fazer o Download do XML estou tentando o Demo do ACBRNfe porque não consigo baixar o XML. Já li todo esse tópico aqui Porém não consegui. Se algum colega poder mostrar o código e como foi configurador o ACBr para baixar o xml ficaremos muito agradecidos.

Pessoal achei a solução para o meu problema descrito acima se algum colega precisar no evento OnExibeMsg coloque uma chamada nessa function abaixo. Function Func_RetornaDadosTransacaoTEF(vValorParcela : Real = 0) : String; Var aDebitoCredito : String; Procedure CaptaDados(DadosResp : TACBrTEFDResp); Begin With Controle_Financeiro, DadosResp do Begin if Credito Then aDebitoCredito := 'Credito' Else aDebitoCredito := 'Debito'; Result := 'Rede : ' + Rede + #13 + 'NSU : ' + NSU + #13 + 'Documento Vinculado : ' + DocumentoVinculado + #13 + 'Codigo Autorização : ' + CodigoAutorizacaoTransacao + #13 + 'D/C : ' + aDebitoCredito + #13 + 'BIN do cartão : ' + LeInformacao(136, 0).AsString + #13 + 'Header : ' + Header + ' ID : ' + IntToStr(ID) + #13 + 'Valor Total Recebido : ' + MaskFloatDinheiro(ValorTotal) + #13 + 'Saque : ' + MaskFloatDinheiro(Saque) + #13 + 'Saldo Restante : ' + MaskFloatDinheiro(CartaoTEF.RespostasPendentes.SaldoRestante); End; End; Begin Result := EmptyStr; With Controle_Financeiro Do Begin if CartaoTEF.RespostasPendentes.Count > 0 Then CaptaDados(CartaoTEF.RespostasPendentes[Pred(CartaoTEF.RespostasPendentes.Count)]) Else CaptaDados(CartaoTEF.Resp); if vValorParcela <> 0 Then Result := Result + #13 + 'Valor Parcela : ' + MaskFloatDinheiro(vValorParcela); End; End;

Será que existe alguma forma de eu mostrar os arquivos respostas da ultima transação antes da mesma ser cancelada ? Na minha aplicação eu tenho feito da seguinte forma : Apos a emissão da NFCe eu executo o comando "AcbrTefD.ConfirmarTransacoesPendentes(False);" Então caso haja uma queda de energia apôs ligar a maquina e subir a aplicação ao ativar a aplicação e Iniciar o ACBrTefD EstadoSimuladoEcf := tpsPagamento; AcbrTefD.Inicializar(gpCliSiTef); EstadoSimuladoEcf := tpsLivre; será cancelado as transações pendentes nesse momento eu gostaria de capturar os dados da transação que está sendo cancelada e mostrar para o usuário porém não consigo pois no evento OnExibeMsg sempre em retorna vazio AcbrTefD.RespostasPendentes.Count = 0 Testei em varios eventos como "OnDepoisCancelarTransacoes" porém sem sucesso A grande questão é que eu não confirmo as transações logo apôs a emissão do TEF eu deixo tudo na memoria para ser confirmado só depois da emissão da NFCe e dessa forma percebo que o evento "OnDepoisCancelarTransacoes" nem é disparado. Eu gostaria de mostrar informações como : Function RetornaDadosTransacaoTEF(vValorParcela : Real = 0) : String; Var aDebitoCredito : String; Begin Result := EmptyStr; With Controle_Financeiro Do Begin if AcbrTefD.RespostasPendentes.Count > 0 Then With AcbrTefD.RespostasPendentes[Pred(CartaoTEF.RespostasPendentes.Count)] do Begin if Credito Then aDebitoCredito := 'Credito' Else aDebitoCredito := 'Debito'; Result := 'Rede : ' + Rede + #13 + 'NSU : ' + NSU + #13 + 'Documento Vinculado : ' + DocumentoVinculado + #13 + 'Codigo Autorização : ' + CodigoAutorizacaoTransacao + #13 + 'D/C : ' + aDebitoCredito + #13 + 'BIN do cartão : ' + LeInformacao(136, 0).AsString + #13 + 'Header : ' + Header + ' ID : ' + IntToStr(ID) + #13 + 'Valor Total Recebido : ' + MaskFloatDinheiro(ValorTotal) + #13 + 'Saque : ' + MaskFloatDinheiro(Saque) + #13 + 'Saldo Restante : ' + MaskFloatDinheiro(CartaoTEF.RespostasPendentes.SaldoRestante); if vValorParcela <> 0 Then Result := Result + #13 + 'Valor Parcela : ' + MaskFloatDinheiro(vValorParcela); End; End; End; Obs estou usando "gpCliSiTef" Grato.

Pessoal peguei a ultima versão do AcbrTefD e percebi um problema que não tinha na verão anterior. Estou usando o ACBrTefD com NFCe. Antes de pegar essa ultima versão que tem a propriedade "ConfirmarAntesDosComprovantes" o qual estou colocando como True. Se eu efetuasse uma venda e antes da geração da NFCe eu desligasse a maquina quando eu ligava novamente e abrisse o sistema eu conseguia capturar as respostas pendentes dentro do evento "OnExibeMsg" ou seja ao ativar o sistema novamente depois de ter desligado sem ter confirmado a transação TEF eu sempre conseguia ler os arquivos repostas dentro do Evento "OnExibeMsg" e mostrar para o usuário informações como NSU, Valor Etc.. Agora não consigo mais ler as repostas sempre me retorna "AcbrTEF1.RespostasPendentes.Count = 0" Não é problema em minha aplicação pois voltei a versão anterior do ACBr e consigo capturar normalmente as MSG Obs Versão antiga 10/10/2016 versão nova 16/04/2017 O que pode ser ?

Muito grato pela atenção.

Pessoal estou consultando uma NFCe porém não consigo capturar o XML completo da NFCe. Eu alimento o componente usando o metodo : "AcbrNfe1.NotasFiscais.LoadFromStream" Ai faço a consulta : ACBrNFe1.Consultar; Porém não consigo por exemplo pegar a data que foi feito essa NFCe. sempre é me retornado a data e hora que eu passei para o Acbr, porém caso uma NFCe tenha ficado em processamento e a hora tenha sido diferente da que eu informei eu não consigo pegar essa hora como resolver isso ? Eu pensei que o XML fosse atualizado automático mais isso não está acontecendo até tentei usar o código :: ACBrNFe1.WebServices.Consulta.protNFe.GerarXML; // porém esse código não altera em nada o XML. Apôs executar a consulta da NFCe eu tento capturar a Data e Hora da seguinte forma "ACBrNFe.NotasFiscais.items[0].nfe.Ide.dEmi" porém o retorno é a data que eu passei do meu banco de dados para o ACBr e não a data e Hora que está no XML da Receita Percebi que se eu usar "ACBrNFe1.WebServices.Consulta.protNFe.dhRecbto" ai consigo a data e hora correta do envio da receita porém e se o site da receita estiver muito lento e eu não conseguir salvar o XML no momento da Emissão e quiser capturar esse XML depois alimentando o componente para que ele me retorne todos os dados da NFCe como Produtos, Destinatário, impostos etc... teria como ? Grato a todos.

Me corrija se Eu estiver errado ::: "ConfirmarAntesDosComprovantes" vai confirmar as transações pendentes de depois dessa propriedade Eu vou poder fazer algumas checagens em meu Código e por ultimo imprimo os comprovantes do TEF através da propriedade "ImprimirTransacoesPendentes" Porque se eu chamar a propriedade "ConfirmarTransacoesPendentes" e depois chamar "ImprimirTransacoesPendentes" não imprime nada. Como estou usando TEF com NFCe essa propriedade é de grande ajuda. Grato.

Onde está essa propriedade "ConfirmarAntesDosComprovantes" pois não achei ela Grato