21 de marzo de 2017

Mostrar los archivos que contiene un proyecto

Este codigo nos muestra cada uno de los archivos que componen un proyecto. para saber que tipo es el archivo, basta con consultar la tabla que esta al final.

_SCREEN.ADDPROPERTY('NUMERO',1)
LOCAL NUMERO, CADENA, CICLO, SELECCION
CLEAR
CADENA = ''
NUMERO = APPLICATION.PROJECTS.COUNT
SELECCION = 0
IF NUMERO = 0
 WAIT WINDOW "NO HAY NINGUN PROJECTO ABIERTO"
 RETURN
ENDIF
IF NUMERO > 1
 OBJETO = CREATEOBJECT('FORM')
 OBJETO.WINDOWTYPE = 1
 OBJETO.AUTOCENTER = .T.
 OBJETO.HEIGHT  = 135
 OBJETO.WIDTH = 380
 OBJETO.CAPTION = 'Proyectos Activos'
 OBJETO.ADDOBJECT('ETIQUETA','LABEL')
 OBJETO.ADDOBJECT('COMBO1','COMBOBOX')
 OBJETO.ADDOBJECT('aceptar','aceptar')
 OBJETO.ETIQUETA.CAPTION = 'Por Favor Seleccione el Proyecto que desea mostrar'
 OBJETO.ETIQUETA.AUTOSIZE = .T.
 OBJETO.COMBO1.WIDTH = OBJETO.WIDTH-15
 OBJETO.COMBO1.TOP = 50
 FOR CICLO = 1 TO NUMERO
  OBJETO.COMBO1.ADDITEM(ALLTRIM(APPLICATION.PROJECTS(CICLO).NAME),CICLO)
 ENDFOR
 OBJETO.SETALL('visible',.T.)
 OBJETO.COMBO1.VALUE = 1
 OBJETO.SHOW
 SELECCION = _SCREEN.NUMERO 
ENDIF

WITH APPLICATION.PROJECTS(SELECCION)
 ? "NOMBRE DEL PROYECTO: " + .NAME
 CANTIDAD = .FILES.COUNT
 FOR CICLO = 1 TO CANTIDAD
  ? 'Tipo: ' + ALLTRIM(.FILES(CICLO).TYPE) + ' Nombre: ' + ALLTRIM(.FILES(CICLO).NAME)
  IF INT(ciclo/30) =(ciclo/30)
   WAIT WINDOW 'PRESIONE UNA TECLA PARA CONTINUAR'
  ENDIF
 ENDFOR
ENDWITH

DEFINE CLASS ACEPTAR AS COMMANDBUTTON
 CAPTION = 'ACEPTAR'
 TOP    = 80
 LEFT   = 30
 HEIGHT = 35

 PROCEDURE CLICK
  _SCREEN.NUMERO =THIS.PARENT.COMBO1.VALUE
  THISFORM.RELEASE
 ENDPROC
ENDDEFINE
ValorConstante FoxPro.HTipo de Archivo Y Extension
dFILETYPE_DATABASEBase de datos, .dbc
DFILETYPE_FREETABLETabla libre, .dbf
QFILETYPE_QUERYConsulta, .qpr
KFILETYPE_FORMFormulario, .scx
RFILETYPE_REPORTInforme, .frx
BFILETYPE_LABELEtiqueta, .lbx
VFILETYPE_CLASSLIBBiblioteca de clases visuales, .vcx
PFILETYPE_PROGRAMPrograma, .prg
LFILETYPE_APILIBBiblioteca de vínculos dinámicos de Visual FoxPro, .fll
ZFILETYPE_APPLICATIONAplicación, .app
MFILETYPE_MENUMenú, .mnx
TFILETYPE_TEXTArchivo de texto, varias extensiones
xFILETYPE_OTHEROtros, varias extensiones

Jorge Mota

No hay comentarios. :

Publicar un comentario