Antonio Gomes

o que divergiu? cole a linha digitavel e o codigo de barras... assim pode obter ajuda.

não. é o banco 756-0 ? ja tem pronto. é cooperativa?

Centralize isso em uma unit, e instancie-os ao usar, tive que fazer isso no meu sistema também. Parece que um atrapalhava o outro.

@Juliomar Marchetti falta subir algo do DACTE em fastReport? Um post meu reportando um erro.

Ao executar o instalador dos pacotes, ao marcar o DACTE FastReport, ocorre o problema na linha: FieldByName('cInfManu').AsInteger := aereo.natCarga.cinfManu; Isso porque cinfmanu agora virou collection. Unit: ACBrCTeDACTEFR Linha: 2423 Alguém deve estar modificando, se não estiver, mantenedor: Informe se posso mexer.

tem uma gambia a fazer antes.. ACBrBoleto1.LeCedenteRetorno := false; Para processar meu retorno vindo do Itau, em que tenho a conta fisica e vem errado no retorno como se fosse pessoa juridica, faço a treta abaixo: E antes de passar para o componente o arquivo de retorno, voce abre ele em um tstringlist (exemplo: LS.LoadfromFile() ) e faça: se (Copy(LS[0], 1, 19) = '02RETORNO01COBRANCA') or (Copy(LS[0], 1, 19) = '02RETORNO01COBRANÇA'); // SICOOB VEM COM CEDILHA e se a posicao 1 do arquivo for igual a '1' e a posicao 2 até 3 for = 02, mude a posicao 3 por 1 O que vai ser feito é mudar a posicao 2 e 3 de '02' para '01'

Antes de gerar o arquivo, algumas variaveis devem ser preenchidas. Segue exemplo: class procedure TFuncBoleto.ConfigurarTipoCobranca( ADataSetConfigServicoBanco: TDataSet; ACedenteEndereco, ACedenteNumeroEnd, ACedenteBairro, ACedenteCidade, ACedenteUF, ACedenteCEP, ACedenteTelefone: string; var AACBrBoleto: TACBrBoleto); var AResponsavelPelaEmissao: TACBrResponEmissao; ATipoCarteira : TACBrTipoCarteira; ATipoDocumento : TACBrTipoDocumento; ATipoInscricaoPessoa : TACBrPessoaCedente; begin Case ADataSetConfigServicoBanco.FieldByName('TIPOEMISSAOBOLETO_SER').AsInteger of 2: AResponsavelPelaEmissao := tbCliEmite; 1: AResponsavelPelaEmissao := tbBancoEmite; 3: AResponsavelPelaEmissao := tbBancoReemite; 4: AResponsavelPelaEmissao := tbBancoNaoReemite; else AResponsavelPelaEmissao := tbCliEmite; end; case ADataSetConfigServicoBanco.FieldByName('TIPO_CARTEIRA_SER').AsInteger of 1: ATipoCarteira := tctSimples; 2: ATipoCarteira := tctRegistrada; 3: ATipoCarteira := tctEletronica; else ATipoCarteira := tctSimples; end; if ADataSetConfigServicoBanco.FieldByName('ESCRITURAL_TRADICIONAL_SER').AsString = 'E' then ATipoDocumento := Escritural else ATipoDocumento := Tradicional; if Length(ADataSetConfigServicoBanco.FieldByName('CNPJ_CPF_CCR').AsString) > 11 then ATipoInscricaoPessoa := pJuridica // pFisica..pJuridica else ATipoInscricaoPessoa := pFisica; with AACBrBoleto do begin Banco.TipoCobranca := cobNenhum; case ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsInteger of 1: Banco.TipoCobranca := cobBancoDoBrasil; { 001 } 4: Banco.TipoCobranca := cobBancoDoNordeste; { 004 } 21: Banco.TipoCobranca := cobBanestes; { 021 } 33, 353, 8: Banco.TipoCobranca := cobSantander; { 033,353,008 } 41: Banco.TipoCobranca := cobBanrisul; { 041 } 70: Banco.TipoCobranca := cobBRB; { 070 } 85: Banco.TipoCobranca := cobBancoCECRED; { 085 } 104: begin if ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger = 1 then Banco.TipoCobranca := cobCaixaSicob { 104 } else Banco.TipoCobranca := cobCaixaEconomica; { 104 } end; 237: begin case ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger of 2: Banco.TipoCobranca := cobBradescoSICOOB; { 237 } 3: Banco.TipoCobranca := cobBicBanco; { 237 } 4: Banco.TipoCobranca := cobSafraBradesco; { 422 + 237 } else Banco.TipoCobranca := cobBradesco; { 237 } end; end; 341: Banco.TipoCobranca := cobItau; { 341 } 389: Banco.TipoCobranca := cobBancoMercantil; { 389 } 748: Banco.TipoCobranca := cobSicred; { 748 } 756: Banco.TipoCobranca := cobBancoob; { 756 } 399: Banco.TipoCobranca := cobHSBC; { 399 } 422: begin if ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger = 4 then Banco.TipoCobranca := cobSafraBradesco { 422 + 237 } else Banco.TipoCobranca := cobBancoSafra; { 422 } end; else raise Exception.Create('Código de banco não suportado: ' + ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsString); end; Cedente.ResponEmissao := AResponsavelPelaEmissao; // tbCliEmite; // tbCliEmite,tbBancoEmite,tbBancoReemite,tbBancoNaoReemite Cedente.TipoCarteira := ATipoCarteira; // tctRegistrada; // , tctEletronica //tctSimples, tctRegistrada, tctEletronica Cedente.TipoDocumento := ATipoDocumento; // Tradicional; // Cedente.TipoInscricao := ATipoInscricaoPessoa; // pJuridica; // pFisica ou pJuridica Cedente.Nome := ADataSetConfigServicoBanco.FieldByName('CEDENTE_NOME_CCR').AsString; Cedente.Logradouro := ACedenteEndereco; Cedente.NumeroRes := ACedenteNumeroEnd; Cedente.CNPJCPF := ADataSetConfigServicoBanco.FieldByName('CNPJ_CPF_CCR').AsString; Cedente.Cidade := ACedenteCidade; Cedente.Bairro := ACedenteBairro; Cedente.CEP := ACedenteCEP; Cedente.UF := ACedenteUF; Cedente.Telefone := ACedenteTelefone; Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); if ADataSetConfigServicoBanco.FieldByName('LEIAUTE_SER').AsInteger = 1 then LayoutRemessa := c240 else LayoutRemessa := c400; Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); Cedente.Convenio := ADataSetConfigServicoBanco.FieldByName('NUM_CONTRATO_SER').AsString; end; end;

