slims's People
slims's Issues
Chem Lab
:DECLARE mUSRINFO,mLABLIST,mLAB_NAME;
:PUBLIC mLAB_CODE;
mUSRINFO:=Lselect("select LAB_CODE,LABLIST from USERS where USRNAM='"+GetUserData("NAME")+"'");
:IF Len(mUSRINFO)=0;
Labort();
:ENDIF;
mLAB_CODE:=mUSRINFO[1,1];
mLABLIST:=mUSRINFO[1,2];
:IF mLAB_CODE=="*";
:IF GetUserData("AUTH")$'2';
mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ELSE;
mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where STATUS in ('ACTIVE','NEW') and TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ENDIF;
:IF Empty(mLAB_NAME);
Labort();
:ELSE;
mLAB_CODE:=Lsearch("select LAB_CODE from LAB_MASTER where LAB_NAME='"+mLAB_NAME+"'");
:ENDIF;
:ELSE;
:IF Empty(mLABLIST);
mLAB_NAME:=Lsearch("select LAB_NAME from LAB_MASTER where LAB_CODE='"+mLAB_CODE+"' and STATUS in ('ACTIVE','NEW') and TEST_ITEM='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ELSE;
mLAB_NAME:=PickItem(380,210,250,380," Units Library","select LAB_NAME from LAB_MASTER where instr('"+AllTrim(mLABLIST)+"',LAB_CODE)>0 and STATUS in ('ACTIVE','NEW') and TEST_OWNER='Y' and RES_FMT not in ('< NONE >','TEMPLATE','WORD')");
:ENDIF;
:IF Empty(mLAB_NAME);
Labort();
:ELSE;
mLAB_CODE:=Lsearch("select LAB_CODE from LAB_MASTER where LAB_NAME='"+mLAB_NAME+"'");
:ENDIF;
:ENDIF;
SetTitle(GetAppId(),"("+GetAppId()+") Units of "+AllTrim(mLAB_NAME)+" [ All Units ]");
"SELECT * FROM UNITS WHERE UNITS.LAB_CODE='"+mLAB_CODE+"' ORDER BY UNITS.UNITABBR"
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
๐ Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. ๐๐๐
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google โค๏ธ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.