aocampioni

Olá, Outro detalhe que esqueci de mencionar é que, 10 dígitos com o 82, que é fixo, portanto, eu configuraria o componente dessa maneira: ACBrBoleto.Banco.TipoCobranca := cobCaixaSicob; ACBrBoleto.Banco.Numero := 104; ACBrBoleto.Banco.Digito := 0; ACBrBoleto.Banco.Nome := 'Caixa Economica Federal'; if(StrToInt(txtTamanhoNNum.Text) > 0) then ACBrBoleto.Banco.TamanhoMaximoNossoNum := StrToInt(txtTamanhoNNum.Text) else ACBrBoleto.Banco.TamanhoMaximoNossoNum := 15; Então, defini em txtTamanhoNNum.Text que o tamanho do nosso número é 8 (82NNNNNNNN-D, tiro o 82 que é fixo e o Dv) e usando 8 posições de zeros formato o nosso número e dai forma o nosso número do jeito que você quer. Até mais,

Olá, Boa noite. Bom, eu utilizo aqui de boa. Não sei se o manual que uso é atualizado, mas com certeza a formatação que você apresentou é bastante encontrada na internet. Mas faz o seguinte, porque você não configura utilizando o manual do COBCAIXA (produto em questão) ? Vais notar que as carteiras no cobcaixa, quando rápida (começa com 9) ou simples (começa com 3) tem os 10 benditos dígitos, já na SR começa apenas com 8 e já tem 15 dígitos (16 com o DV). Segue anexo, espero que ajude. Até mais, COBCAIXA_Manual_de_Instalacao_v112013.pdf

Olá, Também estamos ansiosos por novidades. Até mais,

Pessoal, boa noite. Vocês atualizaram a versão do fortes para Xe6 ? Recomendável 3.72b. Até mais,

Estimado, Boa tarde. O complemento hoje, se você usa cnab400, é formado pelo texto fixo 'I' + o último dígito da conta do beneficiário (sem o DV) mais o próprio DV da conta. Exemplo : CONTA CORRENTE:00385487-3 O complemento seria I73. Portanto, verifique as informações de conta e dígito pra ver se não estão incorretas ou se você colocou conta e dígito no campo CONTA e esqueceu de separar em CONTA e CONTADIGITO ou algo do tipo. No mais é isso, Até,

Juliana, Boa noite. O que o colega quer dizer é que, no relatório LayoutBoleto e BoletoCarne tem um campo (logo abaixo do vencimento), na verdade um RLLabel que está escrito "Agência / Código do Cedente" quando na verdade deveria estar escrito "Agência / Código do Beneficiário". Nas minhas alterações aqui também não havia me atentado a isso e deixei passar no relatório ReciboTopo, massss, rsrs, os bancos que homologuei para meus clientes (Caixa e Santander) deixaram passar. Até mais,

Juliana, Boa noite. O que está comentado é o que estava errado. Pode apagar, não apaguei apenas pra vocês visualizarem que estava Instrucao2 ali quando na verdade deveria estar Instrucao1. Só apagar que fica certinho. O comando CarteiraEnvio=tceBanco diz ao sistema que o seguimento S será gerado apenas quando for o BANCO a imprimir os bloquetos, no mais, quando é o beneficiário que imprime este registro de nada vale para o banco, é isso. Até mais,

Juliana, Boa tarde. Em anexo, veja na página 15, onde fala sobre a NOTA 2 contemplando isso para o campo Complemento do Código de Transmissão do Santander cnab400. Ainda sobre o layout novo, pode até ser igual, mas não consigo gerar dois boletos em uma só página com a formatação correta, por isso fiz esse novo (que também tem no CobreBemX que meus clientes usavam, não usarão mais, rsrs, eles nos abandonaram com relação a suporte então abandonei eles..rsrs). Até mais, Layout CNAB 400 com registro novo (padrão 353) Março 2013 v2 00 (4).pdf

Juliana, Bom dia! Só pra justificar as alterações do Santander, não conheço os outros técnicos, mas o que estou homologando juntamente ao banco está me pedindo pra que não mande registro do segmento S se a emissão não for pelo banco e o complemento do código de transmissão foi necessário pois está fixo no arquivo 400 posições e não posso ter isso fixo pois em meus clientes tenho variações, e em uns o complemento vai e em outros não vai. Estou vindo do CobreBemX e já vi isso acontecer. Bom, por enquanto é isso. Até mais,

Juliana, Bom dia! Entendido. Até mais,

