%{----------------------------------------------------------------------------%}

%{ StartRow.ndm -- Net.Data table processing with Starting Row number         %}

%{ Create numbered links to show sections of a resultset.                     %}

%{                                                                            %}

%{ Copyright (c) 2000, Craig Pelkie                                           %}

%{ ALL RIGHTS RESERVED                                                        %}

%{----------------------------------------------------------------------------%}



%{----------------------------------------------------------------------------%}

%{ Section A - Define section for the macro                                   %}

%{----------------------------------------------------------------------------%}

%define {



    DATABASE            = "*LOCAL"

    DTW_DEFAULT_REPORT  = "NO"

    DTW_SET_TOTAL_ROWS  = "YES"

    RPT_MAX_ROWS        = "10"



    currentPage         = "0"

    pageCount           = "1"

    rowCount            = "0"

    rowIndex            = "1"

    rowIndexNext        = "1"

    totalPages          = "0"

%}



%{----------------------------------------------------------------------------%}

%{ Section B - RUNSQL - run the SQL statement, generate HTML table            %}

%{----------------------------------------------------------------------------%}



%function(DTW_SQL) RUNSQL() {



    select * from apilib.parts order by partno



    %report{

        	

        %{--------------------------------------------------------------------%}

        %{ Section C - test for empty result set, exit if empty               %}

        %{--------------------------------------------------------------------%}

        

        %if (TOTAL_ROWS == "0")

            No rows retrieved for query.

            @dtw_exit()

        %endif

        

	    <!---------------------------------------------------

		    Table headers

	    ---------------------------------------------------->

	    <table  border="1"

                    cellpadding="2"

                    cellspacing="0"

                    bgcolor="white"

                    width="500">

        

            <!-----------------------------------------------

                Navigation data and links                    

            ------------------------------------------------>

            <tr bgcolor="white" align="right">

                <td colspan="5">

                    <font size="-1" color="blue">



                        %{---------------------------------------------------------%}

                        %{ Section D - calculate/display total number of pages to  %}

                        %{             generate (whole and fractional)             %}

                        %{---------------------------------------------------------%}

                    

                        @dtw_assign(totalPages, @dtw_rintdiv(TOTAL_ROWS, RPT_MAX_ROWS))

  

                        %if (@dtw_rdivrem(TOTAL_ROWS, RPT_MAX_ROWS) > "0")

                            @dtw_add(totalPages, "1", totalPages)

                        %endif



                        Total rows: $(TOTAL_ROWS)

                        &nbsp;&nbsp;



                        Total pages: $(totalPages)

                        &nbsp;&nbsp;&nbsp;&nbsp;



                        %{---------------------------------------------------------%}

                        %{ Section E - Put "<< Prev"" option if on page 2..n       %}

                        %{---------------------------------------------------------%}

                    

                        %if (START_ROW_NUM > RPT_MAX_ROWS)

                            <a href="input?s=@dtw_rsubtract(START_ROW_NUM, RPT_MAX_ROWS)">

                                << Prev

                            </a>

                            &nbsp;

                        %endif



                        %{---------------------------------------------------------%}

                        %{ Section F - Put links for each page                     %}

                        %{---------------------------------------------------------%}



                        %while(pageCount <= totalPages) {



                            %{-----------------------------------------------------%}

                            %{ Section G - link for "current page"                 %}

                            %{-----------------------------------------------------%}

                            

                            %if (rowIndex == START_ROW_NUM)

                                <b>$(pageCount)</b>

                                @dtw_assign(rowIndexNext, @dtw_radd(rowIndex, RPT_MAX_ROWS))

                                @dtw_assign(currentPage, pageCount)                    



                            %{-----------------------------------------------------%}

                            %{ Section H - link for other pages                    %}

                            %{-----------------------------------------------------%}



                            %else

                                <a href="input?s=$(rowIndex)">$(pageCount)</a>

                            %endif

                        

                            &nbsp;

                        

                            @dtw_add(rowIndex,  RPT_MAX_ROWS, rowIndex)

                            @dtw_add(pageCount, "1",          pageCount)

                        %}

                    

                        %{---------------------------------------------------------%}

                        %{ Section I - Put "Next >>" option if on page 1..n-1      %}

                        %{---------------------------------------------------------%}

                    

                        %if (currentPage < totalPages)

                            <a href="input?s=$(rowIndexNext)">

                                Next >>

                            </a>

                            &nbsp;

                        %endif

                    

                    </font>

                </td>

            </tr>

            

            <!-----------------------------------------------

                Section J - Column names

            ------------------------------------------------>

            <tr bgcolor="lightsteelblue">

                <th><font size="-2">$(N1)</font></th>

                <th><font size="-2">$(N2)</font></th>

                <th><font size="-2">$(N3)</font></th>

                <th><font size="-2">$(N4)</font></th>

                <th><font size="-2">$(N5)</font></th>

            </tr>



            <!---------------------------------------------------

	         Section K - Table rows

            ---------------------------------------------------->



            %row{

                <tr>

                    <td align="center"><font size="-2">$(V1)</font></td>

                    <td>               <font size="-2">$(V2)</font></td>

                    <td align="right"> <font size="-2">$(V3)</font></td>

                    <td align="right"> <font size="-2">$(V4)</font></td>

                    <td align="center"><font size="-2">$(V5)</font></td>

                </tr>

            %}



        </table>

    %}

%}



%{----------------------------------------------------------------------------%}

%{ INPUT - initial section called, calls RUNSQL macro function                %}

%{----------------------------------------------------------------------------%}

%html(INPUT) {



	<html>

	<head>

            <title>Net.Data macro StartRow.ndm</title>

	</head>



	<body>

            <center>

                <h1>Net.Data macro StartRow.ndm</h1>



            %{--------------------------------------------------------------------%}

            %{ Section L - Extract the starting row number from the Query String  %}

            %{--------------------------------------------------------------------%}



            @dtw_assign(queryString, @dtw_rgetenv("QUERY_STRING"))

            @dtw_assign(eqPos,       @dtw_rpos("=", queryString))

                

            %if (eqPos >= "1") 

                @dtw_assign(START_ROW_NUM, @dtw_rsubstr(queryString, @dtw_radd(eqPos, "1")))

            %else

                @dtw_assign(START_ROW_NUM, "1")

            %endif



            @RUNSQL()

            </center>

        </body>

    </html>

%}