PARAMETERS cBdd


SET TALK off
SET STATUS BAR OFF
SET SYSMENU off
SET DELETED on
SET CONFIRM OFF
SET NOTIFY off
SET SAFETY off
SET CENTURY ON
SET DATE TO DMY

*** Clases para el manejo de Web
SET PATH TO ".\classes" ADDITIVE
SET PROCEDURE TO wwHTTP ADDITIVE   
SET PROCEDURE TO wwAPI ADDITIVE
SET PROCEDURE TO wwFTP ADDITIVE
SET PROCEDURE TO wwUtils ADDITIVE

SET CLASSLIB TO json\boleteria\boleteria ADDITIVE 

SET PATH TO ".\json\boleteria" ADDITIVE

SET PROCEDURE TO json/qdfoxJSON ADDITIVE
JSONStart()


On Shutdown CloseApplication()


WAIT WINDOW "Cargando Ghost..." nowait

Local lcDefaultPath
lcDefaultPath = Sys(5)+Sys(2003)
Set Path To (Addbs(lcDefaultPath)+"Images") Additive
Set Default To (lcDefaultPath)

_screen.Visible = .T.
_screen.Caption = 'Ghost@Boleteria'

_screen.Icon = 'images/ico/ghost_flat.ICO'
_screen.AutoCenter = .t.
_screen.Closable = .t.
_screen.Height = 550
_screen.Width = 700
_screen.ControlBox = .T.
_SCREEn.BorderStyle = 2
_screen.AutoCenter= .T.
_screen.Show

DO source\app.prg WITH cBdd, .t.


DO json\json_cliente.prg 

_screen.Caption = 'Ghost@Boleterķa - '+oApp.cbEnterprise


Do Form json\login WITH 'form\bmain'
Read Events

Function CloseApplication

	RELEASE oHTTP, oIP

   * Destroy BindWindowsEventsProxy object
   If Type("_vfp.BindWindowsEventsProxy")<>"U"
      _vfp.BindWindowsEventsProxy = Null
   Endif

   Set Library To

   _SCREEN.WindowState = 2
	CLEAR ALL
	CLOSE ALL
	SET SYSMENU TO defa

   On Shutdown
   Clear Events
   If _vfp.StartMode > 0
      Quit
   Endif
   Return
ENDFUNC
