
EJECUTABLE AYUDA
Publicado por jean (13 intervenciones) el 26/01/2012 00:33:17
GRACIAS POR LA AYUDA, YA LO SOLUCIONE, COMO PUEDO GENERAL EL EJECUTABLE, LE DOY A GENERAL Y CUANDO LO COPILO DE CAE Y NO ABRE EL PROGRAMA
ESTE ES EL CODIGO QUE TENGO EN EL PROG
CLEAR
CLOSE ALL
CLEAR ALL
RELEASE ALL
_screen.visible = .F.
IF NETWORK()
SET EXCLUSIVE OFF
SET REPROCESS TO -1
ELSE
SET EXCLUSIVE ON
ENDIF
SET REFRESH TO 1
SET OPTIMIZE ON
SET EXACT OFF
SET TALK OFF
SET PRINTER OFF
SET CONFIRM ON
SET SAFETY OFF
SET DELETE OFF
SET CENTURY ON
SET DATE FRENCH
SET DECIMALS TO 2
SET PATH TO DATOS
COMMAND= DO PROG && corre PROG al inicio
*---------------------------------------------------*
OPEN DATABASE "DATOS\REGVIS" SHARED
DO FORM "formularios\ENTRADA"
READ EVENTS
ESTE ES EL CODIGO QUE TENGO EN EL PROG
CLEAR
CLOSE ALL
CLEAR ALL
RELEASE ALL
_screen.visible = .F.
IF NETWORK()
SET EXCLUSIVE OFF
SET REPROCESS TO -1
ELSE
SET EXCLUSIVE ON
ENDIF
SET REFRESH TO 1
SET OPTIMIZE ON
SET EXACT OFF
SET TALK OFF
SET PRINTER OFF
SET CONFIRM ON
SET SAFETY OFF
SET DELETE OFF
SET CENTURY ON
SET DATE FRENCH
SET DECIMALS TO 2
SET PATH TO DATOS
COMMAND= DO PROG && corre PROG al inicio
*---------------------------------------------------*
OPEN DATABASE "DATOS\REGVIS" SHARED
DO FORM "formularios\ENTRADA"
READ EVENTS
Valora esta pregunta


0