carlos batista
-
Total de ítens
25 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por carlos batista
-
-
estou tendo problemas ao validar o arquivo c240, não estou conseguindo corrigir o problema, alguém tem uma ideia de como corrigir esses erros, olhei no manual e aparentemente esta ok, mas quando passa pelo validador da esse erros.
-
estou implementando o componente gerar boletos, quando gero o arquivo remessa c400 aparentemente esta ok mas ,quando gero c240 esta me retornando um monte de erros, na primeira imagens e do tipo c400 e na segunda e c240, nesse site que faco a validação https://gmtedi.bb.com.br/validaleiaute/?_ga=1.33425406.1984275204.1487957184#/validadorleiaute para o arquivo c240 e https://wspf.bradesco.com.br/wsValidadorTeleBanco/ValidadorRemessa.aspx para c400,
-
3 minutes ago, Juliomar Marchetti said:
agora olhando o print que mandou tu tá mandando diversos boletos né
comenta a linha conforme abaixo
rapaz c e fera, funcionou perfeitamente obrigado.
-
1
-
-
3 minutes ago, Juliomar Marchetti said:
vou roda ele aqui e colocar exatamente suas configurações.
min.
ok
-
2 hours ago, Juliana Tamizou said:
Recomendo que examine como é feito no demo e verá que lá as mensagens não são duplicadas.
ha esqueci de mencionar que no demo também sai duplicado
-
2 hours ago, Juliana Tamizou said:
Boa tarde.
Você deve aguardar que alguém tenha disponibilidade para retornar, para os casos onde se necessita de urgência na resposta, recomendamos considerar o SAC ACBr, que entre outras vantagens, tem o SLA de resposta de 1 dia útil (média atual de respostas está em 10 minutos).
Recomendo que examine como é feito no demo e verá que lá as mensagens não são duplicadas.
Att.
Olhei mas não vi diferença no preenchimento
```while not FDataSet.Eof do
begin
LCodReceber := FDataSet.FieldByName('CodReceber').AsInteger;
Self.BuscarTitulos(LCodReceber);
LTitulo := FBoleto.CriarTituloNaLista;
LVencimento := FDataSet.FieldByName('Venc').AsDateTime;
with LTitulo do
begin
if Vencimento < DataAtualServidor then
LVencimento := IncWorkingDay(DataAtualServidor, 1);
Vencimento := LVencimento;
DataDocumento := DataAtualServidor;
NumeroDocumento := FQuery3.FieldByName('NumeroDocumento').AsString;
if Naoestavazio(Sodigitos(FQuery3.FieldByName('Parcela').AsString)) then
Parcela := FQuery3.FieldByName('Parcela').AsInteger;
EspecieDoc := FEspecieDoc;
EspecieMod := 'R$';
Aceite := atNao;
if FAceiteDocumento = 'SIM' then
Aceite := atSim;
DataProcessamento := DataAtualServidor;
LTamanhoNossoNumero := FBoleto.Banco.CalcularTamMaximoNossoNumero(FCartteira, FQuery3.FieldByName('NossoNumeroBolCtrl').Value);
Carteira := FCartteira;
NossoNumero := PadLeft(FQuery3.FieldByName('NossoNumeroBolCtrl').Value, LTamanhoNossoNumero, '0');
ValorDocumento := FDataSet.FieldByName('Valor').AsFloat;
Sacado.NomeSacado := FQuery3.FieldByName('NomeSacado').AsString;
Sacado.Pessoa := pFisica;
if FQuery3.FieldByName('Tipo').AsString = 'Juridica' then
Sacado.Pessoa := pJuridica;
Sacado.CNPJCPF := FormataCpfCnpj(OnlyNumber(FQuery3.FieldByName('CNPJCPF').AsString));
Sacado.Logradouro := FQuery3.FieldByName('Logradouro').AsString;
Sacado.Numero := FQuery3.FieldByName('Numero').AsString;
if EhImprimirCaixaPosta then
Sacado.Numero := FQuery3.FieldByName('CxPostal').AsString;
Sacado.Bairro := FQuery3.FieldByName('Bairro').AsString;
Sacado.Cidade := FQuery3.FieldByName('Cidade').AsString;
Sacado.UF := FQuery3.FieldByName('UF').AsString;
Sacado.CEP := OnlyNumber(FQuery3.FieldByName('CEP').AsString);
Sacado.Email := FQuery3.FieldByName('Email').AsString;
if Sacado.Email = EmptyStr then
Sacado.Email := FQuery3.FieldByName('Email2').AsString;
UsoBanco := FUsoBanco;
LocalPagamento := FLocalPagamento;
OcorrenciaOriginal.Tipo := FTipoOcorrencia;
if Assigned(FMesagemBoleto) then
Mensagem.Text := FMesagemBoleto.Text;CodigoMoraJuros := cjTaxaMensal;
ValorMoraJuros := FQuery3.FieldByName('Juros_am').AsFloat;
ValorDesconto := FQuery3.FieldByName('ValorDesconto').AsFloat;
DataMoraJuros := LVencimento;
DataDesconto := IncDay(LVencimento - 1);
if FDiasProtesto > 0 then
DataProtesto := IncDay(LVencimento, FDiasProtesto);
CodigoMulta := cmPercentual;
PercentualMulta := FQuery3.FieldByName('Multa').AsFloat;FBoleto.AdicionarMensagensPadroes(LTitulo, Mensagem);
ArquivoLogoEmp := ExtractFileDir(GetCurrentDir) + '\Imagens\Logo.jpg';
end;
FBoleto.ChecarDadosObrigatorios;
Self.SalvarNossoNumero(LCodReceber, LTitulo);
FDataSet.Next;
if (LNome <> FQuery3.FieldByName('NomeSacado').AsString) or (FDataSet.Eof) then
begin
if FTarefaBoleto = tbImprimeBoletoCompleto then
begin
FBoleto.ACBrBoletoFC.NomeArquivo := GetUserTempDir + 'Boleto Cobranca ' + FBoleto.ListadeBoletos[0].Sacado.NomeSacado + '.pdf';
Self.Imprimir();
if FEhEnviarEmail then
Self.EnviarEmail();
FBoleto.ListadeBoletos.Clear;
end;
end;
LNome := FQuery3.FieldByName('NomeSacado').AsString;
end;```2 hours ago, Juliomar Marchetti said:verifique primeiro senão está com fontes alterados no seu micro e reverta para do svn reinstale o acbr,
também veja onde está alimentando essas informações
fiz a reinstalação do componente hoje pela manha mas, de qual quer forma verifiquei se tinha alguma alteração
-
Como faço para corrigir?
-
estou implementando o boleto mas , no impresso esta saindo duas vezes o valor da multa e juros
-
Boa tarde @Italo Jurisato Junior . Não tem outro evento mas para tirar a duvidas irei gerar um novo CT-e e tentar novamente
-
2
-
-
bom dia @Italo Jurisato Junior desculpa a demora no retorno tive que entrar aqui em outro processo.... Fiz a correção, mas esta dando o mesmo erro
-
Boa tarde estou com dificuldade para transmitir o evento em questão, não estou conseguindo identificar a onde estou errando. esta dando a segui te mensagem 'erro na regra' , estou fazendo preenchendo dessa maneira esta faltando algo?
ACBrCTe.Conhecimentos.Clear;
ACBrCTe.EventoCTe.Evento.Clear;
with ACBrCTe.EventoCTe.Evento.New do
begin
infEvento.id := IntToStr(FLot);
infEvento.cOrgao := StrToInt(FCodigoOrgao);
infEvento.chCTe := FChaveCte;
infEvento.CNPJ := SoDigitos(FCNPJ);;
infEvento.dhEvento := DataHoraAtualServidor;
infEvento.tpEvento := teComprEntrega;
infEvento.nSeqEvento := FSequencia;infEvento.detEvento.nProt := FProtocoloAutorizacaoCTe;
infEvento.detEvento.dhEntrega := FDataHoraEntrega;
infEvento.detEvento.nDoc := FDocumentoPessoaEntrega;
infEvento.detEvento.xNome := FNomePessoaEntrega;
infEvento.detEvento.latitude := FLatitude;
infEvento.detEvento.longitude := FLongitude;
LStream := TMemoryStream.Create();
try
FImagemComprovanteEntrega.SaveToStream(LStream);
infEvento.detEvento.hashEntrega := CalcularHashDados(LStream, FChaveCte);
infEvento.detEvento.dhHashEntrega := DataHoraAtualServidor;
finally
LStream.Free();
end;infEvento.detEvento.infEntrega.Clear;
while not dmCTe.sqlCTeNFe.Eof do
begin
with infEvento.detEvento.infEntrega.New do
chNFe := dmCTe.sqlCTeNFechavenfe.AsString;
dmCTe.sqlCTeNFe.Next;
end;
end;if ACBrCTe.EnviarEvento(FLot) then
begin
with ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
begin
end
else
raise Exception.Create('Erro ao enviar Comprovante de entrega:' + #13 + 'Status: ' + IntToStr(cStat) + #13 + xMotivo);
end;
end; -
On 7/26/2019 at 8:22 AM, carlos batista said:
bom dia,
Erro ao transmitir o evento: Status: 657 - Rejeição: Código do Orgao diverge do orgao autorizador.
não estou conseguindo resolver esse erro, antes eu enviava no Órgão = 91, depois de atualizar o 91 não tem mais, passei a colocar o código do estado que no 51, se não preencho o componente pega da chave mas da o mesmo erro, alguém tem ideia de como corrigir?InfEvento.id := IntToStr(idLote);
InfEvento.nSeqEvento := 1;
InfEvento.chNFe := Chave;
InfEvento.CNPJ := CNPJ;
InfEvento.cOrgao := StrToInt(copy(IBGECidade,1, 2));
InfEvento.versaoEvento := ?Bom dia para corrigir esse problema tive que trocar o método ACBrNFe1.EventoNFe.Evento.Add para ACBrNFe1.EventoNFe.Evento.New, no paramento InfEvento.cOrgao sempre vai o código 91 como o Italo Jurisato Junior Informou anteriormente.
o código fico mais ou menos assim
with ACBrNFe1.EventoNFe.Evento.New do
begin
InfEvento.id := IntToStr(idLote);
InfEvento.cOrgao := 91;
InfEvento.chNFe := Chave;
InfEvento.CNPJ := CNPJ;
InfEvento.dhEvento := StatusServicoNFe.dhEnvioEvento;
case CodSit of
1:
InfEvento.tpEvento := teManifDestConfirmacao;
2:
InfEvento.tpEvento := teManifDestCiencia;
3:
InfEvento.tpEvento := teManifDestDesconhecimento;
4:
InfEvento.tpEvento := teManifDestOperNaoRealizada;
end;
if CodSit = 4 then // Nao realizada
InfEvento.detEvento.xJust := xJust;
end;if not(ACBrNFe1.EnviarEvento(idLote)) then
raise Exception.Create('Erro ao transmitir a Manifestação do Destinatário da NF-e! Tente novamente!');
obrigado leandroaoa.
-
41 minutes ago, leandroaoa said:
verifica se você nao esta com os schemas de cte na mesma pasta do schemas de nfe olha um trecho de uma resposta do Italo Jurisato Junior
A manifestação do destinatário é evento (4 tipos de eventos) e estes eventos são enviados para o Ambiente Nacional e não para a SEFAZ-Autorizadora. quer dizer que tem que ser 91
Poise estranho não estar aceitando colocar 91, vou reinstalar do componente.
-
12 minutes ago, leandroaoa said:
verifica se o seu acbr esta atualizado as pasta schemas
sim esta atualizado,
-
6 minutes ago, leandroaoa said:
Evento.InfEvento.cOrgao := 91; //91 - Ambiente Nacional. No caso de evento de manifestação, sempre será 91
entendo isso mas nao tem mais 91 no componente ACBR
function TInfEvento.getcOrgao: Integer;
// (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO);
// (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17);
begin
if FcOrgao <> 0 then
Result := FcOrgao
else
Result := StrToIntDef(copy(FChave, 1, 2), 0);
end;isso esta em Unit pcnEventoNFe
Se eu coloco 91 da esse erro
FALHA NA VALIDAçãO DA MENSAGEM DO EVENTO: '91' VIOLATES ENUMERATION CONSTRAINT OF '11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53 90'.
THE ELEMENT '{HTTP://WWW.PORTALFISCAL.INF.BR/NFE}CORGAO' WITH VALUE '91' FAILED TO PARSE. -
23 minutes ago, leandroaoa said:
bom dia olha a resposta acima do nosso amigo Gabriel Franciscon ali esta como tem que ser
Sim esse era o mesmo processo que eu já fazia antes de atualizar o componente, porem nessa nova versão foi removido do enumerado o código 91, mas se tento usar outro esta dando o erro que sitei.
-
bom dia,
Erro ao transmitir o evento: Status: 657 - Rejeição: Código do Orgao diverge do orgao autorizador.
não estou conseguindo resolver esse erro, antes eu enviava no Órgão = 91, depois de atualizar o 91 não tem mais, passei a colocar o código do estado que no 51, se não preencho o componente pega da chave mas da o mesmo erro, alguém tem ideia de como corrigir?InfEvento.id := IntToStr(idLote);
InfEvento.nSeqEvento := 1;
InfEvento.chNFe := Chave;
InfEvento.CNPJ := CNPJ;
InfEvento.cOrgao := StrToInt(copy(IBGECidade,1, 2));
InfEvento.versaoEvento := ? -
31 minutes ago, BigWings said:
Sua pasta de Schemas está desatualizada.
era o shemas tinhao alterado o caminho da pasta, obrigado
-
2
-
-
estou usando os Schemas que esta na pasta Acbr\Exemplos\ACBrDFe\Schemas,
pulei esse raise EACBrMDFeException.CreateDef(
IfThen(Configuracoes.Geral.ExibirErroSchema, ErroValidacaoCompleto,
ErroValidacao));e a mdfe passou
-
Bom dia, fiz a atualizaçao do componente e agora esta dando esse erro
---------------------------
Debugger Exception Notification
---------------------------
Project .exe raised exception class EACBrMDFeException with message 'Falha na validação dos dados do Manifesto: 127Element '{http://www.portalfiscal.inf.br/mdfe}infMDFeSupl' is unexpected according to content model of parent element '{http://www.portalfiscal.inf.br/mdfe}MDFe'.
Expecting: {http://www.w3.org/2000/09/xmldsig#}Signature.
'.
---------------------------
Break Continue Help
---------------------------
sendo que na versão anterior o mdfe com os mesmos dados passa, o que esta faltando para ser preenchido -
Você pode fazer o download do XML original (com valor legal) pelo método DistribuicaoDFe (pesquise no fórum, tem muitos tópicos sobre ele).
Depois apenas carregar para o componente com ACBrNFe.LoadFromFile().
OK muito obrigado
-
1
-
-
Se a intenção é apenas importar a nota, porque está gerando outro XML?
Sim e Fazer a importação. Estou usando essa function GerarXML(Arquivo: AnsiString; Raiz: string = ''): string, que está na unit uACBrHTMLtoXML, tem outra forma?
-
Boa tarde. Como fazer para dar entrada de uma nota (NFA-e) importando o pelo numero da chave? tem alguma função no componente que verifica se é uma NFA-e? por que quando o compone-te gera a NFe-e de entrada que foi importada ele altera o xml e o numero da chave. Sou novo, então pode ser que minha duvida não tenha ficado clara então vou mandar o xml originar e o xml gerado na importação.
-
Bom dia, aproveitando o topo e a experiencia de vocês, como fazer para dar entrado da nota (NFA-e) importando o pelo numero da chave? tem alguma função no componente que verifica se e uma NFA-e, por que quando o compone-te gera uma NFe-e que foi importada ela altera o xml e o numero da chave. Sou novo, então pode ser que minha duvida nao tenha ficado clara então vou mandar o xml originar e depois.
HOMOLOGAÇÃO BANCO DO BRASIL
em ACBrBoleto
Postado
ok obrigado.