Eleandro Be More Web
-
Total de ítens
192 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Eleandro Be More Web
-
-
Em 25/05/2018 at 14:08, José M. S. Junior disse:
Boa tarde, verifique se está preenchendo corretamente o campo "Carteira" e "Modalidade".
Bom dia!
Carteira e Modalidade estou preenchendo corretamente, não estou encontrando no componente opção de variação de carteira.
-
Bom dia!
Estou homologando remessa no banco do Brasil, enviei um arquivo de remessa e no retorno, veio com o seguinte erro.
Código 83-Comando recusado - Carteira/Variação não Localizado
Alguém pode me ajudar. Como passo este valor para o componente, ACBRBoleto? -
1 minuto atrás, Felipe E. Resende Mesquita disse:
Obrigado!
-
1
-
-
1 minuto atrás, Juliomar Marchetti disse:
Sim. se ele estiver na lista dos provedores atendidos pelo componente.
Legal, onde posso ver esta lista?
-
Boa tarde! Alguém poderia me responder, seu fizer um emissor de Nota Fiscal de prestação de serviço, usando o ACBrNFSe, ele pode substituir a emissão de Nota Fiscal de prestação de serviço dos sites das prefeituras?
-
1 minuto atrás, Felipe E. Resende Mesquita disse:
Anexe o arquivo para que possamos analisar.
Momento, acho que encontrei minha cagadinha aqui rs. guenta ai para eu ver se vai dar certo
-
2 minutos atrás, Felipe E. Resende Mesquita disse:
Bom dia, Eleandro fistsoft
Provavelmente esse arquivo contém mais de 240 ou 400 caracteres.
Pior que não, algo muito estranho esta acontecendo! Após eu ler o arquivo e o componente me enviar a msg, ele me zoa o arquivo todo. Se precisar te envio o arquivo
-
Bom dia! Quando leio meu arquivo de retorno me retorna a seguinite mensagem.
Não é um arquivo de Retorno de cobrança CNAB240 ou CNAB400, alguém pode me ajudar? -
Em 01/04/2018 at 20:25, Dercide Alvarez disse:
Boa noite,
É bem tranquilo, vou te passar parte de um código, ai é só implementar e testar.
var Titulo : TACBrTitulo;
begin
NomeArquivoRetorno := FileListBox1.Items.Strings[FileListBox1.ItemIndex];
AcbrBoleto.NomeArqRetorno := NomeArquivoRetorno;
AcbrBoleto.LerRetorno;
//----------------------------------------------------------------------------
for i := 0 to AcbrBoleto.ListadeBoletos.Count -2 do
begin
//--------------------------------------------------------------------------
// Conforme os códigos de ocorrencia você analisa o tipo de ocorrencia : Entrada, baixa, liquidação,,etc..
//
if Copy(AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao, 1, 2) = '06' then
vLiquidacao := True;
MessageDlg('Valor Recebido R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorRecebido)+#13+
'Documento '+ AcbrBoleto.ListadeBoletos.Objects.NumeroDocumento+#13+
'Seu Documento '+ AcbrBoleto.ListadeBoletos.Objects.SeuNumero+#13+
'Carteira '+ AcbrBoleto.ListadeBoletos.Objects.Carteira+#13+
'Nosso Numero '+ AcbrBoleto.ListadeBoletos.Objects.NossoNumero+#13+
'Ocorrencia '+AcbrBoleto.ListadeBoletos.Objects.OcorrenciaOriginal.Descricao+#13+
'Valor Recebido R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorRecebido)+#13+
'Valor Documento R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorDocumento)+#13+
'Valor Juros R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorMoraJuros)+#13+
'Valor Taxa R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorDespesaCobranca)+#13+
'Valor Pago R$ '+ FormatFloat('0.,00', AcbrBoleto.ListadeBoletos.Objects.ValorPago), mtInformation, [mbOK], 0);
end;Bom dia! Copiei seu código e me apresenta o seguinte erro, se puder me ajudar!
-
Em 11/05/2018 at 15:02, Dercide Alvarez disse:
Bom dia! Ok Obrigado
-
3 horas atrás, Eleandro fistsoft disse:
Sim tenho um loop, onde pego todos os titulos que estão nela, e vou gerando um a um. após terminar, chamo a função
Posso te enviar, como preencho minha função, somente a titulos?
Chamo após incluir todos titulos na lista --> dmAcbrBoleto.ACBrBoleto.GerarRemessa(1); isso quando vou gerar remessa. quando vou imprimir segunda via chamo após terminar o loop a função
uGerarRemessa.LayoutImpressaoBoleto(
cbUsarFiltro.ItemIndex, // fFiltro,
cbLayoutBoleto.ItemIndex, // fLayout,
cbNumCopiaImprimir.ItemIndex, // fNumCopias,
cbCorLogoBancos.ItemIndex, // fLogoColoridoPreto: Integer;
cbMostrarPreview.Checked, // fMostrarPreview,
cbMostrarSetup.Checked); // fMostrarSetup: Boolean;dmAcbrBoleto.ACBrBoletoReport.NomeArquivo := GetNomeArquivoImpresso();
dmAcbrBoleto.ACBrBoleto.Imprimir;3 horas atrás, Dercide Alvarez disse:Você criou uma função para gerar o boleto, não sei como você esta chamando com os dados, mas de qualquer forma, veja que cada vez que você executa a função ele cria 1 boleto.
O ideal é você fazer uma Loop e preencher a lista com todos os boletos, ai você terá uma matrix com todos os boletos, e não é o caso que esta acontecendo no momento.
Reveja os teus fontes, acho que o problema estão neles.
Dercide.
Bom parece estar tudo certo, com a Remessa e Impressão dos boletos.
Onde encontro exemplo para iniciar o retorno ACBRBoleto?-
1
-
-
4 minutos atrás, Dercide Alvarez disse:
Você criou uma função para gerar o boleto, não sei como você esta chamando com os dados, mas de qualquer forma, veja que cada vez que você executa a função ele cria 1 boleto.
O ideal é você fazer uma Loop e preencher a lista com todos os boletos, ai você terá uma matrix com todos os boletos, e não é o caso que esta acontecendo no momento.
Reveja os teus fontes, acho que o problema estão neles.
Dercide.
Sim tenho um loop, onde pego todos os titulos que estão nela, e vou gerando um a um. após terminar, chamo a função
Posso te enviar, como preencho minha função, somente a titulos?
Chamo após incluir todos titulos na lista --> dmAcbrBoleto.ACBrBoleto.GerarRemessa(1); isso quando vou gerar remessa. quando vou imprimir segunda via chamo após terminar o loop a função
uGerarRemessa.LayoutImpressaoBoleto(
cbUsarFiltro.ItemIndex, // fFiltro,
cbLayoutBoleto.ItemIndex, // fLayout,
cbNumCopiaImprimir.ItemIndex, // fNumCopias,
cbCorLogoBancos.ItemIndex, // fLogoColoridoPreto: Integer;
cbMostrarPreview.Checked, // fMostrarPreview,
cbMostrarSetup.Checked); // fMostrarSetup: Boolean;dmAcbrBoleto.ACBrBoletoReport.NomeArquivo := GetNomeArquivoImpresso();
dmAcbrBoleto.ACBrBoleto.Imprimir; -
8 minutos atrás, Dercide Alvarez disse:
Segue em anexo minha function que gero as informações dos titulos
-
22 minutos atrás, José M. S. Junior disse:
Bom dia. Quais os campos que você está passando? É possível reproduzir com o DemoACBrBoleto?
Alterei de vTitulo.MultaValorFixo := false; para--> vTitulo.MultaValorFixo := true; agora a multa esta saindo. menos o valor de documento ainda em alguns títulos não saem. quer que eu te passe a maneira que estou preenchendo os campos?
-
3 minutos atrás, José M. S. Junior disse:
Bom dia. Quais os campos que você está passando? É possível reproduzir com o DemoACBrBoleto?
Bom dia! tem alguns boletos, que não sai
Valor do Documento não sai nada
Cobrar Multa de R$ sai 0.00 após o vencimentoprotestar em 5 dias corridos após o vencimento sai certo
cobrar juros de R$ 1.17 por dia de atraso este sai correto -
15 horas atrás, Dercide Alvarez disse:
Reveja a tua rotina que esta populando os boletos, pois nunca vi isso acontecer.
Dercide.
Bom dia! Dercide duro que já conferi de trás para frente. não encontro nada, muito estranho em alguns títulos não imprime nem o valor do documento!
-
Boa tarde! Alguém poderia me ajudar com ACBRBoleto.
Estranho muito estranho, estou fazendo testes, e em algums Boletos não saem o Valor do Documento, nem o Valor da Multa. e em outros saem.
Alguém já teve este tipo de problema? -
2 horas atrás, Dercide Alvarez disse:
vTitulo.TipoDesconto ==> Eu não preencho, isso já deve ter o valor default que deve ser em % ou valor
if FTipoDiasProtesto = 0 then ==> Protestar em dias corridos
Begin
TipoDiasProtesto := diCorridos;
CodigoNegativacao := cnProtestarCorrido;
End
else
Begin
TipoDiasProtesto := diUteis;
CodigoNegativacao := cnProtestarUteis;
end;
Nos meus fontes esta preenchido dessa forma.
CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa
Dercide.
Em meus fontes, para teste de Homologação junto ao banco, estou preenchendo assim, vamos ver se vai validar.
vTitulo.ValorMoraJuros := StrToCurrDef(fValorMoraJuros, 0);
vTitulo.ValorDesconto := StrToCurrDef(fValorDesconto, 0);
vTitulo.ValorAbatimento := StrToCurrDef(fValorAbatimento, 0);
vTitulo.DataMoraJuros := StrToDateDef(fDataMoraJuros, 0);//vTitulo.TipoDiasProtesto
vTitulo.CodigoMora:='1';// "CodigoMora=1" para Valor em R$ / "CodigoMora=2" para Percentual.
vTitulo.CodigoMoraJuros:=cjValorDia; //cjValorDia, cjTaxaMensal, cjIsento
vTitulo.CodigoDesconto:=cdSemDesconto;//cdSemDesconto, cdValorFixo
vTitulo.TipoDesconto := tdNaoConcederDesconto;//(tdNaoConcederDesconto, tdValorFixoAteDataInformada, tdPercentualAteDataInformada);
vTitulo.CodigoNegativacao:=cnProtestarUteis;//(cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar);vTitulo.DataDesconto := StrToDateDef(fDataDesconto, 0);
vTitulo.DataAbatimento := StrToDateDef(fDataAbatimento, 0);
vTitulo.DataProtesto := StrToDateDef(fDataProtesto, 0);
vTitulo.PercentualMulta := StrToCurrDef(fPercentualMulta, 0);-
1
-
-
7 minutos atrás, Dercide Alvarez disse:
Não tenho como analisar o arquivo remessa, senão me engano o Sicoob tem um link para você mesmo validar a remessa.
O ideal é você esperar o retorno e postar as criticas, ai fica mais fácil trabalharmos em cima do problema.
Dercide.
estou preenchendo este campo assim
vTitulo.TipoDesconto := tdPercentualAteDataInformada;//tdValorFixoAteDataInformada;
vTitulo.TipoDiasProtesto:=?
Tem a opção cobrar multas que o banco pede um número também, essas informações que não saem na remessa, nem na impressão
-
2 minutos atrás, Dercide Alvarez disse:
Primeiro você tem que carregar todos os boletos, e depois fazer a impressão.
Você não pode se esquecer de passar o sequencial do nossonumero para cada boleto :
NossoNumero := FNossoNumero; ==> ( deve ser incrementado para cada boleto gerado)
AcbrBoletoImpressao.MostrarPreview := True;
AcbrBoleto.Imprimir;
Dercide.
Posso ter enviar o arquivo de remessa que mandei para o Sicoob e as impressões para vc dar uma olhada?
1 minuto atrás, Eleandro fistsoft disse:Posso ter enviar o arquivo de remessa que mandei para o Sicoob e as impressões para vc dar uma olhada?
estou preenchendo este campo assim
vTitulo.TipoDesconto := tdPercentualAteDataInformada;//tdValorFixoAteDataInformada;
vTitulo.TipoDiasProtesto:=? -
Em 05/05/2018 at 20:24, Dercide Alvarez disse:
Você já olhou o demo ?
Qual a tua dificuldade ? O demo esta bem claro as informações.
Você deverá repetir a rotina para cada boleto a ser gerado.
Titulo := dm.ACBrBoleto.CriarTituloNaLista;
with Titulo do
begin
Vencimento := StrToDate(edtVencimento.Text);
DataDocumento := StrToDate(edtDataDoc.Text);
NumeroDocumento := edtNumeroDoc.Text;
EspecieDoc := edtEspecieDoc.Text;
DataProcessamento := Now;
Carteira := edtCarteira.Text;
NossoNumero := edtNossoNro.Text;
ValorDocumento := StrToCurr(edtValorDoc.Text);
ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
LocalPagamento := edtLocalPag.Text;
ValorMoraJuros := StrToCurrDef(edtMoraJuros.Text, 0);
ValorDesconto := StrToCurrDef(edtValorDesconto.Text, 0);
ValorAbatimento := StrToCurrDef(edtValorAbatimento.Text, 0);
DataMoraJuros := StrToDateDef(edtDataMora.Text, 0);
DataDesconto := StrToDateDef(edtDataDesconto.Text, 0);
DataAbatimento := StrToDateDef(edtDataAbatimento.Text, 0);
DataProtesto := StrToDateDef(edtDataProtesto.Text, 0);
PercentualMulta := StrToCurrDef(edtMulta.Text, 0);
Dercide.
Bom dia! isso fiz idêntico. porém não grava o número no arquivo de remessa, nem imprimi no boleto Aliquota ou valor de desconto, acréscimo, multa etc. Não sei onde informo isso para dar certo
-
Boa tarde! Estou tendo dificuldade para passar valor em alguns campos do ACBRBoleto-
Segue os campos onde não estou conseguindo passar valores para o mesmo
CodigoMora, ValorMoraJuros, DataMoraJuros, DataDesconto, ValorDesconto
Preciso com urgência SICOOB Canab240- Bradesco Canab 400-BRasil CANAB 400-Itau-Canab 400-
Poderia me auxiliar como dou valor, ou como chamo a método? -
6 horas atrás, Wellington Alamino disse:
Vou tentar exemplificar o que o @fernandoschulz tentou te falar,
Acesse ai ...\ACBRNFe2_Trunk2\Fontes\ACBrBoleto\ACBrBancoBancoob.pasAi então você querendo informar algo para o banco tem que ver a procedure GerarRegistroTransacao240( ACBrTitulo: TACBrTitulo)
porque você escolheu cnab240 e é aí que as informações dos títulos são transcritas pro arquivo de remessa que você envia ao banco, um exemplo,
Veja ai que a imagem que você enviou ante mostra caracter 142 até 142 assim como na imagem que te envio acima, assim está claro que no titulo você tem de preencher o TipoDesconto e por ai vai.
Uma dica construtiva, tente seguir a linha de como o componente funciona, rastreando os seu passos.
Att,
Antes de tudo, obrigado pela dica e tentativa de ajuda. Em Momento algum, encontrei no exemplo ACBRBoleto chamada dos campos que pergunto. Se alguem encontrou me mostre.
O que acho incrível deste fórum, é que quem já fez algo, não quer passar a função completa, fica penas faz isso faz aquilo. Segue meu e-mail quando alguém tiver alguma dúvida. [email protected] eu já tenha feito explico como fiz e como funciona, pois ninguém é obrigado a saber tudo. Se alguém souber como faço para dar valor no campo para o AcbrBoleto cobrar, juros, abatimento, ou desconto. se tiver a chamada pronta. Me avisa. Não estou querendo entender estudar código de ninguém, se for para eu fazer isso, crio meu própio componente. Obrigado desde já. Nota que aqui no fórum em vez de ajuda, vc sempre recebe muitas críticas e tiradas. e outra se não querem ajudar não ajudem, não estou aqui pedindo favor e sim solução.
-
25 minutos atrás, Juliomar Marchetti disse:
Bom dia
olhou o exemplo do svn?
Bom dia! Olhei sim, várias vezes e desculpe não consigo encontrar. se puder me ajudar, faz tempo que estou tentando, devido correria as vezes mesmo parando o código não conseguimos encontrar. desculpe por não estar encontrando.
Banco Brasil 400
em ACBrBoleto
Postado
Ok obrigado! Gerei um arquivo, com esta alteração, vamos ver se vai dar certo!