Antonio Gomes

A partir da linha 1657, da unit sicredi: está colocando 1, a menos que o leiaute esteja errado '1' + // 142 a 142 - Código do desconto 1 IfThen(ValorDesconto = 0, '00000000', FormatDateTime('ddmmyyyy', Vencimento)) + // 143 a 150 - Data do desconto 1 IntToStrZero(Round(ValorDesconto * 100), 15) + // 151 a 165 - Valor percentual a ser concedido

para gerar o codigo vc deve informar a DataDesconto e ValorDesconto ambos na hora de montar são analisados se são diferente de zero. Qual banco é?

Para você ver o poder da programação e de um debug.... Explicando: Quando a property abaixo vai receber o numero do doc, se tiver como fisica dá erro, então movi o bloco para antes para ele botar como fisica antes... parece que o default do componente é juridica, por isso não dá erro para maioria das pessoas, que usam só pessoa juridica. Cedente.CNPJCPF := rCNPJCPF; ==> quando isso acontece, o metodo write é acionado, que valida se o documento é valido ou não. então ele tenta validar como jurifica, um cpf.

uai.. isso nao define por onde vc está salvando? Pois gero remessa aqui, e não gera como é o seu. Por acaso apos gerar a remessa, vc mexeu nele?

@José M. S. Junior foi corrigido uma unit com problema ao validar o cpf no retorno pessoa fisica. segue unit para apreciacao. ACBrBancoBancoob.pas

manda um impresso para eu ver.

Cria vc o leiaute e testa, depois envia para o projeto, ajuda você resolver seu problema e ajuda outros... Pega uma unit como base, para não começar do zero. veja uma parecida, copia e cola e vai mudando os campos...

Voce pode criar sua propria impressao ai, e usar o acbrboleto pra gerar os dados. Eu mesmo, tenho minha forma de emissao propria, que contempla 3 modelos de chamdas de impressão. Bastando ler o fr3 e fluir os dados para os campos.. Se precisar de ideia.

falando nisso: tem um relatorio de GNRE no final da tela ? Pois se marca todos, acontece erro ao instalar, eu nao uso fortesreport.. Entao se clicar no botao com X vermelho, e ir marcando um a um, funciona. Parece que voltou com o problema de ficar um escondido no final. esse ACBr_GNREGuiaRL_dpk, porem nao é mostrado na tela

o aceite desse boleto é S? o nosso numero é 10 mesmo ? Qual erro deu ao incluir a remessa no banco?

Melhor coisa que vc faz: desprega o componente da interface, e coloca ele no public, no create do form vc faz o create dele... nunca mais vai aparecer essa mensagem. E se usar fastreport, vai notar que fizemos isso aqui mesmo no aCbr, na unit onde fica o fastreport, ele é instanciado manual, era danado para dar erro a cada versao que era lançado. Sempre aquela de ter removido property que era published que passou ser de outra sessao.

mas isso voce deve olhar no manual do banco, e programar seu sistema pra processar de acordo com o numero que veio... Ex: no meu sistema eu coloquei as ocorrecias que me interessavam em um campo texto separado por virgula, Ex: 05, 06. Se tiver essas, baixo o recebimento. Caso contrário, só fica registrado.

E essa pessoa que ligou para você é do PR mesmo?

bastante semelhança com o banco itau esse banco tá. Se pegar a unit do itau, renomear, dá para ir ajustando. depois anexar ao projeto.

a sua é conta pessoa jurídica ?

Só vc pegar um leiaute de um banco que ja tem, criar de acordo com o manual do seu banco, e então anexar para subirem para o projeto.

@José M. S. Junior @Juliana Tamizou Se for o erro da linha 474 da unit ACBrBancoBancoob é so comentar a linha. Parece que alguem comeu mosca e largou esse trem sobrando lá: // Cedente.Conta := PadLeft(IntToStr(StrToInt(Cedente.Conta)), 7, '0'); Segue unit com comentário.ACBrBancoBancoob.pas Por hora, ocorre erro '' is not a integer value.

Em terra mineiras, não deixam emitir NF-e como MEI, é tirado pela SEFMG. No seu estado, foi permitido um MEI ter IE e ainda habilitar NF-e modelo 55?

Você já criou a unit desse banco? Uma coisa notei, para pessoa física, não a opção no site deles. Certo que deve ser apenas para a conta PRO. Até então, tenho gerado cobranças dos clientes pela opção manual, deposito por boleto.

E voce envia essa remessa para onde?

@Juliana Tamizou segue print da cooperativa da cidade, onde pediram para modificar algumas coisas. Apos eu ter enviado o primeiro arquivo, vi que ainda estava errado a posicao 118. Segmento R, posicao 66, está correto. ACBrBancoBancoob.pas

@Juliana Tamizou segue unit com correcao de acordo com manual mais recente, do registro segmento S. onde pede para colocar as mensagens a partir da coluna 19. Layouts_para_troca_de_informações 31 Out 2017.xls ACBrBancoBancoob.pas

