PARAMETERS cFecha


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
SET ESCAPE OFF




*** 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 PATH TO ".\json\" 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@v4'

_screen.Icon = 'images/ico/ghost_flat.ICO'
_screen.AutoCenter = .t.
_screen.Closable = .t.

_screen.ControlBox = .T.
_SCREEn.BorderStyle = 2
_screen.AutoCenter= .T.
_screen.Show

DO source\app.prg WITH cBdd


oHTTP.HTTPConnect('www.tecsicom.com')

lcHTML=""
lnText=0
nHTTPGetEx = oHTTP.HTTPGetEx(cHttp,@lcHTML,@lnText)