WITH ThisForm

      .MousePointer
= 11  && Establece el puntero al Reloj de arena

      .SetAll(
_MousePointer_, 11 )   &&  Lo Aplicamos a todos
los objetos

ENDWITH

cPalabra =
"pureta"  && Donde quería decir puerta

oWord = CreateObject("Word.Application")

? oWord.CheckSpelling(cPalabra)

&& Si la palabra existe
devuelve .T. sino .F.

cMensage = "Mensaje
de ejemplo"

_Screen.Scalemode
= 0

Wait Window cMensage
At Int(_Screen.Height/2),
Int(_Screen.Width/2
- Len(cMensage)/2)

Les gustaran estos
ejemplos.

Ejemplo No 1

DEFINE WINDOW wAyuda ;

FROM 1,1 TO 5,35 ;

FONT _MS SANS SERIF_,8 ;

STYLE _BN_         && Define la ventana con fuente y estilo



ACTIVATE WINDOW wAyuda 

?_Lo Mejor de VFP_

?_La Web de Davphantom_

WAIT WINDOW "" TIMEOUT 3

RELEASE WINDOWS wAyuda

Ejemplo No 2

Declare integer Sleep in "kernel32" ;

Long dwMilliseconds



DEFINE WINDOW wAyuda ;

FROM 1,1 TO 3,35 ;

FONT _MS SANS SERIF_,8 ;

STYLE _BN_ COLOR RGB(255,255,255,0,0,255)&& De&& Define la ventana con fuente y estilo

ACTIVATE WINDOW wAyuda 

?_Lo Mejor de VFP_

?_La Web de Davphantom_



=sleep(1000)

**WAIT WINDOW TIMEOUT 3

RELEASE WINDOWS wAyuda

=AFONT(gaFontArray)         
&& Matriz que contiene nombres de fuentes

gnNumFonts = ALEN(gaFontArray)    && Número de fuentes

IF gnNumFonts > 25

    gnNumFonts = 25       && Muestra las
25 primeras fuentes

ENDIF



FOR nCount = 1 TO gnNumFonts

       ? ALLTRIM(gaFontArray(nCount))  
&& Muestra nombre de fuente

       ?? _ Esto es un ejemplo de _ ;

            + ALLTRIM(gaFontArray(nCount)) FONT gaFontArray(nCount), 8

ENDFOR

aGetFileVersion(aVers, "f:WINDOWSEXPLORER.exe")

? aVers(2)

? aVers(3)

? aVers(4) 

? aVers(5)

dFecha = {^2000/01/01}

? alltrim(str(day(dFecha))) + "
" + cmonth(dfecha) + " " + alltrim(str(year(dfecha)))

LOCAL lnHoras, lnMinutos, lnSegundos

nsegundos = 180  &&
Numero de segundo a convertir

 

lnHoras = INT(nSegundos/3600)

lnMinutos = INT(((nSegundos-(lnHoras
* 3600))/60))

lnSegundos = MOD(nSegundos,60)

? IiF(lnHoras<100,TRANSFORM(lnHoras,"@L
99"),TRANSFORM(lnHoras,"@L 9999")) +":"+ ;

TRANSFORM(lnMinutos,"@L
99")+":"+ ;

TRANSFORM(lnSegundos,"@L
99")

Crea un formulario y
agrégale un Combo y un Botón. Al hacer click en el botón debe
desplegarse automáticamente el Combo.

Programa lo
siguiente en el evento Gotfocus del Combo

tColumna  =
THISFORM.Combo1.Left + THISFORM.Combo1.Width - 4

tFila  =  THISFORM.Combo1.Top + 2

MOUSE CLICK AT tFila, tColumna PIXELS WINDOW (THISFORM.Name)

En el evento Click
del botón que creaste llama al evento Setfocus() del combo,
Así:

Thisform.combo1.Setfocus()

Primero veamos como puedo exportar un reporte a extensión .Doc (Word)

oCristalReport =
Createobject("crystal.crpe.application")

oRepx = oCristalReport.OpenReport("C:\reporteventas.RPT")

oRepx.ExportOptions.FormatType = 14
&& Formato de Word


oRepx.ExportOptions.DiskFileName =
"c:\reporteventasdelmes.doc"


oRepx.ExportOptions.DestinationType = 1
&& Tipo de Destino a guardar


oRepx.Export(.F.) &&
No muestra ningun cuadro de Dialogo


Release oRepx


Release oCristalReport

los otros formatos en que podemos guardar los reportes son:

 

Extensión     FormatType

RTF             4

EXCEL         7 27 o 28

EXCEL         8 29 o 30

 


* Para ver en vista previa un reporte:


oCristalReport =
Createobject("crystal.crpe.application")

oRep = oCristalReport.OpenReport("C:\reporteventas.RPT")

oRep.Preview

* Para mandarlo a imprimir


oCristalReport =
Createobject("crystal.crpe.application")

oRep = oCristalReport.OpenReport("C:\reporteventas.RPT")

oRep.Printout(.F.)
&& .F. no muestra cuadro para configurar impresora

Siempre nos da cacao tratar de determinar los años que tiene una persona; presento un procedimiento fácil para hallarla. Acepto sugerencia y modificaciones

dFecha = {^1978/10/23}

nAños = ROUND(((DATE()
- dFecha ) / 365.25),0)

? nAños

En el ejemplo la fecha de nacimiento es 23 octubre de 1978, y dará como resultado el número de años de la persona

? SET("PRINTER",
2)  && Impresora predeterminada de Windows



? SET("PRINTER", 3) 
&& Impresora predeterminada de VFP