Delphi/Lazarus, FastReport, ACBr, Programação em Geral

Ola pessoal, vamos para mais uma dica. Quando vamos reinstalar o ACBr, às vezes precisamos apagar os arquivos da instalação anterior, e para isso recorremos ao arquivo apagarACBr.bat. Esse comando funciona, porem é muito lento. Aqui vou apresentar uma solução que localiza os arquivos na velocidade da luz. 1. Instale o Everything: www.voidtools.com 2. Abra o arquivo apagarACBr.bat em um editor de textos, e copie a lista de arquivos a serem apagados. Substitua os espaços por uma barra horizontal (|). A lista pronta esta logo abaixo: ACBr*.bpl|ACBr*.dcp|ACBr*.dcu|PCN*.bpl|PCN*.dcp|PCN*.dcu|SYNA*.bpl|SYNA*.dcp|SYNA*.dcu|pnfs*.dcu|pcte*.bpl|pcte*.dcp|pcte*.dcu|pmdfe*.bpl|pmdfe*.dcp|pmdfe*.dcu|pgnre*.dcp|pgnre*.bpl|pces*.bpl|pgnre*.dcu|pces*.dcp|pces*.dcu|pca*.dcp|pca*.dcu 3. Abra o Everything e cole essa lista no campo de pesquisa 4. Agora só selecionar os arquivos e excluir

Pra quem precisa de um modelo de relatório com cantos arredondados, ai tem um exemplo (basta remover o texto: LABEL: Color: clWhite - Borda Esquerda/Direita ) Link pra download do fr3: https://drive.google.com/file/d/1uyLaMxSVo4ew_lOFPM757JaCXfo3U-Zu/view?usp=sharing

Olá pessoal, neste post vou apresentar o componente JKGenFastRep, desenvolvido por mim, pra gerar relatórios no FastReport, usando um DBGrid como base. O código usado pra gerar o relatório é este logo abaixo JKGenFastRep1.FastReport := frxReport1; JKGenFastRep1.AddArquivoFR3(ExtractFilePath(ParamStr(0)) +  'Exemplo1.fr3'); JKGenFastRep1.Grid := DBGrid1; JKGenFastRep1.SelecionaColunas; JKGenFastRep1.AddVariaveis('titulo1','GERADOR DE RELATÓRIOS PARA FAST REPORT'); JKGenFastRep1.AddVariaveis('titulo2','Joemil Cássio - Sinop-MT - Nov/2019'); JKGenFastRep1.AddVariaveis('titulo3','RELATÓRIO COM AGRUPADORES E TOTALIZADORES'); // GRUPOS //JKGenFastRep1.AddGrupo('Nome', 'nome'); JKGenFastRep1.AddGrupo('Vencim.:', 'vencimento'); // TOTALIZADORES JKGenFastRep1.Totalizadores := 'valor,valorpago'; // IMAGENS JKGenFastRep1.AddImagens('Picture1', ExtractFilePath(ParamStr(0))+'Abacus.png...

Olá galera, neste post vou adicionando varios links que vou coletando pela internet, pq ate eu to me perdendo neles kakaka . Object Pascal Programming https://objectpascalprogramming.com/ . Abrir Arquivo com mais de 2Gb http://theclub.com.br/Restrito/Revistas/201505/novo1505.aspx

função para gerar um InputQuery, porém, ao invés de usar um TEdit, é usado um TMemo function InputMemo(ACaption, ATexto: String; var AResult: String): Boolean; var Form: TForm;   Memo: TMemo;   Label1: TLabel;   ButtonOK, ButtonCancel: TButton;   iWidth: Integer; begin   iWidth := 350;   Form := TForm.Create(nil);   Form.Height := 200;   Form.Width := iWidth;   Form.Position := poScreenCenter;   Form.Caption := ACaption;   Label1 := TLabel.Create(Form);   Label1.Parent := Form;   Label1.Top := 5;   Label1.Left := 5;   Label1.Width := Form.Width - 10;   Label1.Caption := ATexto;   Memo := TMemo.Create(Form);   Memo.Parent := Form;   Memo.Top := Label1.Top + Label1.Height + 5;   Memo.Left := 5;   Memo.width := Form.Width - 10;   Memo.Height := Form.Height - Memo.Top - 45;   iWidth := iWidth + 95;   Form.Width := iWidth;   ButtonOK := ...

Ola pessoal, tudo bem com vocês? Este aula é só pra mostrar uma dica simples na impressão das etiquetas. Problema: o usuário já removeu algumas etiquetas do formulários, e precisamos "pular" esses espaços. Veja um exemplo onde faltam 5 etiquetas: Pra pular essas etiquetas, eu costumo gerar "registros falsos" na tabela temporária, e fazer um if durante a impressão. Veja como ficou o código no Delphi: var   i, j: Integer;   x: String; begin   // ABRE TABELA COM DADOS   qProdutos.Close;   qProdutos.SQL.Text := 'SELECT codigo, descricao, marca, preco_venda, ' +     'estoque, unidade, cod_barras FROM produtos';   qProdutos.Open;   // LIMPA TABELA TEMPORARIA   memDados.Close;   memDados.Open;   // PULAR ETIQUETAS DO INICIO   x := '0';   if InputQuery('Pular Etiquetas', 'Informe a quantidade de etiquetas a pular', x) then   begin     i := StrToIntDef(x, 0);     if i >...

Olá pessoal, bem vindos a mais uma aula de Fast Report. Desta vez iremos falar sobre impressão de etiquetas.  Primeiro iremos preparar nosso ambiente de dados. Geralmente eu uso uma tabela temporária (em memória ou ClientDataSet - qual você estiver acostumado a usar), pra poder preencher os dados das etiquetas, com uma estrutura simples: Texto1 - String - 100 Texto2 - String - 100 Texto3 - String - 100 Texto4 - String - 100 Texto5 - String - 100 Dessa forma, eu pego os dados de qualquer tabela e vou inserindo nessa tabela temporária. Assim eu consigo, por exemplo, imprimir várias cópias da mesma etiqueta, como por exemplo, quando é necessário etiquetar produtos, e existem várias peças de um mesmo produto. Veja um exemplo de produtos/estoque: Primeiro eu percorro a tabela, e vou inserindo um registro pra cada item. Se o item possui estoque maior que um 1 (por exemplo, estoque = 10), eu insiro 10 registros do mesmo item. Veja o código abaixo: procedure ... var i...