Ilka Guigova - Professional Profile

public static void BuildQuery(out string sql_cmd, out OleDbParameter[] sql_params, int mode, string tbl, string input, __arglist)
{         
    sql_params = null;
    sql_cmd = String.Empty;
    try
    {
        string[] rcrd_params = input.Split(new Char[] { ',' });

        ArgIterator param_iter = new ArgIterator(__arglist);
        int param_count = param_iter.GetRemainingCount();

        if (param_count != rcrd_params.Length)
        {
            ErrorLogDataSource.LogError(String.Format(
                "Failed to build query with {1}/{2} parameters", 
                param_count, rcrd_params.Length));
            return; 
        }
     
        sql_params = new OleDbParameter[param_count];
        sql_cmd = String.Empty;
        for (int i = 0; i < param_count; i++)
        {
            Object param = TypedReference.ToObject(param_iter.GetNextArg());
            sql_params[i] = new OleDbParameter(rcrd_params[i], param);

            // Logic to append to sql_cmd goes here...

        }
    } catch (Exception ex)
    {
        sql_cmd = String.Empty;
        sql_params = null;

        ErrorLogDataSource.LogException(new Exception(
            String.Format("Failed to build query for {1} with {2} in {3} mode - {0}", 
            ex.Message, tbl, input, mode), 
            ex));
    }
}

public static List<Object> GetStatusTypes(int ID, string Name, string Description, bool Reload, int UserID)
{            
    if ((!isCached) || (Reload))
    {
        DataSourceAdapter.BuildQuery(out sql_cmd, out sql_params, 3, tbl_name, "Name,Description,ID,ID", __arglist("%", "%", -1, -1));
        cache = DataSourceAdapter.ExecQuery(typeof(StatusType), sql_cmd, sql_params);
        isCached = true;
        listFilter = null;
    }
    // ....
}

DESCRIPTION:
        SC is a command line program used for communicating with the
        NT Service Controller and services.
USAGE:
        sc <server> [command] [service name] <option1> <option2>...

        The option <server> has the form "\\ServerName"
        Further help on commands can be obtained by typing: "sc [command]"
        Commands:
          query-----------Queries the status for a service, or
                          enumerates the status for types of services.
          queryex---------Queries the extended status for a service, or
                          enumerates the status for types of services.
          start-----------Starts a service.
          pause-----------Sends a PAUSE control request to a service.
          interrogate-----Sends an INTERROGATE control request to a service.
          continue--------Sends a CONTINUE control request to a service.
          stop------------Sends a STOP request to a service.
          config----------Changes the configuration of a service (persistant).
          description-----Changes the description of a service.
          failure---------Changes the actions taken by a service upon failure.
          qc--------------Queries the configuration information for a service.
          qdescription----Queries the description for a service.
          qfailure--------Queries the actions taken by a service upon failure.
          delete----------Deletes a service (from the registry).
          create----------Creates a service. (adds it to the registry).
          control---------Sends a control to a service.
          sdshow----------Displays a service's security descriptor.
          sdset-----------Sets a service's security descriptor.
          GetDisplayName--Gets the DisplayName for a service.
          GetKeyName------Gets the ServiceKeyName for a service.
          EnumDepend------Enumerates Service Dependencies.

        The following commands do not require a service name:
        sc <server> <command> <option>
          boot------------(ok | bad) Indicates whether the last boot should
                          be saved as the last-known-good boot configuration
          Lock------------Locks the Service Database
          QueryLock-------Queries the LockStatus for the SCManager Database
EXAMPLE:
        sc start MyService

QUERY SESSION [sessionname | username | sessionid]
              [/SERVER:servername] [/MODE] [/FLOW] [/CONNECT] [/COUNTER]

  sessionname         Identifies the session named sessionname.
  username            Identifies the session with user username.
  sessionid           Identifies the session with ID sessionid.
  /SERVER:servername  The server to be queried (default is current).
  /MODE               Display current line settings.
  /FLOW               Display current flow control settings.
  /CONNECT            Display current connect settings.
  /COUNTER            Display current Terminal Services counters information.

RESET SESSION {sessionname | sessionid} [/SERVER:servername] [/V]

  sessionname         Identifies the session with name sessionname.
  sessionid           Identifies the session with ID sessionid.
  /SERVER:servername  The server containing the session (default is current).
  /V                  Display additional information.

<style type='text/css'>
.TableContainer div { 
 width:900px;
 padding-bottom: 20px;
 overflow-x:auto;
 overflow-y:hidden; 
}
.locked {
 position: relative; 
}
</style>

<style type='text/css'>

/* HORIZONTAL SCROLLING */
.TableContainer div{
 width:800px;
 padding-bottom: 20px;
 overflow-x:auto;
 overflow-y:hidden;
}
.locked {
 position: relative; 
}

/* VERTICAL SCROLLING */
.TableContainer tbody{
 height:300px;
 overflow-x:hidden;
 overflow-y:auto;
 padding-right: 20px;
 /*direction:rtl; // Use to place the scroll bar on the left side */
}
/* Prevent IE from using the TBODY height for all the TR's */
.TableContainer tbody tr {
 height: auto;
 white-space: nowrap;
}
</style>

