Is there any way to find out what locks I have made with slSetRelNamedLocks?
/Fim W.
/Fim W.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
FUNKTION_GU:
'===========
'
GU_SELECT:
slOpen TRIM$(KOM.DATABAS)
SET_NUMMER = slGetUnusedSetNumber
SEL_STRANG = "SELECT * FROM ART WHERE ARTNR= " + $SQ + TRIM$(ART.ARTNR) + $SQ
SVAR = slSel(SEL_STRANG, SET_NUMMER) ' Ska ge noll
IF SVAR <> 0 THEN
KOM.FELTEXT = "SYSTEMFEL i ARTIO GU slSel=" + STR$(SVAR) <<============
GOTO SYSTEMFELHANTERING
EXIT SUB
END IF
MIN_MAX_START:
TEMP_MIN = 100
TEMP_MAX = -100
MIN_MAX_SELECT:
SQL_SATS = "SELECT TEMP FROM TEMPERATUR WHERE DATE LIKE " + $SQ + 2017% +$SQ
slSel(SQL_SATS)
MIN_MAX_READING:
IF slGetRow = 0 THEN EXIT FUNCTION
TEMP_= VAL(slFN("TEMP" ))
MIN_OCH_MAX_LAGRING:
TEMP_MAX = MAX(TEMP_MAX, TEMP)
TEMP_MIN = MIN(TEMP_MIN, TEMP)
GOTO MIN_MAX_READING
STARTING:
slSel "SELECT ITEM_NO, ITEM_NAMN FROM ITE ORDER BY ITEM_NO"
FETCH_NEXT_ITEM:
IF slGetRow = %FALSE THEN GOTO ENDING
ITE.ITEM_NO = slF(01)
ITE.ITEM_NAME = slF(02)
ITEM_NAME = SHRINK$(ITEM_NAME)
SELECT_ITEM:
IF INSTR(ITEM_NAME, KEYWORD1) = 0 THEN GOTO FETCH_NEXT_ITEM
IF LEN(KEYWORD2) = 0 THEN GOTO SELECT_ITEM_END
IF INSTR(ITEM_NAME, KEYWORD2) = 0 THEN GOTO FETCH_NEXT_ITEM
IF LEN(KEYWORD2) = 0 THEN GOTO SELECT_ITEM_END
IF INSTR(ITEM_NAME, KEYWORD2) = 0 THEN GOTO FETCH_NEXT_ITEM
IF LEN(KEYWORD3) = 0 THEN GOTO SELECT_ITEM_END
IF INSTR(ITEM_NAME, KEYWORD3) = 0 THEN GOTO FETCH_NEXT_ITEM
IF LEN(KEYWORD4) = 0 THEN GOTO SELECT_ITEM_END
IF INSTR(ITEM_NAME, KEYWORD4) = 0 THEN GOTO FETCH_NEXT_ITEM
IF LEN(KEYWORD5) = 0 THEN GOTO SELECT_ITEM_END
IF INSTR(ITEM_NAME, KEYWORD5) = 0 THEN GOTO FETCH_NEXT_ITEM
SELECT_ITEM_END:
PRINT ITEM_NO, ITEM_NAMN
GOTO FETCH_NEXT_ITEM
ENDING:
Example:
KEWORD1 = "FOR"
KEWORD2 = "SS"
Item Names
1 CHASSI FOR SWITCH <-- Hit
2 CHASSI-STOMME
3 FORMAT-BAND
4 KASSERAD OMFORMARE <-- Hit
CREATE TRIGGER ARB_TRIGG_05 UPDATE OF FK_KOST ON ARB FOR EACH ROW BEGIN UPDATE VOR SET FK_KOSTN_ARB_SUM = FK_KOSTN_ARB_SUM - OLD.FK_KOSTN + NEW.FK_KOSTN WHERE ORDERNR = NEW.ORDERNR; END
CREATE TRIGGER ARB_TRIGG_01 INSERT ON ARB FOR EACH ROW BEGIN UPDATE VOR SET FK_KOSTN_ARB_SUM = FK_KOSTN_ARB_SUM + NEW.FK_KOSTN WHERE ORDERNR = NEW.ORDERNR; END
CREATE TRIGGER ARB_TRIGG_01 INSERT ON ARB FOR EACH ROW WHEN OPKOD = 'LEGO' BEGIN UPDATE VOR SET FK_KOSTN_ARB_SUM = FK_KOSTN_ARB_SUM + NEW.FK_KOSTN WHERE ORDERNR = NEW.ORDERNR; END