Ir para conteúdo
  • Cadastre-se

Pablo Gimenez

Membros
  • Total de ítens

    31
  • Registro em

  • Última visita

Tudo que Pablo Gimenez postou

  1. Boa Dica ,Renato , mais só fiquei na duvida na parte de incluir "IndyProtocols.dcp no projeto ACBr_TCP.bpl".
  2. Bom Dia Jéter. Alterei o fonte do AcbrConsultaCNPJ.pas na parte http para https. Mais ainda não funcionou ainda . Houve outra alteração para ser feita no seu projeto.
  3. Também estou com mesmo erro , mais as vezes funciona , porém com muita lendo . Outras vezes não funcionada . http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao3.asp
  4. Estive fazendo a atualização do pasta raiz do componentes ACBR e vim que houve algumas alterações no arquivo ACBrBancoCaixa.pas Porém alterações no SEGMENTO R , campo 16.3R Valor/Percentual Ser Aplicado , Posição 75 até 89 . Não atender necessidades de cálculos para multa por valor fixo ou por percentagem conforme o código de multa para valor fixo ou Percentual. Atualmente não verificar se o codigomulta é valor "cmValorfoxo" ou "cmPercentual", se calcular é igual para todos. IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0')) + // 75 a 89 - Valor/Percentual Desta forma o calculor é feito diacordo com valor do CodigoMulta e Valorfixo ou Percentual. IfThen((CodigoMulta = cmValorFixo) and (PercentualMulta > 0) , IntToStrZero(round(ValorDocumento * PercentualMulta),15), IfThen((CodigoMulta = cmPercentual) and (PercentualMulta > 0), IntToStrZero(round(PercentualMulta * 100), 15), PadRight('', 15, '0'))) + // 75 a 89 - Valor/Percentual a ser aplicado ficou na aguardo . seguir outro post feito no inicio do ano sobre o assunto. https://www.projetoacbr.com.br/forum/topic/34346-algumas-divergentes-contido-arquivo-de-remessa-com-o-boleto-da-caix/#comment-231758
  5. Bom Dia Alguma definição sobre a function TACBrBancoob.MontarCampoCodigoCedente ( const ACBrTitulo: TACBrTitulo ) : String; Var DigitoCedente : string; begin DigitoCedente := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente; Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia + '/'+ copy(DigitoCedente,1,length(DigitoCedente)-1)+ '-'+ copy(DigitoCedente,length(DigitoCedente),1); end; Algumas meses atrais fez um post com essa alteração para que código de cliente + DV , estivesse separando por hífen . Para atender a homologação do cliente junto ao banco. Pois nas ultimas atualização não foi feito nenhuma alteração . Alguma novidades!
  6. Aqui na empresa devemos o mesmo problema , tivemos que voltar uma versão antes da retirar da capicom , pois teremos que fazer alguma ajustes para essa versão sem CAPICOM, mais como vc apagou a pasta do acbr , vc poder voltar algumas versões , aqui estamos na Nº 13297. pelo repositorio do svn.
  7. Durante a Homologação do layout do boleto do Banco sicoob , para que a impressão boleto do Banco campo Código da Agência/Código Beneficiário. Essa informação vem do Código de Agencia / Código de Cliente-DV, Mais no código do cliente se separa por hífen exemplo : Cod. Agencia/ cod. Cliente-Dv, conferme imagem em anexo. Para isso fiz alteração direto no arquivo do ACBrBancoBancoob.pas function TACBrBancoob.MontarCampoCodigoCedente (const ACBrTitulo: TACBrTitulo ) : String; Var DigitoCedente : string; begin DigitoCedente := ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente; Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia + '/'+ copy(DigitoCedente,1,length(DigitoCedente)-1)+ '-'+ copy(DigitoCedente,length(DigitoCedente),1); Não sei se essa seria melhor forma para realizar essa impressão no boleto.
  8. Então Estou fazendo mesmo mais o banco está retornado erro no nosso número . Estou achando que é problema dos dados informado pelo cliente código de cliente(CodigoCedente) e agencia . Mais obrigado pela dica. Estou também na batalha para homologação junto banco Sicoob.
  9. Bom Dia Evertom , Legal tive o mesmo problema mais informei na aplicação , para sempre informar alguma valor . Desculpe perguntar se que não tem a haver com o assunto mais sim ao Banco SICOOB 756 - Remessa 240, mais em relação ao campo no nosso número do segmeto P vc conseguir o homologar junto a banco Sicoob? Como vc fez na geração do campo ?
  10. Olá pessoal , recebi uma reposta do suporte da caixa informado que esse campo deve ser preenchido por espaço em brancos , pois essa campo é preenchido no retorno do arquivo de remessa para informar qual foi código do banco foi feito o pagamento do boleto.
  11. if Banco.TipoCobranca = cobBancoob then NossoNumero := FormatDateTime('yy', RetornaDataBanco) + PadRight(Trim(FieldByName('nossonumero').AsString), 5, '0') else NossoNumero := FieldByName('nossonumero').AsString; E resultado ficou 1740000 o campo NossoNumero no banco de dados é incrementar + 1 a cada geração remessa e boleto e retorno da função MontarCampoNossoNumero = '1740000-4' e Retorno do Banco foi 3 – Segmento P 38 - 58 Nosso Número é inválido Verificar “Nosso Número” conforme o Manual de Homologação
  12. Pablo Gimenez

    Nosso Número Siccob

    Olá Amigo , Alguém saber como validar a geração do campo Nosso Número Segmento P posição 38-58 do Banco siccob opção CNAB240. Estou com planilha em Excel informado a seguinte regra Nosso Número: - Se emissão a cargo do Sicoob (vide planilha "Capa" deste arquivo): NumTitulo - 10 posições (1 a 10) = Preencher com zeros Parcela - 02 posições (11 a 12) - "01" se parcela única Modalidade - 02 posições (13 a 14) - vide planilha "Capa" deste arquivo Tipo Formulário - 01 posição (15 a 15): "1" -auto-copiativo "3"-auto-envelopável "4"-A4 sem envelopamento "6"-A4 sem envelopamento 3 vias Em branco - 05 posições (16 a 20) - Se emissão a cargo do Beneficiário (vide planilha "Capa" deste arquivo): NumTitulo - 10 posições (1 a 10): Vide planilha "02.Especificações do Boleto" deste arquivo item 3.13 Parcela - 02 posições (11 a 12) - "01" se parcela única Modalidade - 02 posições (13 a 14) - vide planilha "Capa" deste arquivo Tipo Formulário - 01 posição (15 a 15): "1" -auto-copiativo "3"-auto-envelopável "4"-A4 sem envelopamento "6"-A4 sem envelopamento 3 vias Em branco - 05 posições (16 a 20) Não Estou conseguido passa pela homologação do Banco neste campo. No arquivo de remessa.
  13. Desculpa , não fiz alteração no CodigosMultaAceitos , somente na linha aonde era IfThen(ValorMoraJuros > 0, '1', '3') + //118 - Código de juros de mora: Valor por dia Ficou IfThen (ValorMoraJuros > 0, CodigoMora ,'3')+ //118 - Código de juros de mora: Valor por dia
  14. No fonte ACBrBoleto.pas está implementado os CodigoMulta e CodigosMultaAceitos , Mais do fontes ACBrBancoCaixa.pas alterei para recebe o valor do CodigoMulta direto , caso contrario 3 IfThen (ValorMoraJuros > 0, CodigoMora ,'3')+ //118 - Código de juros de mora: Valor por dia Acho que agora não será necessário colocar o valor de zero para CodigoMulta , Conforme linhas abaixo no fontes ACBrBancoCaixa.pas {Multa} if (PercentualMulta > 0) then ADataMulta := IfThen(DataMoraJuros > 0, FormatDateTime('ddmmyyyy', DataMoraJuros), FormatDateTime('ddmmyyyy', Vencimento + 1)) else begin ADataMulta := PadLeft('', 8, '0'); CodigoMulta := '0'; end; Para if (PercentualMulta > 0) then ADataMulta := IfThen(DataMoraJuros > 0, FormatDateTime('ddmmyyyy', DataMoraJuros), FormatDateTime('ddmmyyyy', Vencimento + 1)) else ADataMulta := PadLeft('', 8, '0'); end;
  15. Estou no aguardo do retorno da analise , caso possível ter uma previsão, pois fazem mais de um mês que está em analise. Seguir os arquivos com as alterações finais e implementações. ACBrBancoCaixa.pas ACBrBoleto.pas
  16. Registro Tipo 3 – Segmento Q: Informação do Banco de Pagadores Verifique o preenchimento de zeros na campo 20.3Q não esta sendo feito , mais sim por espaço em branco conforme no fontes abaixo Space(3) + // 210 a 212 - Uso exclusivo FEBRABAN/CNAB Mais o fonte da classe TACBrCaixaEconomica está preenchido somente com espaço Mais esse Registro possui dois tipo de layout um padão para todos e outro exclusivo e Obrigatório para Código de Movimento = 36, 37 ou 38 (Banco de Pagadores) Seguir o campo campo 20.3Q - Nome Banco Correspondente - Cód. Bco. Corresp.na Compensação Posição 210 até 212 - 9(003) Conteúdo - Preencher com zeros; campo exclusivo para troca de arquivos entre bancos Descrição *C031 segundo manual da COBRANÇA BANCÁRIA NO SIGCB – SISTEMA DE GESTÃO DE COBRANÇA BANCÁRIA pag 26 e 27 Seria o caso de fazer uma verificação do Registro tipo 3 - Segmento Q este caso campo 20.3Q e mudar para PadRight('',3,'0')
  17. Entendo a validação do código Mora e fiz as alterações semelhantes no código Multa . Só atribuir o valor fixo da string como '12' o mesmo para código Mora na create da classe TACBrBancoClass na linha 2027 ACBrBoleto.pas
  18. Bom Dia Juliana a propriedade CodigoMulta é utilizada no segmento R para informa que valor da multa é fixo conforme documentação SIGCB_Cobranca_Caixa_Manual_de_Leiaute_CNAB240_SIGCB_outubro_2015.pdf pagina 30 Segmento R A cobrança de multa por atraso no pagamento do título pelo Pagador no campo 14.3R posição 66 dever : ‘0’ (Sem Multa); ou '1' (Valor Fixo); ou '2' (Percentual) Esse Alteração permite que o valor 1 possa ser informado no momento da criação do arquivo de remessa pelo ACBrBancoCaixa.pas . Mais foi do meu jeito a alteração , podendo ter outras formulas de ser feito. qualquer duvidas me avisar
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.