Skip to content

Instantly share code, notes, and snippets.

@diego-aslz

diego-aslz/TFVendasCad.pas

Created May 9, 2016 00:37
Show Gist options
  • Save diego-aslz/83e414a925e834dc1a7260a9b57cbb0b to your computer and use it in GitHub Desktop.
Save diego-aslz/83e414a925e834dc1a7260a9b57cbb0b to your computer and use it in GitHub Desktop.
Download ZIP
Fechamento de Venda
Raw
TFVendasCad.pas
// Substituir todo o conteúdo de ImprimeFechamento pelo seguinte:
procedure TFVendasCad.ImprimeFechamento;
begin
if FRFechamentoVenda = nil then
FRFechamentoVenda := TFRFechamentoVenda.Create(Application);
DMConfiguracoes.QConfiguracoes.Close;
DMConfiguracoes.QConfiguracoes.Open;
FRFechamentoVenda.QRRelatorio.Preview;
end;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment