;; Dear All Pls find a sample code which show car details - in stock item creation ;;------------------------------------------------------------------- [#Part: STKI Parent] add : lines : after : STKI Category : gulfcardet [line : GulfCardet] Field : MEDIUM Prompt, Carsetalt Local : field : MEDIUM Prompt : Info : " Set/Alter Car Details : " Local : Field : MEDIUM Prompt : Style : Normal Bold Local : Field : MEDIUM Prompt : Align : Left [Field : Carsetalt] Use : logical field set as : "NO" Align : Left Sub form : Vehicle Details : $$Value [Report : Vehicle Details] Form : Vehicle details Title : "SET / ALTER VEHICLE DETAILS" [FORM : VEHICLE DETAILS] PART : GULFCARDET HEIGHT : 100% screen WIDTH : 100% Screen BACKGROUND : YELLOW ;; master entry for Vehicle Starts here [Part : gulfcardet] PART : VEHICLE TITLE, VEHICLE PURCHASE DETAIL, VEHICLE MAINTENANCE, VEHICLE OTHER DETAIL VERTICAL : YES [PART : VEHICLE TITLE] Lines : GULFTIT [PART : VEHICLE PURCHASE DETAIL] LINES : VEHPURTIT,chesisno ;;;,yearofpur,carstat [PART : VEHICLE MAINTENANCE] LINES : Mainttit, servdue ;;;,INSURLN,PUCLN [PART : VEHICLE OTHER DETAIL] LINES : gENTIT,drivername ;;, VEHICLE COLOR, VEHICL PASSING, OWNER NAME ;;; MENU TITLE ------------ [LINE : GULFTIT] HEIGHT : 5 MMS FIELD : GULFTIT SPACE BOTTOM : 3 MMS SPACE TOP : 1 MMS [FIELD : GULFTIT] use : name field INFO : "SET / ALTER VEHICLE DETAILS " ALIGN : CENTRE FULL WIDTH : YES SYTLE : LARGE BOLD BORDER : THICK BOTTOM color : blue ;;; ENDS HERE------------------ ;;; PURCHASE DETAILS STARTS HERE----------------------- [LINE : VEHPURTIT] FIELD : VEHPURTIT HEIGHT : 5 MMS SPACE BOTTOM : 1 MMS SPACE TOP : 5 MMS [FIELD : VEHPURTIT] USE : NAME FIELD INFO : "----- VEHICLE PURCHASE DETAILS -----" ALIGN : CENTRE STYLE : lARGE bold FULL WIDTH : YES color : red [Line : chesisno] Fields : CHESISTIT,chesisnoFld, YEARTIT,yearofpur,MODELTIT,model year, CARTIT,CARSTAT ;;HEIGHT : 8 MMS [FIELD : CHESISTIT] USE : NAME FIELD STYLE : SmallBOLD ALIGN : LEFT ;;WIDTH : 40 MMS INFO : " CHASSIS NO :" [field : ChesisnoFld] Use : Name Field Storage : Artist Set as : $Artist Style : Small Bold Align : Left ;;width : 40 mms ;;SPACE RIGHT : 5 MMS [FIELD : YEARTIT] USE : NAME FIELD INFO : " YEAR OF PURCHASE :" ;;WIDTH : 40 MMS STYLE : SmallBOLD ALIGN : LEFT [FIELD : MODELTIT] USE : NAME FIELD INFO : "YEAR OF MFG :" ;;WIDTH : 40 MMS STYLE : SmallBOLD ALIGN : LEFT [Field : model year] Use : Name Field ;;Width : 40 mms Align : Left Style : sMALL Bold Storage : LICNo Set as : $LicNo ;;SPACE RIGHT : 5 MMS [Field : yearofpur] Use : NAME Field ;;Width : 25 mms Align : left Style : SMALL Bold Storage : RelDt Set as : $relDt ;;SPACE RIGHT : 5 MMS [FIELD : CARTIT] USE : NAME FIELD ALIGN : LEFT INFO : " CAR STATUS :" ;;WIDTH : 40 MMS STYLE : SmallBOLD [Field : CARstat] Use : Name Field Align : Left Style : sMALL Bold Storage : Length Set as : $Length table : cstatus show table : always ;;WIDTH : 25 MMS ;; PURCHASE DETAILS ENDS HERE ----------------- ;; VEHICLE MAINTENANCE DETAILS STARTS HERE --------- [Line : Mainttit] height : 5 mms fields : Mainttit SPACE BOTTOM : 1 MMS SPACE TOP : 5 MMS [Field : Mainttit] info : "----- VEHICLE MAINTENANCE DETAILS -----" FULL WIDTH : YES STYLE : lARGE bold ALIGN : CENTRE COLOR : red [Line :servdue] fields : SERVTIT,servfld,INSUTIT,INSURFLD1,PUCTIT,PUCFLD1 ;;HEIGHT : 5 MMS [FIELD : SERVTIT] INFO : "SERV. DUE ON :" ALIGN : LEFT WIDTH : 40 MMS STYLE : SmallBOLD [Field : Servfld] use : name field align : left style : sMALL BOLD storage : dxbstat set as : $dxbstat ;;WIDTH : 40 MMS ;;SPACE RIGHT : 5 MMS [FIELD : INSUTIT] USE : NAME FIELD INFO : "INSU. DUE ON :" STYLE : SmallBOLD ;;WIDTH : 40 MMS ALIGN : LEFT [FIELD : INSURFLD1] use : name field ALIGN : LEFT STYLE : SMALL BOLD ;;WIDTH : 25 MMS storage : INSUre SET AS : $INSUre ;;S;;PACE RIGHT : 5 MMS [FIELD : PUCTIT] USE : NAME FIELD INFO : "PUC DATE :" ALIGN : LEFT STYLE : SmallBOLD ;;WIDTH : 40 MMS [FIELD : PUCFLD1] use : name field ALIGN : LFET STYLE : sMALL BOLD ;;WIDTH : 25 MMS storage : PUC SET AS : $PUC ;; MAINTENANCE PART ENDS HERE ---------------------------------------------------- ;; GENERAL DETAILS STARTS HERE ----------------------------------------------------- [LINE : GENTIT] HEIGHT : 5 MMS FIELDS : GENTIT SPACE BOTTOM : 1 MMS SPAcE TOP : 5 MMS [FIELD : GENTIT] INFO : "----- VEHICLE GENERAL DETAILS -----" STYLE : lARGE bold FULL WIDTH : YES ALIGN : CENTRE COLOR : red [line : drivername] field : drivertit,driverfld,coltit,VEHCOLOR,passtit,VEHPASS,ownertit,VEHOWNER ;;HEIGHT : 5 MMS [field : drivertit] USE : NAME FIELD info : " Driver Name :" style : Smallbold ;;width : 40 mms align : left [field : driverfld] use : name field style : sMALL BOLD align : left storage : kstat set as : $kstat ;;WIDTH : 35 MMS [field : coltit] USE : NAME FIELD info : "VEHICLE Color :" style : Smallbold ;;width : 40 mms align : left [FIELD : VEHCOLOR] use : name field STYLE : sMALL BOLD ALIGN : LEFT STORAGE : VCOLOR SET AS : $VCOLOR ;;WIDTH : 25 MMS [field : passtit] USE : NAME FIELD info : "Passing Date :" align : left ;;width : 40 mms style : Smallbold [FIELD : VEHPASS] use : name field STYLE : sMALL BOLD ;;WIDTH : 25 MMS STORAGE : VPASS ALIGN : LEFT SET AS : $VPASS [field : ownertit] USE : NAME FIELD info : "Owner Name :" style : SmallBold ;;Width : 40 mms align : left [FIELD : VEHOWNER] use : name field STYLE : sMALL bOLD ;;WIDHT : 40 MMS ALIGN : LEFT STORAGE : VehOWNER SET AS : $VehOWNER ;; VEHICLE GENERAL DETAILS ENDS HERE ------------------------------------------ [Collection : cStatus] Title : "Car Status" List Name : "New","IInd Hand" [System : UDF] reldt : string :16 licno : String : 17 artist : string : 18 length : String : 19 DxbStat : String : 26 kStat : String : 21 INSUre : String : 35 PUC : String : 36 VCOLOR : String : 34 VPASS : String : 37 VehOWNER : String : 33 [#Object : StockItem] chesis : $Artist purchasedt : $relDt modelyear : $LicNo carstat: $Length servdate : $DxbStat drivernam: $Kstat INSUR : $INSUre PUC12 : $PUC VEHCOLO : $VCOLOR VEHPASS : $VPASS VEHOWN : $VehOWNER
