السلام عليكم و رحمةة الله و بركاته
ارجو منكم افادتنا بمعنى هذه الكتابة في الفوكس برو :
PARAMETER i
IF PCOUNT() < 1
i = "J"
ENDIF
testlimit = IIF(i = 'O', 4, 13)
pass1 = .F.
msg1 = " N° DD propres à cette machine "
msg2 = " Codes propres à cette machine "
STORE SYS(2007, msg1) TO m_oc, m_od, m_oe, m_of
nf = "ELB" + i + ".OVL"
STORE " " TO j_oc, j_od, j_oe, j_of
STORE 100 TO j_demo
barakatihi(i)
kachf(i)
save1 = .F.
IF FILE(nf)
RESTORE FROM (nf) ADDITIVE
ENDIF
IF (j_oc = m_oc .AND. SYS(5) = "C:") .OR. (j_od = m_od .AND. SYS(5) = "D:") .OR. (j_oe = m_oe .AND. SYS(5) = "E:") .OR. (j_of = m_of .AND. SYS(5) = "F:")
pass1 = .T.
ENDIF
m_k = " "
IF .NOT. pass1
DO FORM Lire_klm WITH " Introduire votre code Installation s.v.p., ", 140, 280, "*", 90, " "
m_kalima = ALLTRIM(UPPER(m_kalima))
m_k = m_kalima
IF m_k == m_oc .OR. m_k == m_od .OR. m_k = m_oe .OR. m_k = m_of
MESSAGEBOX(" Vous avez introduit le bon code, Bonne chance ", " Elbassit ")
pass1 = .T.
save1 = .T.
ENDIF
ENDIF
IF .NOT. pass1
mk1 = testdate()
ENDIF
IF m_k == m_demo .AND. j_demo > 0
IF j_demo < 20
MESSAGEBOX(" Attention cette DEMO devra être reconduite ", " Elbassit ")
ENDIF
pass1 = .T.
j_demo = j_demo - 1
SAVE TO (nf) ALL LIKE j_*.*
IF mk1 > 20
MESSAGEBOX(" Cette DEMO doit être correctement installée " + CHR(13) + "Cherchez une installation originale ou plus récente", " Elbassit ")
RETURN .F.
ENDIF
ENDIF
IF .NOT. pass1
testmot(i)
ENDIF
IF save1
j_oc = m_oc
j_od = m_od
j_oe = m_oe
j_of = m_of
SAVE TO (nf) ALL LIKE j_o*.*
ENDIF
RETURN pass1
اود اان اعرف معنى : m_oc
