Jessel Aquing - APARC Systems

2012-01-10T12:33:00.000-08:00

Code: AV000
Message: APPROVED
Description: Successful communication attempt.

Code: AV400
Message: OPERATOR LOGIN FAILED
Description: Login credentials are wrong.

Code: AV401
Message: MAXIMUM ALLOWABLE LOGIN ATTEMPTS EXCEEDED
Description: Account is locked due to exceeded failed attempts. Account must be unlocked by Advam administrator.

Code: AV166
Message: STORED PAN ID IS REQUIRED
Description:

Code:
Message:
Description:

Code:
Message:
Description:

Code:
Message:
Description:

Code:
Message:
Description:

2011-08-31T10:27:00.000-07:00

When integrating with Chase Payemtech E-Xact Pay-Pages, I could not get the HMAC-MD5 hash to generate properly and match what their Hash Generator was producing. After reading up on HMAC (http://en.wikipedia.org/wiki/HMAC)

I ran some of their samples and found that what was being generated from the HMAC-MD5 was the same result as HMAC SHA1 and NOT what the wiki said should be produced for HMAC-MD5.

Solution? change the Pay-Page configuration to use SHA1 and use SHA1 to generate all the request and response validation hashes.

x_fp_hash

2011-08-30T15:02:00.000-07:00

taskmanager windows mobile
force close an application on a windows mobile device
Settings > System > Memory > Running Programs

Select app and click
Or
Click

2011-06-08T12:40:00.001-07:00

Collection of IF EXISTS statements for SQL

IF EXISTS (SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS
WHERE TABLE_NAME = 'Aparc_SpaceSensorHistory' AND COLUMN_NAME = 'RecordedOn')

IF EXISTS (SELECT * FROM sys.foreign_keys
WHERE object_id = OBJECT_ID(N'[dbo].[FK_Aparc_ParkingSpace_Aparc_ParkingSpace]') AND parent_object_id = OBJECT_ID(N'[dbo].[Aparc_ParkingSpace]'))

IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Aparc_ParkingSpace]') AND type in (N'U'))

SELECT * FROM sys.constraints

ALTER TABLE dbo.Aparc_SpaceSensorHistory
DROP CONSTRAINT DF_Aparc_SpaceSensorHistory_RecordedOn
END

ALTER TABLE dbo.Aparc_SpaceSensorHistory ADD
RecordDate datetime NOT NULL CONSTRAINT DF_Aparc_SpaceSensorHistory_RecordDate DEFAULT getdate()

IF EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[CorrectSpaceNumber]') AND type in (N'FN', N'IF', N'TF', N'FS', N'FT'))
DROP FUNCTION [dbo].[CorrectSpaceNumber]

IF NOT EXISTS (SELECT * FROM sys.indexes WHERE object_id = OBJECT_ID(N'[dbo].[Aparc_ParkingPlateHistory]') AND name = N'IX_Aparc_ParkingPlateHistory')
IF NOT EXISTS (SELECT * FROM sys.indexes WHERE object_id = OBJECT_ID(N'[dbo].[Aparc_ParkingPlateHistory]') AND name = N'PK__Aparc_ParkingSpace')

if not exists (select name from sys.objects where type_desc = 'DEFAULT_CONSTRAINT' and name = 'DF_AID_AGENCY_STAFF_CSR')

IF EXISTS(SELECT * FROM SYS.OBJECTS WHERE type_desc = 'DEFAULT_CONSTRAINT' AND parent_object_id = OBJECT_ID(N'[dbo].[Aparc_ParkingPlate]' and name = 'DF_AID_AGENCY_STAFF_CSR'))

2011-04-19T11:59:00.000-07:00

System.Data.Odbc.OdbcException: ERROR [HY000] [DataDirect][ODBC Progress OpenEdge Wire Protocol driver][OPENEDGE]Failure getting record lock on a record from table PUB.#####.

Solution: Add the no-lock statement to each select statement.

SELECT * FROM PUB.##### WITH(NOLOCK)

2011-04-12T11:45:00.000-07:00

I was getting a System.ObjectDisposedException when trying to serialize/remote a LINQ result set via a webservice. The actual data result was fine. The problem lay with the parent and child relationships generated by LINQ. Looping through each result and setting all the relationship objects to null stopped the exception, but that was not a solution (merely identified the source of the issue). The solution (provided to me by co-worker: Robert Blasutig), is to prevent LINQ from trying to load parent and child relationships automatically.

This is done by setting the DeferredLoadingEnabled property of the context to false.

To then have LINQ load parent/child objects later, you must specify which relationships to load with the following:

using (ClientDBDataContext clientCtx = new ClientDBDataContext(clientDbConnStr))
{
clientCtx.DeferredLoadingEnabled = false;

DataLoadOptions loadOptions = new DataLoadOptions();
loadOptions.LoadWith(dtAlias => dtAlias.ParentChildTableName);
clientCtx.LoadOptions = loadOptions;

...query...
}

FULL EXCEPTION:

