RibaSoft

Pascal

Acesso MariaDB

• • Com o componente MySQL56Connection e SQLQuery nativos do Lazarus.

    uses mysql56conn, SQLDB; Conexao := TMySQL56Connection.Create(nil); Transaction := TSQLTransaction.Create(nil); Query: TSQLQuery.Create(nil); with Conexao do begin UserName := 'usuario'; Password := 'senha'; DatabaseName := 'nome_banco'; HostName := 'ip_ou_site'; Port := 3306; Transaction := Transaction; end; Query.DataBase := Conexao; //Confirmar Transação Transaction.Commit; //Cancelar transação Transaction.Rollback; //Fechar a conexao ao termino Conexao.Close(True); //Dll libmysql.dll

BufDataSet

• • Criar campos, ordenação e indice.

    Buf.Clear; Buf.FieldDefs.Add('ID', ftInteger); Buf.FieldDefs.Add('CPROD', ftString, 30); Buf.FieldDefs.Add('XPROD', ftString, 120); Buf.FieldDefs.Add('QTD', ftCurrency); //Ordenando Buf.IndexDefs.Add('ID', 'ID', [ixDescending]); Buf.CreateDataset; //Indexando Buf.IndexName := 'ID';

  • Buscar parcial.

    auxBusca := Riba.FormataTexto(EditBusca.Text); DataSourceDados.DataSet.Filtered := False; if(auxBusca = EmptyStr)then DataSourceDados.DataSet.Filter := EmptyStr else DataSourceDados.DataSet.Filter := 'CPROD = ''*' + auxBusca+ '*'' OR XPROD = ''*' + auxBusca + '*'''; DataSourceDados.DataSet.Filtered := True;

  • Inserir Registros

    Buf.Append; Buf.FieldByName('QTD').AsCurrency := AQTD; Buf.Post;

  • Alterar Registros

    Buf.Edit; Buf.FieldByName('QTD').AsCurrency := AQTD; Buf.Post;

  • Deletar Registros

    Buf.Delete;

  • Armazenar/Obter dados em disco

    Buf.SaveToFile('.\dados.db'); Buf.IndexDefs.Add('ID', 'ID', [ixDescending]); Buf.LoadFromFile('.\dados.db');

Carregar Imagem do Banco de Dados

• • procedure TForm1.CarregaFoto; var Imagem: TJPEGImage; MemoriaStream: TMemoryStream; begin try Imagem := TJPEGImage.Create; MemoriaStream := TMemoryStream.Create; TBlobField(DataModulo.Query.FieldByName('FOTO')).SaveToStream(MemoriaStream); if (MemoriaStream.Size > 0) then begin MemoriaStream.Position := 0; Imagem.LoadFromStream(MemoriaStream); ImageFoto.Picture.Assign(Imagem); end else begin ImageFoto.Picture.Assign(nil); end; finally Imagem.Free; MemoriaStream.Free; end; end;

Colocar imagem da Internet e por no Timage com TFPHTTPClient

• • //uses fphttpclient; procedure TFormSintegra.CarregaImagem; var auxStream: TMemoryStream; auxImagem: TJPEGImage; auxClient: TFPHTTPClient; auxStatus: Integer; begin auxClient := TFPHTTPClient.Create(nil); auxStream := TMemoryStream.Create; try auxClient.AllowRedirect := True; auxClient.Get('http://www.sintegra.fazenda.pr.gov.br/sintegra/captcha', auxStream); auxStatus := auxClient.ResponseStatusCode; if (auxStatus = 200) then begin auxImagem := TJPEGImage.Create; try auxStream.Position := 0; auxImagem.LoadFromStream(auxStream); ImageCaptcha.Picture.Assign(auxImagem); finally FreeAndNil(auxImagem); end; end else Riba.Aviso('Erro ao obter o Captcha!'); finally FreeAndNil(auxClient); FreeAndNil(auxStream); end; end;

Configurações

