04 – Como integrar balança no seu PDV

Neste vídeo vou mostrar como integrar balanças no seu PDV.

Vamos utilizar o componente ACBrBAL do pacote ACBr e também o Emulador de balança ACBr.

Para quem não sabe usar o emulador, veja este vídeo: https://www.youtube.com/watch?v=PIfhubP1Sf8

Eu fiz no Lazarus (free pascal) mas você pode utilizar o Delphi.

Link do emulador de balança compilado para quem não tem Delphi instalado: http://www.mediafire.com/file/mcryib5ifr54ykl/Acbr_EmuladorBalancaDelphi.rar/file

Link de como instalar o ACBr no lazarus: https://www.youtube.com/watch?v=GSZOCmXHP4A

Links Telegram:
Lazarus Free Pascal: https://t.me/lazarusfreepascal1
Lazarus Br: https://telegram.me/LazarusBR
Blog: https://aprendalazarus.com.br/

03 – Enxugando códigos do PDV

Extra! Edição especial com dicas dos nossos inscritos !!

Obrigado de coração Ari Rodrigues, Junior Filho, Adriano Moura e Marcos Azevedo !

Vamos enxugar nosso código, economizar algumas linhas de programação !

01 – Pesquisa dinâmica no Edit do PDV (código, barras, descrição)

Este é o primeiro vídeo desta sequencia, vou mostrar como funciona as pesquisas dinâmicas dentro de um PDV (Ponto de Venda).

No edit da tela do PDV, você pode consultar por código interno, código de barras e pela descrição do Produto.

Feito em LAZARUS e funciona no DELPHI. A lógica é a mesma

Como usar emulador de balança com o ACBrBal

Hoje fiz um vídeo mostrando como usar o emulador de balança (para você que precisa capturar o peso e não tem balança) .
Vamos usar o componente ACBrBal e o exemplo criado pelo ACBr.
Você vai precisar de um emulador de porta serial, vamos usar o com0com, para baixar: https://sourceforge.net/projects/com0com
Eu fiz no Lazarus (free pascal) mas você pode utilizar o Delphi.
Link do emulador de balança compilado para quem não tem Delphi instalado: https://www.mediafire.com/file/mcryib5ifr54ykl/Acbr_EmuladorBalancaDelphi.rar/file
Links Telegram:
Lazarus Free Pascal: https://t.me/lazarusfreepascal1
Lazarus Br: https://telegram.me/LazarusBR

Conto com o seu Like !!! Muito Obrigado pela visita !

Formulário de pesquisa padrão com parâmetros Delphi

Hoje vou mostrar como criar um formulário de pesquisa padrão.

Passar parâmetros entre um formulário e outro como campos que desejo listar na pesquisa, tabela e qual campo quero capturar no resultado da consulta.

Delphi e Firedac.

Declarações(frmPesquisa):

  private
    { Private declarations }
    cCampos, cCampoRetorno, cTabela : string;
  public
    { Public declarations }
    constructor Create(AOwner : TComponent; par_lstCampos : Array of string;par_cTabela, par_cCampoResult :string);

Creator (frmPesquisa)

constructor TfrmPesquisa.Create(AOwner: TComponent;
  par_lstCampos: array of string; par_cTabela, par_cCampoResult: string);
var
 n : Integer;
begin
  inherited Create(AOwner);
  Conexao.Open;
  cCampoRetorno := par_cCampoResult;
  cCampos:='';
  cbCAMPOS.Clear;
  cTabela := par_cTabela;
  for n := 0 to Length(par_lstCampos) -1 do
     begin
       cbCAMPOS.Items.Add(par_lstCampos[n]) ;
       if n = 0 then
         cCampos := par_lstCampos[n]
       else
         cCampos := cCampos +','+ par_lstCampos[n]  ;
     end;
     cbCAMPOS.ItemIndex := 1;
  if qrSQL.Active then
     qrSQL.Close;
  with qrSQL.SQL do
      begin
        Clear;
        add('Select '+cCampos);
        add('from '+cTabela)
      end;
  qrSQL.Open;

end;

Botão de Pesquisa

