Desenv. AT Info Sistemas

Boa tarde, 
Estou com erro para gerar registros N (16,17,18) no campo Receita.
Para o banco do Brasil campo é Alfa e está dando erro conforme imagem do programa de validação.
Segundo o manual deve ser preenchido com zeros a esquerda.
 


 

Bom dia, 
Nosso técnico verificou e era problema no micro mesmo.
Tudo resolvido.
Obrigado

Oi, 
Tem também configuração nos dados do Boleto, na página 35.
OBS: Para validações no ambiente Sandbox, utilizar os seguintes valores para os campos “cooperativa”, “posto” e “codigoBeneficiario”:
cooperativa : 6789
posto: 03
codigoBeneficiario: 12345
 
Consegui realizar testes e funcionou.
Me passa o caminho do post de configuração.
Muito Obrigado
 

Boa tarde,
Estou tentando ler o arquivo DDA do Banco do Brasil e está retornando o erro abaixo:
Não Foi Possível ler os Registros do Arquivo
Nao Foi Possível ler os registros no arquivo.
'/' is not a valid integer value.
 
Pude identificar que ocorre ao ler a data de gravação que está em branco no retorno.
Nesta  unit "ACBrPagForLerTxt"  falta retirar ou testar se o campo esta com espaços.
 

function TArquivoRClass.LerCampo(const Linha: string; Inicio, Tamanho: Integer;
  Tipo: TTipoCampo): Variant;
var
  ConteudoCampo: string;
  iDecimais: Integer;
begin
  ConteudoCampo := Copy(Trim(Linha), Inicio, Tamanho);
  case Tipo of
    tcStr:
      result := Trim(ConteudoCampo);
    tcDat:
      begin
  ***  Aqui a variavel ConteudoCampo = '          '
  **** ela está com espaços em branco dentro então o    Length  > 0
**** acredito que tem que alterar este teste
        if length(trim(ConteudoCampo)) > 0 then
        begin
          if ConteudoCampo <> '00000000' then
          begin
            ConteudoCampo := Copy(ConteudoCampo, 1, 2) + '/' +
                             Copy(ConteudoCampo, 3, 2) + '/' +
                             Copy(ConteudoCampo, 5, 4);
            result := EncodeDataHora(ConteudoCampo, 'DD/MM/YYYY');
          end
          else
            Result := 0;
        end
        else
          result := 0;
      end;
 
No Aguardo
Obrigado
Adriano Lucas
 
 

Bom dia!
Encontrei um erro no Registro J52 para Itau:
No Manual pede que envie '000' e o Acbr está enviado '_00' com espaço em branco;

 

 
Já Ajustei no fonte, estou enviando.

PagFor.Itau.GravarTxtRemessa.pas
 
 

Bom dia, 
Foi homologado no Sicredi, subi os fontes no outro chamado.

Bom dia !
Atualizamos aqui para o Fast Report 6.1.10 e o DACTE_Ve300.fr3 funcionou perfeitamente, também no tipo complemento. 
Obrigado pela ajuda.
Diogo

Descobri vasculhando nos fontes que fazem a impressão que tem um parametro chamado ImprimirUnQtVlComercial no ACBRNfeDanfeFR, que ao ativar ele imprime a quantidade, unidade e valor comercial e não o tributado, e exatamente isso que eu preciso, obrigado pela ajuda

Fiz a limpa na pasta do SVN e reinstalei tudo, funcionando agora. Vlw