Perdón: el evento adecuado para hacer eso es OnInitialize de TForm1
"Rolando Sarrailh" <
rsarrailh@gmail.com> escribió en el mensaje
news:[email=
453dfed1@news.xailer.com...]
453dfed1@news.xailer.com...[/email]
> Hola: el evento adecuado para hacer eso es FormInitialize de TForm1 el que
> sigue es un ejemplo real
> Saludos.
>
> METHOD FormInitialize( oSender ) CLASS TForm1
> Set date french
> Set deleted on
> SET CENTURY ON
> REQUEST HB_LANG_ES // para mensajes
> HB_LANGSELECT( "ES" )
>
> REQUEST HB_CODEPAGE_ESMWIN // para ordenación de indices
> HB_SetCodePage( "ESMWIN" )
> Application:lUseReturn := .t.
> IF ! ExistDir(".DATA")
> MAKEDIR(".DATA")
> ENDIF
> IF ! ExistDir(".FOTOSPRO")
> MAKEDIR(".FOTOSPRO")
> ENDIF
> IF ! ExistDir(".FOTOSPAC")
> MAKEDIR(".FOTOSPAC")
> ENDIF
> IF ! ExistDir(".HISTO")
> MAKEDIR(".HISTO")
> ENDIF
> IF ! ExistDir(".OS")
> MAKEDIR(".OS")
> ENDIF
> GENERTAB()
> AppData:AddData("lIoma", .f.)
> AppData:AddData("lObra", .f.)
> FIELD NRODOC, CODOBR, CODOS, NRO_DOC
> REQUEST DBFCDX
> //D:PRGBOLLINITURNOS
> IF FILE( ".OSOBRASOC.DBF" )
> AppData:lObra := .t.
> IF ! FILE( ".OSTABOS.IDX" )
> DBUSEAREA(.T., "DBFCDX" ,".OSTABOS",,.F.)
> INDEX ON CODOS TO .OSTABOS.IDX
> USE
> ENDIF
> DBUSEAREA(.T., "DBFCDX" , ".OSTABOS",,.T.,.T.)
> DBSETINDEX( ".OSTABOS.IDX")
>
> IF ! FILE( ".OSDOCUM.IDX" )
> DBUSEAREA(.T., "DBFCDX" ,".OSOBRASOC",,.F.)
> INDEX ON NRODOC TO .OSDOCUM.IDX
> USE
> ENDIF
>
> DBUSEAREA(.T., "DBFCDX" ,".OSOBRASOC",,.T.,.T.)
> DBSETINDEX( ".OSDOCUM.IDX")
> SET RELA TO CODOBR INTO TABOS
> ENDIF
> IF FILE( ".OSIOMALAPL.DBF" )
> AppData:lIoma := .t.
> IF ! FILE( ".OSIOMALAPL.NTX" )
> DBUSEAREA(.T.,, ".OSIOMALAPL.DBF",,.T.,.T.)
> INDEX ON NRO_DOC TO .OSIOMALAPL.NTX
> USE
> ENDIF
> DBUSEAREA(.T.,, ".OSIOMALAPL.DBF",,.T.,.T.)
> DBSETINDEX( ".OSIOMALAPL.NTX")
> ENDIF
> ::oDU:Open()
> ::HideControls()
>
> RETURN Nil
>
>
> "PILO" <
srmpilo@hotmail.com> escribió en el mensaje
> news:453dee09$[email=
1@news.xailer.com...]
1@news.xailer.com...[/email]
>> Hay algun ejemplo en algun sitio
>>
>> De: "PILO" <
srmpilo@hotmail.com>
>> Asunto: Ayuda de presentar como corre una base de datos
>> Fecha: lunes, 16 de octubre de 2006 12:36
>>
>> Hola, cuando arranca en el programa tengo que habrir una base de datos y
>> con
>> el dato de
>> cada registro, ir abriendo otra y recorriendola registro ha registro.
>> Necesito saber como lo puedo hacer cuando arranco el programa para entrar
>> en
>> una pantalla
>> que me presenta nada más la base de datos donde estoy,
>> y varias datos del registros, asi como un sumador.
>> Alguie me puede ayudar y poner un pequeño ejemplo.
>> Gracias de antemano a cualquiera.
>>
>>
>>
>
>