Olá, Não trabalho com Bradesco, mas analisando o fonte aqui é assim: 1) Controle do Participante: campo SEUNUMERO do título 2) Condição para emissão : campo ResponEmissao da coleção CEDENTE, se é o cliente emite a propriedade será tbCliEmite, caso seja o banco que emita e processe o registro é tbBancoEmite. Lembrando que se precisar reenviar alguma remessa com este título de novo você deve informar se o banco reemite ou não reemite. 3) Identificação do tipo de inscrição do pagador: campo Pessoa (pFisica, pJuridica) da coleção SACADO (lembrando que só há 01-CPF, 02-CNPJ e 99-OUTROS, não tem 03 e nem 98.) Até mais,

Pessoal, Boa tarde. Bom, não foi eu quem abriu o post, mas como já homologuei, segue arquivo alterado tá ok. Se houver interesse , basta efetuar as modificações no repositório. Um detalhe que poderão perguntar é sobre o código de transmissão. Precisei mudar porque tenho clientes com: Agência, Conta Movimento e Conta Cobrança Velhas e clientes com Agência Velha, Conta Movimento Velha e Conta Cobrança Nova. O detalhe é que na primeira variação o complemento da transmissão deve vir com brancos e o segundo deve respeitar as regras do layout deles 'I' fixo mais último dígito da conta e o próprio dv da conta. Por isso criei um campo Complemento de Transmissão pra isso. Há também mudanças no layout, incluí um modelo lReciboTopo, está no post como existe esta e outras mudanças resolvi postar tudo que fiz até agora no Santander e também na Caixa. Inclui as mudanças do qqqoq. Segue anexo todas as mudanças. (Banco Caixa, homologado e Banco Santander Homologado). Até mais, ACBrBoletoAlt.zip ACBrBoletoAlt.zip

Juliana, Bom dia! Bom, com relação ao LAYOUT, pergunta 1, o cliente quer o mesmo que ele tinha, então, apenas fiz mais um tipo e coloquei como contribuição, se for legal incorporar tudo bem, senão mantenho o meu atualizado com o que vier do repositório. Com relação a pergunta 2, não é bem sobre a formatação do campo nosso número que queria saber. Com relação as demais alterações, no próprio documento encontrado em TOOLS\BANCOS\CAIXAECONOMICA\CNAB__240__SIGCB.pdf (em anexo) no seguimento R diz que, os campos C021,C022 e C023 são números e nesse ponto o técnico da caixa me disse que o campo C022 até poderia deixar com brancos, mas como é número ele me orientou a preencher com zeros também. Lembrando que, para o segmento P onde também tem campos C021, C022 e C023 e isso já é contemplado (os zeros em todos os campos). É isso por enquanto. Segue novamente os layouts atualizados e demais alterações. Até mais, ACBrBoletoFCFortesFr.zip CNAB__240__SIGCB.pdf ACBrBoletoFCFortesFr.zip CNAB__240__SIGCB.pdf

Pessoal, Boa tarde. Duas questões: 1) Como anda a análise das alterações acima ? 2) Como vocês fazem para guardar o nosso número no banco de dados de vocês ? Pergunto isso pelo seguinte, no componente ACBrBoletoFCFortesFr, quando eu comando a impressão sem mostrar o preview tudo bem, tá impresso, mas 99,99 por cento dos meus clientes marcam pra mostrar o preview pra ver na tela primeiro e depois imprimir e o problema é neste ponto, o nosso número é gerado pelo componente, mas se o cliente 'amigo' fecha o preview sem comandar a impressão, eu não poderia gravar o nosso número contido na lista de títulos do acbr pro banco de dados porque nada foi impresso (no cobrebemx tem uma propriedade que detecta se a impressão foi comandada ou não.), correto ! Alguém teria uma sugestão ? Eu tenho uma, mas é necessário testar: Na classe TACBrBoletoFCClass criar uma propriedade ImpressaoRealizada onde na criação e destruição da classe assinalar false e após o AFTERPRINT dos RLREPORTS setá-la como true e tornar essa propriedade PUBLICA dentro de ACBrBoleto. Daí, após um ACBrBoleto.Imprimir eu poderia perguntar If (ACBrBoleto.ImpressaoRealizada) ...? Que lhes parecem ? Até mais,

