arturolechi

Cesar RalFito respondió: Aparte de adir() lc = SYS(2000, "*.DBF") DO WHILE NOT EMPTY(lc) USE (lc) EXCLUSIVE Reindex lc = SYS(2000, "*.DBF", 1) Enddo

Cesar RalFito respondió: DECLARE INTEGER GetDesktopWindow IN WIN32API DECLARE INTEGER LockWindowUpdate IN WIN32API INTEGER lnHandle<o:p></o:p> hWin = GetDeskTopWindow() LockWindowUpdate(hWin) && Bloquea actualización de la pantalla REPORT FORM NombreReporte. Frx TO PRINTER...

Cesar RalFito respondió: Puedes usar lo siguiente: TMiValor = DATETIME( YEAR( MiCampoFecha ), MONTH( MiCampoFecha ), DAY( MiCampoFecha ), VAL( LEFT( MiCampoTime, 2 ) ), VAL( RIGHT( MiCampoTime, 2 ) ) )

Cesar RalFito respondió: Para realizar esto agreguémosle al formulario las propiedades ejex, ejey, mdown. En el evento MouseMove del form agregamos lo siguiente With thisform If thisform.MDown Then ThisForm .Left = ThisForm .Left + nXCoord - .ejex ThisForm .Top = ThisForm...

Cesar RalFito respondió: Declare integer GetActiveWindow in WIN32API oShell = createobject("Shell.Application") oFolder = oShell.BrowseForFolder(GetActiveWindow(), "Seleccione carpeta", 0 ) ? OFolder. Items. Item. Path

Cesar RalFito respondió: -----------------------------DECLARE LONG DllRegisterServer IN [archivo.ocx] IF DllRegisterServer() = 0 * OK ELSE * Not OK Endif

Cesar RalFito respondió: Solo tienes que poner en el evento GotFocus del TextBox el siguiente código ... This.SelStart = LEN(RTRIM(This.Value)) ... y listo, el cursor se colocará al final del texto del TextBox

Cesar RalFito respondió: Lo que se me ocurrió es lo siguiente: report form myreport preview nowait move window "Print Preview" to 20,40 mouse click at 22,70 keyboard '{DNARROW}' && 75% keyboard '{DNARROW}' && 50% keyboard '{ENTER}'

Cesar RalFito respondió: LOCAL lcOldError, llError, loWord llError = .F. lcOldError = ON("ERROR") ON ERROR llError = .T. loWord = CreateObject("Word.Application") ON ERROR (lcOldError) IF llError or VARTYPE(loWord) <> "O" ? "Error: MS Word no está instalado" RETURN .F. Endif

Cesar RalFito respondió: STRING cClassName, ; STRING cWindName Handle = findwindow(0,_Screen.caption) Este ejemplo obtiene el handle de _screen así, que solo tendrías que reemplazar la cadena por el caption del formulario que quieras conocer su handle. Digamos: Handle =...