Bruno Cezar Arcanjo Braga

Ao tentar importar o arquivo no validador do EFD Contribuições, recebo o erro informando que a versão esperada é a 006 e que a atual gerada é 004. Alterei manualmente a versão no arquivo e este foi tratado com sucesso. Meus fontes estão atualizados. O que pode fazer? Obrigado.

Tem também o fato de que, pelo menos os que recebo, não cadastrei senha, então a senha é meu CPF ou parte dele.

Obrigado a ambos.

Qual a possibilidade desse código (ou similar) ser incluído no componente?

Evitar fraudes. Grandes empresas estão usando, como operadoras de telefonia, montadoras de veículos, entre outras. Com a senha, o cliente só pagará o boleto caso tenha em mãos a senha de abertura do PDF. Desta forma, seria impossível ao cliente pagar um boleto fraudulento. Uma vez que, caso ele receba um boleto sem a senha de abertura, poderá não efetuar o pagamento sem acionar o emissor.

Alguma forma simples de inserir senha no arquivo PDF gerado via Fast Report? Se não, alguma possibilidade de inserirmos, por exemplo, uma propriedade para armazenar a senha em TACBrBoletoFCFR? Obrigado.

Muitíssimo obrigado a todos. Vou atualizar a unit aqui e usar a função, Daniel.

Pois é Daniel. Voltei as referidas funções a seus estados originais, para mais testes. VL_REC_ACUM := qryAuxiliar.FieldByName('valor_pago_anterior').AsFloat; VL_TOT_REC := qryAuxiliar.FieldByName('valor_pago_mes').AsFloat; Estou adicionando os valores conforme acima e o componente TACBrSPEDPisCofins está com as configurações padrão. No sistema operacional utilizo vírgula como separador decimal, mas no banco de dados utilizo ponto, logo, no software também utilizo ponto. Vou criar uma rotina que abra o arquivo gerado e substitua ponto por vírgula, nos registros necessários. Assim evito ter uma versão paralela do ACBr. Juliomar, no exemplo do ACBr gera certinho. Obrigado.

Eu também gerava corretamente até atualizar o ACBr. O exemplo do SVN gerou sem a mesnagem. O que mais me causa estranheza, é que se eu comentar a validação if FDT_INI = 0 then, a rotina segue corretamente e valida sem problemas FACBrTXT.Check(DayOf(FDT_INI) = 1, 'CHECAGEM INICIAL: A data inicial deve ' + 'corresponder ao primeiro dia do mês informado!');. O que indica que FDT_INI tem uma data correta. Vou analisar mais um pouco e ver o que consigo. Obrigado. Apenas para registro, encontrei esse erro ao abrir o exemplo:

Na unit ACBrTXTClass, alterei as funções "function TACBrTXTClass.LFill(" e "function TACBrTXTClass.DFill(", inserindo Result := ReplaceStr(Result, '.', ','); Da forma que estava, dava erro na validação do programa da Receita. |F200|01|02|JARDIM GRAMADO (MARIA DILCE)|QUADRA 02 LOTE 33|233|68698208568|21012009|73499.53|67486.10|542.83|01|542.83|0.0000|0.00|01|542.83|0.0000|0.00|92.56|4|| |F205|0.00|0.00|0.00|0.00|0.00|01|0.0000|0.00|0.00|0.00|0.00|01|0.0000|0.00|0.00|0.00|0.00| Alguma sugestão? Obrigado.

Comentei as linhas 420, 421, 423 e 424 na unit ACBrSpedPisCofins e o arquivo foi gerado corretamente e validado no programa da Receita. // if FDT_INI = 0 then // raise Exception.Create(ACBrStr('Informe a data inicial das informações contidas no arquivo!')); // if FDT_FIN = 0 then // raise Exception.Create(ACBrStr('Informe a data final das informações contidas no arquivo!')); Seria um bug? Detalhe é que aqui validou corretamente: FACBrTXT.Check(DayOf(FDT_INI) = 1, 'CHECAGEM INICIAL: A data inicial deve ' + 'corresponder ao primeiro dia do mês informado!'); Utilizo Delphi 2007. Obrigado.

Olá. Estou tentando gerar o arquivo para SPED e estou encontrando a seguinte mensagem: Informe a data inicial das informações contidas no arquivo! Porém, creio que estou passando os valores corretamente. with SPED.Bloco_0 do begin with Registro0000New do begin COD_VER := vlVersao202; if rbOriginal.Checked then TIPO_ESCRIT := tpEscrOriginal else TIPO_ESCRIT := tpEscrRetificadora; IND_SIT_ESP := indNenhum; DT_INI := StrToDate('01/' + EditDataBase.Text); DT_FIN := EndOfTheMonth(StrToDate('01/' + EditDataBase.Text)); Atualizei o ACBr hoje e depois disso não consegui mais gerar o arquivo. Obrigado.

Olá. Estou tentando gerar o arquivo para SPED e estou encontrando a seguinte mensagem: Informe a data inicial das informações contidas no arquivo! Porém, creio que estou passando os valores corretamente. with SPED.Bloco_0 do begin with Registro0000New do begin COD_VER := vlVersao202; if rbOriginal.Checked then TIPO_ESCRIT := tpEscrOriginal else TIPO_ESCRIT := tpEscrRetificadora; IND_SIT_ESP := indNenhum; DT_INI := StrToDate('01/' + EditDataBase.Text); DT_FIN := EndOfTheMonth(StrToDate('01/' + EditDataBase.Text)); Atualizei o ACBr hoje e depois disso não consegui mais gerar o arquivo. Obrigado.

Valeu demais. Vou fazer algo parecido.

Bom dia. Preciso que no boleto sejam emitidos todos os lançamentos que compõem o valor, conforme anexo. Para isso, tenho duas questões: Alguém tem um modelo parecido, em FR3? Como passar os lançamentos (descrição e valor) ao ACBr? Obrigado.