FoxPro/Visual FoxPro - metodos dañados

 
Vista:

metodos dañados

Publicado por Gabriel Sánchez (112 intervenciones) el 13/06/2008 16:48:20
Hola amigos, tengo un pequeño problema no un form.
Lo que sucede es que cuando ejecuto el form, me ocurre un error fatal, justo al momento de leer la linea donde invoco a un método.

Esto pues me tiene muy preocupado ps es la primera vez que me sucede. a por cierto cuando vuelvo a crear otro metodo con el mismo código se soluciona de manera temporal, luego de unas cuantas pruevas sucede lo mismo.

Espero me puedan ayudar.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:metodos dañados

Publicado por Gabriel Sánchez (112 intervenciones) el 13/06/2008 17:18:05
Hola, simplemente sale la ventana para informar el error al proveedor(Microsoft Visual FoxPro)

mas o menos este es el código.

INSERT INTO cProceso values('', 'Conectándose al servidor...', 1,1)
*****codigo de un metodoi en el form********

IF This.conectarse('master') = 0
UPDATE cProceso SET flg = 2 WHERE orden = 1
RETURN 0
ENDIF
UPDATE cProceso SET descri = 'Conexión al servidor OK', flg = 3 WHERE orden = 1

* Crear base de datos seteo
INSERT INTO cProceso values('', 'Creando base de datos de configuración...', 2,1)

&& ES AQUÍ DONDE OCURRE EL ERROR Y SE CIERRA EL VFP.
&& PS NI SIQUIERA INGRESA AL METODO. LO CURIOSO ES QUE ESTABA &&FUNCINANDO
&& BIEN PERO DE PRONTO TODOS LOS METODOS AL PARECER SE HAN DAÑADO.

IF This.create_database_seteo1() = 0 && lINEA DE ERROR <-------
UPDATE cProceso SET descri = 'Error creando base de datos de configuración', flg = 2 WHERE orden = 2
RETURN 0
ENDIF


********************* este es el metodo create_database_seteo1()*******************
* Ver si existe
TEXT TO cSql TEXTMERGE NOSHOW PRETEXT 2
select rtrim(name) as nombre
from sysdatabases
where name = 'prueba'
ENDTEXT
IF SQLEXEC(vCon, cSql, 'cBase') < 0
RETURN 0
ENDIF
SELECT cBase
GO TOP
IF !EOF()
RETURN 1
ENDIF

TEXT TO cSql TEXTMERGE NOSHOW PRETEXT 2
-- Crear base de datos.
USE [master]
--GO
/****** Objeto: Database [prueba] Fecha de la secuencia de comandos: 06/09/2008 19:21:07 ******/
CREATE DATABASE [prueba] ON PRIMARY
( NAME = N'prueba', FILENAME = N'C:Archivos de programaMicrosoft SQL ServerMSSQL.1MSSQLDATAprueba.mdf' , SIZE = 3000KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )
LOG ON
( NAME = N'prueba_log', FILENAME = N'C:Archivos de programaMicrosoft SQL ServerMSSQL.1MSSQLDATAprueba_log.ldf' , SIZE = 1024KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)
COLLATE Modern_Spanish_CI_AS
--GO
EXEC dbo.sp_dbcmptlevel @dbname=N'prueba', @new_cmptlevel=90
--GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [prueba].[dbo].[sp_fulltext_database] @action = 'disable'
end
--GO
ALTER DATABASE [prueba] SET ANSI_NULL_DEFAULT OFF
--GO
ALTER DATABASE [prueba] SET ANSI_NULLS OFF
--GO
ALTER DATABASE [prueba] SET ANSI_PADDING OFF
--GO
ALTER DATABASE [prueba] SET ANSI_WARNINGS OFF
--GO
ALTER DATABASE [prueba] SET ARITHABORT OFF
--GO
ALTER DATABASE [prueba] SET AUTO_CLOSE OFF
--GO
ALTER DATABASE [prueba] SET AUTO_CREATE_STATISTICS ON
--GO
ALTER DATABASE [prueba] SET AUTO_SHRINK OFF
--GO
ALTER DATABASE [prueba] SET AUTO_UPDATE_STATISTICS ON
--GO
ALTER DATABASE [prueba] SET CURSOR_CLOSE_ON_COMMIT OFF
--GO
ALTER DATABASE [prueba] SET CURSOR_DEFAULT GLOBAL
--GO
ALTER DATABASE [prueba] SET CONCAT_NULL_YIELDS_NULL OFF
--GO
ALTER DATABASE [prueba] SET NUMERIC_ROUNDABORT OFF
--GO
ALTER DATABASE [prueba] SET QUOTED_IDENTIFIER OFF
--GO
ALTER DATABASE [prueba] SET RECURSIVE_TRIGGERS OFF
--GO
ALTER DATABASE [prueba] SET ENABLE_BROKER
--GO
ALTER DATABASE [prueba] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
--GO
ALTER DATABASE [prueba] SET DATE_CORRELATION_OPTIMIZATION OFF
--GO
ALTER DATABASE [prueba] SET TRUSTWORTHY OFF
--GO
ALTER DATABASE [prueba] SET ALLOW_SNAPSHOT_ISOLATION OFF
--GO
ALTER DATABASE [prueba] SET PARAMETERIZATION SIMPLE
--GO
ALTER DATABASE [prueba] SET READ_WRITE
--GO
ALTER DATABASE [prueba] SET RECOVERY FULL
--GO
ALTER DATABASE [prueba] SET MULTI_USER
--GO
ALTER DATABASE [prueba] SET PAGE_VERIFY CHECKSUM
--GO
ALTER DATABASE [prueba] SET DB_CHAINING OFF
ENDTEXT

IF SQLEXEC(vCon, cSql) < 0
WAIT CLEAR
RETURN 0
ENDIF
RETURN 1

*******************

Como te decia ni siquiera entra al metodo, el error ocurre a penas lee la linea(LINEA DE ERROR)

Espero me puedan ayudar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:metodos dañados

Publicado por Ernesto Hernandez (4623 intervenciones) el 13/06/2008 17:30:51
lo mas probable es que se haya dañado el formulario si tienes un respaldo seria recomendable que lo restauraras y probraras pero `por el comportamiento de VFP eso es lo mas probable.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:metodos dañados

Publicado por Marvin Emilson Pineda (81 intervenciones) el 13/06/2008 18:11:14
Intenta en lugar de llamar un metodo el formulario crea un PRG e invocalo en lugar del Metodo a ver si te da el mismo error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:metodos dañados

Publicado por Plinio (7841 intervenciones) el 13/06/2008 21:14:43
Ese Insert into esta extraño, no crees?
INSERT INTO cProceso values('', 'Conectándose al servidor...', 1,1)

La sintaxis basica que yo conozco es
INSERT INTO tabla_o_cursor (campo1,campo2) ;
values (valor1,valor2)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar