osvaldobelss
-
Total de ítens
59 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por osvaldobelss
-
-
Bom dia a todos!
Estou homologando o arquivo de remessa da CEF Sicob, cnab 240!
Encontrei alguns erros que vou passar neste tópico para que outras pessoas possam também homologar os seus boletos.
Bom, foi encontrado um erro na quantidade de dias de protesto que já passei em outro fórum e a Juliana vai colocar no código fonte!
Erros:
HEADER DO LOTE
Posição / Descrição / Conteúdo
12-13 / CNAB / Preencher com 00 (zeros)
TRAILER DE ARQUIVO
Posição / Descrição / Conteúdo
24-29 / Qtde registros do arquivo / Entrar com total de linhas no arquivo.
O primeiro erro é fácil já coloquei os '00' mas o erro de trailer de arquivo como poderia resolver, pois no meu aparece o número '2' mas são '6' linhas??
Tem mais 3 erros que passarei quando estes erros forem resolvidos pessoal!!
-
Olá Pessoal! Tive que alterar na unit ACBrCaixaEconomicaSICOB a linha 685 para:
IfThen((DataProtesto > 0) and
(DataProtesto > Vencimento),
FormatFloat('00',DaysBetween(DataProtesto,
Vencimento)),'00') + // 222 a 223 - Prazo para protesto (em dias corridos)
Pois, quando eu coloco uma quantidade de dias de protesto inferior a dois digitos como 5, ele transformava este número para 50, o que torna o código errado.
Gostaria que testassem e colocassem no código fonte original, para eu não ter que ficar mudando a cada atualização do código fonte. Obrigado! =)
-
Então se no campo 'Agência/Código Cedente' só tem que ter o retorno da função MontarCampoCedente, então é só colocar no layout do arquivo 'Boleto.fr3':
[Titulo."CodCedente"]
-
Juliana é o seguinte!
Descobri o erro, mas achei estranho o meu não funcionar e o seu funcionar!!
Vou detalhar o que eu fiz para você analisar:
Em ACBrBoletoFCFR encontrei os seguintes campos:
with DmBoleto.cdsCedente do
FieldByName('CodigoCedente').AsString := Cedente.CodigoCedente;
FieldByName('Agencia').AsString := Cedente.Agencia;
FieldByName('AgenciaDigito').AsString := Cedente.AgenciaDigito;
observei que os valores destes campos acima que adicionei via banco de dados, NÃO foram modificados, como coloquei, ficou.
já nesta linha debaixo foi alterado o CodCedente (do jeito que eu quero)
with DmBoleto.cdsTitulo do
FieldByName('CodCedente').AsString := Banco.MontarCampoCodigoCedente( ListadeBoletos[iFor] );
mas tem um problema, no layout 'Boleto.fr3' aparece no campo 'Agência/Código Cedente' o seguinte código:
[Cedente."Agencia"]-[Cedente."AgenciaDigito"]/[Cedente."CodigoCedente"]
então vai aparecer duas vezes a agência... o certo seria:
[Titulo."CodCedente"]
sei que nos outros bancos não são assim, então poderia contornar com isso:
[iIF( <> '104',-/,)]
mas o código ainda não está completo, pois a condição é para o banco 104 que na verdade são as duas CEF e não só pra SICOB, e não sei qual a diferença.
-
ninguém pra me ajudar ?? =(
-
Então Juliana, eu tinha instalado o componente, 2 meses atrás, como talvez tivesse desatualizado eu desinstalei. Baixei as fontes sábado, peguei os dpk's ACBr_Boleto, ACBr_BoletoFC_FR, ACBrComum e ACBrDiversos e copiei com as suas fontes no release da embarcadero e compilei eles.
Observei que até na função abaixo o Result dele está certo, mas mas na hora de imprimir no Fast não sai igual!
function TACBrCaixaEconomicaSICOB.MontarCampoCodigoCedente (
const ACBrTitulo: TACBrTitulo ) : String;
begin
with ACBrTitulo.ACBrBoleto do
begin
Result := Cedente.Agencia + '.'+
Copy(Cedente.CodigoCedente, Length(Cedente.CodigoCedente)-10,3) +
'.'+ Copy(Cedente.CodigoCedente, Length(Cedente.CodigoCedente)-7,8) +
'-' +CalcularDVCedente(ACBrTitulo,true);
end;
Em a imagem do boleto.
Obrigado pela atenção =)
-
Boa tarde Juliana!
Eu informei o seguinte:
case qTBancoCBC.Value of
104: ACBrBoleto.Banco.TipoCobranca := cobCaixaSicob;
CobCaixaEconomicaSicob é igual a cobCaixaSicob?
-
Bom dia a todos!!
Gostaria de saber se alguém conseguiu homologar os boletos da CEF SICOB, CARTEIRA REGISTRADA RÁPIDA e REMESSA 240?
Baixei 04/08/2012 as fontes do svn, será que estão atualizadas para a homologação?
Meu cliente me passou que o código do convênio é composto por:
aaaa+ooo+cccccccc+d
a = agencia
o = operação
c = convênio
d = dv
E no manual da caixa está: AAAA.870.000XXXXX
No meu sistema coloquei então: ACBrBoleto.Cedente.CodigoCedente := Cedente.Agencia+'870'+qTBancoCONVENIO.Text;
Notei que no campo "Agência/Código Cedente" está 2144/214487000000227 está errado? não saiu nada de pontos e duplicou a agência?
Erro em Arq Remessa CEF Sicob, cnab 240
em ACBrBoleto
Postado
Obrigado lipsort!! vou testar aqui!