• IDE

  • Ambiente > Inicialização da IDE > Abrir o último projeto = False
  • Ambiente > Cópia de Segurança = Sem arquivo de segurança
  • Ambiente > Nomeação > Salvar como > Sem renomeação automática = True
  • Ambiente > Nomeação > Sugerir nome padrão do novo arquivo em minúscula = False
  • Ambiente > Inicialização da IDE > Nomeação > Sugerir nome padrão do novo arquivo em minúsculo = False
  • Editor > Exibir > Margem direita visíve = 120
  • Editor > Exibir > Indicadores de Correspondências > Contorno = True
  • Configurações "JCF" > Corrigir > Interrupções de Linha > Tamanho máximo de linha = 130
  • Ferramentas de Código > Geral > Saltar diretamente para o corpo do método = True
  • Ferramentas de Código > Separação de linhas > Comprimento Máximo de linha = 130
  • Ferramentas de Código > Separação de linhas > Não dividir linha na frente de > Símbolo = True
  • Depurador > Fechar janela assembler automaticamente após código não encontrado = True

• Projeto

  • Opções do Projeto > Aplicação > Nível de Execução = Requer Administrador
  • Opções do Projeto > Miscelânea > Atualizar a delcaração "Application.Title" no unidade principal = False
  • Opções do Projeto > Miscelânea > Atualizar a delcaração "Application.Scaled" no unidade principal = False
  • Opções do Compilador > Depeuração > Gerar informações para o depurador = True
  • Opções do Compilador > Depeuração > Usar a unidade Heaptcr (-gh) = True

EXCEL

• Download FPSpreadsheet

  Lazarus wiki

  Uses fpSpreadsheet, fpsTypes, xlsxooxml;

  
  

  • Leitura

    procedure TFormBuscaIE.btnBuscaOrigemClick(Sender: TObject); var auxLocal: string; I, auxReg: integer; auxLivro: TsWorkbook; auxPagina: TsWorksheet; auxColunaA, auxColunaB, auxColunaC; begin auxLocal := EmptyStr; if (not Riba.AbreArquivo('Selecione o Arquivo Excel', 'Excel|*.xlsx', auxLocal)) then Exit; try auxLivro := TsWorkbook.Create; auxLivro.ReadFromFile(auxLocal, sfOOXML); auxPagina := auxLivro.GetWorksheetByIndex(0); auxReg := auxPagina.GetLastRowIndex; for I := 1 to auxReg do begin auxColunaA := auxPagina.ReadAsText(I, 0); //linha, coluna auxColunaB := auxPagina.ReadAsText(I, 1); auxColunaC := auxPagina.ReadAsText(I, 2); end; finally FreeAndNil(auxLivro); end; end;

  • Escrita

    procedure TFormBuscaIE.btnSalvarClick(Sender: TObject); var auxLocal: string; auxLivro: TsWorkbook; auxPagina: TsWorksheet; begin auxLocal := EmptyStr; if (not Riba.SalvaArquivo('Selecione o local para salvar o arquivo...', 'Excel|*.xlsx', auxLocal)) then Exit; try auxLivro := TsWorkbook.Create; auxPagina := auxLivro.AddWorksheet('Relatório'); //Adiciona dados e formata celulas... auxLivro.WriteToFile(auxLocal, sfOOXML, True); finally FreeAndNil(auxLivro); end;

  • Formata Células

    auxPagina.MergeCells('A1:C1'); auxCelula := auxPagina.GetCell(0, 0); auxPagina.WriteBorders(auxCelula, [cbWest, cbNorth]); auxPagina.WriteBorderStyle(auxCelula, cbWest, lsDouble, clWhite); auxPagina.WriteBackgroundColor(auxCelula, $00F0F0F0); auxPagina.WriteHorAlignment(auxCelula, haCenter); auxPagina.WriteFontName(auxCelula, 'Arial'); auxPagina.WriteFontStyle(auxCelula, [fssBold]); auxPagina.WriteRowHeight(0, 13, suPoints); auxPagina.WriteText(auxCelula, 'Texto');

Fortes Report Componentes e Dicas

