
AGREGAR TABLA A ENTORNO DE DATOS EN TIEMPO DE EJECUCION
Publicado por Heriberto (10 intervenciones) el 23/03/2016 04:08:50
Saludos amigos programadores.
Tengo un form para controlar compras. Al momento de grabar la compra llamo a una funcion que toma la informacion de un cursor y la actualiza a una tabla que no puedo agregar en tiempo de programacion al entorno de datos. Cómo seria el codigo para que en tiempo de ejecucion me agregue la tabla al entorno de datos y pueda usar la sentencia SELECT normalmente como lo hago con las demas tablas que si estan en el entorno de datos.
Con el codigo que tengo actualmente me esta generando error de apertura de las tablas:
FUNCTION ActualMovContable(FechaActualizar, tabla_mvto, tabla_saldo)
mes = MONTH(FechaActualizar) &&Asigno a la variable el valor del mes a afectar
SELECT Mvto_Auxiliar && Selecciono Cursor
GO TOP
DO WHILE NOT EOF() && Empiezo bucle para leer los datos del cursor
nRegCursor = RECNO()
SELECT (tabla_mvto)
GO BOTTOM && Descargo la informacion del cursor MvtoAuxiliar a la tabla correspondiente dada en la variable Tabla_Mvto
INSERT INTO (tabla_mvto) (cuenta, tipodocumento, documento, fechadocumento, detalle, nitmvto, divnitmvto, tiponitmvto, centrocostos,;
referenciamvto, debitomvto, creditomvto) VALUES (mvto_auxiliar.cuenta, mvto_auxiliar.tipodocumento, mvto_auxiliar.documento,;
mvto_auxiliar.fechadocumento, mvto_auxiliar.detallemvto, mvto_auxiliar.nitmvto, mvto_auxiliar.divnitmvto, mvto_auxiliar.tiponitmvto,;
mvto_auxiliar.centrocostos, mvto_auxiliar.referenciamvto, mvto_auxiliar.debitomvto, mvto_auxiliar.creditomvto)
SELECT Mvto_Auxiliar
GO nRegCursor
SKIP
ENDDO
ENDFUNC
El error que me genera lo adjunto en la imagen
Gracias por su ayuda

Tengo un form para controlar compras. Al momento de grabar la compra llamo a una funcion que toma la informacion de un cursor y la actualiza a una tabla que no puedo agregar en tiempo de programacion al entorno de datos. Cómo seria el codigo para que en tiempo de ejecucion me agregue la tabla al entorno de datos y pueda usar la sentencia SELECT normalmente como lo hago con las demas tablas que si estan en el entorno de datos.
Con el codigo que tengo actualmente me esta generando error de apertura de las tablas:
FUNCTION ActualMovContable(FechaActualizar, tabla_mvto, tabla_saldo)
mes = MONTH(FechaActualizar) &&Asigno a la variable el valor del mes a afectar
SELECT Mvto_Auxiliar && Selecciono Cursor
GO TOP
DO WHILE NOT EOF() && Empiezo bucle para leer los datos del cursor
nRegCursor = RECNO()
SELECT (tabla_mvto)
GO BOTTOM && Descargo la informacion del cursor MvtoAuxiliar a la tabla correspondiente dada en la variable Tabla_Mvto
INSERT INTO (tabla_mvto) (cuenta, tipodocumento, documento, fechadocumento, detalle, nitmvto, divnitmvto, tiponitmvto, centrocostos,;
referenciamvto, debitomvto, creditomvto) VALUES (mvto_auxiliar.cuenta, mvto_auxiliar.tipodocumento, mvto_auxiliar.documento,;
mvto_auxiliar.fechadocumento, mvto_auxiliar.detallemvto, mvto_auxiliar.nitmvto, mvto_auxiliar.divnitmvto, mvto_auxiliar.tiponitmvto,;
mvto_auxiliar.centrocostos, mvto_auxiliar.referenciamvto, mvto_auxiliar.debitomvto, mvto_auxiliar.creditomvto)
SELECT Mvto_Auxiliar
GO nRegCursor
SKIP
ENDDO
ENDFUNC
El error que me genera lo adjunto en la imagen
Gracias por su ayuda

Valora esta pregunta


0