Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/db/
Upload File :
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/db/newid.dct

&@
RESERVED3MQids.dbfRESERVED5MY$table2.dbf
idi�FUNCTION NewID(tcAlias)
  LOCAL lcAlias, ;
  		lnID, ;
        lcOldReprocess, ;
        lnOldArea

  lnOldArea = SELECT()
  
  IF PARAMETERS() < 1
    lcAlias = UPPER(ALIAS())
  ELSE
    lcAlias = UPPER(tcAlias)
  ENDIF
        
  lcOldReprocess = SET('REPROCESS')
  
  *-- Lock until user presses Esc
  SET REPROCESS TO AUTOMATIC

  IF !USED("IDS")
    USE newid!ids IN 0
  ENDIF
  SELECT ids
      
  IF SEEK(lcAlias, "Ids", "table")
    IF RLOCK()
      lnID = ids.nextid
      REPLACE ids.nextid WITH ids.nextid + 1
      UNLOCK
    ENDIF
  ENDIF
    
  SELECT (lnOldArea)
  SET REPROCESS TO lcOldReprocess
  
  RETURN lnID
ENDFUNC
UNC
J�� 11��%����U.���������T��CW��%�C�
��D�T��CCf���[�T��C�f���T��C�	REPROCESSv��GM(��%�C�IDS�
����Q��	newid!ids��F��%�C��Ids�table���	�%�CS���T������>��������Z���
F����GM(����	B����UTCALIASLCALIASLNIDLCOLDREPROCESS	LNOLDAREANEWIDIDSNEXTIDNewID,��1q4����A�s2QAq��qAAA���1�)1newid() WINDOWS $table1.dbf
idnewid()