Advertisement
iKernel

Setup FoxUnit

Apr 27th, 2021
1,313
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         #DEFINE ES_DESARROLLO   .T.         && .T. usa clases en modo VFP
  2.         #DEFINE COM_SERVER "XXXBiz"     && Especificar que módulo estoy utilizando
  3.         #DEFINE BIZ "NombreEntidad"         && Especificar que clase wrapper se quiere instanciar
  4.  
  5.  
  6.         *****************
  7.         * NO TOCAR
  8.         PUBLIC goBiz
  9.        
  10.         #IF ES_DESARROLLO
  11.             do ("..\"+COM_SERVER+"\Progs\SetLibs.Prg")
  12.             goBiz = CreateObject(BIZ)
  13.         #ELSE
  14.             goBiz = createobject(COM_SERVER+"."+BIZ)
  15.         #ENDIF
  16.         goBiz.Init(COM_SERVER)
  17.         *****************
  18.  
  19.         Clear
  20.        
  21.         * -- Con estas declaraciones evito el error de gcxmlerr
  22.         * Store "" to gcxmlerr
  23.         Public gcxmlerr
Advertisement
RAW Paste Data Copied
Advertisement