Archivo
_CLIPTEXT
_CLIPTEXT Contiene el contenido del portapapeles de VFP. Puede utilizarlo para establecer otra información basada en qué hay en el portapapeles, y puede utilizarla precisamente, para definir qué hay en el portapapeles.
Es una variable de dos sentidos que debe aprovechar en tiempo de diseño e incluso en tiempo de ejecución dentro de su aplicación.
Para demostrarlo, resalte una línea de código en la ventana de comandos y presione Ctrl+C para guardarlo en el Portapapeles. Ahora, introduzca ? _CLIPTEXT en la ventana Comandos y verá que la línea de código que ha resaltado está impresa en la pantalla. Otro ejemplo es ejecutar el siguiente código para crear un programa:
_cliptext = ‘? «FOX ROCKS»‘ + CHR(13) + CHR(10) + ;
‘? «VFP 8 ES FANTÁSTICO»‘ + CHR(13) + CHR(10)
ERASE JUNK.PRG
MODIFY COMMAND Junk NOWAIT
KEYBOARD ‘{CTRL+V}’
El código anterior llena el portapapeles con dos líneas de código, crea un archivo de programa, y luego pega el contenido del portapapeles al programa creado recientemente.
Comparativa entre las diferentes ediciones de SQL Server 2008
Revisando en los grupos de noticias de SQL Server (microsoft.public.es.sqlserver) encontré un link de la comparativa entre las diferentes ediciones de SQL Server 2008
Verificar si la cadena es una dirección Web
Esta API nos permite saber si la cadena que se le pasa como parámetro es un URL o dirección Web correcta.
Para que la dirección sea correcta debe llevar el prefijo (http://o ftp:// o cualquier otro valido), no es valido http://www.RAHSuarez.net ya que antes se debe anteponer el tipo de dirección.
Declare long PathIsURL IN «shlwapi.dll» strin pszPath
MESSAGEBOX(PathIsURL(«C:/windows»))
MESSAGEBOX(PathIsURL(«www.RAHSuarez.net»))
MESSAGEBOX(PathIsURL(«http://www.google.com»))
Retorna 0 si no es una Url.
Saber si un directorio esta vacío, si no existe la carpeta crea
Si devuelve 1 la carpeta existe , 0 carpeta no existe
DECLARE LONG PathIsDirectoryEmpty IN «shlwapi.dll» STRING pszPath
Variable = «c:/Prueba»
IF DIRECTORY(variable)
MESSAGEBOX(PathIsDirectoryEmpty(Variable))
ELSE
MKDIR &variable
MESSAGEBOX(PathIsDirectoryEmpty(Variable))
ENDIF
Verificar si el archivo se puede abrir de manera Exclusiva
Devuelve .T., esta bloqueado por otra aplicacion, util para saber si el archivo se encuentra bloqueado.
? EstaBloqueado(«c:\archivoprueba.dbf»)
Function EstaBloqueado(m.ccArchivo)
Declare Long _lopen In «kernel32» as lOpen String lpPathName, Long iReadWrite
Declare Long _lclose In «kernel32» as lClose Long hFile
Local hFile As Long
hFile = -1
hFile = lOpen(m.ccArchivo, 0x10)
Result = hFile = -1
lClose (hFile)
Return Result
Endfunc
Abrir cuadro de dialogo conectar a unidad de red
Para conectar a una unidad de red
#DEFINE RESOURCETYPE_DISK 1
Declare Integer WNetConnectionDialog In Win32Api;
Integer Handle, Integer ResourceType
WNetConnectionDialog(FindWindow(0,_Screen.Caption), RESOURCETYPE_DISK)
Visual FoxPro 9 Español DLL (IDE) v SP1.1.0
Convierte el Interfaz de Usuario (IDE) de Visual FoxPro 9 a Español.
Extraer la DLL y colocarla en el directorio de instalación.
Códigos de barra en informes de Visual FoxPro
Para añadir códigos de barra a los informes de Visual FoxPro, para su impresión con fuentes True Type, utilizaremos lo siguiente.
Código 39
Código 128
EAN-13
EAN-8
Interleaved 2 of 5
Determinar si la expresión es una fecha válida ISDATE()
Ejemplo :
DECLARE @datestring varchar(10)
DECLARE @datestring1 varchar(10)
SET @datestring = ‘2009-1-10’
SET @datestring1 = ‘abc’
SELECT ISDATE(@datestring) AS FECHA, ISDATE(@datestring1) AS FECHAERROR
Valores devueltos.
0 = No es formato fecha
1 = Es formato fecha
Los valores de LANGUAGE y DATEFORMAT afectan el valor devuelto.
Devolver el entero más pequeño mayor o igual CEILING ()
Devuelve el entero mas pequeño mayor o igual a la expresion
SELECT CEILING(146.35) AS Positivo, CEILING(-112.45) AS Negativo, CEILING(0) AS Entero
GO
Positivo = 147
Negativo = -112
Entero = 0
Esta funcion no acepta el tipo de datos bit.
RAHSuarez's Blog 