%{*********************************************************%}

%{ svg_ndm.ndm Generate SVG using Net.Data                 %}

%{                                                         %}

%{ Craig Pelkie                                            %}

%{ Bits & Bytes Programming, Inc.                          %}

%{ craig@web400.com                                        %}

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

%{ ALL RIGHTS RESERVED                                     %}

%{*********************************************************%}



%{*********************************************************%}

%{ A: Defines for macro                                    %}

%{*********************************************************%}

%define {

    DATABASE           = "*LOCAL"

    DTW_DEFAULT_REPORT = "NO"

    DTW_PRINT_HEADER   = "NO"

    DTW_REMOVE_WS      = "NO"

    tblBaldue          = %table

%}



%{*********************************************************%}

%{ B: Get balance due table                                %}

%{*********************************************************%}

%function(DTW_SQL) GetBaldue(out tblBaldue) {

   select * from qiws.qcustcdt 

   where    (baldue > 0) and (baldue < 1000.00)

   order by baldue desc

%}



%{*********************************************************%}

%{ C: Make XML to display the SVG bar graph                %}

%{*********************************************************%}

%macro_function MakeXML (in tblBaldue) {



    @dtw_tb_rows(tblBaldue, numRows)



    %{*****************************************************%}

    %{ D: work variables                                   %}

    %{    r     - row counter                              %}

    %{    y     - y-axis position                          %}

    %{    total - total balance due                        %}

    %{*****************************************************%}

    @dtw_assign(r,     "1")

    @dtw_assign(y,     "90")

    @dtw_assign(total, "0")



    %{*****************************************************%}

    %{ E: colors for bar graphs                            %}

    %{    colors   - array of colors (see <! ENTITY values %}

    %{    colorN   - current color number                  %}

    %{    colorMax - maximum number of colors              %}

    %{*****************************************************%}

    @dtw_assign(colors,   "ungpry")

    @dtw_assign(colorN,   "1")

    @dtw_assign(colorMax, "6")



    %{*****************************************************%}

    %{ F: Calculate, display total balance due             %}

    %{*****************************************************%}

    %while (r <= numRows) {

        @dtw_add(total, @dtw_tb_rgetv(tblBaldue, r, "10"), total)

        @dtw_add(r, "1", r)

    %}



    <text id="baldue" x="1" y="50"

          style="&font;&bl;">

          Total balance due: @dtw_rconcat("$", total)</text>



    %{*****************************************************%}

    %{ G: Format/display bar, info box for each customer   %}

    %{*****************************************************%}

    @dtw_assign(r, "1")



    %while (r <= numRows) {



    <g id="bar$(r)">



        %{*************************************************%}

        %{ H: Initialize y-axis values:                    %}

        %{   yts - y-axis for text (name) shadow           %}

        %{   yrs - y-axis for rectangle (bar) shadow       %}

        %{   yr  - y-axis for rectangle (bar)              %} 

        %{*************************************************%}

        @dtw_add(y, "1", yts)



        @dtw_subtract(y, "9",  yrs)

        @dtw_subtract(y, "10", yr)



        %{*************************************************%}

        %{ I: Extract values from row to simple variables  %}

        %{*************************************************%}

        @dtw_assign(cusnum, @dtw_tb_rgetv(tblBaldue, r, "1"))

        @dtw_assign(lstnam, @dtw_tb_rgetv(tblBaldue, r, "2"))

        @dtw_assign(init,   @dtw_tb_rgetv(tblBaldue, r, "3"))

        @dtw_assign(street, @dtw_tb_rgetv(tblBaldue, r, "4"))

        @dtw_assign(city,   @dtw_tb_rgetv(tblBaldue, r, "5"))

        @dtw_assign(state,  @dtw_tb_rgetv(tblBaldue, r, "6"))

        @dtw_assign(zipcod, @dtw_tb_rgetv(tblBaldue, r, "7"))

        @dtw_assign(cdtlmt, @dtw_tb_rgetv(tblBaldue, r, "8"))

        @dtw_assign(chgcod, @dtw_tb_rgetv(tblBaldue, r, "9"))

        @dtw_assign(baldue, @dtw_tb_rgetv(tblBaldue, r, "10"))

        @dtw_assign(cdtdue, @dtw_tb_rgetv(tblBaldue, r, "11"))



        %{*************************************************%}

        %{ J: Make customer name as INIT LSTNAM            %}

        %{*************************************************%}

        @dtw_assign(name, init)

        @dtw_assign(name, @dtw_rconcat(name, " "))

        @dtw_assign(name, @dtw_rconcat(name, lstnam))



        %{*************************************************%}

        %{ K: Set width of bar to display percentage of    %}

        %{ total balance due.                              %}

        %{ Bar graphs are displayed as their percentage of %}

        %{ a maximum width of 300. To better show scale,   %}

        %{ the calculated percentage is multipled by 2.    %}

        %{*************************************************%}

        @dtw_divide(baldue, total, "4", percent)



        @dtw_multiply(percent, "300", width)

        @dtw_multiply(width,   "2",   width)



        @dtw_multiply(percent, "100", "4", percent)



        %{*************************************************%}

        %{ L: Extract color value from colors array.       %}

        %{*************************************************%}

        @dtw_substr(colors, colorN, "1", color)

        @dtw_add(colorN, "1", colorN)



        %if (colorN > colorMax) {

            @dtw_assign(colorN, "1")

        %endif



        %{*************************************************%}

        %{ M: Output SVG tags for customer.                %}

        %{*************************************************%}

        /***************************************************/

        /* $(name)                                         */

        /***************************************************/

        <text id="t$(r)s" x="1"  y="$(yts)" 

              style="&font;&l;&hid;">$(name)</text>



        <text id="t$(r)"  x="0"  y="$(y)"   

              style="&font;&b;">$(name)</text>



        <rect id="r$(r)s" x="71" y="$(yrs)" 

              width="$(width)"   height="15" 

              style="&l;"/>



        <rect id="r$(r)"  x="70" y="$(yr)" 

              width="$(width)"   height="15" 

              style="&$(color);"

              onmouseover="setStyles(evt, '$(r)', true)" 

              onmouseout="setStyles(evt, '$(r)', false)"/>



        <text id="t$(r)x" style="&font;&hid;&b;">

            <tspan x="310" y="120" 

               style="&re;">@dtw_rconcat("$", baldue) $(percent)%</tspan>

            <tspan x="310" dy="1em">$(street)</tspan>

            <tspan x="310" dy="1em">$(city), $(state)  $(zipcod)</tspan>

            <tspan x="310" dy="1em">@dtw_rtime()</tspan>

        </text>

    </g>



    @dtw_add(r, "1",  r)

    @dtw_add(y, "20", y)

    %}

%}



%{*********************************************************%}

%{ N: %html input block - macro starts executing here      %}

%{*********************************************************%}

%html(input) {

Content-Type: image/svg-xml

Content-encoding: ebcdic



<?xml version="1.0" encoding="iso-8859-1"?>

<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 20000303 Stylable//EN"   

    "http://www.w3.org/TR/2000/03/WD-SVG-20000303/DTD/svg-20000303-stylable.dtd" [



    <!ENTITY b  "fill:black;">

    <!ENTITY u  "fill:blue;">

    <!ENTITY n  "fill:brown;">

    <!ENTITY g  "fill:green;">

    <!ENTITY l  "fill:lightgray;">

    <!ENTITY p  "fill:purple;">        

    <!ENTITY r  "fill:red;">

    <!ENTITY y  "fill:yellow;">



    <!ENTITY font "font-size:9;">

    <!ENTITY hid  "visibility:hidden;">

]>

<svg width="500pt" height="280pt" viewBox="0 0 450 280" xml:space="preserve">



    <script>

        <![CDATA[



            //**********************************************************

            // O: return style object for document element

            //**********************************************************

            function getStyle(evt, element) {

                var SVGDoc = evt.getTarget().getOwnerDocument();



                return SVGDoc.getElementById(element).getStyle();

             }



            //**********************************************************

            // P: set visibility property for a style

            //**********************************************************

            function setVisibility(style, set) {

                style.SetProperty("visibility", "hidden");



                if (set == true) style.SetProperty("visibility", "visible");

            }



            //**********************************************************

            // Q: set style properties

            //**********************************************************

            function setStyles(evt, id, set) {



                //******************************************************

                // Set properties for text

                //******************************************************

                var style = getStyle(evt, 't' + id);      



                style.SetProperty("fill", "black");

                style.SetProperty("stroke-width", "0");



                if (set == true) style.SetProperty("fill", "navy");



                //******************************************************

                // Set properties for text drop shadow

                //******************************************************

                style = getStyle(evt, 't' + id + 's');     

                setVisibility(style, set);



                //******************************************************

                // Set properties for extra text

                //******************************************************

                style = getStyle(evt, 't' + id + 'x');                      

                setVisibility(style, set);



                //******************************************************

                // Set properties for extra text bounding rectangles

                //******************************************************

                style = getStyle(evt, 'moreTexts');                      

                setVisibility(style, set);



                style = getStyle(evt, 'moreText');                      

                setVisibility(style, set);



                //******************************************************

                // Set properties for chart row

                //******************************************************

                style = getStyle(evt, 'r' + id);                      



                style.SetProperty("stroke", "black");

                style.SetProperty("stroke-width", "0");



                if (set == true) style.SetProperty("stroke-width", "1");

            }

        ]]>

    </script>



    /***************************************************************/

    /* R: SVG for customer detail bounding rectangle               */

    /***************************************************************/

    <g id="txtRect">

        <rect id="moreTexts" x="301" y="111" width="100" height="50"

            style="stroke-width:1;stroke:lightgray;fill:none;&hid;"/>



        <rect id="moreText"  x="300" y="110" width="100" height="50"

           style="stroke-width:1;stroke:navy;fill:none;&hid;"/>

    </g>



@GetBaldue(tblBaldue)

@MakeXML(tblBaldue)

</svg>

%}