Sequence NSN Item Quantity Price Total Price HR0200 5610002504677 Portland Cement, High Early Strnth 40.00 $5.96 $238.40 HR0200 5610ZZ0010001 Aggregate Coarse Local Procurement 2.00 $.00 HR0200 5610ZZ0010002 Aggregate, Fine, Local Procurement 3.00 $5.00 $15.00 HR0200 5660ZZ0640019 Post, Fence, Rnd, Galv, 2.5", 13 Ft 101.00 $55.00 $5,555.00 HR0300 5660007204530 Fencing,Wire 22.00 $293.26 $6,451.72
Sequence NSN Item Quantity Price Total Price HR0200 5610002504677 Portland Cement, High Early Strnth 40.00 $5.96 $238.40 ... HR0300 5660007204530 Fencing,Wire 22.00 $293.26 $6,451.72 Grand Total: $12,259.72
-* File FacilityMaterial.fex -* 1.- First, JOINs (Important, JOIN clears previous DEFINEs) JOIN FACILITYNSN.FACILITYNSN.NSN AND FACILITYNSN.FACILITYNSN.UMCODE IN facilitynsn TO MULTIPLE NSN.NSN.NSN AND NSN.NSN.UMCODE IN nsn AS J0 END -* 2.- DEFINE over host table DEFINE FILE FACILITYNSN FacilityProperCase/A35=LCWORD(35, FACILITYNSN.FACILITY.DESCRIPTION, FacilityProperCase); END -* 3.- Query. TABLE FILE FACILITYNSN PRINT FACILITY NOPRINT UMCODE NOPRINT SEQUENCE AS 'Sequence' NSN COMPUTE Item/A35 = LCWORD(35, NOMENCLATURE, Item); QUANTITY/P12.2 AS 'Quantity' PRICE/P14.2CM AS 'Price' COMPUTE TotalPrice/D12.2CSM = PRICE * QUANTITY; AS 'Total Price' HEADING "Material for <FacilityProperCase" "Facility ID: <FACILITY " FOOTING "Report: &FOCFEXNAME " WHERE FACILITY EQ '&FACILITY'; ON TABLE SET CSS ON ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE SET ONLINE-FMT HTML ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.500000, RIGHTMARGIN=0.500000, TOPMARGIN=0.500000, BOTTOMMARGIN=0.500000, SQUEEZE=ON, ORIENTATION=PORTRAIT, $ TYPE=REPORT, BORDER=1, FONT='ARIAL', SIZE=10, COLOR='BLACK', BACKCOLOR='NONE', STYLE=NORMAL, RIGHTGAP=0.125000, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=DATA, COLOR='WHITE', BACKCOLOR=( 'SILVER' 'GRAY' ), $ TYPE=DATA, COLUMN=N3, STYLE=NORMAL, TARGET='_self', FOCEXEC=FACILITYRESOURCE(FACILITY=N1 SEQUENCE=N3), $ TYPE=DATA, COLUMN=N4, STYLE=NORMAL, FOCEXEC=NSNDETAIL(NSN=N4 UMCODE=N2), $ TYPE=DATA, COLUMN=ROWTOTAL(1), STYLE=BOLD, $ TYPE=TITLE, SIZE=10, COLOR='WHITE', BACKCOLOR=RGB(0 128 255), STYLE=-UNDERLINE+BOLD, $ TYPE=TITLE, COLUMN=N3, STYLE=NORMAL, TARGET='_self', FOCEXEC=FACILITYRESOURCE(FACILITY=N1 SEQUENCE=N3), $ TYPE=TITLE, COLUMN=N4, FOCEXEC=NSNDETAIL(NSN=N4 UMCODE=N2), $ TYPE=TITLE, COLUMN=ROWTOTAL(1), STYLE=BOLD, $ TYPE=TABHEADING, SIZE=14, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=14, STYLE=BOLD, $ TYPE=HEADING, SIZE=14, STYLE=BOLD, $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=2, SIZE=10, STYLE=NORMAL, $ TYPE=HEADING, LINE=2, OBJECT=FIELD, ITEM=1, SIZE=10, STYLE=NORMAL, $ TYPE=FOOTING, SIZE=14, STYLE=BOLD, $ TYPE=FOOTING, LINE=1, JUSTIFY=RIGHT, $ TYPE=FOOTING, LINE=1, OBJECT=TEXT, ITEM=1, SIZE=10, STYLE=NORMAL, $ TYPE=FOOTING, LINE=1, OBJECT=TEXT, ITEM=3, SIZE=10, STYLE=NORMAL, $ TYPE=FOOTING, LINE=1, OBJECT=TEXT, ITEM=5, SIZE=10, STYLE=NORMAL, $ TYPE=FOOTING, LINE=1, OBJECT=FIELD, ITEM=1, SIZE=10, STYLE=NORMAL, $ TYPE=FOOTING, LINE=1, OBJECT=FIELD, ITEM=2, SIZE=10, STYLE=NORMAL, $ TYPE=SUBHEAD, BACKCOLOR='SILVER', $ TYPE=SUBFOOT, BACKCOLOR='SILVER', $ TYPE=SUBTOTAL, BACKCOLOR='SILVER', STYLE=BOLD, $ TYPE=ACROSSVALUE, BACKCOLOR=RGB(0 128 255), TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=ACROSSVALUE, ACROSS=1, COLOR='WHITE', TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=ACROSSVALUE, COLUMN=ROWTOTAL(1), STYLE=BOLD, $ TYPE=ACROSSTITLE, SIZE=10, COLOR='WHITE', BACKCOLOR=RGB(0 128 255), STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR='SILVER', STYLE=BOLD, TOPGAP=0.013889, BOTTOMGAP=0.027778, $ TYPE=REPORT, COLUMN=N3, SQUEEZE=0.555556, $ ENDSTYLE ENDThis message has been edited. Last edited by: Dan Morphis,
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
quote:Originally posted by Tony A:
If your new code is being removed on save then I take it you are using the report painter? Where are you saving it from and how are you opening it? (e.g. have you got the procedure editor tool as default and then saving from the edit tab)
+-----------+--------+--------+--------+------------+ | data | data | data | data | data | +-----------+--------+--------+--------+------------+ |Total | |61050YB | +-----------+--------+--------+--------+------------+ | | | | | $65,930.56 | +-----------+--------+--------+--------+------------+
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |