Rikard,
varför fungerar inte det här scriptet?
Lösenordet sätts i ett annat script som är anslutet till omxs308c, läses från cell 110.
Fler saker sker i datumkontroll och scriptaktiveringen med cell 103.
Det borde bara vara att AND:a ihop villkoren, men det fungerar ej.
Scriptet laddas och ritas upp i kursstaplar fastän lösenordet är fel.
I lösenords-scriptet är lösenordet 1000 och i detta scriptet 1111 så resterande script borde ej laddas.
Vad kan vara fel?
)
{---Lösenords-kontroll---------------------------------------------------------------------------------------}
lösen:=1111
kund:=GetGvar(110) {cell där lösenord lagras}
validate:=Eqv(lösen,kund)
{---Datumkontroll----------------------------------------------------------------------------------------------}
Datumkontroll
{--Aktivera scriptet ------------------------------------------------------------------------------------}
data:=GetGVar(103)
{--Scriptet--------------------------------------------------------------------------------------------------------}
i20(
kontroll1=And(validate,Datumkontroll)
kontroll2=And(kontroll1,data)
deklarera=SetGVarIf(h,103,lagrah)
kontroll3=And(kontroll2,deklarera)
kontroll4=And(Gt(c,GetGVar(103)),Gt(tidnu,0.01))
kontroll5=And(kontroll3,kontroll4)
rita=Draw(data,2,gqb)
kontroll6=And(kontroll5,rita)
kontroll7=And(kontroll6,data)
Mult(kontroll7,5)
)
varför fungerar inte det här scriptet?
Lösenordet sätts i ett annat script som är anslutet till omxs308c, läses från cell 110.
Fler saker sker i datumkontroll och scriptaktiveringen med cell 103.
Det borde bara vara att AND:a ihop villkoren, men det fungerar ej.
Scriptet laddas och ritas upp i kursstaplar fastän lösenordet är fel.
I lösenords-scriptet är lösenordet 1000 och i detta scriptet 1111 så resterande script borde ej laddas.
Vad kan vara fel?
)
{---Lösenords-kontroll---------------------------------------------------------------------------------------}
lösen:=1111
kund:=GetGvar(110) {cell där lösenord lagras}
validate:=Eqv(lösen,kund)
{---Datumkontroll----------------------------------------------------------------------------------------------}
Datumkontroll
{--Aktivera scriptet ------------------------------------------------------------------------------------}
data:=GetGVar(103)
{--Scriptet--------------------------------------------------------------------------------------------------------}
i20(
kontroll1=And(validate,Datumkontroll)
kontroll2=And(kontroll1,data)
deklarera=SetGVarIf(h,103,lagrah)
kontroll3=And(kontroll2,deklarera)
kontroll4=And(Gt(c,GetGVar(103)),Gt(tidnu,0.01))
kontroll5=And(kontroll3,kontroll4)
rita=Draw(data,2,gqb)
kontroll6=And(kontroll5,rita)
kontroll7=And(kontroll6,data)
Mult(kontroll7,5)
)
Comment