Juliana, Bom dia. Segue anexo. Outro detalhe é o seguinte Juliana, pra homologar fiz umas pequeninas modificações em ACBrBancoCaixa.Pas onde possui os codigos de desconto 2 e 3 e data do desconto 2 e 3 o banco não aprovou com espacos em branco no seguimento R, tive que por zero tá ok. ....... padR('', 1, '0') + // 18 a 18 - Codigo do Desconto 2 padR('', 8, '0') + // 19 a 26 - Data do Desconto 2 padR('', 15, '0') + // 27 a 41 - Valor/Percentual a ser concedido padR('', 1, '0') + // 42 a 42 - Código do Desconto 3 padR('', 8, '0') + // 43 a 50 - Data do Desconto 3 padR('', 15, '0') + // 51 a 65 - Valor/Percentual a ser concedido Outra coisa, será que vocês podem me dizer como colo o código formatado aqui, rsrs? Na semana que vem vou começar a homologar santander também e dúvidas e alterações vou postando. Obrigado e até mais, Boleto de Cobrança Homologação VIVIMAR-CAERP.pdf

Pessoal, Segue as units alteradas. Se houver interesse por favor atualizem o SVN. Qualquer coisa, vou atualizando elas por aqui. Está zipado porque meu sistema não deixa carregar .frm. ACBRBOLETO.pas ACBrBoletoFCFortesFr.pas ACBrBoletoFCFortesFr.dfm Obrigado. ACBrBoletoFCFortesFr.zip ACBrBoletoFCFortesFr.zip

Pessoal, Boa tarde. Preciso criar a pedido de um cliente um layout que tínhamos quando estava utilizando o CobreBemX, que é um tipo de RECIBO DO PAGADOR COMPACTO pra sair junto com o boleto mas na mesma banda, não sei se me fiz entender (tipo o layout boletocarne, mas com a lateral no topo), rsrs, porque daí dá pra imprimir dois boletos numa folha só, como tínhamos antes. Posso criar esse layout, alterar e enviar ? Também tem uns pequenos ajustes dos layouts já existentes (posicionamento das linhas (pens) e espessura das mesmas). Só subir aqui neste tópico que vocês avaliam certo? Agradecido, Alexandre Oliveira CONSULT ATECH

Desculpem-me voltar neste tópico antigo, mas também tenho interesse em saber qual foi a solução encontrada para que possamos implementar no ACBr! Obrigado.

Olá, boa tarde. Pois é, atualizei meu componente hoje também e parou de funcionar. Talvez o problema seja no método das requisões que que agora tá usando ACBrHTTPReqResp. Com certeza mudou pra melhorar mas a gnre, depois disso, não tá funcionando não. Sei lá se falei besteira, rsrs, mas voltei a versão antiga dos fontes do GNRE, desinstalei e instalei novamente e funcionou. Talvez, no ACBr.Inc, se você descomentar a linha : // descomente abaixo para usar o componente de comunicação SOAP do Delphi ao invés do ACBrHTTPReqResp(Funciona apenas com a versão CAPICOM) - Não é compatível com o Lazarus //-------------------------------------------------------------------------------- //{$DEFINE SoapHTTP} Talvez, e talvez , funcione, mas não fiz o teste. O cliente tava com pressa, é sempre assim. Outra coisa que peço é que, o ambiente de homologação seja corrigido, não é mais www.gnre-h.pe.gov.br e sim www.testegnre.pe.gov.br, daí podemos testar em homologação também. Show de bola, até mais, Alexandre Oliveira CONSULT ATECH

João, Bom dia! Só pra finalizar aqui de nossa parte está resolvido tá ok. Grande abraço e até mais,