System.InvalidOperationException: There was an error generating the XML document. ---> System.ObjectDisposedException: Cannot access a disposed object.
Object name: 'DataContext accessed after Dispose.'.
at System.Data.Linq.DataContext.GetTable(Type type)
at System.Data.Linq.CommonDataServices.GetDataMemberQuery(MetaDataMember member, Expression[] keyValues)
at System.Data.Linq.CommonDataServices.DeferredSourceFactory`1.ExecuteKeyQuery(Object[] keyValues)
at System.Data.Linq.CommonDataServices.DeferredSourceFactory`1.Execute(Object instance)
at System.Data.Linq.CommonDataServices.DeferredSourceFactory`1.DeferredSource.GetEnumerator()
at System.Linq.Enumerable.SingleOrDefault[TSource](IEnumerable`1 source)
at System.Data.Linq.EntityRef`1.get_Entity()
at AparcSystems.AparcDataAccess.Aparc_PdmTariff.get_Aparc_EnfArea()
at Microsoft.Xml.Serialization.GeneratedAssembly.XmlSerializationWriter1.Write25_Aparc_PdmTariff(String n, String ns, Aparc_PdmTariff o, Boolean isNullable, Boolean needType)
at Microsoft.Xml.Serialization.GeneratedAssembly.XmlSerializationWriter1.Write57_ArrayOfAparc_PdmTariff(Object o)
at Microsoft.Xml.Serialization.GeneratedAssembly.ListOfAparc_PdmTariffSerializer.Serialize(Object objectToSerialize, XmlSerializationWriter writer)
at System.Xml.Serialization.XmlSerializer.Serialize(XmlWriter xmlWriter, Object o, XmlSerializerNamespaces namespaces, String encodingStyle, String id)
--- End of inner exception stack trace ---
at System.Xml.Serialization.XmlSerializer.Serialize(XmlWriter xmlWriter, Object o, XmlSerializerNamespaces namespaces, String encodingStyle, String id)
at System.Xml.Serialization.XmlSerializer.Serialize(TextWriter textWriter, Object o, XmlSerializerNamespaces namespaces)
at System.Xml.Serialization.XmlSerializer.Serialize(TextWriter textWriter, Object o)
at System.Web.Services.Protocols.XmlReturnWriter.Write(HttpResponse response, Stream outputStream, Object returnValue)
at System.Web.Services.Protocols.HttpServerProtocol.WriteReturns(Object[] returnValues, Stream outputStream)
at System.Web.Services.Protocols.WebServiceHandler.WriteReturns(Object[] returnValues)
at System.Web.Services.Protocols.WebServiceHandler.Invoke()

2011-04-11T12:23:00.000-07:00

"DoInsertLogbookRecord"
"DoInsertTransLogRecord"

"Transaction context in use by another session"

Trigger code updates a table in a database in local instance. Does not require (ie CANNOT HAVE) reference to [server\instance] name in target.

2011-01-17T16:07:00.000-08:00

2010-12-02T21:17:00.000-08:00

doctrine "Missing class name"
Doctrine::generateModelsFromDb()

Doctrine fails with generic exception "Missing Class Name"

the model generation fails due to cross databases foreign key constraints.

PHP MAMP MySQL NaviCat

2010-11-15T10:00:00.001-08:00

How to check open connections to a Progress database:

proenv>e:
nav to DB file dir

proenv>cd progress\databases\customerDB

proenv>promon databaseName

use Promon instructions to view various statuses of the db and users

1. User Control
2. Locking and Waiting Statistics
3. Block Access
4. Record Locking Table
5. Activity
6. Shared Resources
7. Database Status
8. Shut Down Database

ETC...

2010-11-13T00:06:00.001-08:00

Progress Reports will not show.

All connections to progress database are used ("No Resources Available"). Must clear a connection and terminate process.

2010-11-10T18:56:00.000-08:00

Error:
Warning: include_once(Zend/Form/Element/password.php): failed to open stream:

Solution:

$password = new Zend_Form_Element_Password('password');

Zend_Form_Element_Password is CASE SensiTive

2010-08-24T15:20:00.001-07:00

iPhone - Verify account info: security code invalid

Set the credit card to "None" and save.
You can re-add the credit card number later.

2010-08-23T09:49:00.000-07:00

How to manually add a Progress OpenEdge ODBC Driver

ALERT: This requires registry edits, so take your normal precautions.

Launch:
regedit.exe

Navigate to:
(Windows)
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI

(64bit Windows 7)
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI

Add/Create the following key:

Progress OpenEdge [XX.XN] Driver

Where [XX.XN] is your available version of the Progress bin. (e.g. 10.2C)

Open the Progress OpenEdge XX.XN Driver key and add the following strings (REG_SZ):

APILevel = "1"

ConnectFunctions = "YYN"

CPTimeout = "60"

DriverODBCVer = "3.50"

FileUsage = "0"

SQLLevel = "0"

UsageCount = "1"

Setup = "[PATH]\pgoe1023.dll"

Driver = "[PATH]\pgoe1023.dll"

Where [PATH] is the location of the "pgoe1023.dll" library (e.g. "C:\Progress\V102A\bin").

HINT: You may place the bin file(s+) anywhere on the local system.

Next, Navigate to:

(Windows)

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers

(64bit Windows 7)

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers

Add the following string (REG_SZ):

Progress OpenEdge [XX.XN] Driver = "Installed"

Where [XX.XN] is your available version of the Progress bin. (e.g. 10.2C)

You will now see the Progress OE ODBC driver available in the ODBC Manager (SysWoW64 version for Windows 7).

connection string sample:
<add name="ProgressDb" connectionString="DRIVER=Progress OpenEdge 10.2A driver;HOST=localhost;PORT=9999;DB=databaseName;UID=userId;PWD=password;" />

2010-08-23T09:45:00.000-07:00

How to manually add a Progress OpenEdge ODBC Driver

Launch regedit.exe
Navigate to:
(Windows)
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI

(64bit Windows 7)
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI

Add/Create the following key:

Progress OpenEdge [XX.XN] Driver

Where [XX.XN] is your available version of the Progress bin. (e.g. 10.2C)

Open the Progress OpenEdge XX.XN Driver key and add the following strings (REG_SZ):

APILevel = "1"

ConnectFunctions = "YYN"

CPTimeout = "60"

DriverODBCVer = "3.50"

FileUsage = "0"

SQLLevel = "0"

UsageCount = "1"

Setup = "[PATH]\pgoe1023.dll"

Driver = "[PATH]\pgoe1023.dll"

Where [PATH] is the location of the "pgoe1023.dll" library (e.g. "C:\Progress\V102A\bin"). You may place this file anywhere on the local system.

Next, Navigate to:

(Windows)

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers

(64bit Windows 7)

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers

Add the following string (REG_SZ):

Progress OpenEdge [XX.XN] Driver = "Installed"

Where [XX.XN] is your available version of the Progress bin. (e.g. 10.2C)

You will now see the Progress OE ODBC driver available in the ODBC Manager (SysWoW64 version for Windows 7).

2010-08-18T13:46:00.000-07:00

ODBC Driver Issue: Progress OpenEdge - error code 193

You are trying to create a 64bit ODBC connection using a 32bit driver and the 32bit driver does not appear in the 32bit ODBC connection manager (SysWOW64)

You need to add the following keys:

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\ODBC Drivers]
"Progress OpenEdge 10.2A driver"="Installed"

[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\ODBC\ODBCINST.INI\Progress OpenEdge 10.2A Driver]
"Driver"="[DLC]\\bin\\pgoe1023.dll"
"Setup"="[DLC]\\bin\\pgoe1023.dll"
"DriverODBCVer"="3.50"
"APILevel"="1"
"ConnectFunctions"="YYN"
"CPTimeout"="60"
"FileUsage"="0"
"SQLLevel"="0"
"UsageCount"="1"

[DLC] should refer to the 10.2A installation directory

{From ProgressTalk Kbase Solution P141118}

2010-08-12T11:49:00.000-07:00

Set multiple sites running SSL over port 443 in IIS

c:\windows\system32\cscript.exe C:\Inetpub\AdminScripts\adsutil.vbs set /w3svc/52796006/SecureBindings ":443:www.domain.com"

2010-08-04T18:38:00.000-07:00

Progress SQL ODBC errors:

i) System.Data.Odbc.OdbcException: ERROR [HY000] [DataDirect][ODBC Progress OpenEdge Wire Protocol driver][OPENEDGE]Invalid number string (7498)

SOLUTION: Lookup Type/Value Not Found - check values bound to lists/types

ii) [PROGRESS]Lock table is full. (7870)
sol: # Lock Table Entries is too small. Increase in ODBC connection properties.

iii) [System.Data.Odbc.OdbcException] = {"ERROR [HY000] [DataDirect][ODBC Progress OpenEdge Wire Protocol driver][OPENEDGE]Character string is too long (8184)"}

SOLUTION: Text in a Formatted field (Date or Time or Currency...) contains invalid or extra characters (" ", leading space).

iv) [ODBC Progress OpenEdge Wire Protocol driver]Optional feature not implemented.
[OPENEDGE]Broker rejects connection

SOLUTION: PEO database is not setup for SQL (4GL only) OR Database needed a restart.

2010-07-28T12:26:00.000-07:00

SQL Server 2005 - Loop through/split a delimited string
Here is a further cleaned up, generalized, and working version of a T-SQL script to take in comma delimited list and parse it into elements and operate on the individual values:

GO
DECLARE @commaList AS VARCHAR(MAX)
SET @commaList = '1,2,3,4'

DECLARE @pos as INT
IF substring(@commaList, LEN(@commaList),1) <> ','
   SET @commaList = @commaList + ','

print substring(@commaList, LEN(@commaList),1)
SET @pos=0
DECLARE @listItem as int

WHILE charindex(',',@commaList)>0
   BEGIN
   SET @listItem = cast(substring(@commaList,0, charindex(',',@commaList)) as int)
   /***********PERFORM ACTION***********/
   PRINT @listItem
   /*************END ACTION*************/
   SET @commaList = substring(@commaList, charindex(',',@commaList)+1, LEN(@commaList) - @pos) --remove the first item from the list
   END

GO

The original script came from here, but was too specific to the original writer's needs and did not perform any action on the last value...
The original writer also mentions, that he (and I) does the cast to int because he requires an INT. If you do not, do not do the cast.

"SQL Server 2005 - Loop through/split a delimited string"
http://www.vbforums.com/showthread.php?t=507592

2010-06-29T14:56:00.000-07:00

Windows 7 Blackscreen of Death BSOD - Completely black desktop with mouse activity.

Just got a windows 7 notebook machine back up and running after suffering the BlackScreenOfDeath Issue.

Initially I suspected that the screen settings had shifted the desktop off to an external monitor which was not currently attached. But when no context menu came up from a right click of the desktop, I realized there was no desktop running. This led me to believe that explorer.exe had not started. So with a ctrl+alt+del I got to the task manager (good sign) and could see that indeed there was no explorer.exe process running.

The next step was to try and fire it up manually using the "New Task" button on the Task Manager. This only returned an error message stating that no explorer.exe could be found. I did a little Google-ing to confirm that explorer was still explorer in Windows 7 (which it is). Along with that Google search I found out that I was experiencing the BlackScreenOfDeath issue and that the security company PrevX had a solution (PrevX Article).

I later read that the PrevX solution was not the fix-all. It did address the issue of a possible missing registry key which points to the location of explorer.exe for the system to launch the desktop process when a user logs on. After confirming the registry key was intact, off to confirming the location of the exe.

The explorer.exe file should be located in the Windows directory, but it was not. Which explains why the desktop failed to launch leaving the user with the BSOD. I did a search of the user's hard drive and found several versions of the exe in question in subdirectories located in the Windows\winsxs directory. Curiously, I launched one of the executables located under an "AMD64..." directory (even though this was an INTEL) and the desktop loaded. The explorer.exe's under the "WOW64..." and "X86..." directories failed to launch with an error.

In the end, I copied the explorer.exe (the one that worked) from the Windows\winsxs\AMD64... directory into the Windows directory and restarted the machine.

Whaa Lahh, the machine is golden. Hope this helps.

2010-06-23T16:29:00.001-07:00

From TIM

Serialize (convert an object instance to an XML document):
// Assuming obj is an instance of an object
XmlSerializer ser = new XmlSerializer(obj.GetType());
System.Text.StringBuilder sb = new System.Text.StringBuilder();
System.IO.StringWriter writer = new System.IO.StringWriter(sb);
ser.Serialize(writer, obj);
XmlDocument doc = new XmlDocument();
doc.LoadXml(sb.ToString());
Deserialize (convert an XML document into an object instance):
//Assuming doc is an XML document containing a serialized object and objType is a System.Type set to the type of the object.
XmlNodeReader reader = new XmlNodeReader(doc.DocumentElement);
XmlSerializer ser = new XmlSerializer(objType);
object obj = ser.Deserialize(reader);// Then you just need to cast obj into whatever type it is eg:
MyClass myObj = (MyClass)obj;

Thanks Tim

2010-06-14T10:45:00.000-07:00

To add user to ASAM
1) Create account
2) Add account and areacode relationship(s)

To add Sity client reports to a Client
1) Add Client SQLRS server account as "browser" to SityClient Reports folder.
2) Add Client SQLRS server account to the [AparcSystemsSpExecutor] role

NOTE:

Be sure all NEW procedures are added to the [AparcSystemsSpExecutor] role

To Add a SQLRS user
1) Create new machine/Windows account ("svcServiceAccount")
2) Add user to SQL server instance(s)
3) Add to:
i) AparcSystems with R/W permissions and AparcSystemsSpExecutor
ii) SityDb with R permissions
iii) SityDbxxxxx Client DB with R permissions and AparcSystemsSpExecutor
4) Add user account to SQLRS reports user param for Client via ASAM.

2010-06-12T21:12:00.000-07:00

When Posting Sity Client Reports, all reports must have their datasource properties changed to use:

Windows integrated security

Hit <Apply>

2010-06-03T10:26:00.000-07:00

When passing SQLRS report parameters through the URL be sure to use the ReportServer and not the Reports

Want to pass hidden parameters to an SQLRS report in a browser?
Just add the parameter name and value to the query string pointing at the ReportServer URL like so:

http://reportingserver.aparcsystems.com/ReportServer/Pages/ReportViewer.aspx?%2fReports%2fTransactionDetails&rs%3aCommand=Render&PARAMNAME=PARAMVALUE

2010-05-05T11:41:00.000-07:00

Loading an unmanaged C++ dll into a managed c# class (.Net 3.5)

I am developing a .NET 3.5 C# Webservice which calls methods from within an unmanaged C++ dll. Aside from the basic issues of wrapping the structs and method calls for use by the C# class, I ran into a couple of hurdles deploying.

ISSUES:
(1)
Server was unable to process request. ---> System.BadImageFormatException: An attempt was made to load a program with an incorrect format. (Exception from HRESULT: 0x8007000B)

(2)
Server was unable to process request. ---> Unable to load DLL 'SPInterface.dll': The specified module could not be found. (Exception from HRESULT: 0x8007007E)

SOLUTIONS:
(1)
Be sure that your app_pool managing your webservice/site is allowing 32bit applications if running on a 64bit platform (IIS7)
OR
Be sure that your application is built as an x86 project
goto Configuration Manager and set the project to build as x86
(If Configuration Manager is not available, goto Tool>Options>Projects and Solutions>General>Show advanced build configurations)

(2)
Be sure that your unmanaged dll appears in your site bin folder.
Be sure that all resources (dll, lib, etc.) referenced by your dll are also in your bin.

2010-04-21T16:32:00.000-07:00

While loading controls inside an asp:LinkButton will render correctly on Page_Load, after post back the control loses the contained controls

e.g.
<asp:LinkButton id="btnShowReport" runat="server" OnClick="btnShowReport_Click">
<img src="images/16doc.gif" height="16" width="16" />
<asp:Label id="lblReportTitle" runat="server"/>
</asp:LinkButton>

This code appeared within an asp:Repeater, where the CommandName and CommandArgument of the LinkButton were being set dynamically along with the Text property of the Label. But on postback to bthShowReport_Click, all the links essentially disappeared. I discovered that the <a> tags where still in the page on PostBack, but the contents making them functional where gone.

It was a nice try but now... Just as simple but perhaps more elegant, but mostly IT WORKS!

<asp:ImageButton id="btnShowReport" runat="server" OnClick="btnShowReport_Click" ImageUrl="images/16doc.gif" style="vertical-align: middle"/>
<a>
<asp:Label id="lblReportTitle" runat="server" AssociatedControlID="btnShowReport"/>
</a>

I use the associated control to tie the label to the click event of the image button and some anchor tags give the linkbutton feel to the label.
Could have made the label a linkbutton and use the same onclick event handler as the imagebutton . But in the method I would have to check the type to do the correct cast of sender in order to get the command name and argument.

Dumb problem, simple solution. It just drove me nuts to see all the links disappear on postback so had to blog it.

2010-04-19T12:44:00.000-07:00

Born in the West Indies, but for the next 2 weeks I'm a PROUD CANADIAN!

GO CANADA!
http://picasaweb.google.com/trinijessel See my photos from the 2010 Winter Olympics here in Vancouver

2010-02-10T13:15:00.000-08:00

A Simple(rudimentary) implementation of XPath node search (SelectSingleNode) for OpenEdge 10.2A

- DOES NOT implement Node value filtering (yet)
- Implements Positional referencing/filtering
- DOES NOT implement Attribute searching (yet)
- DOES NOT implement Multiple node result selection like SelectNodes (new function coming)

NOTE: This is a work in progress.

NOTE: You will need to declare the following global variable:
DEFINE VARIABLE recurseXPath AS LOGICAL NO-UNDO.

FUNCTION SelectSingleNode RETURNS LOGICAL (INPUT hXBaseNode AS HANDLE,INPUT xPath AS CHARACTER, OUTPUT hXNode AS HANDLE):
DEFINE VARIABLE hXCurrentNode AS HANDLE.
DEFINE VARIABLE hXChildNode AS HANDLE.
DEFINE VARIABLE childCount AS INTEGER.
DEFINE VARIABLE currentPosition AS INTEGER.
DEFINE VARIABLE startPosition AS INTEGER.
DEFINE VARIABLE endPosition AS INTEGER.
DEFINE VARIABLE iterationDone AS LOGICAL.
DEFINE VARIABLE nodeName AS CHARACTER.
DEFINE VARIABLE pathSegment AS CHARACTER.
DEFINE VARIABLE nodeFilter AS CHARACTER.
DEFINE VARIABLE fqNodeName AS CHARACTER.
DEFINE VARIABLE subPath AS CHARACTER.

CREATE X-NODEREF hXCurrentNode.
CREATE X-NODEREF hXChildNode.

IF (SUBSTRING(xPath, 1, 2) = "//") THEN DO:
recurseXPath = TRUE.
subPath = SUBSTRING(xPath, 3).
hXCurrentNode = hXBaseNode:OWNER-DOCUMENT.
END.
ELSE IF (SUBSTRING(xPath,1,2) = "..") THEN DO:
subPath = SUBSTRING(xPath, 3).
hxBaseNode:GET-PARENT(hXCurrentNode).
END.
ELSE IF (SUBSTRING(xPath,1,2) = "./") THEN DO:
subPath = SUBSTRING(xPath, 3).
hXCurrentNode = hxBaseNode.
END.
ELSE IF (SUBSTRING(xPath, 1, 1) = "/") THEN DO:
subPath = SUBSTRING(xPath, 2).
hXCurrentNode = hxBaseNode.
END.
ELSE DO:
subPath = xPath.
hXCurrentNode = hxBaseNode.
END.

iterationDone = FALSE.
pathSegment = ENTRY(1, subPath, "/").
subPath = SUBSTRING(subPath,LENGTH(pathSegment) + 1).

/* need to validate prefixes used. */
DO ON ERROR UNDO, LEAVE:
fqNodeName = ENTRY(1, pathSegment, "[").
nodeFilter = ENTRY(2, pathSegment, "[").
nodeFilter = SUBSTRING(nodeFilter, 1, LENGTH(nodeFilter) - 1).

CATCH err AS Progress.Lang.SysError:
nodeFilter = "".
fqNodeName = pathSegment.
/* LOG ERROR */
END CATCH.
END.

/* need to validate prefixes used. */
DO ON ERROR UNDO, LEAVE:
nodeName = ENTRY(2, fqNodeName, ":").
CATCH err AS Progress.Lang.SysError:
nodeName = fqNodeName.
/* LOG ERROR */
END CATCH.
END.

DO ON ERROR UNDO, LEAVE:

startPosition = 1.
endPosition = hXCurrentNode:NUM-CHILDREN.

DO currentPosition = startPosition TO endPosition:
hXCurrentNode:GET-CHILD(hXChildNode, currentPosition).
IF (hXChildNode:SUBTYPE = "ELEMENT") THEN DO:
IF (hXChildNode:NAME = fqNodeName) THEN DO:
/* apply filter */
IF (nodeFilter = "" OR (hXChildNode:CHILD-NUM = INTEGER(nodeFilter))) THEN DO:
hXCurrentNode = hXChildNode.
hxNode = hXCurrentNode.
iterationDone = TRUE.
recurseXPath = FALSE.
LEAVE.
END.
END.
IF (recurseXPath = TRUE AND hXChildNode:NUM-CHILDREN > 0) THEN DO:
DEFINE VARIABLE hxFirstChild AS HANDLE.
CREATE X-NODEREF hxFirstChild.
hXChildNode:GET-CHILD(hxFirstChild,1).

IF (hxFirstChild:SUBTYPE = "ELEMENT") THEN DO:
iterationDone = SelectSingleNode(hXChildNode, pathSegment, hxNode).
IF (hxNode:NAME = fqNodeName) THEN DO:
hXCurrentNode = hxNode.
iterationDone = TRUE.
recurseXPath = FALSE.
END.
END.
END.
END.
END.

IF (iterationDone = TRUE) THEN
DO WHILE (ENTRY(2, subPath, "/") <> ""):
RETURN SelectSingleNode(hXCurrentNode, subPath, hxNode).
END.

RETURN iterationDone.

CATCH err AS PROGRESS.Lang.SysError:
RETURN iterationDone.
END CATCH.
END.
RETURN iterationDone.
END FUNCTION.

2010-02-10T13:10:00.001-08:00

A simple pair of Get and Set Inner Text functions for OpenEdge Xml:

FUNCTION SetInnerText RETURNS CHARACTER (INPUT hxDoc AS HANDLE, INPUT-OUTPUT hXBaseNode AS HANDLE, INPUT nodeValue AS CHARACTER):
DEFINE VARIABLE hxTextNode AS HANDLE NO-UNDO.
CREATE X-NODEREF hxTextNode.

DO ON ERROR UNDO, LEAVE:
IF(hxBaseNode:NUM-CHILDREN > 0) THEN DO:
hxBaseNode:GET-CHILD(hxTextNode, 1).
IF (hxTextNode:SUBTYPE = "TEXT") THEN DO:
hxTextNode:NODE-VALUE = nodeValue.
RETURN hxTextNode:NODE-VALUE.
END.
ELSE
RETURN "".
END.
ELSE DO:
hxDoc:CREATE-NODE(hxTextNode, "", "TEXT").
hxTextNode:NODE-VALUE = nodeValue.
hXBaseNode:APPEND-CHILD(hxTextNode).
RETURN hxTextNode:NODE-VALUE.
END.
CATCH err AS PROGRESS.Lang.SysError:
RETURN "".
END CATCH.
END.
END FUNCTION.

FUNCTION GetInnerText RETURNS CHARACTER (INPUT hXBaseNode AS HANDLE):
DEFINE VARIABLE hxTextNode AS HANDLE NO-UNDO.
CREATE X-NODEREF hxTextNode.

DO ON ERROR UNDO, LEAVE:
hxBaseNode:GET-CHILD(hxTextNode, 1).
IF (hxTextNode:SUBTYPE = "TEXT") THEN DO:
RETURN hxTextNode:NODE-VALUE.
END.
ELSE
RETURN "".
CATCH err AS PROGRESS.Lang.SysError:
RETURN "".
END CATCH.
END.
END FUNCTION.

2010-02-10T12:31:00.000-08:00

SOAP Sniffing in OpenEdge 10.2.A

From the OpenEdge development environment prompt run the following:

proenv>prosoapview PORTNUM

E.G.

proenv>prosoapview 4444

2010-02-04T11:15:00.000-08:00

Creating a SOAP header with AuthHead tags in Progress OpenEdge 10.2.A

DEFINE VARIABLE hWebService AS HANDLE NO-UNDO.

DEFINE VARIABLE hPortType AS HANDLE NO-UNDO.

PROCEDURE CreateMessageAuthHeader :
   DEFINE OUTPUT PARAMETER hSOAPHeader AS HANDLE .
   DEFINE INPUT PARAMETER cOperationNamespace AS CHARACTER .
   DEFINE INPUT PARAMETER cOperationLocalName AS CHARACTER .
   DEFINE OUTPUT PARAMETER lDeleteOnDone AS LOGICAL .

   DEFINE VARIABLE hTmpSoapHeader AS HANDLE NO-UNDO.
   DEFINE VARIABLE hSoapHeaderRef AS HANDLE NO-UNDO.
   DEFINE VARIABLE hNodeAuthHead AS HANDLE NO-UNDO.

   CREATE SOAP-HEADER hTmpSoapHeader.
   CREATE SOAP-HEADER-ENTRYREF hSoapHeaderRef.

   CREATE X-DOCUMENT hXDocAuthHeader.
   CREATE X-NODEREF hNodeAuthHead.

   hTmpSoapHeader:ADD-HEADER-ENTRY(hSoapHeaderRef).

   hXDocAuthHeader:CREATE-NODE-NAMESPACE(hNodeAuthHead, cNsUri, cNsPrefix + ":" + "AuthHeader", "ELEMENT").
   AddMessageElement(hNodeAuthHead, hXDocAuthHeader, "username", "username", cNsUri, cNsPrefix).
   AddMessageElement(hNodeAuthHead, hXDocAuthHeader, "password", "password", cNsUri, cNsPrefix).

   hSoapHeaderRef:SET-NODE(hNodeAuthHead).
   hSoapHeader = hTmpSoapHeader.

   lDeleteOnDone = TRUE.

END PROCEDURE .

FUNCTION ConnectWebService RETURNS INT ().
   /*Connect to Webservice*/
   CREATE SERVER hWebService.

   /* replace connection string with config val */
   hWebService:CONNECT("-WSDL 'http://www.someservicesite.com/webservice.asmx?wsdl'").
   RUN PortType SET hPortType ON hWebService.

   /* Set up webservice call/callback */
   hPortType:SET-CALLBACK-PROCEDURE("REQUEST-HEADER", "CreateMessageAuthHeader").
END FUNCTION.

/***********************Web Methods*********************************/

FUNCTION GetStatus RETURNS INT
  (INPUT IdNumber AS CHARACTER)
  IN hPortType.

/***********************Business Methods*********************************/
FUNCTION GetMyStatus RETURNS INT (INPUT IdNumber  AS CHARACTER).
   ConnectWebService().
   statusResult = GetStatus(IdNumber).
END FUNCTION.

2010-02-04T11:02:00.000-08:00

Using OpenEdge 10.2.A from Progress to consume a webservice:

When passing an EXTENT LONGCHAR containing an array of XML messages as a parameter to a web method, the xml message(s) are being partially HTML-ENCODED. Which the receiving web method does not appreciate in the slightest.

When I say the XML is being partially HTML-ENCODED, I mean that the '<' and '"'s are being replaced with '<' and '"' respectively. The '>'s are not being replaced. I have no access to the code block where the web call is being made and the encoding occurs as the WSDL is downloaded by Progress OpenEdge on each call. The WSDL is processed and the methods + signatures determined dynamically.

The Schema used defined a custom element type of "anyType". This was the source of the problem. Progress would not interpret the usage/implementation of this node correctly - where the anyType node was meant to be replaced by any other element in the schema defined as type anyType.

Taking the WSDL and manually modifying the schema portion of it to build the message without the anyType did the trick. The encoding also ceased.

2010-01-21T14:04:00.000-08:00

To have your Satellite Forms project produce an '.exe', you must have an icon file in the '\Images' directory of your project.

Note: The icon file must have the same name as your project (.sfa file), but the project may have a different application name. The application name will be the name of your '.exe' with the icon from the '\Images' directory

2007-06-04T20:50:00.000-07:00

The amount of help you can find on the web about binding a datasource to a datagrid is astounding. Once you bound your datagrid and populated it, the user of course wants to see it.

They may optionally want to update, delete or insert data into your nicely bound datagridview.

All of the above is well documented on the web and easy to pull off. So now what?

Let's suppose you want to "Do" something with the data, say.... save it back to a source?

Well if you were using an unbound datasource and populated it on the fly, AND thought you could persist some data in hidden columns, you are sadly mistaken.

The data in hidden columns is never bound on the databind(). That’s right, a predefined column with the datafield attribute set and the visible attribute set false will not bind to the datasource datafield.

The trick is to define all columns of data you wish to persist to visible columns and then after you call the databind(), hide the columns you don't want to show the user. The data will now persist.

CAUTION! If you rebind (update the datagrid datasource) after you've hidden the columns, the data will be lost again. You must first make the columns visible again, then rebind the datagrid and then you may hide the columns once more.

2007-04-03T02:02:00.000-07:00

Speeding up Vista with ReadyBoost USB RAM drive

I personally am not running any Vista PCs or notebooks (don't have the hardware base). But if anyone is experiencing the Vista hardware drain, Alec Saunders has blogged a bit on his experience with ReadyBoost included with Microsoft Windows Vista.

I'd love to know if anyone else has had positive results with it.

Speeing up Windows Vista http://saunderslog.com/2007/04/02/speeding-up-windows-vista/

2007-03-29T15:09:00.000-07:00

InfoPath goes to XML Schemaville

OK, in XML schemaville, when you define an element (<xsd:element></xsd:element>) you define the the type of element it is and what type of children it will contain (text or other xml elements) if you want it to do both (contain text nodes and element nodes) you have to explicitly define it like that typically you define element nodes that contain child element nodes to not contain text nodes as well.

In InfoPath, elements that contain other child elements are called "groups". The IP schema tool does support defining mixed content nodes. So, since your target node is a "group" it is not allowed to contain text. You must either change it to an element (remove group & re-add element by same name) or do not write to it (add a child element to it to write to) .

2007-03-15T15:53:00.000-07:00

Generate Xpath Statement

Ever want to work out what the Xpath statement would be for a current node of an XML document? Well here you go. This little tid bit will quickly work its way back up the parent-grandparent tree, up to the root node of the document. And when it's done, you'll be returned the Xpath statement.

Code: (generated for InfoPath C# managed code)

private string GenerateMatchPath(IXMLDOMNode sourceNode, string xPath)
{
IXMLDOMNode parentNode = sourceNode.parentNode;
while (parentNode != null && parentNode.nodeName != "#document")
{
xPath = parentNode.nodeName + "/" + xPath;
parentNode = parentNode.parentNode; } return "/" + xPath;
}//GenerateMatchPath

Now, why would this be useful?

Suppose you would like to compare the data of a pair of XML documents (docA and docB).

If you used an Xpath query (xmlDoc.selectNodes("//descendant-or-self::node()")) to generate a nodelist of all elements in docA, you could:

loop through each node from docA
get its value
generate the xpath
use the xpath to get the value from docB
compare values
take appropriate action (update docA? update docC?)

[Snippet to follow...]

2007-03-13T12:53:00.000-07:00

Clearing Windows network passwords.

I have recently found problems with my Visual Source Safe 2005 (VSS) solution bindings breaking in Visual Studio .NET 2005 (VS2005). On two occassions in the last week I have encountered "Invalid Handle" errors when trying to check-in my solutions.

The invalid handle error is due to the VSS bindings. The solution has been to restablish the bindings, however, this was hampered by the root problem ;) Somehow a bad password was saved, and the connection to the VSS server could not be established. So, the corrupt credentials must be removed.

To do this, I found James Geurts' Blog on 'Clear saved windows networking passwords' where he supplies the following:

Start>Run>rundll32.exe keymgr.dll, KRShowKeyMgr

The same dialog can be opened via:

Start>Control Panel>User Accounts>Advanced Tab>Manage Passwords

I prefer the latter option as it is easier to remember and find again ;)

(James Geurts' Blog http://biasecurities.com/blogs/jim/archive/2005/12/20/3876.aspx)

2006-10-21T23:52:00.000-07:00

Missing nodes from a webservice.

InfoPath is very particular about the type of document it processes - this due to its very stringent implementation of XSD Schemas. InfoPath will complain immediately if it encounters nodes that do not fit the schema design (nodes not defined in schema, nodes out of position, multiple nodes where not defined as repeating)

If a node is missing from the instance document and the schema dictates the optional presence of this node, InfoPath will accept the document as valid. However, if there are any controls being bound to the missing field, InfoPath will disable the field in the UI, as nothing can be written to a missing node.

This became painfully apparent in our early iterations of our InfoPath form. We noticed several fields being locked out in the form only to discover the fields were missing from the XML documents returned by our Webservice. We tracked this down to the Enterprise Library's Database Datatable to XML conversion.

Any null values in a recordset are not converted to empty fields in the resulting XML, but rather they are just omitted. Our solution was to use the schema to build ourselves an empty instance document and populate it with the data from the recordset. This way we are guaranteed to get all required nodes returned from a webservice

Since a schema document is simply another XML document, parse the XSD document and programmatically build the instance document starting from the root node element definition.. TBC

2006-10-13T14:17:00.000-07:00

Extracting form files

Choose Extract Form Files from the File menu.
Select a location to save your extracted form files to, and then click OK.
Close InfoPath to release the lock it places on your form files.
Using a text editor, open your view .xsl file.

2006-10-13T12:30:00.000-07:00

Friday, October 13, 2006

Breaking In A New Horse

One of the growing pains I encountered after migrating to Visual Studio 2005, was an issue I had trying to debug my InfoPath 2003 project. I would get an error message;
"In order to debug this project, add an executable project to this solution which references the library project. Set the executable project as the startup project."

While VS 2003 would launch the InfoPath form and Debug it with a fancy-free click of the 'Debu' button, VS 2005 requires you to have the solution selected before it will attempt to launch the form.

However that brought me to an issue I was not previously having. Without having changed any code, the form failed to load in preview or debug mode. Now I am getting the “The format of the file .dll is invalid” error. You would see this error on our dev-test VPCs that did not have the .NET 2.0 framework installed prior to launching the new form.

How is it possible that the DEV workstation compiling the formcode.cs in Visual Studio 2005 .NET 2.0 did not have .Net 2.0 installed?!?

After a quick reinstall of the framework and a restart, the form is debugging and previewing again.

So in recap; select the solution item in the Solution Explorer of Visual Studio 2005 BEFORE attempting to debug (F5).

Ciao for Niao

2006-10-12T17:31:00.000-07:00

The project I'm currently working on finally afforded the time to convert the project from 2003 platforms to 2005 servers and .NET 2.0. While many of my collegues in other companies made the change last year, we are a consulting firm doing work for clients and so we required approval from the customer to proceed.

So far the InfoPath conversion was rather painless as we are not migrating to Office 2007 (yet?). The managed code compiled beautifully in Visual Studio 2005 and after installing the .Net 2.0 Framework on the test workstations, the form opened without flaw. However the webservices needed to be migrated to another machine name to not conflict with Sharepoint Services which are still running 1.1.4.

Our form displays a simple windows form with a rotating graphic scheme as a “Please Wait” message. Initially, a couple of them got stuck on the display and new ones stop showing up. Not sure what the cause was, but it seems to have corrected itself - perhaps the first load of the new form in .NET 2.0?

Other than that things went very well from my end. Next on the migration for me is Notification Services. Another breeze I expect.

Ciao for Niao

2006-09-11T15:17:00.000-07:00

The Great Giveaway continues...

Ever tried to get unique items out of the events table in SQL Notification Services?

Use the greatest EventBatchId with EventCount greater than 0 from the EventBatches table, to identify the latest set of events written to the Events table.

The Current Events table will have the events trapped by the events query at runtime, however the records are temporary and get dumped to the events table. The above method is the best way to locate the latest events.

Ciao for Niao

2006-09-08T10:09:00.000-07:00

Ever tried updating a solution from Source Safe and get a dialog box asking to redeploy a website/virtural directory to another location? (usally the same name suffixed with an underscore and a number)

Well, to redeploy the website to the same URL, go to the directory and delete the project file (*.csproj or *.vbproj...). You may then go back to the dialog box and fix the URL to publish back to the original path. The project will deploy successfully.

2006-08-18T20:00:00.000-07:00

YES/NO/CANCEL

I recently received an issue from our diligent QA department asking to have a dialog box, which presented Yes/No/Cancel as options, shortened down to just Yes/No

I responded with my reason for the existance of this combination of options:

It is a UI decision. Both Yes and No are definitive answers to a question, however, sometimes a user will interact an application and perform actions that they had no intentions of doing.
Definitive answers like Yes and No imply that you are instructing the application to do something (even if you answer no). Because you answered the question, the application is going to take action accordingly.

The Cancel option gives the user peace-of-mind that, if they just cancel, nothing will happen because they have just instructed the application to "cancel" the previous action all together.

Of course wording the question is crucial here. The question could very well imply that clicking No means that the action will be cancelled. However with a very critical action, a user may feel more at ease indicating to the application to completely disregard the previous action, even if No does mean NO!

2006-08-16T13:27:00.000-07:00

One of the most useful pieces of code used by the InfoPath Developers here at Visiphor is the SecondaryDataSource Class written by one of our senior developers, Keith Curtis.

This class exposes some simple methods which we use to interact with secondary data sources.

Call the secondary datasource (query()),
Query data (GetNodeValue(), GetValue())
Set data (SetNodeValue).

All of the clutter of handling a secondary datasource in code (namespacing, instantiating the connection, etc.) are handled from within the class. The developer need only instanciate the class, by passing the name of the secondary data source and the XDocument, to have access to these very simple tools.

The GetNodeValue and GetValue methods behave more like typical XSLT xsl:value-of calls where xpath queries that result in missing nodes do not cause catastrophic exceptions, but rather return empty strings. Trace messages can be returned if the xpath query does not return a node, but the call will not fail.

We added a winform to the InfoPath form that is called by the query method. The winform displays a progress bar, which runs in a separate thread so while the form is disabled by calls to a datasource/webservice, the progress bar gives the user something to look at. Also, because the winform runs in a separate thread, it displays while the form is initially loading (before the first view is rendered) - NICE!

I'll talk more about the winform and the speed-of-load issues which spawned the need/want of the progress bar in future entries.

If you'd like more info about the class, drop me a line.

Thanks for reading,

Jessel

2006-07-23T14:19:00.000-07:00

It has been (now) 6 days since my first blog entry. A few people have inquired as to when the next entry will be published. Well I haven't formalized the intention of this blog, so let me simply outline the inspiration for it.

As part of the personal brand development at Visiphor, I intend to use this blog to showcase the particular niche I have found myself in and hopefully identify myself as viable resource on the topic(s).

In my time with this group, I have been exposed to a few new technologies (SQL Reporting Services, SQL Notification Services, Microsoft InfoPath). I intend on documenting our experiences and application of (at least) SQL Notification Services and Microsoft InfoPath. I am also very interested in expanding my introduction to K2.NET and its following release "Black Pearl"

The InfoPath form I am currently working is very exciting and full of interesting applications of the technology, which I plan on displaying. I will also provide a few "nice to have" features which we have not implemented and how to implement them.

That's all for now...

Thanks

Jessel Aquing

2006-07-17T10:34:00.000-07:00

Hello all!

Yes, that does include you.

This constitues my first blog entry - ever. As my first blog entry I choose to focus mainly on the fact that this is my first blog entry. While I have plenty to say, I have never had a problem finding an audience (willing, unwilling, captive or evasive). So this blog will serve as a log of of my adventures in Enterpise Solution Development at Visiphor Consulting Services here in beautiful Vancouver, British Columbia, Canada.

The next entry will document in more detail the intentions of this Blog.

Thanks!

Jessel