• • RLReport

    É o objeto principal com formato de pagina que recebe todos os demais componentes.

  • RLPDFFilter

    É o componente responsável pela impressão e exportação em PDF, é conectada ao RLReport pela propriedade DefaultFilter.

  • DataSource

    É fundamental que a consulta principal do banco de dados esteja no Datasource ligado a propriedade DataSource do RLReport.

  • BufDataSet

    É o componente que contêm os dados e é ligado ao DataSouce pela propriedade DataSet.

  • RLBand: BandType = btTitle

    Aparece uma vez na primeira página.

  • RLBand: BandType = btHeader

    Aparece em cada página.

  • RLBand: BandType = btColumnHeader

    Aparece a cada interação de uma consulta.

  • RLBand: BandType = btDetail

    Aparece a cada registro da consulta.

  • RLBand: BandType = btSumary

    Usado para exibir resultados de uma consulta.

  • RLBand: BandType = btColumnFooter

    Aparece ao final de uma consulta.

  • RLBand: BandType = btColumnFooter

    Aparece ao final de cada página.

  • RLDetailGrid

    Faz a listagem por colunas configurada nas propriedades ColCount e Organization.

  • RLGroup

    Faz interações em consultas agrupadas pelo campo configurado na propriedade DataFields.

  • RLSubDetail

    Usado para varias consultas no mesmo relatório atravez de vários DataSources e BufDataSets como por exemplo um relatorio de vendas, itens, pagamentos, parcelas, etc.

  • RLDBResult

    Usado para resultados na BandType = Sumary.
    Se estiver enfrentando problemas com somas no RLDBResult, verifique sua consulta SQL e certifique-se de que os campos numéricos estejam sendo tratados corretamente. Você pode precisar usar um CAST para garantir a precisão dos cálculos, por exemplo: CAST(CAMPO as NUMERIC(15,4)).

  • RLDBText

    Usado para resultados exibir dados dos campos das consultas.
    Ao exibir valores numéricos, é importante aplicar formatação adequada utilizando a propriedade DisplayMask com a máscara "#,##0.00" para garantir que os valores sejam exibidos corretamente, a dica acima ou o CAST(CAMPO as NUMERIC(15,4)).

  • RLExpressionParser

    Esse componente pode ser necessário quando algum calculo não estiver funcionando, ele é ligado ao RLReport pela propriedade ExpressionParser.

  • RLRichText

    Obs. É importante iniciar o texto com ao menos o \fs24 e finaliza-lo com \par para que o fortes calcule o Height da Band e não oculte as últimas linhas.

    - Define as fontes a serem usadas: {\fonttbl{\f0 Arial;}{\f1 Cooper Black;} - Define as cores a serem usadas: {\colortbl \red255\green0\blue0; \red0\green255\blue0;} -Inicia a fonte desejada \f0, \f1, etc. -Inicia a cor desejada \cf0, \cf1, etc. - Determina o tamanho da fonte: \fs24 - Pula linha: \pard - Finaliza parágrafo: \par - Inicia o negrito: \b - Finaliza o negrito: \b0 - Inicia o itálico: \i - Finaliza o itálico: \i0 - Ativa o sublinhado: \ul - Desativa o sublinhado: \ulnone - Alinha à esquerda: \ql - Alinha à direita: \qr - Justifica o texto: \qj - Centraliza o texto: \qc

Git e GitHub

• Instalação

  
  DOWNLOAD AQUI.

  • Instale o git normalmente e caso queira tirar Open "Git Gui Here" execute o comando abaixo.

    Remove-Item -Path "Registry::HKEY_CLASSES_ROOT\Directory\Background\shell\git_gui" -Recurse

  • Setar usuario e email

    git config --global user.name "usuario" git config --global user.email "ribamarmsantos@gmail.com"

  • Ver configurações

    git config --list

  • Sair da visualização

    q

  • Verificar se já possui chaves SSH

    dir C:\Users\usuario\.ssh\

  • Gerar chaves SSH

    Apenas aperte Enter duas vezes se não quiser por senhas para usar scripts automatizados.

    ssh-keygen -t ed25519 -C "ribamarmsantos@gmail.com"

    Abra o Arquivos C:\Users\usuario\.ssh\id_ed25519.pub copie a chave e cole no github em: https://github.com/settings/ssh/new

  • Testar conexão

    ssh -T git@github.com

• Baixar Reporitório

  
  

  • Navegue até um diretório

    git clone git@github.com:castle-engine/castle-engine.git

  • Verificar se há atualizações

    git fetch git status

  • Atualizar

    git pull

• Criar Repositório

  
  

  • Navegue até a pasta do projeto

    git init

  • É necessário adicionar o diretório do projeto ao arquivo "C:\Users\seu_usuario\.gitconfig".

    git config --global --add safe.directory D:/Documents/GitHub/Pasta_Seu_Projeto

  • Colocar arquivos na fila

    git add .

  • Tirar arquivos da fila (cancelar)

    git reset

  • Salvar arquivos no repositório local

    git commit -m "Primeiro Commit"

  • Ver o branch selecionado

    git branch

  • Setar um branch

    git branch -M main

  • ver a url destino no GitHub configurada

    git remote -v

  • Adicionar um enderereço de repotitório do GitHub

    git remote add origin git@github.com:RibaSoft/rs_varejo.git

  • Altera a url destino caso já esteja configurada

    git remote set-url origin git@github.com:RibaSoft/rs_varejo.git

  • Envia as alterações para o "main" ou "master" do GitHub

    git push -u origin main

  • Verifica se está sinconizado com o GitHub

    git fetch git status

• Automação

  
  

  Para Mandar

  • Crie um arquivo "Mandar.bash".

    #Limpa cd /d/Documents/GitHub/Varejo rm /d/Documents/GitHub/dlls/FB301/firebird.log rm -r backup rm -r data rm -r temp_NF rm -r xmls_env_contab rm *.txt rm *.rs rm *.lps rm *.res rm *.db rm *.bmp rm Varejo.exe rm *.log rm pt-BR.dll rm libssl-1_1.dll rm libcrypto-1_1.dll rm libexslt.dll rm libiconv.dll rm libxml2.dll rm libxslt.dll clear git status # Manda Pro GitHub read -p "Precione Enter para Mandar para o Git" clear data_hora=$(date +"%Y%m%d_%H%M") git add . git commit -m "$data_hora" git push -u origin main echo "" read -p "Enviado ao GitHub com sucesso!!!" clear #Compila Release read -p "Atualizar Sistemas Locais?" clear LAZARUS_DIR="/c/lazarus" PROJECT_DIR="/d/Documents/GitHub/Varejo" MODE="Release" "$LAZARUS_DIR/lazbuild" --build-mode="$MODE" pVarejo.lpi if [ $? -ne 0 ]; then echo "Falha na compilação!" exit 1 else /d/bin/signtool sign -a -fd SHA256 /d/Documents/GitHub/Varejo/Varejo.exe echo "Compilado em modo release com sucesso!" fi #limpa rm -r backup/ rm *.rs rm *.lps rm *.res rm *.bat #Atualiza App em uma pasta cp -f /d/Documents/GitHub/Varejo/Varejo.exe /d/Programa/ && echo "Varejo atualizado com sucesso!!!" echo "" rm Varejo.exe /d/ClientesNF/Atualizar.bat echo "" read -p "Sistemas Atualizado com sucesso!"

  • Clique com o dotão direito do mouse e coloque Abrir com.

    C:\Program Files\Git\git-bash.exe

  Para Receber

  • Crie um arquivo "Receber.bash".

    git fetch git status read -p "Atualizar o projeto?" git pull read -p "Comandos executados com sucesso!!!"

Hint no DBGrid

• Mostrar o um texto ao passaar o mouse sobre um campo.

  • procedure TFormOrcamento.DBGridDadosMouseMove(Sender: TObject; Shift: TShiftState; X, Y: integer); var C, L, auxID: integer; auxB: TBookMark; begin //Pega a Coluna e a Linha pela posição X, Y (Sender as TDBGrid).MouseToCell(X, Y, C, L); //Evita erro ao passar o mouse no título if(L < 1)then Exit; try //Marca a posição do dataset auxB := DataSourceDados.DataSet.GetBookmark; //Desabilita controles para não ficar oscilando DataSourceDados.DataSet.DisableControls; //Vai para a linha desejada DataSourceDados.DataSet.RecNo := L; //Pega a informação auxID := DataSourceDados.DataSet.FieldByName('ID').AsInteger; //Adiciona a informação ao Hint (Sender as TDBGrid).Hint := 'ID: ' + IntToStr(auxID); //Mostra o Hint Application.ActivateHint(Mouse.CursorPos); finally //Volta para a posição inicial DataSourceDados.DataSet.GotoBookmark(auxB); //Limpa a marcação DataSourceDados.DataSet.FreeBookmark(auxB); //Reabilida controles DataSourceDados.DataSet.EnableControls; end; end;

Instalação ACBr - Windows

• Programas

  • ---

    Tortoise SVN

    Trun2 ACBr para o Tortoise => https://svn.code.sf.net/p/acbr/code/trunk2/

    ---

    Git

    ---

    Fortes Report

    git clone https://github.com/fortesinformatica/fortesreport-ce

    ---

    Firebird 3.0

    ---

• DLLs

  • .\DLLs\OpenSSL\1.1.1.10\x86\libcrypto-1_1.dll

    .\DLLs\OpenSSL\1.1.1.10\x86\libssl-1_1.dll

    .\DLLs\LibXml2\x86\libexslt.dll

    .\DLLs\LibXml2\x86\libiconv.dll

    .\DLLs\LibXml2\x86\libxml2.dll

    .\DLLs\LibXml2\x86\libxslt.dll

• Configurações

  • Em .\ACBr\Fontes\ACBrComum\ACBr.inc

    Descomentar:

    {$DEFINE DFE_SEM_XMLSEC} {$DEFINE DFE_SEM_CAPICOM} {$DEFINE DFE_SEM_MSXML} {$DEFINE DFE_SEM_INDY} {$DEFINE USE_DELAYED}

• Sequência dos Pacotes

  • .\fortesreport-ce-master\Packages\frce.lpk

    .\ACBr\Pacotes\Lazarus\synapse\laz_synapse.lpk

    .\ACBr\Pacotes\Lazarus\ACBrComum\ACBrComum.lpk

    .\ACBr\Pacotes\Lazarus\ACBrOpenSSL\ACBrOpenSSL.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDiversos\ACBrDiversos.lpk

    .\ACBr\Pacotes\Lazarus\PCNComum\PCNComum.lpk

    .\ACBr\Pacotes\Lazarus\ACBrIntegrador\ACBr_Integrador.lpk

    .\ACBr\Pacotes\Lazarus\ACBrTCP\ACBrTCP.lpk

    .\ACBr\Pacotes\Lazarus\ACBrSerial\ACBrSerial.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrDFeComum.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrDFeReportRL.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrCTe\ACBr_CTe.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrCTe\DACTE\
    Fortes\ACBr_CTe_DACTeRL.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrMDFe\ACBr_MDFe.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrMDFe\DAMDFE\
    Fortes\ACBr_MDFe_DAMDFeRL.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrNFe\ACBr_NFe.lpk

    .\ACBr\Pacotes\Lazarus\ACBrDFe\ACBrNFe\DANFE\NFe\
    Fortes\ACBr_NFe_DanfeRL.lpk

    .\ACBr\Pacotes\Lazarus\ACBrTXT\ACBrTXTComum.lpk

    .\ACBr\Pacotes\Lazarus\ACBrTXT\ACBrSPED\ACBr_SPED.lpk

• Configuração dos Componentes.

  • Protocolo de Segurança de Comunicação

    NFC.SSL.SSLType := LT_TLSv1_2;

  • Gerenciador de Assinatura

    NFC.SSL.SSLXmlSignLib := xsLibXml2; NFC.SSL.Senha := FormCertificado.Senha;

  • Certificado A1 (arquivo pfx)

    if (FormCertificado.TipoCertificado = 0) then begin //Gerenciador de Certificado NFC.SSL.SSLCryptLib := cryOpenSSL; //Gerenciador da Comunicação NFC.SSL.SSLHttpLib := httpOpenSSL; NFC.SSL.ArquivoPFX := FormCertificado.LocalCertificado; end;

  • Certificado A3 (do repositório do windows)

    if (FormCertificado.TipoCertificado = 1) then begin //Gerenciador de Certificado NFC.SSL.SSLCryptLib := cryWinCrypt; //Gerenciador da Comunicação NFC.SSL.SSLHttpLib := httpWinHttp; NFC.SSL.NumeroSerie := FormCertificado.SerieCerTificado; NFC.SSL.CarregarCertificado; end;

  • Outros

    NFE.Configuracoes.Geral.ForcarGerarTagRejeicao938 := fgtSempre; NFE.Configuracoes.Arquivos.PathNFe := FormCertificado.LocalNF; NFE.Configuracoes.Arquivos.PathSchemas := FormCertificado.LocalSchemas; NFE.Configuracoes.WebServices.Ambiente := Ambiente; NFE.Configuracoes.Arquivos.SepararPorModelo := True; NFE.Configuracoes.Arquivos.SepararPorMes := True; NFE.Configuracoes.Geral.VersaoDF := ve400; NFE.DANFE := Danfe; NFE.Configuracoes.Geral.ModeloDF := moNFe; NFE.Configuracoes.Geral.AtualizarXMLCancelado := True;

POO

• • Termos

    Abstração: E uma caracteristica da POO que permite passar objetos reais do mundo real para linguagem de programacao.

    Polimorfismo: E a capacidade de criar varios metodos com o mesmo nome mas com parametros diferentes;

    Encapsulamento: separar o codigo em blocos de codigo.

  • Métodos

    overload; => permitem mesmos metodos com o mesmo nome diferenciando apenas os parametros.

    virtual; => permite (sem ser obrigatorio) que a classe herdeira reescreva um metodo criado na classe pai utilizando o override;

    override; => usado para adicionar código em um metodo virtual da classe pai na classe filha utilizando o inherited.

    virtual; abstract; => pode ser implemantado na classe herdeira com o override, mas nao precisar ser implementado na classe pai.

    reintroduce; => utilizado para tirar o warning que avisa que o metodo ja existe na classe pai, dizendo que ele sera reecrito na classe filha ignorando por completo tudo que estiver nesse metodo na classe pai.

    class function => cria uma funcao sem a necessidde de instaciar a classe em que ela esta. Obs. Adicionar "static" ao final.

    inherited "Metodo"; executa o metodo da classe pai. (o nome do metodo é opcional quando se está dentro do metodo herdado na classe filha)

    construtores => utilizado para inicializar variaveis, objetos, etc na criacao da classe(objeto) = constructor Create;

    destrutores => e aconselhavel usar o inherited ao final para destrur tudo das clases antecessoras = destructor Destroy;

  • Visibilidade

    strict private => visivel apenas na mesma classe.

    private => visivel dentro da propria classe ou de uma classe derivada na mesma unit.

    strict protected => visivel apenas pelas herdeiras.

    protected => visivel pelas herdeiras e classes da mesma unit.

    public => visivel em qualquer lugar.

    published => faz aparecer no object inspector.

  • Parametros de Método

    Sem nada = cópia do valor

    Var = ponteiro

    Out = ponteiro com inicialização (parametro de entrada é ignorado, podendo ser sobrescrito)

    Const = cópia do valor sem possibilidade de alteração, isso é uma diretiva a nível de compilação e tem efeito prático só em string, para tipos primitivos isso só não permite a alteração do valor dentro da função, enquanto que pra string isso evita a alocação de uma nova string.

    Como Objetos em pascal são sempre ponteiros se pode mudar o objeto mas não o valor base dele.

Reproduzir Som WAV

• • uses >> MMSystem PlaySound('.\som.wav',0, SND_FILENAME or SND_ASYNC);

Tradução

• Traduzir botões, mensagens etc.

  • Declare Translations em uses e cole a linha abaixo no FormCreate do Form principal.

    TranslateUnitResourceStrings('LclStrConsts', 'C:\lazarus\lcl\languages\lclstrconsts.pt_BR.po');