Cesar, Bom dia! Estamos enviando normalmente. Quando realizei os testes aqui, fiz dessa maneira: // ... uses ACBrGNRE2, ACBrDFeUtil, ACBrGNREUtil, pgnreGNRERetorno; procedure TForm1.TesteEnvioGnreClick(Sender: TObject); var SL, SLAux: TStringList; Cabec, RepresentacaoNumerica, SituacaoGuia: string; i : Integer; begin ACBrGNRE.Guias.Clear; with ACBrGNRE.Guias.Add.GNRE do begin c01_UfFavorecida := 'MG'; c02_receita := 100099; c28_tipoDocOrigem := 10; c04_docOrigem := '777777'; c06_valorPrincipal := 0.01; c14_dataVencimento := Now+1; c15_convenio := ''; // informo sempre um cnpj e deixo de lado a inscrição If(Length(txtDocto.Text) <= 11) then begin c27_tipoIdentificacaoEmitente := 2; // cpf c34_tipoIdentificacaoDestinatario := 2; end else begin c27_tipoIdentificacaoEmitente := 1; // cnpj c34_tipoIdentificacaoDestinatario := 1; end; // emitente c03_idContribuinteEmitente := txtDocto.Text; c16_razaoSocialEmitente := txtEmpresaTeste.Text; c18_enderecoEmitente := txtEnderecoTeste.Text; c19_municipioEmitente := txtIbgeteste.Text; // cinco ultimos digitos ibge c20_ufEnderecoEmitente := txtUfteste.Text; c21_cepEmitente := txtCepTeste.Text; c22_telefoneEmitente := txtFoneTeste.Text; // destinatario c35_idContribuinteDestinatario := txtDocto.Text; c37_razaoSocialDestinatario := txtEmpresaTeste.Text; c38_municipioDestinatario := txtIbgeteste.Text; // cinco ultimos digitos ibge c33_dataPagamento := Now+1; referencia.mes := '10'; referencia.ano := 2014; camposExtras.Add; camposExtras.Items[0].campoextra.codigo := 45; // minas gerais, ler o manual gnre camposExtras.Items[0].campoextra.tipo := 'T'; camposExtras.Items[0].campoextra.valor := 'EMISSOR DA GNRE PARA A EMPRESA ' + txtEmpresaTeste.Text; end; ACBrGNRE.Guias.Items[0].SaveToFile(''); ACBrGNRE.Enviar; MemoResp.Lines.Text := UTF8Encode(ACBrGNRE.WebServices.Retorno.RetWS); LoadXML(MemoResp, WBResposta); SL := TStringList.Create; SLAux := TStringList.Create; MemoResp.Lines.Add(''); MemoResp.Lines.Add('Envio GNRE'); MemoResp.Lines.Add('ambiente: '+ TpAmbToStr(ACBrGNRE.WebServices.Retorno.ambiente)); MemoResp.Lines.Add('codigo: '+ IntToStr(ACBrGNRE.WebServices.Retorno.codigo)); MemoResp.Lines.Add('descricao: '+ ACBrGNRE.WebServices.Retorno.descricao); MemoResp.Lines.Add('Recibo: '+ ACBrGNRE.WebServices.Retorno.numeroRecibo); MemoResp.Lines.Add('Protocolo: '+ ACBrGNRE.WebServices.Retorno.protocolo); SL.Text := ACBrGNRE.WebServices.Retorno.GNRERetorno.resultado; Cabec := SL.Strings[0]; for i := 0 to SL.Count - 1 do begin if SameText(Copy(SL.Strings, 1, 1), '1') then begin SituacaoGuia := Trim(Copy(SL.Strings, 6, 1)); if SameText(SituacaoGuia, '0') then begin SLAux.Add(Cabec); SLAux.Add(SL.Strings); RepresentacaoNumerica := Copy(SL.Strings, 979, 48); // copiado do ACBRGNREWebServices.pas SLAux.SaveToFile(ACBrGNRE.Configuracoes.Geral.PathSalvar+'\'+RepresentacaoNumerica+'-gnre.txt'); end; end; end; MemoResp.Lines.Add('Arquivo retorno: '+ ACBrGNRE.Configuracoes.Geral.PathSalvar+'\'+RepresentacaoNumerica+'-gnre.txt'); // para impressão da guia ACBrGNRE.Guias.Clear; ACBrGNRE.GuiasRetorno.Clear; ACBrGNRE.GuiasRetorno.LoadFromFile(ACBrGNRE.Configuracoes.Geral.PathSalvar+'\'+RepresentacaoNumerica+'-gnre.txt'); TACBrGNREGuiaFR(ACBrGNRE.GNREGuia).FastFile := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) + 'Report\GNRE_GUIA.fr3' ; ACBrGNRE.GuiasRetorno.Imprimir; end; Detalhe Cesar é que eu comecei sempre enviando por inscrição, como no exemplo, e só me dava dor de cabeça (retornava não cadastrada, faltava informação disso, daquilo..). Um outro colega aqui em minha cidade indicou que é sempre melhor ir por cnpj e identificar os dados do cliente certinho que não dá erro. Então foi o que fizemos, fora isso, dá uma lida no manual da gnre http://www.gnre.pe.gov.br/gnre/portal/GNRE_ManualLote.jsp, veja as regras de cada estado que você tem que enviar e boa. É uma maravilha, imagina se não tivéssemos o ACBr. Boa sorte, até mais,

Olá, Ainda não tinha visto, mas vou verificar tá ok. Até mais,

