Variables de Profit
mfoxtool = FILE('reports\[Link]')
mcriptotool = FILE('reports\[Link]') .AND. nroversys >= 5
td_demo = .F. && Demostracion
es_demo = .F. && Demostracion al Arrancar es .T.
tlite = .F. && Es la Version Lite
tsmallb = .F. && Es la Version Small Bussines
tinicial_time = CTOT('01/01/1990')
tfinal_time = CTOT('01/01/2075')
tfinal_fec = CTOD('01/01/2075')
tcod_emp && Codigo de la Empresa
titul_emp && Nombre de la Empresa
ttelefono && Telefonos de la Empresa
trif_emp && R.I.F.
tnit_emp && N.I.T.
trespon && Respondable de la Empresa
tdirc && Direccion de la Empresa
*// Reporte
rtitulo1 && F
rtitulo2 && F
rtitulo3 && F
rnumero &&
rtipo && 0
tbanda && F
tcuerpo && F
torden &&
cod_super && 999 -> Codigo del Super-Usuario
name_super && SOFTECH -> Nombre del Super-Usuario
usuario_actual && 999 => Codigo del Usuario Actual
lempreuser && "002" Empresa Usuario
usuario_nombre && Nombre del Usuario Actual
cod_usuario && ?
acceso_actual && 1 && Mapa de Acceso Asignado
t_prioridad1 && 100 -> Prioridad del Usuario
t_prioridad2 && 0 -> Prioridad del Usuario
sucursal_act = "001" && Codigo de la Sucursal Activa
cambia_sucu = .F. && El Usuario pude Cambiar de Sucursal
pide_sucu = .F. && Al Usuario le aparece la Ventas para Pedir Sucursal
sucursal_nom = "" && Nombre de la Sucursal
sucursal_def && 001 && Codigo de la Sucursal Definida
v_path && C:\PRODIT_A\
base_path && \PRODIT_A\EJ2010\ && Codigo de la Empresa Actual
drive_path && C:
name_folder && c:\PRODIT_A\EJ2010\ && Codigo de la Empresa Actual
path_dev &&
path_def && C:\PRODIT_A\
ljchat && .F.
tdes_mone && Descricion de la Moneda "BOLIVARES FUERTES"
mptot_pag && 0
ltradi && .F.
es_panama && .F.
mcriptotool && .T.
tparametro && 800
tmoduloaux && Reportes y Procesos Adicionales
tfiltroaux = " "
tnom_rep && F
v_entrar = .T. && Al Entrar es .F.
tseleccion = .T. && Al Entrar es .F.
nothingtoprint_loc = "No hay nada que imprimir"
rmb_iconexclamation = 304
business_loc = "Profit Plus Administrativo"
tnumeroant = 0
fecha_dia = DATE() && 03/09/2010 &6 Fecha del Dia
t_campo1 && F
t_campo2 && F
t_tabla && F
tmodulo && Ventas y Cuentas por Cobrar -> Modulo del Sistema
tfinal = CHR(254) + CHR(254) + CHR(254) + CHR(254)
tmaximo_num = 999999999999.99
tminimo_num = -99999999999.99
tsaltar_doc = 10
tfactor = 10
tinicial_num = -99999999999.99
tfinal_num = 999999999999.99
serversql = .F. && Indica si el Sistema es SQL o Visual FoxPro
serverfox = .F.
tejecutable = .T.
tfec_itasa = tinicial_fec && / /
tfec_ftasa = tinicial_fec && / /
tinicial = " "
tsaltar = 10 && Al Entrar es 20
tinicial_doc = 0
tinicial_ddoc = -9999999
tfinal_doc = 99999999
tinicial_fec = CTOD(' / / ')
tfec_idb = tinicial_fec && // Fecha del I.D.B. Creo que es la de Vigencia
ttabla1 && Report && Tabla Actual Abierta
ttabla1_p && Report. && Tabla Actual Abierta Mas Punto
ttabla2 &&
ttabla2_p &&
ttabla3 &&
ttabla3_p &&
ttabla4 &&
ttabla4_p &&
tcampoclave && Campo Clave de la Tabla
dominio0 && F
dominio1 && F
doc_clien && F
doc_vende && F
doc_sino = .F.
formdesac && F
sinodesac = .F.
yapaso && F
printcob = .F.
tcero = 0.0000
gmax_num = 100
saliendo = .F.
talm_des = "9999 "
data_exclu = .F.
time_espera && 25
es_modal = .F.
printtipo = 0
report_fil = ""
contabilidad && T
nlinea && Linea -> Nombre de la Linea
ncategoria && Categoria -> Nombre de la Categoria
nsublinea && Sub-Linea -> Nombre de la Sub-Linea
nprocedencia && procedencia -> Nombre de la Procedencia
ncolor && Color -> Nombre del Color
gsucursal = ""
tbuscart && F
tbuscart1 && F
tbuscart2 && F
tbuscart3 && F
tconnect = 0 && Valor al Arrancar el Sistema -1
tcheck = .F. && Se Chequeo el Acceso Creo T
tpgcnt = 0
doc_moneda && F
doc_tasa && F
gregistro = 1688
sifoxfix = FILE('reports\ffix4_50.fll') (.T.)
report_sucu = SPACE(6)
tnum_print = 1
tnum_page = 1
tnoimp = .T.
simarca_fac = 1
ttiempo = SECONDS() && Tiempo en Segundos de Ejecucion del Sistema (38205.980)
punto_venta = ''
hayparampvta = .F. && Hay Parametros de Ventas
IF TYPE("pOpciones") = "C"
IF AT('CAJ-',UPPER(popciones)) > 0
punto_venta = UPPER(SUBSTR(popciones,AT('-',popciones) + 1))
punto_venta = LEFT(punto_venta,LEN(punto_venta) - 1)
hayparampvta = .T.
ENDIF
ENDIF
lformato_fec && BRITISH -> Formato de la Fecha (dd/mm/aaaa)
sipro_menu = .T.
tmaxusuario = 0
gescompuesto = .F. && La Empresa Maneja Compuestos
pnoabriotabla = .F.
trep_imp = .F.
titpag_suma = 0
tintercalado = .F.
lvpro = SPACE(10)
lvcat = SPACE(6)
lvcol = SPACE(6)
lvlin = SPACE(6)
lvsub = SPACE(6)
lvfil = .F.
tsescr = .F.
tmone_base = ''
pc_serie = 0
pc_userie = 0
pc_sucursal_s = ''
lversys = OS()
nroversys = VAL(SUBSTR(lversys, 8,3))
gcoldescape = SET('ESCAPE')
gcolddir = FULLPATH(CURDIR())
gcoldpath = SET('PATH')
gcoldclasslib = SET('CLASSLIB')
lonjgs = ON('SHUTDOWN')
lconshutdown = "ShutDown()"
tdesde &&
tdesde[12]
thasta &&
thasta[12]
topcion[12]
mask[6]
mask[1] = "999,999,999"
mask[2] = "999,999,999.9"
mask[3] = "999,999,999.99"
mask[4] = "999,999,999.999"
mask[5] = "999,999,999.9999"
mask[6] = "999,999,999.99999"
maskb[6]
maskb[1] = "999,999,999,999"
maskb[2] = "999,999,999,999.9"
maskb[3] = "999,999,999,999.99"
maskb[4] = "999,999,999,999.999"
maskb[5] = "999,999,999,999.9999"
maskb[6] = "999,999,999,999.99999"
swsql = 1
lcf1 = "{"
lcf2 = "}"
lop = "WITH"
*// Variables No Definidas
misqlconex
vfinal_path
pro
infor
reporte
modu
Varios Profit
Procesos Especiales
EJECUTAR_EXT(1), EJECUTAR_EXT(2),EJECUTAR_EXT(3)
PROCEDURE EJECUTAR_EXT
PARAMETER lc_tipo
IF !td_demo
LOCAL lpro_ini, lpro_fin,lpro_sa1, lpro_sa1, lc_paso
lext1 = IIF(tejecutable,'.FXP', '.PRG')
lext2 = '.SCX'
lc_paso = .T.
FOR bus_ext = 1 TO 2
lrutext = 'REPORADI\' + IIF(bus_ext = 1,ALLTRIM(tcod_emp) + '\', '')
lpro = lrutext + UPPER('GEN_') + ALLTRIM(STR(lc_tipo)) + lext1
IF FILE(lpro) .AND. lc_paso
lc_paso = .F.
Do &lpro
ELSE
lpro = lrutext + UPPER('GEN_') + ALLTRIM(STR(lc_tipo)) + lext2
IF FILE(lpro) .AND. lc_paso
lc_paso = .F.
[Link](lpro)
ENDIF
ENDIF
ENDFOR
ENDIF
ENDPROC
PROCEDURE setpath
DECLARE INTEGER GetShortPathName IN kernel32 STRING, STRING @, INTEGER
LOCAL lcsys16, lcprogram
lcsys16 = SYS(16)
lcprogram = SUBSTR(lcsys16,AT(":", lcsys16) - 1)
CD LEFT(lcprogram, RAT("\",lcprogram))
IF RIGHT(lcprogram, 3) = "FXP"
tejecutable = .F.
CD ..
ENDIF
IF .NOT. tejecutable
DO WHILE TXNLEVEL() > 0
ROLLBACK
ENDDO
ENDIF
path_def = FULLPATH(CURDIR())
path_dev = FULLPATH(CURDIR())
path_def = _getshort(path_def)
path_dev = path_def
vfinal_path = path_dev
*//
SET PATH TO progs, FORMS, libs, MENUS, DATA, OTHER, reports, INCLUDE, HELP, bitmaps, reportsadi
,reporADI
SET CLASSLIB TO MAIN, blgen, JGSZIP
*//
IF !USED("wcontrol")
USE SHARED [Link]
=CURSORSETPROP("Buffering",1,"wcontrol")
ENDIF
IF EMPTY(ALLTRIM(wcontrol.act_path))
v_path = UPPER(LEFT(path_def,LEN(path_def) - 1))
ELSE
v_path = ALLTRIM(wcontrol.act_path)
ENDIF
tpath = v_path + '\DATA\'
tpathe = tpath + "employee"
tpatht = tpath + "tablas"
IF !USED("employee")
SELECT 0
USE &tpathe ORDER TAG last_name SHARED
ENDIF
IF !USED("tablas")
USE &tpatht SHARED IN 0
ENDIF
=declarar_dll()
ENDPROC