Ir para conteúdo
  • Cadastre-se

trialconsultoria

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Tudo que trialconsultoria postou

  1. Bom dia, Gostaria de saber quando vão sair os videos das palestras do segundo dia do ACBR sei que estão sendo editadas, mas se possível gostaria de saber quanto tempo vai demorar para serem postadas, preciso bastante assistir a palestra dissecando o ACBRBoleto do bruto do delphi.
  2. O erro do fs_sysrtti.pas parou e quase compila, Não conseguir achar algo relevante sobre o erro de "Runtime erro 217", para resolver
  3. Opa ficou melhor, estou tendo um erro ainda mas creio que seja meu fastreport, Estou pesquisando e vi que tem algo a ver com as permissões da pasta, fui na pasta e permissionei gravação e leitura, mas creio que falta algo a fazer no delphi em minhas configurações, estou pesquisando se eu descobrir algo posto logo
  4. Quando abro os arquivos da demo eles vem sem o .exe Quando abro o Delphi Project File com o delphi Ele faz isso porque eu não tenho o fortes report instalado, mas okay, caso eu ignore ele exclui a aba design Caso eu cancele ele deixa a aba Design mas o componente do fortes some, tudo certo porque eu não tenho ele instalado, O triste é isso aqui, quando eu tento colocar uDMFast ele não inclui somente abre o arquivo Eu to bem perdido pra fazer a demo funcionar, no meu projeto já implementei e estou gerando boleto, mas queria poder debugar a demo é mais didático pra min, os componentes funcionam com o fast no meu delphi, só não consegui fazer a demo rodar com o fast
  5. Estou recebendo este erro: [dcc32 Fatal Error] fs_isysrtti.pas(625): F2039 Could not create output file 'C:\Program Files (x86)\FastReport 6 VCL Trial\LIBD25\fs_isysrtti.dcu' Fui até a pasta LIBD25 e dei as permissões mas o erro persiste oque posso fazer? Outro ponto quando abro o projeto da demo meu delphi exclui o componente do fortes, o ACBrBoletoFC continua lá, fiz oque você disse vinculei ao componente do fast infelizmente não roda por conta deste erro acima dai
  6. Estou recebendo este erro: [dcc32 Fatal Error] fs_isysrtti.pas(625): F2039 Could not create output file 'C:\Program Files (x86)\FastReport 6 VCL Trial\LIBD25\fs_isysrtti.dcu' Fui até a pasta LIBD25 e dei as permissões mas o erro persiste oque posso fazer?
  7. Boa tarde achei a rotina e entendi, mas continuo não conseguindo rodar a demo, eu não tenho os componentes do fortes instalados, o delphi exclui os componentes do uDMforte caso eu abra o programa com delphi tokyo 10.2 eu achava que trocava no arquivo Report.inc aqui: E não inclui a uDMfast quando tento manualmente O Único que inclui é o uDMForte, o pas do fast ele não inclui
  8. Eu não entendi como eu faço pra ele guardar cada boleto antes de dar os comandos: ACBrBoleto1.ACBrBoletoFC.NomeArquivo := WebApplication.ApplicationPath + 'wwwroot\RelatoriosPDF\' +xDataRel + '.PDF'; ACBrBoleto1.GerarPDF; No caso eu tenho que gerar cada boleto antes desse comando isso, mas minha dúvida é como preencher sem sobre escrever, se puder me mandar um trecho do código da demo pra eu me achar onde isso esta ocorrendo, estou tendo essa dificuldade por não conseguir debugar a demo, abro um novo tópico pedindo ajuda com o arquivo ini para mudar o report para o fast?
  9. Só pra ver se entendi, de um valor de 1000 vou usar um loop com a quantidade de parcelas e ir gerando boleto a boleto com a opção carne ativada isso?, no caso ele não gera um pdf gera vários ou ele junta tudo quando dou o comando 'ACBrBoleto1.GerarPDF;'?
  10. Tenho olhando e continuo olhando o código da demo, por dificuldades na instalação do componente acabei tendo que não instalar o fortes report e uso o fastreport, o fast funciona para minhas aplicações que usam o componente mas não consigo alterar o arquivo ini de forma correta para a demo funcionar com o fast, Mas minha dúvida é a seguinte, estou gerando o pdf do boleto com valor total mas quero parcelar, alimentei o campo parcela mas creio que não seja o jeito correto também selecionei carne no layou mas aparentemente eu não estou alimentando a variável certa: Mesmo atribuindo '10' para parcela ele não alimenta o campo de setparcela, estou bem perdido mas pesquisando dentro do código do componente, alguém pode me dar uma luz de como parcelar para que o pdf gerado sai com por exemplo uma entrada de valor: 1000,00R$ e saia com 10 boletos de 100,00R$ no mesmo pdf?
  11. Não obtive sucesso recriando o componente, usei um ''Tnomedoform.Create(WebApplication).Show;'' do intraweb após minhas rotinas de geração do boleto recriando o form, isso resolveu meu problema, mas existe algo interferindo no carregamento do componente do intraweb IWmodalWindown, quando se tem o componente acbrboleto e acbrboletofcfr criados a janela vem em branco, aparentemente não carrega o pdf mas tratei esse problema aplicando ''.destroy'' nos componentes acbrboleto e um dando um show no form .
  12. Uso um IWModalWindown componente do Intraweb para exibir meu pdf gerado pelo acbrbolet, existe algum conflito que não permite o modal de carregar o pdf enquanto o acbrboleto está criado, mas quando uso o destroy o modal carrega o pdf, meu problema é que não sei dar o create corretamente no componente acbr preciso de ajuda, tentei da seginte forma sem sucesso ACBrBoleto1.Create(TACBrBoleto); ACBrBoletoFCFR1.Create(TACBrBoletoFCFR); Segue a baixo o trecho do código: xDataRel := WebApplication.AppID + FormatDateTime('yyyymmddhhmmsszzz', Now); ACBrBoleto1.ACBrBoletoFC.NomeArquivo := WebApplication.ApplicationPath + 'wwwroot\RelatoriosPDF\' +xDataRel + '.PDF'; ACBrBoleto1.GerarPDF; ACBrBoleto1.Destroy; ACBrBoletoFCFR1.Destroy; with IWModalWindow1 do begin Reset; Autosize := False; Title := 'Visualizando o PDF do Relatório'; Draggable := False; WindowWidth := 95; WindowHeight := 95; Src := '../../../RelatoriosPDF/' + xDataRel + '.PDF'; OnAsyncClick := nil; Show; end;
  13. Resolvido Obrigado pelas respostas, surgiu uma dúvida diferente vou abrir outro tópico abraço.
  14. O erro pode ser ignorado caso execute a chamada da função imprimir uma segunda vez posteriormente o fastreport abre com os boletos, o erro de timers engana pois não tenho Ttimer nesse form e dentro da aplicação somente dois formes alheios tem um Ttimer cada e como no, post http://www.delphigroups.info/2/35/440863.html sitam que o erro pode nos fazer pensar que é somente o limite de Ttimers, mas para conhecimento a linha que da problema é essa aqui: "frxReport.ShowReport(false);" debugando cheguei nela Mas achei uma forma diferente de fazer oque eu quero na aplicação, eu preciso gerar o pdf e salvar em um pasta diretamente via código teria como me dar um exemplo?
  15. Boa tarde, Estou tendo dificuldades para gerar boleto, estou recebendo o erro "Not enough timers available", logo após a chamada de "ACBrBoleto1.Imprimir" Debuguei o ACBRBoleto.pas mas não identifiquei o momento da falha, o debug passa por duas funções após a chamada de "Imprimir" dentro delas não ocorre parada Logo que finaliza ele retorna esse erro: Segue a baixo o código de tentativa de impressão: procedure TFrmBoletos.IMPRIMIRClick(Sender: TObject); var Titulo : TACBrTitulo; begin Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := Now; DataDocumento := Now; NumeroDocumento := '123'; EspecieDoc := '1234'; if 'SIM' = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NossoNumero := '1245'; Carteira := '12456'; ValorDocumento := 1.40; Sacado.NomeSacado := '12456'; Sacado.CNPJCPF := '12456'; Sacado.Logradouro := '12456'; Sacado.Numero := '12456'; Sacado.Bairro := '12456'; Sacado.Cidade := '12456'; Sacado.UF := '12456'; Sacado.CEP := '12456'; ValorAbatimento := 0; LocalPagamento := '12456'; ValorMoraJuros := 0; ValorDesconto := 0; ValorAbatimento := 0; DataMoraJuros := 0; DataDesconto := 0; DataAbatimento := 0; DataProtesto := Now; PercentualMulta := 0; Mensagem.Text := '12456'; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := '12456'; Instrucao2 := '12456'; Parcela := 1; end; // grava o nosso numero na conta // Atualiza a consulta ACBrBoleto1.ACBrBoletoFC.DirLogo := 'C:\Users\Trial\Desktop\B.Texte\LogoColorido'; ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; ACBrBoleto1.ACBrBoletoFC.LayOut := lPadrao; ACBrBoleto1.Banco.Digito := 123456; ACBrBoleto1.Banco.Numero := 12345; ACBrBoleto1.Cedente.Nome := 'Fulano'; ACBrBoleto1.Cedente.CodigoCedente := 'Fulanoteste'; ACBrBoleto1.Cedente.Agencia := 'Fulanoteste'; ACBrBoleto1.Cedente.AgenciaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.Conta := 'Fulanoteste'; ACBrBoleto1.Cedente.ContaDigito := 'Fulanoteste'; ACBrBoleto1.Cedente.UF := 'Fulanoteste'; ACBrBoleto1.NomeArqRemessa := 'TESTE'; ACBrBoleto1.Imprimir; end;
×
×
  • 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.