Ir para conteúdo
  • Cadastre-se

Flávio Machado

Membros
  • Total de ítens

    56
  • Registro em

  • Última visita

Tudo que Flávio Machado postou

  1. ja to consiguindo imprimir mais o logo não aparece de jeito nenhum tem tei direto ate com arquivos ini e nada me codigo var dadosINI: TIniFile; begin dadosINI := TIniFile.Create(ExtractFilePath(Application.ExeName) + '\Boleto.ini'); ACBrBoleto1.ACBrBoletoFC.DirLogo := DadosINI.ReadString('LogoBoleto', 'Caminho', '');
  2. Flávio Machado

    Erro Ao Imprimir

    Galera quando tento imprimir um boleto meu ACBrBoletoFCFR, aparece essa message ''caminho do arquivo de impressão do boleto não assinalado'' não sei como tratar isso alguém poderia me dar uma dica
  3. Boa noite sr(a) to com erro aqui e não consigo resolver queria muito ajuda de vcs uso delphi xe2 , o meu problema é quando tento imprimir um boleto com fastreport o erro é tipo algo com o caminha da pasta não foi informado ou algo assim já tentei tudo aqui e nada e não achei tópicos sobre isso!?
  4. Bom dia Senhores(as), Acabei de termina meu programa de emitir boleto só ta faltando alguns ajustes alguém poderia me dizer se este meu código ainda ler o arquivo retorno ou preciso fazer mais validações , ficaria muito grato ... segue o código : var I : Integer; begin if OpenDialog1.Execute then begin //configurar banco ConfiguraComponenteACBr; // ACBrBoleto1.NomeArqRetorno := OpenDialog1.FileName; ACBrBoleto1.LerRetorno; for I := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do begin if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then begin // grava a quitaçã da conta SQLAux.Close; SQLAux.SQL.Clear; SQLAux.SQL.Add('UPDATE PESCADOR SET'); SQLAux.SQL.Add('PESCADOR.DATA_QUIT = :pData,'); SQLAux.SQL.Add('PESCADOR.VALOR_QUITATO = :pValor'); SQLAux.SQL.Add('WHERE PESCADOR.NOSSO_NUMERO = :pNossoNum'); SQLAux.Params.ParamByName('pData').AsDate := ACBrBoleto1.ListadeBoletos.Objects.DataBaixa; SQLAux.Params.ParamByName('pValor').AsFloat := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido; SQLAux.Params.ParamByName('pNossoNum').AsInteger := StrToInt(ACBrBoleto1.ListadeBoletos.Objects.NossoNumero); SQLAux.ExecSQL; end; end; end; end;
  5. O arquivo retorno vai indicar se esta pago ou não pago ou vou ter que fazer códigos para isso na verdade essa é minha duvida !? vlw pela colaboração ^^ *Grato...
  6. Bem galera sou novo aqui no acbr ... meu caso é o seguinte ... já tenho o programa para emitir os boletos ... eu queria saber se há algum jeito de quando o cliente pagar esse boleto o meu sistema vai me informa quele esta pago ou vou ter que verificar isso? queria também jogar essas informações em um dbgrid tipo se está ''pago ou não pago'' to com duvida nesse requisito !!!???? toda ajuda é bem vinda !
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...