Categoria: Programação

Importando XML de uma NFe #1 – Dicas Lazarus / Delphi

Posted By: Daniel MoraisPosted On:

Vídeo 1 de 3 onde mostro como importar dados de uma nota fiscal eletrônica usando o XML da mesma.
Importo os dados da nota (numero, status, data emissão) dados do emitente, dados do destinatário e os itens da nota (dados do produto, tributos e impostos)
Necessário ter os componentes do ACBr instalado, pois vamos usar ACBrNFe.







Canal do Humberto Sales:
https://www.youtube.com/user/salesdoido
GRUPO LAZARUS / CODETYPHON DO TELEGRAM:
Grupo destinado ao estudo dos ambientes de desenvolvimento integrado ( Lazarus e CodeTyphon) desenvolvido para o compilador Free Pascal. link :
https://t.me/joinchat/AAAAAEDYQdfQIFC…

Grupo LAzarus/ Delphi, mas em Espanhol:
https://t.me/pascalang

Aprenda a criar seus próprios componentes !

Posted By: Daniel MoraisPosted On:

Estes vídeos foram feitos por Humberto Sales Oliveira, clique aqui para conhecer o canal do Sales !

Quem desenvolve sistemas em Delphi, Lazarus, Codetyphon com certeza já teve curiosidade de saber como criar componentes.

O Humberto fez estes dois vídeos explicando de uma forma simples e prática como você pode criar seus próprios componentes.

Vamos lá:


Dicas Lazarus / Programação: StringGrid #3 Mudando a cor das células

Posted By: Daniel MoraisPosted On:

Neste vídeo vamos criar uma tabela no Firebird de quartos (Código Apto, Status )

Status = Vago, Ocupado e Manutenção

Vamos capturar estes dados e alimentar o stringgrid.

Após isso vamos colorir a célula tendo como parâmetro o status de cada apartamento.


Dicas Lazarus / Programação: StringGrid #2 Quebra Linha Dentro da Célula

Posted By: Daniel MoraisPosted On:

Neste vídeo vou mostrar como quebrar linhas dentro das células.

Vamos utilizar a propriedade OnPrepareCanvas do StringGrid:

Inscreva-se no canal e fique ligado a cada novo vídeo !

procedure TfrmPRINCIPAL.StringGrid1PrepareCanvas(sender: TObject; aCol,
  aRow: Integer; aState: TGridDrawState);
var
  MyTextStyle : TTextStyle;
begin
  MyTextStyle := StringGrid1.Canvas.TextStyle;
  MyTextStyle.SingleLine := false;
  MyTextStyle.Alignment  := taCenter;
  StringGrid1.Canvas.TextStyle := MyTextStyle;
end;