private void MakeAccessible(GridView grid)
        {
            // complements of 
            // http://blog.madskristensen.dk/post/Make-the-GridView-control-accessible.aspx
            if (grid.Rows.Count > 0)
            {
                //This replaces <td> with <th> and adds the scope attribute
                grid.UseAccessibleHeader = true;

                //This will add the <thead> and <tbody> elements
                grid.HeaderRow.TableSection = TableRowSection.TableHeader;

                //This adds the <tfoot> element. Remove if you don't have a footer row
                grid.FooterRow.TableSection = TableRowSection.TableFooter;

                // To avoid out of order Pager rows: The table  must contain row sections in order of header, body, then footer
                // http://msnetprogrammer.net/blog/archive/2007/02/02/5.aspx
                if (grid.TopPagerRow != null)
                {
                    grid.TopPagerRow.TableSection = TableRowSection.TableHeader;
                }
                if (grid.BottomPagerRow != null)
                {
                    grid.BottomPagerRow.TableSection = TableRowSection.TableFooter;
                }

            }
        }

<script type="text/javascript">
/* compliments to http://www.robertnyman.com/index.php?p=256 */
function getElementsByClassName(oElm, strTagName, oClassNames){
	var arrElements = (strTagName == "*" && oElm.all)? oElm.all : oElm.getElementsByTagName(strTagName);
	var arrReturnElements = new Array();
	var arrRegExpClassNames = new Array();
	if(typeof oClassNames == "object"){
		for(var i=0; i<oClassNames.length; i++){
			arrRegExpClassNames.push(new RegExp("(^|\s)" + oClassNames[i].replace(/-/g, "\-") + "(\s|$)"));
		}
	}
	else{
		arrRegExpClassNames.push(new RegExp("(^|\s)" + oClassNames.replace(/-/g, "\-") + "(\s|$)"));
	}
	var oElement;
	var bMatchesAll;
	for(var j=0; j<arrElements.length; j++){
		oElement = arrElements[j];
		bMatchesAll = true;
		for(var k=0; k<arrRegExpClassNames.length; k++){
			if(!arrRegExpClassNames[k].test(oElement.className)){
				bMatchesAll = false;
				break;
			}
		}
		if(bMatchesAll){
			arrReturnElements.push(oElement);
		}
	}
	return (arrReturnElements)
}

function OnScroll(){
    // alert("Scrolling...");    
    var cells = getElementsByClassName(document.getElementByID("div_OLMGridView"), "td", "locked"); 
    for (var i = 0; i < cells.length; i++){
        cells[i].style.left = cells[i].offsetParent.scrollLeft;
    }
}

function GetScroller(){
    var scroller = null; 
    var divs=document.getElementsByTagName('div');
	for (var i = 0; i < divs.length; i++) {
	    if (divs[i].parentNode.getAttribute('class') == "TableContainer"){
	        scroller = divs[i];
	        break;
	    }
	}
	return (scroller);
}

function AddScrollListener(){	
    var scroller = GetScroller();
    // alert(scroller);
    if (scroller != null){
	if (scroller.addEventListener){
            scroller.addEventListener('scroll', OnScroll, false);
        } else if (scroller.attachEvent){
            scroller.attachEvent('scroll', OnScroll);
        }
    }
}// run it on load, or just call the function when you startup.
window.onload = function(){AddScrollListener();}
</script>

<DIV STYLE="background-color: #CFCFCF; position: absolute; 
         left:expression(document.body.clientWidth/2-oDiv.offsetWidth/2);
         top:expression(document.body.clientHeight/2-oDiv.offsetHeight/2)"></DIV>

unit uUPOSFactory;

interface
uses
  uUPOSDeviceControl,
  uUPOSDeviceService;

const
  POSDEVICESINIFILE = 'C:\Program Files\Vivonet\iPOS\Client\PosDevices.ini';

function CreateDeviceService(DeviceName: string): TUPOSDeviceService;
function CreateDeviceControl(DeviceName: string): TUPOSDeviceControl;

implementation

uses
  IniFiles,
  Classes;

function GetClassName(DeviceName: string; DeviceObject: string):string;
var
  iniFile: TIniFile;
begin
  iniFile := TIniFile.Create(POSDEVICESINIFILE);
  Result := iniFile.ReadString(DeviceName, DeviceObject, 'T' + DeviceName + DeviceObject);
  iniFile.Free;
end;

function CreateDeviceService(DeviceName: string): TUPOSDeviceService;
var
  DeviceClass: TPersistentClass;
begin
  try
    DeviceClass := GetClass(GetClassName(DeviceName, 'Service'));
    Result := TUPOSDeviceService(DeviceClass.Create);
  except
    Result := nil;
  end;
end;

function CreateDeviceControl(DeviceName: string): TUPOSDeviceControl;
var
  DeviceClass: TPersistentClass;
begin
  try
    DeviceClass := GetClass(GetClassName(DeviceName, 'Control'));
    Result := TUPOSDeviceControl(DeviceClass.Create);
  except
    Result := nil;
  end;
end;
end.

CURRENCY Currency_Amount;
CString Currency_Text = "";
Currency_Text.Format("%.2f", (float)(Currency_Amount.int64) / 10000);

CURRENCY Currency_Amount; 
COleCurrency COleCurr_Amount;
MSXML::IXMLDOMNodePtr pNode;
pNode = pDOMDoc->selectSingleNode("//Amount/Authorize");
if(pNode)
{
   COleCurr_Amount.ParseCurrency(W2T(pNode->Gettext()));
   Currency_Amount = COleCurr_Amount.m_cur;
}

while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
end;

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;