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
SET DECIMALS TO 6
SET FIXED OFF 

SET PATH TO proj,json,classes, form,prg,class
*** 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


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 = 'VisualPlus@Gas'

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

_screen.AutoCenter= .T.
_screen.Show



DO app.prg WITH cBdd
oApp.loadGhost()

DO invoicer.prg

_screen.Caption = 'Ghost@Gas - '+oApp.cbEnterprise




*DO classes\wwapi.prg
*DO compelec.prg


Do Form login WITH 'gas'
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

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