Sim, é isso que voce entendeu mesmo, vou mexer e enviar.

procedimentos desse jeito, com 2 results, ocorrem demais de dar hint no delphi ao dar build all... function Guia.LerXML(AXML: AnsiString): Boolean; begin Result := False; FGNRER.Leitor.Arquivo := AXML; Result := FGNRER.LerXML; XMLOriginal := string(AXML); Result := True; end; Pode-se corrigir isso e mandar? é chato ficar olhando um hint desse nivel.

sugestao de gravar sem formatar, pois na 2a via vai precisar atribuir para o componente o mesmo nosso numero.. e for formatado, tem que ficar separando.

Engraçado, essa posicao que mexeu, nao seria para arquivo de remessa? é sigcb que voce seguiu?

Crie o seu arquivo fr3 para homologar, depois vc pode voltar para o modelo que tem no pacote. eu mesmo uso meu fr3 criado por mim bem antes de o componente ter suporte ao fastreport.

Isso é um boleto? Pois o acbr é programado apenas para trabalhar com arquivos cnab400 e cnab240. O manual desse arquivo é de que tipo?

Alguém que esteja desenvolvendo a guia para o estado de SP ? Pergunto isso para trocar ideias, estou na luta tentando interpretar o link https://www.fazenda.sp.gov.br/guiasinternet/gare/paginas/lote.aspx por meio do arquivo xml de lote. Embora a sef sp tenha me falado que esse link não funciona. Estou carregando no webbrowser, e preenchendo os campos e forçando o submit. O problema está em atribuir o campo inputArquivo, que é um type = file, que só anexa o arquivo por meio de clique do botão "Selecionar Arquivo".

percentual ou valor ? dependendo do caso, tem que multiplicar para chegar no numero de decimais que eles pedem.

pedir para o usuario para por esses caracteres. os bancos ainda nao tem inteligencia para dominá-los.

isso nao é erro da ocorrencia de entrada? A de registrar o titulo? Confere na posicao se está gerando o codigo da ocorrencia correta. pega o manual do cnab240 e veja se esta certo as posicoes dentro do txt.

bancoob, do bradesco é outra coisa - dentro do arquivo bancoob vai ver o numero do banco = 756 - que é esse.

uai. Eu peguei a cnab400 mais fácil de implementar. Carteira 1/01 - registrada

ja suporta sim, faça a pre homologacao, gere o arquivo e manda pro banco. de longe o mais fácil para homologar, com uns 2 dias tudo ok.

Eu teria deixado errado para o usuario consertar. Estou com um perrengue com remessa do sicoob devolvendo pq no sistema o usuario deixa por o cpf.. com isso chega la e devolve.. nao sei se com cep sera igual... Fazer o usuario digitar as coisas certas pode ser melhor que implantar um ajustador forçado.

Desconheco tal funcionalidade para o cliente que for pagar o boleto gerar a remessa, geralmente o cedente/beneficiario que envia a remessa. se for sicoob, envia direto de 30 min cai na central deles (pelo sicoobnet), com isso apos emitir um boleto, ainda pode aguardar uns 30 min e ja pode pagar. Demais bancos nao sei se tem isso.

@osvaldobelss geralmente o valor do desconto é dado condicionado a uma data limite, tipo, até tal dia pode conceder o desconto. Essa data é você que programa, e quanto ao valor, depende do banco como disse o colega acima. Alguns aceitam valor outros percentual.

Não! Tanto que peguei a mesma unit do usuario @andreiluis, sinto que corrigi alguns pormenores. gerei o arquivo e passei no validador da caixa, enviado para a agencia daqui da minha cidade para homologar.