Post
by czavala » 25 Jan 2007, 23:05
Posted by: Conrado ZAVALA
Hello Jeff,
First of all I want to thanks for your answer. I cannot use TBL_FillNormal,
TBL_FillAll or TBL_FillBackground on my child table populate because I'm
doing it manually. Bellow you will find and idea about what I'm doing after
the user clicks on pbFind.
pbFind:
On SAM_Click
Call SalSendMsg( tblResultSet, PM_Populate, 0, 0 )
tblResultSet:
On PM_Populate
Set sSqlPopulate = "SELECT PO_NUMBER, C_STYLE, COLOR_NO, SIZE,
COUNT( CASE_NO ), SUM( QTY ), SUM( QTY * BLANK_COST), SUM( QTY * SELL_PRICE)
INTO :sPO_Number, :sC_Style, :sColor_No, :sSize, :nTTL_Boxes, :nTTL_Pieces,
:nBlank_Cost, :nFOB FROM VIEW_INVENTORY WHERE C_NAME = 'ABC MANUFACTURING'
GROUP BY 1, 2, 3, 4 ORDER BY 1, 2, 3, 4"
Set SqlDatabase = "LIBDC"
Set SqlUser = "SYSADM"
Set SqlPassword = "SYSADM"
If SqlConnect( hSqlPopulate )
! CREATE child table columns:
Call SalTblCreateColumn( tblResultSet, 1, 1, 20, "ID" )
Call SalTblCreateColumn( tblResultSet, 2, 1, 20, "P.O. Number" )
Call SalTblCreateColumn( tblResultSet, 3, 1, 20, "Style" )
Call SalTblCreateColumn( tblResultSet, 4, 1, 20, "Color No." )
Call SalTblCreateColumn( tblResultSet, 5, 1, 20, "Size" )
Call SalTblCreateColumn( tblResultSet, 6, 1, 20, "TTL. Boxes" )
Call SalTblCreateColumn( tblResultSet, 7, 1, 20, "TTL. Pieces" )
Call SalTblCreateColumn( tblResultSet, 8, 1, 20, "Blank Cost" )
Call SalTblCreateColumn( tblResultSet, 9, 1, 20, "F.O.B." )
Call SqlPrepareAndExecute( hSqlPopulate, sSqlPopulate )
While SqlFetchNext( hSqlPopulate, nSqlPopulateFetch )
nNewRow = SalTblInsertRow( tblResultSet, TBL_MaxRow )
Call SalTblSetColumnText( tblResultSet, 1,
SalNumberToStrX( nNewRow, 0 ) )
Call SalTblSetColumnText( tblResultSet, 2, sPO_Number )
Call SalTblSetColumnText( tblResultSet, 3, sC_Style )
Call SalTblSetColumnText( tblResultSet, 4, sColor_No )
Call SalTblSetColumnText( tblResultSet, 5, sSize )
Call SalTblSetColumnText( tblResultSet, 6,
SalNumberToStrX( nTTL_Boxes, 0 ) )
Call SalTblSetColumnText( tblResultSet, 7,
SalNumberToStrX( nTTL_Pieces, 0 ) )
Call SalTblSetColumnText( tblResultSet, 8,
SalNumberToStrX( nBlank_Cost, 2 ) )
Call SalTblSetColumnText( tblResultSet, 9,
SalNumberToStrX( nFOB, 2 )
SqlCommit( hSqlPopulate )
SqlDisconnect( hSqlPopulate )
Basically this is what I'm doing. I have more code behind that doesn't let
me use SalTblPopulate( ) to populate the table. My problem is that with my
real query I get to the SqlDisconnect( ) in 17 seconds and after this
SQLWindows 52 additional seconds to show the output in my browser (my
understanding is that it is preparing the HTML for the browser).