Fabiano Sehn
-
Total de ítens
12 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Fabiano Sehn
-
-
Bom dia.
Segue anexo, AcbrBoletosCaixa.pas, com dois ajustes solicitados em homologações.
1º Remessa Cnab240, Segmento "P", posição 63 - 73, estava com alinhamento a direita e deve ser esquerda
2º Remessa Cnab240, Segmento "P", posição 196 - 220, estava com alinhamento a direita e deve ser esquerda
Att
Fabiano Sehn
-
Boa tarde pessoal.
Então, Tive que fazer uma ajuste na unit pnfsLerListaNFSe.pas, para adicionar os erros quando fazia a consulta do Lote (ConsultarLoteRps). Não estava populando a classe dos erros.
Feito ajustes e segue em anexo, ajuste feito na linha 704.
Att
Fabiano Sehn
-
Bom dia.
Tive quer fazer um ajuste na importação do retorno da Caixa quando é SICOOB.
Não estava conseguindo ler do arquivo o nosso número. Comentei uma parte da LerRetorno240, onde ele calcula o tamanho do nosso número, e funcionou certinho.
Segue em anexo a Unit para apreciar.
Att Fabiano Sehn
-
Boa tarde pessoal.
Então, tive que implementar a Emissão da NFSe de São Luis (Maranhão). Para isso eu precisei fazer alguns ajustes no ACBr.
Eu vi em outros Tópicos que já estaria funcionado isso.
Meu questionamento é se alguém esta usando o ACBr para emissão da NFSe em São Luis, pois eu não consegui sem fazer esse ajustes?
Lembro que meu ACBr estão atualizado.
Att
Fabiano
-
Bom dia Pessoal.
Com relação ao ISSDsf de São Luis, testei aqui e não esta funcionando. "Esta retornando esse erro Cannot find dispatch method for {http://dsfnet.com.br}enviar".
Se ainda não estiver Ok, posso ajudar.
Fico no aguardo.
Att Fabiano
-
Boa tarde.
Precisei fazer dois ajustes no Arquivo ACBrBoletoFCFR.pas.
Ajuste 1: Conforme manual da Quality Systems do banco Unicred denominado "Manual de validação de boletos para as singulares" sendo do Cnab 400 posições de junho / 2014 (v5), o mesmo cita na página 6 literalmente o texto: "Sacador / Avalista: Preencher o campo com as informações: Nome + Inscrição + Endereço
completo (endereço, bairro, cidade, UF e CEP) do cooperado (Registro detalhe – Pos. 335 a 394)". Esta é uma exigência que caso não seja impressa também no bloqueto, impede a homologação dos boletos da Unicred. Vale ressaltar que a Unicredi usa a estrutura do Bradesco.Sendo assim, consultei o Fórum e percebi que já teve outros membros que relataram a falta do preenchimento dos dados do Avalista e inclusive já fizeram esses ajuste mas não foi atualizado no acbr quando usa o FastReport, assim, copiei o código dos mesmos e postei novamente, pois estava precisando disto.
Ajuste 2: Conforme manual do Bradesco utilizado pela Unicred denominado: "Manual Técnico Bloqueto de cobrança Codigo de Barras" na pagina 10 cita literalmente: "11. USO DO BANCO: Poderá ser impresso o código que identifica se a impressão é efetuada pelo Banco ou pela Empresa, sendo que no caso de impressão pela empresa utilizar "8650".". Cita que quando a impressão é feita pela empresa, deve-se preencher esse campo. Este número não é fixo, dependendo do banco onde esta sendo feita a homologação passar o código para o cliente. O campo refere-se a identificação interna do próprio banco para uso da compensação.
Sendo assim adicionei o Field UsoBanco no ACBrBoletoFCFR.pas.
Segue em anexo o arquivo para apreciação do membros desse fórum.
Att
Fabiano
-
Boa tarde pessoal.
Então, estava olhando o arquivo ACBrBancoCaixaSICOB.pas, e para ser exato na função LerRetorno240. Penso que tem um problema ao ler o nosso número do arquivo.
O problema esta no código abaixo:
with Titulo do
begin
if Copy(Linha,14,1)= 'T' then //segmento T
begin
wCarteira := Copy(Linha, 58, 1);ACBrBanco.TamanhoMaximoNossoNum :=
CalcularTamMaximoNossoNumero(Carteira, '', ACBrBanco.ACBrBoleto.Cedente.Convenio);SeuNumero := copy(Linha,59,11);
NumeroDocumento := copy(Linha,106,25);NossoNumero := Copy(Copy(Linha,47,10), // sem o DV
Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum ,
TamanhoMaximoNossoNum);
OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(copy(Linha,16,2),0));Foi adicionado o CalcularTamMaximoNossoNumero e essa função vai retornar nesse caso sempre ZERO, poque tanto a Carteira quanto nosso número esta indo em branco. Sendo assim numca vai pegar o Nosso Numero do Arquivo.
Comei a linha que calcula CalcularTamMaximoNossoNumero e deixei o tamanho 10. E assim leu certinho o Nosso Número.
A questão é saber qual foi a intenção desse ajuste? Alguém poderia esclarecer por favor.?
Att
Fabiano
-
Bom dia Senhores e Senhoritas.
Então, fiz um ajuste na unit ACBrBancoCaixaSICOB, a mesma tinha uma divergência com relação ao manual nas posições:
224 - Código para baixa/devolução: Não baixar/não devolver: Esta fixo "2" fiz ajuste conforme a unit ACBrBancoCaixa;
225 a 227 - Prazo para baixa/devolução (em dias corridos) fiz ajuste conforme a unit ACBrBancoCaixa;
Fiz esse ajuste baseado nos manuais e os dois tanto o SIGCB e o SICOOB tratam esses dois campos da mesma forma.
Segue em anexo o arquivo.
Muito Obrigado
Fabiano Sehn
-
1
-
-
Boa tarde senhores e senhoritas...
Na função CalcularDigitoVerificador temos o código abaixo,
Modulo.Documento := ACBrTitulo.ACBrBoleto.Cedente.Agencia +
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,2,'0')+
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,5,'0')+
FormatDateTime('yy',ACBrTitulo.DataDocumento) +
'2' +
ACBrTitulo.CodigoGeracao + RightStr(ACBrTitulo.NossoNumero,5);O Byte de geração "2" esta fixo, sendo que o mesmo pode ir de 2 a 9, de acordo com a sequencia de boletos que foi gerada, ou seja, a cada 99.999 boletos emitidos pelo cliente acrescenta um nesse Byte de geração.
No meu caso tenho um cliente que já usa com Byte de geração "3", e vou ter q adaptar isso no componente Acbr. E para não comprometer aqueles que estão funcionando dessa forma, penso em criar uma propriedade para esse campo e com default "2". Que vocês Pensam disso?
Att
Fabiano Sehn
-
Boa tarde senhores e senhoritas...
Na função CalcularDigitoVerificador temos o código abaixo,
Modulo.Documento := ACBrTitulo.ACBrBoleto.Cedente.Agencia +
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,2,'0')+
PadLeft(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,5,'0')+
FormatDateTime('yy',ACBrTitulo.DataDocumento) +
'2' +
ACBrTitulo.CodigoGeracao + RightStr(ACBrTitulo.NossoNumero,5);O Byte de geração "2" esta fixo, sendo que o mesmo pode ir de 2 a 9, de acordo com a sequencia de boletos que foi gerada, ou seja, a cada 99.999 boletos emitidos pelo cliente acrescenta um nesse Byte de geração.
No meu caso tenho um cliente que já usa com Byte de geração "3", e vou ter q adaptar isso no componente Acbr. E para não comprometer aqueles que estão funcionando dessa forma, penso em criar uma propriedade para esse campo e com default "2". Que vocês Pensam disso?
Att
Fabiano Sehn
-
Bom dia Senhores.
Estou migrando para Trunck2 o AcbrNFse da minha aplicação. Estou com uma dúvida no Envio do RPS.
Após enviar o RPS e Ler o XML na Função TratarRetorno, no finally ele esta dando um Free no objeto RetEnvioLote.
Dessa forma se der algum erro no Envio ele limpa esse objeto e não consigo pegar os código de erros retornados pelo provedor.
Tenho duas possíveis soluções.
1 - Não limpar mais esse objeto na função TNFSeEnviarLoteRPS.TratarResposta, ai é feito o ajuste no próprio ACbr
2 - Na minha aplicação chamar o método EnviarLoteRPS.RetEnvLote.LerXml para gerar novamente o retorno.
O que vocês me dizem a respeito.
Muito Obrigado
Fabiano Sehn.
Remessa Sicoob CNAB400 não informa o número da conta
em ACBrBoleto
Postado · Editado por Fabiano Sehn
Bom dia.
Estava verificando isso agora. Também estou com a mesma situação.
O problema é que no Cnab 240 usa para o campo do número da conta 12 posições e no Cnab 400 são 8 posições.
E no SET do campo da conta, replica para 12 posições, já que foi definido como padrão para esse campo o tamanho 12 , e ai que esta o problema.