Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #DEFINE ES_DESARROLLO .T. && .T. usa clases en modo VFP
- #DEFINE COM_SERVER "XXXBiz" && Especificar que módulo estoy utilizando
- #DEFINE BIZ "NombreEntidad" && Especificar que clase wrapper se quiere instanciar
- *****************
- * NO TOCAR
- PUBLIC goBiz
- #IF ES_DESARROLLO
- do ("..\"+COM_SERVER+"\Progs\SetLibs.Prg")
- goBiz = CreateObject(BIZ)
- #ELSE
- goBiz = createobject(COM_SERVER+"."+BIZ)
- #ENDIF
- goBiz.Init(COM_SERVER)
- *****************
- Clear
- * -- Con estas declaraciones evito el error de gcxmlerr
- * Store "" to gcxmlerr
- Public gcxmlerr
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement