Pablo Gimenez

Boa Dica ,Renato , mais só fiquei na duvida na parte de incluir "IndyProtocols.dcp no projeto ACBr_TCP.bpl".

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.

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

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

está tudo ai .

já mando.

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!

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.

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.

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.

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 ?

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.

vou verificar essa informações .

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

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.