PowerWeb app example - Computer Shop (Part 3)

This forum is for conversations about Internet development using CXP, WebSockets, HttpEndPoint, etc.
Post Reply
Message
Author
User avatar
SlavkoDam
Posts: 101
Joined: Wed Apr 27, 2022 10:12 am
Location: Negotin, Serbia
Contact:

PowerWeb app example - Computer Shop (Part 3)

#1 Post by SlavkoDam »

Application Computer Shop.

This is an application for purchasing computers. It is an Alaska WAA application example which is developed in the PowerWeb way.

Below is the code for creating pages in the application, which are displayed in the following screenshots. You can see in the code that each web UI component is created with a single-function call and its attributes are set in Xbase++ language and style without HTML/CSS. You can find the complete code in the attachment of the Part 1 post about the new PowerWeb library.

Code: Select all

FUNCTION Comp(oSrv)
**
LOCAL html,;
      aCols := {{"partno","PartNo",,60},;
                {"producer","Producer",,200},;
                {"computer","Computer",,200},;
                {"LTRIM(STR(cpucount)) + ' ' + TRIM(cputype)",;
                 "Processors",,250},;
                {"price","Price",,70,,"999999.99"},;
                {,"Order",,40,"G",,,,,{30,"2S"}},;
                {,"Quantity",,60,"G",,,,,{40,"SB",{1,10}}},;
                {"jpg_image","Image",,120,"I"}}
*               {"'temp/Cp' + STRZERO(RECNO(),6) + '.jpg'","Image",,120,"I"}}
**
HASSNSET(oSrv,"Path",HAPATH(oSrv) + "data\comp")
SET PATH TO (HASSNGET(oSrv,"Path"))
DBOPEN("FOXCDX",{{{"Computer"},{"Computer"}}},,,.T.)
**
IF EMPTY(HAPARGET(oSrv,"sel"))
  HASSNSET(oSrv,"aSel",{})
  HASSNSET(oSrv,"bgets","")
ENDIF
**
html = HDOCBGN(,,,,"Computers - Shop") +;
       HDLGBGN(,{1200},"Computer shop",icoPower,{,{,clrBeige}},{,,,clrDefBG},;
               {clrOldLace,clrDGold},,"C") +;
       CompHead(oSrv) +;
       HHEAD({30,20,"M"},,"Super computers",,{,{"mediumblue"}}) +;
       HSCRP("SetBGets('" + HASSNGET(oSrv,"bgets") + "');") +;
       HBRWPGN({,40,"M"},{,600},,aCols,{,"CompGet","CompPage"},,,"Comp",,"C") +;
       HBREAK(2) + HDLGEND() + HDOCEND()
CLOSE
RETURN html

*============================================================================*

FUNCTION CompOrd(oSrv)
**
LOCAL aData,aCols,html, aSel := HASSNGET(oSrv,"aSel")
**
IF !AEMPTY(aSel)
  CompSel(oSrv,aSel,@aData,@aCols)
**
  html = HDOCBGN(,,,,"Computers - Order",,,,,,,HSETGUI(.T.)) +;
         HDLGBGN(,{1200},"Computer shop",icoPower,{,{,clrBeige}},{,,,clrDefBG},;
                 {clrOldLace,clrDGold},,"C") +;
         CompHead(oSrv) +;
         HHEAD({30,20,"M"},,"Order",,{,{"mediumblue"}}) +;
         HTABLE({,40,"M"},aData,aCols,,,,"C") +;
         HHLINE({,40,"M"},{1050},clrGray,"C") +;
         HFORMBGN({,40,"M"},{690,160},,,,{,{clrDRed,clrLinen},,20},;
                  {3,"DB",clrDCyan,10},,"C",{"CustForm"}) +;
         HFORMTBL(,;
                  {{40,"First name:",{,,30},,,,,{,"F_FNAME"}},;
                   {40,"Last name:",{,,30},,,,,{,"F_LNAME"}},;
                   {40,"EMail:",{,,30,40},,,,,{,"F_EMAIL"}},;
                   {40,"Phone:",{,,30},,,,,{,"F_PHONE"}}},;
                  {80,240}) +;
         HFORMTBL({360,-160,"R","R"},;
                  {{40,"Street:",{,,30,40},,,,,{,"F_STREET"}},;
                   {40,"City:",{,,30},,,,,{,"F_CITY"}},;
                   {40,"State:",{,,30},,,,,{,"F_STATE"}},;
                   {40,"Info:",,"2S",,,,{,"F_INFO"}}},;
                  {80,240}) +;
         HFORMEND() +;
         HDIVBGN({,40,"M"},{1200},{,,60,,"C"}) +;
         HLINK(,,"Go to shop",bmpHome,;
               {{,12,"B"},{clrDViolet,clrLBlue},,{5,25}},{,,,clrDefBG},;
               {2,,clrMRed,5},HTTPREDIR("Comp",{{"sel","true"}},,"L"),,,,,;
               "text-decoration:none") +;
         HLINK({20,,"M"},,"Commit order",icoOK,;
               {{,12,"B"},{clrDViolet,clrLBlue},,{5,15}},{,{16,16},,clrDefBG},;
               {2,,clrMRed,5},HTTPREDIR("CompCmt",,"FormPost('CustForm')","L"),;
                ,,,,"text-decoration:none") +;
         HDIVEND() + HBREAK() + HDLGEND() + HDOCEND()
ELSE
  HASSNSET(oSrv,"Msg","Your basket is empty.")
  HASSNSET(oSrv,"Addr","Comp")
  html = HTTPREDIR("CompMsg")
ENDIF
RETURN html

*============================================================================*

FUNCTION CompSel(oSrv,aSel,aData,aCols)
**
LOCAL amnt,I, len := LEN(aSel), tot := 0
**
SET PATH TO (HASSNGET(oSrv,"Path"))
DBOPEN("FOXCDX",{{{"Computer"},{"Computer"}}},,,.T.)
**
aCols = {{,"PartNo",,60},;
         {,"Producer",,200},;
         {,"Computer",,200},;
         {,"Processors","Total",250},;
         {,"Price",,70,,,,"R"},;
         {,"Quantity",,60,,,,"R"},;
         {,"Amount",,100,,,,"R"}}
aData = ARRAY(len)
FOR I=1 TO len
  GO aSel[I,1]
  amnt = price * aSel[I,2]
  tot += amnt
  aData[I] = {partno,producer,computer,LTRIM(STR(cpucount)) + " " +;
              TRIM(cputype),price,aSel[I,2],amnt}
NEXT
aCols[7,3] = LTRIM(STR(tot))
CLOSE
RETURN .T.

*============================================================================*

FUNCTION CompHead(oSrv)
**
RETURN HMENU({3,3,"R"},{450},;
             {{"Shop",bmpHome,"Comp?sel=true"},;
              {"Basket",bmpBasket,"CompBask"},;
              {"Order",bmpList,"CompOrd"},;
              {"Exit",bmpExit,"CompExit"}},;
             {,,,{,,,clrDefBG}})

*============================================================================*
Image
Image
Best regards,

Slavoljub Damnjanovic
SD-SoftDesign, Alaska Software Technology Partner
https://www.sd-softdesign.com
https://www.sd-softdesign.rs

Post Reply