Olá, Bom dia! Tens razão Juliomar, a gente faz as coisas meio que na pressa e o dia-dia, a rotina, acaba as vezes nos cegando. Mas analisando com calma verifiquei o jeito certo de fazer depois e postei acima. Uma outra coisa legal seria alterar/completar o exemplo, o que acha? // inicio exemplo with ACBrGNRE1.Guias.Add.GNRE do begin c01_UfFavorecida := 'PR'; c02_receita := 100099; c28_tipoDocOrigem := 10; c04_docOrigem := '777777'; c06_valorPrincipal := 1.00; c14_dataVencimento := Now+1; c15_convenio := ''; //descomente abaixo caso deseje utilizar c17_inscricaoEstadualEmitente e não por c27_tipoIdentificacaoEmitente /c34_tipoIdentificacaoDestinatario //neste caso ao tirar o comentario da linha da inscricao, comentar as linhas de identificacao emitente/destinatario abaixo //c17_inscricaoEstadualEmitente := 'xxxxxxxxxxxxxx'; If(Length(<numero_docto_emitente_destinatario>) <= 11) then begin c27_tipoIdentificacaoEmitente := 2; // cpf c34_tipoIdentificacaoDestinatario := 2; end else begin c27_tipoIdentificacaoEmitente := 1; // cnpj c34_tipoIdentificacaoDestinatario := 1; end; // emitente c03_idContribuinteEmitente := <numero_docto_emitente_destinatario>; c16_razaoSocialEmitente := 'NOME DO EMITENTE_DESTINATARIO'; c18_enderecoEmitente := 'RUA DE TESTE, 20'; c19_municipioEmitente := '04007'; //código do ibge sem o código da cidade c20_ufEnderecoEmitente := 'PR'; c21_cepEmitente := '99999999'; c22_telefoneEmitente := '9999999999'; // destinatario c35_idContribuinteDestinatario := <numero_docto_emitente_destinatario>; c37_razaoSocialDestinatario := 'NOME DO EMITENTE_DESTINATARIO'; c38_municipioDestinatario := '04007'; c33_dataPagamento := Now+1; referencia.mes := '10'; referencia.ano := 2014; // caso seja necessario camposExtras.Add; camposExtras.Items[0].campoextra.codigo := 56; camposExtras.Items[0].campoextra.tipo := 'T'; camposExtras.Items[0].campoextra.valor := 'INFORMACOES ADICIONAIS'; camposExtras.Add; camposExtras.Items[1].campoextra.codigo := 57; camposExtras.Items[1].campoextra.tipo := 'T'; camposExtras.Items[1].campoextra.valor := 'INFORMACOES ADICIONAIS 2'; end; { Para orientações de preenchimento, consultar o site: http://www.gnre.pe.gov.br/gnre/portal/GNRE_ManualLote.jspe nas abas DICIONARIO/REGRAS DE PREENCHIMENTO e ANEXOS consultar as instruções relativas ao estado favorecido do imposto que você está pagando. A aba FORMATO DO ARQUIVO fica a cargo do componente. } // fim do exemplo Fora isso pessoal, gostaria de mencionar uma coisa sobre o nome do arquivo texto de retorno para geração da guia, se este, ao invés de ter como base aquela 'relação numérica', não poderia seguir a mesma nomenclatura da NFe seguido no final por -gnre.txt mesmo? Ou será que no retorno, tem como pegar o nome do TXT e eu não estou sabendo como fazer? Por enquanto é só, valew e até mais, obs: E viva o ACBR.....ACBR..tanãnã...ACBR...tanãnã....

Pessoal, Desconsiderem por favor, como não há nenhum exemplo de uso do campo extra, fui testando novamente as combinações e o jeito correto é: camposExtras.Add; camposExtras.Items[0].campoextra.codigo := 45; camposExtras.Items[0].campoextra.tipo := 'T'; camposExtras.Items[0].campoextra.valor := 'XXXXXXXXXXXXXXXX'; É isso, valew e até mais,

Pessoal, Bom dia! Depois de vários testes consegui até gerar uma GNRE, porém, posto pra testes no cliente, o mesmo que vende seus itens para os seus cliente da UF favorecida (somos de SP e vendemos pra MG), necessita que saia na informação complementar o nome dele. Então eu estou tentando fazer: camposExtras.Add.CampoExtra.codigo := 45; camposExtras.Add.CampoExtra.tipo := 'T'; camposExtras.Add.CampoExtra.valor := 'XXXXXXXXXXXXXXXX'; Mas está retornando que o conteúdo do campo TIPO é inválido e que deve conter T,N ou D. Portanto, se alguém puder dar uma dica do que estou fazendo errado, fico grato. Já verifiquei as regras de preenchimento da guia para MG e lá diz que posso preencher campo extra pra receita que selecionei. o Código seria 45, o Tipo seria 'T' e o valor/titulo seria caractere. Até mais,