Fórum Deixar configurado impressora para determinado tipo de relat #366592

procedure TFrmImpressoras.SpbSairClick(Sender: TObject);
begin
  close;

  with DtmLoja.QryLoja do
    Begin
      Close;
      SQL.Clear;
      SQL.Add (´update Configuracao set ImprRelatorios =´ + (QuotedStr(CboRelatorios.Text)) + ´,´
             + ´ImprEtiquetas = ´ + (QuotedStr(CboEtiquetas.Text)));
      ExecSQL;
    end;

    DtmLoja.QryLoja.Transaction.CommitRetaining;
end;

procedure TFrmImpressoras.FormShow(Sender: TObject);
begin
  for i := 1 to Printer.Printers.Count do
    begin
       CboRelatorios.Items.Add(Printer.Printers[i - 1]);
       CboEtiquetas.Items.Add(Printer.Printers[i - 1]);       
    end;
    
  ConsultaRegistros(´Configuracao´,´ImprRelatorios, ImprEtiquetas´,´´);
    if DtmLoja.QryLoja.RecordCount <> 0 then
      begin
        CboRelatorios.Text := LeDados(´ImprRelatorios´);
        CboEtiquetas.Text  := LeDados(´ImprEtiquetas´);
      end;

end;

ConsultaRegistros(´Configuracao´,´ImprEtiquetas´,´´);
    if DtmLoja.QryLoja.RecordCount <> 0 then
      begin
        FrmLoja.MudarImpressoraPadrao(LeDados(´ImprEtiquetas´));
      end;