procedure TfrmPesquisa.btnPesquisaClick(Sender: TObject);
begin
  if qrSQL.Active then
     qrSQL.Close;
  with qrSQL.SQL do
      begin
        Clear;
        add('Select '+cCampos);
        add('from '+cTabela);
        add('where '+trim(cbCAMPOS.Text)+' like :cParametro');
      end;
  if cbFiltro.Text = 'parte' then
     qrSQL.ParamByName('cParametro').AsString := '%'+trim(edtBusca.Text)+'%'
  else if cbFiltro.Text = 'inicio' then
     qrSQL.ParamByName('cParametro').AsString := trim(edtBusca.Text)+'%'
  else if cbFiltro.Text = 'igual' then
     qrSQL.ParamByName('cParametro').AsString := trim(edtBusca.Text) ;
  qrSQL.Open;

end;

DBgrid double click

procedure TfrmPesquisa.DBGrid1DblClick(Sender: TObject);
begin
  edtRetorno.Clear;
  edtRetorno.Text := qrSQL.FieldByName(cCampoRetorno).AsVariant;
  qrSQL.Close;
  Conexao.Close;
  frmPesquisa.ModalResult := mrYes;
end;

Botão Cliente do FrmPrincipal

procedure TfrmPrincipal.btnClienteClick(Sender: TObject);
begin
   frmPesquisa := tfrmPesquisa.Create(self,['codigo','nome','telefone'],'cliente','nome');
   try
     if frmPesquisa.ShowModal = mrYes then
        edtRetornoPesquisa.Text := frmPesquisa.edtRetorno.Text
     else
        edtRetornoPesquisa.Clear;
   finally
     FreeAndNil(frmPesquisa);
   end;
end;

delphi #lazarus #formulário delphi #formulário de pesquisa #pesquisa padrão #passar parâmetros no formularo #formulário com parametros #parametros array #parametros vetor #array #vetor #firedac #banco de dados #mysql #sql #postgre #daniel de morais #infocotidiano

Como usar SQL no Delphi ?

Neste vídeo vou mostrar como usar comandos SQL no Delphi.

Vou utilizar o firedac para conectar no banco de dados e montar as consultas em uma query de três formas diferentes.

Aspas, quotedStr() e parametros. Qual você utiliza?

delphi, #sql, #query, #firedac, #como usar query, #consultas sql, #sql no delphi, #sql no firedac, #paremetros, #consultas, #consultas personalizadas

Criar botões dinamicamente Delphi / Lazarus – 01

Você já pensou em criar um PDV (ponto de venda) em Delphi ou Lazarus com botões dinâmicos ?
Isso mesmo, aqueles PDVs que tem botões de atalhos com produtos, você clique em x-salada ele lança o x-salada para você!

TUDO dinamicamente, resultado da sua query direto para um grid de botões personalizados (altura, largura e ícones).

Vídeo 1, criando o CRUD em MySQL.
Crie botões em tempo de execução dinamicamente.

Exemplo: Botões como em um dbgrid de produtos para um ponto de venda, etc.

Ao invés de mostrar o grid com os campos da tabela, exiba os botões.
Link

Código Fonte em Lazarus:
https://www.mediafire.com/file/ya22ia…
Canal do Humberto Sales: https://www.youtube.com/user/salesdoido

#delphi #lazarus #programação #desenvolvimento #pdv #botoes #grid #dbgrid #stringgrid #criarbotoes #botoesnogrid #botoesemgrid #criargridbotoes #pontodevenda

Dicas Delphi/Lazarus: Exportando dados para o Excel #2

Neste vídeo vou mostrar como exportar dados DINAMICAMENTE de uma tabela para Excel ou qualquer programa que suporte arquivo de texto delimitado por “ponto-e-virgula”.
Funciona com qualquer banco de dados.





Código Fonte:


procedure TfrmPrincipal.btnExportaClick(Sender: TObject);
var
sLista : TStringList;
nCampo : integer;
cLinha : string;
begin
sLista := TStringList.Create;

cLinha := ”;
for nCampo:=0 to qrTabela.fields.Count-1 do
cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayLabel+’;’;
sLista.Add(cLinha);

qrTabela.First;
while not qrTabela.EOF do
begin
cLinha := ”;
for nCampo:=0 to qrTabela.fields.Count-1 do
cLinha:=cLinha+qrTabela.Fields[nCampo].DisplayText+’;’;
sLista.Add(cLinha);
qrTabela.Next;
end;
if FileExists(‘c:tmpteste.csv’) then DeleteFile(‘c:tmpteste.csv’);
sLista.SaveToFile(‘c:tmpteste.csv’);

end;








Simples e objetivo. Conto com seu Like !




#exportardados #exportarregistros #exportartabela #delphiparaexcel #lazarusparaexcel #mysqlparaexcel #mariadbparaexcel #sqliteparaexcel #firebirdparaexcel #postgresqlparaexcel