Exit procedure?

[goosfancito]

Estimados,

Viendo los ejemplos de la clase tExcelScript, me vi con este codigo:

Code: Select all

FUNCTION Test()
  LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + "browse.xls"
  LOCAL i
  oExcel := TExcelScript():New()
  oExcel:Open( cOrigen )

  oExcel:visualizar(.T.)
  FOR i := 1 TO 4
      oExcel:AutoFit( i )
  NEXT
  oExcel:SetPrintArea("A1:D20")
  oExcel:Margins( 0 , 50 )
  oExcel:Headers( 1 , "Titulo Superior" )
  oExcel:Footers( 2 , "Footer Izquiedo con numero de paginas..."+"&P" )
  oExcel:Zoom( 110 )  // Ajuste al 110% de tamaño de la Hoja
  oExcel:lCenterH( .T. )
  oExcel:lCenterV( .T. )
  oExcel:SetLandScape()
  oExcel:SetPage( 1 )  // Papel Tamaño Carta

RETURN ( .T. )

EXIT PROCEDURE Cerrar()
  oExcel:End(.F.) ; oExcel := NIL
RETURN

Ahora bien que hace "exit procedure" cuando se ejecuta si no se la llama desde ningun lado? es automatico?

Gracias

[wmormar]

Estimados,

Viendo los ejemplos de la clase tExcelScript, me vi con este codigo:

Code: Select all

FUNCTION Test()
  LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + "browse.xls"
  LOCAL i
  oExcel := TExcelScript():New()
  oExcel:Open( cOrigen )

  oExcel:visualizar(.T.)
  FOR i := 1 TO 4
      oExcel:AutoFit( i )
  NEXT
  oExcel:SetPrintArea("A1:D20")
  oExcel:Margins( 0 , 50 )
  oExcel:Headers( 1 , "Titulo Superior" )
  oExcel:Footers( 2 , "Footer Izquiedo con numero de paginas..."+"&P" )
  oExcel:Zoom( 110 )  // Ajuste al 110% de tamaño de la Hoja
  oExcel:lCenterH( .T. )
  oExcel:lCenterV( .T. )
  oExcel:SetLandScape()
  oExcel:SetPage( 1 )  // Papel Tamaño Carta

RETURN ( .T. )

EXIT PROCEDURE Cerrar()
  oExcel:End(.F.) ; oExcel := NIL
RETURN

Ahora bien que hace "exit procedure" cuando se ejecuta si no se la llama desde ningun lado? es automatico?

Gracias

Goos,

INIT procedure, se lanzan en automático, quiere decir que lo lanza en cuanto la aplicación da por iniciada, antes de cualquier función principal.

EXIT procedure, de igual manera se lanza en automático, y quiere decir que es la ultima función en ejecutarse.

Todo lo incluído en esas funciones se ejecuta antes o despues, seguna la función en cuestión.

Que lo lanza o como está la cuestión, pues no la se, pero a groso modo asi es la cosa.

Espero haber ayudado.

Sino ayudo, confundo, pero igual no te quedas.

jjejjejje

[goosfancito]

Gracias,

por ende cada .prg o módulo de programa debe contener un solo EXIT y un solo INIT.

Explicado... y entendido.

Gracias de nuevo.