var

  sSQL: String;

  HoraInicial: DateTime;

  lSQLBuilder: TdaSQLBuilder;

begin
  
  if not bDataSetAberto then begin
    
    sSQL := sSQLSelect + 
            
            ', ' + Chr(13) + sSQLIOE + sProdutos + sSQLIOE2 +      
            
            ', ' + Chr(13) + sSQLIOEPassada + sProdutos + sSQLIOE2Passada +      
            
            ', ' + Chr(13) + sSQLPro        + sProdutos + sSQLPro2 +
            
            ', ' + Chr(13) + sSQLIPE        + sProdutos + sSQLIPE2 +
            
            Chr(13) + sSQLFrom +
            
            Chr(13) + sSQLWhere +
            
            Chr(13) + sSQLOrder;

//    ShowMessage('AfterPrint ' + Chr(13) +

//                'Produtos: ' + sProdutos + Chr(13) +

//                sSQL);

//    HoraInicial := CurrentDateTime;
    
    VendasEstoqueEAChegarPorProduto.Active := False;
    
    lSQLBuilder := TdaSQLBuilder.Create(VendasEstoqueEAChegarPorProduto);
    
    lSQLBuilder.SQL.EditSQLAsText := True;
    
    lSQLBuilder.SQL.SQLText.Text := sSQL;
    
    lSQLBuilder.Free;
    
    VendasEstoqueEAChegarPorProduto.Active := True;
    
    bDataSetAberto := True;

{    HoraInicial := (CurrentDateTime - HoraInicial);
    
    ShowMessage('Tempo de Execução: ' + TimeToStr(HoraInicial));} 
  
  end;          

end;