I'll demonstrate what I can do, not to mystify anyone, but to show a variety of skills (perhaps, only other programmers can notice).

Key Benefits

• 28 years of programming experience.
• Have used the newest programming tools available, such as the Microsoft .NET "studio".
• Have a warehouse of programming code that can be incorporated into a new project, cutting development time substantially.

Capabilities

The examples below are to demonstrate as directly as possible my programming ability.  Each case is not in its entirety, but is meant for the average browser to grasp what I have, and can, accomplished.

SQL — Stored Procedures

This example retrieves numbers that are in a single row of data, gets rows of data from another table, then performs some internal calculations before retrieving the data for a program function.

create procedure p_ws_chrge_e (@pv_year smallint, @pv_month tinyint)

as Begin

SELECT plans.plan_cd,

       Sum(ws_detail.hits) as SumHits

  INTO #tmp_web_chrgs

  FROM ws_detail,

       plans

 WHERE (ws_detail.plan_cd = plans.plan_cd)

   AND ( ws_detail.year_nbr = @pv_year

   AND   ws_detail.month_nbr = @pv_month)

   GROUP BY plans.plan_cd, plans.bill_plan_cd

 

DECLARE @Sum_hits integer

SELECT @Sum_hits=Sum(ws_detail.hits)

  FROM ws_detail

 WHERE ( ws_detail.year_nbr = @pv_year

   AND   ws_detail.month_nbr = @pv_month )

 

DECLARE @Charges as Decimal

SELECT @Charges=abc_charges.month_charges

  FROM abc_charges

 WHERE ( abc_charges.year_nbr = @pv_year

   AND   abc_charges.month_nbr = @pv_month )

 

SELECT plan_cd,

       Sum(SumHits) as PlanTotal,

       Pct=Convert(Decimal, Sum(SumHits)) / Convert(Decimal,  @Sum_hits),

       Amt=Round(@Charges * Convert(Decimal, Sum(SumHits)) /    Convert(Decimal, @Sum_hits), 2)

  FROM #tmp_web_chrgs

  GROUP BY plan_cd

end ;

This example is not breathtaking, but presumably demonstrates where I've been.

Using Word Document an a Database

In the following example, a Word template is retrieved, and data from an Access database is used to fill the bookmarks.

Dim WordObj As Word.Application

Set WordObj = CreateObject("Word.Application")

WordObj_Open = True

With WordObj

    .Documents.Open (origDocName)

       

    .ActiveDocument.Bookmarks("Date").Select

    .Selection.Text = Format(Now, "mmm dd, yyyy")

    .ActiveDocument.Bookmarks("Name").Select

    If aRS![Contact] & "" <> "" Then

        .Selection.Text = CStr(aRS![Contact])

    Else

        .Selection.Text = "<NO DATA>"

    End If

    .ActiveDocument.Bookmarks("PlanName").Select

    .Selection.Text = planStr

    .ActiveDocument.Bookmarks("Addr1").Select

    .ActiveDocument.Bookmarks("Greeting").Select

    .Selection.Text = CStr(aRS![Greeting])

   

    If Use_Table Then   ' Check For Table Count

        Set aRange = .ActiveDocument.Bookmarks("Table").Range

       

 Set aTable = .ActiveDocument.Tables.Add(aRange, bRS_cnt + 2, 3)

 aTable.Cell(1, 1).Range.InsertAfter "Prefix"

 aTable.Cell(1, 1).Range.Font.Underline = wdUnderlineSingle

 aTable.Cell(1, 2).Range.InsertAfter "Account Name"

 aTable.Cell(1, 2).Range.Font.Underline = wdUnderlineSingle

 aTable.Cell(1, 3).Range.InsertAfter "Effective Date"

 aTable.Cell(1, 3).Range.Font.Underline = wdUnderlineSingle

 y = 3

 Do While Not bRS.EOF

   aTable.Cell(y, 1).Range.InsertAfter CStr(bRS![Prefix])

   ACCT_NAME = Get_Account_Name(bRS![Prefix], bRS![BCBS_Number])

   aTable.Cell(y, 2).Range.InsertAfter ACCT_NAME

   If bRS![Effective Date] & "" <> "" Then

     aTable.Cell(y, 3).Range.InsertAfter Format(bRS![Effective _
         Date], "mm/dd/yyyy")

    End If

    bRS.MoveNext

    y = y + 1

  Loop

Else

   

There's a lot more...but, not quite as thrilling

 

The above example shows Visual Basic code taking data from an Access database, and using a Word document to create a "form" letter that has a table of rows.  Each letter can be different.  This allows a letter to be sent to clients with specific, unique details of information, in a format that looks better than a report from a computer.

 

Creating Excel Spreadsheets

The following example is both of my programming skill, and Microsoft's standard called ActiveX.  It is presumably obvious which is more useful, but it demonstrates how different programming tools can interact.  Powerbuilder can use features in Microsoft products.

 

xlSub.Cells[inv_excel_row, 1] = "34D"
inv_excel_row++
xlSub.Cells[inv_excel_row, 1] = "34D"
xlSub.Cells[inv_excel_row, 2] = "Invoice Total (34S)"
xlSub.Cells[inv_excel_row, 2].Font.Size = 10
xlSub.Cells[inv_excel_row, 2].Font.Bold = True
// Total
string ls_cell, ls_calc
ls_cell = "D" + string(inv_excel_row)
ls_calc = "=Sum(D" + string(ll_start_row) + ":D" + string(ll_end_row) + ")+" + string(ld_total_amt, "#,###.00")
xlSub.Range(ls_cell).Formula = ls_calc
xlSub.Cells[inv_excel_row, 4].Font.Size = 10
xlSub.Cells[inv_excel_row, 4].Font.Bold = True

inv_excel_row++

This is a minor example, where information is being placed into cells, the font type is changed, along with size, etc.  There also is a formula being created to add together a dynamically changing number of rows.  Data is not simply dumped into a spreadsheet.

The above examples are brief.  What they hopefully demonstrate is the extent of my experience.  It goes beyond making forms, and allows users (through application development) to exploit the various features inherent in all standard PC products.