In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

(no subject)

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

(no subject)

Mensaje por PILO »

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.
Arriba
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

(no subject)

Mensaje por Rolando »

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.
>
>
>
Arriba
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

(no subject)

Mensaje por Rolando »

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.
>>
>>
>>
>
>
Arriba
Responder

Volver a “Xailer Pro Spanish”