Foi detectado uma soma de string incorreta na impressão do DACTE-e. Segue fonte.ACBrCTeDACTEFR.pas

Não achei um fórum especifico para isso, se tiver, me informe ou mova a mensagem. é valido eu corrigir umas coisas assim e enviar os fontes para vocês mantenedores? Tem coisas, que ao desenvolver, se a pessoa der um simples build all já cata os piolhos... a ordem está do que penso ser pior, para o menos pior... [dcc32 Warning] synautil.pas(2024): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2029): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2062): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2066): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2069): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2072): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2087): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2090): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] ssl_openssl.pas(179): W1000 Symbol 'StrLCopy' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] pnfsNFSeR.pas(1009): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] pnfsNFSeR.pas(2482): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] pnfsNFSeW_Infisc.pas(782): W1037 FOR-Loop variable 'lIndex' may be undefined after loop [dcc32 Warning] pnfsNFSeW_Infisc.pas(785): W1036 Variable 'lIndex' might not have been initialized [dcc32 Warning] pcteCTeR.pas(772): W1036 Variable 'qtdRat_UnidTransp' might not have been initialized [dcc32 Warning] ACBrCTeWebServices.pas(2732): W1036 Variable 'SchemaEventoCTe' might not have been initialized [dcc32 Warning] pmdfeMDFeR.pas(451): W1036 Variable 'qtdRat_UnidTransp' might not have been initialized [dcc32 Warning] ACBrMDFeWebServices.pas(1910): W1036 Variable 'SchemaEventoMDFe' might not have been initialized [dcc32 Hint] synautil.pas(1846): H2077 Value assigned to 'x' never used [dcc32 Hint] ACBrGNRE2.pas(250): H2164 Variable 'lTipoEvento' is declared but never used in 'TACBrGNRE.IdentificaSchema' [dcc32 Hint] ACBrGNREWebServices.pas(443): H2164 Variable 'xUF' is declared but never used in 'TGNRERecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(444): H2164 Variable 'ok' is declared but never used in 'TGNRERecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(545): H2164 Variable 'i' is declared but never used in 'TGNRERetRecepcao.Clear' [dcc32 Hint] ACBrGNREWebServices.pas(545): H2164 Variable 'j' is declared but never used in 'TGNRERetRecepcao.Clear' [dcc32 Hint] ACBrGNREWebServices.pas(618): H2164 Variable 'ok' is declared but never used in 'TGNRERetRecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(721): H2164 Variable 'J' is declared but never used in 'TGNRERetRecepcao.TratarRespostaFinal' [dcc32 Hint] ACBrGNREWebServices.pas(724): H2164 Variable 'SalvarXML' is declared but never used in 'TGNRERetRecepcao.TratarRespostaFinal' [dcc32 Hint] ACBrGNREWebServices.pas(937): H2164 Variable 'ok' is declared but never used in 'TGNRERecibo.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(1086): H2164 Variable 'ok' is declared but never used in 'TGNREConsultaUF.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(100): H2219 Private symbol 'GetLote' declared but never used [dcc32 Hint] ACBrGNREWebServices.pas(101): H2219 Private symbol 'GetRecibo' declared but never used [dcc32 Hint] ACBrGNREWebServices.pas(140): H2219 Private symbol 'GetRecibo' declared but never used [dcc32 Hint] ACBrGNREGuias.pas(314): H2077 Value assigned to 'Guia.LerXML' never used [dcc32 Hint] ACBrGNREGuias.pas(311): H2077 Value assigned to 'Guia.LerXML' never used [dcc32 Hint] ACBrGNREGuias.pas(333): H2077 Value assigned to 'Guia.GravarStream' never used [dcc32 Hint] ACBrGNREGuias.pas(640): H2077 Value assigned to 'TGuias.LoadFromFile' never used [dcc32 Hint] ACBrGNREGuias.pas(669): H2077 Value assigned to 'TGuias.LoadFromStream' never used [dcc32 Hint] ACBrGNREGuias.pas(84): H2219 Private symbol 'ValidarConcatChave' declared but never used [dcc32 Hint] pnfsNFSeW.pas(252): H2077 Value assigned to 'TNFSeWClass.GerarXml' never used [dcc32 Hint] ACBrNFeDANFEFRDM.pas(170): H2219 Private symbol 'Explode' declared but never used [dcc32 Hint] pcteCTeW.pas(108): H2219 Private symbol 'GerarLocColeta' declared but never used [dcc32 Hint] pcteCTeW.pas(118): H2219 Private symbol 'GerarLocEnt' declared but never used [dcc32 Hint] ACBrCTeWebServices.pas(2732): H2077 Value assigned to 'EventoEhValido' never used [dcc32 Hint] ACBrCTeDACTEFR.pas(2671): H2077 Value assigned to 'Child' never used [dcc32 Hint] ACBrMDFeWebServices.pas(1910): H2077 Value assigned to 'EventoEhValido' never used