Crear Datastore
Publicado por Luz Facundo E. (19 intervenciones) el 30/03/2012 21:36:14
Hola.
Con el siguiente codigo no sale error:
ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'STYLE (Type = Grid)' , ls_error)
IF Len(ls_error) > 0 THEN
MESSAGEBOX('ERROR AL CREAR',''+ls_error)
END IF
IF TRIM(ls_error) = '' THEN
dw_1.CREATE(ls_syntax, ls_error)
dw_1.SetTransObject(SQLCA)
IF dw_1.Retrieve() > 0 THEN
ls_valor_desc = dw_1.getitemstring(1,'descripcion')
END IF
END IF
Con el siguiente codigo sale error:
datastore ds_objeto
ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'STYLE (Type = Grid)' , ls_error)
IF Len(ls_error) > 0 THEN
MESSAGEBOX('ERROR AL CREAR',''+ls_error)
END IF
IF TRIM(ls_error) = '' THEN
ds_objeto.CREATE(ls_syntax, ls_error)
ds_objeto.SetTransObject(SQLCA)
IF ds_objeto.Retrieve() > 0 THEN
ls_valor_desc = ds_objeto.getitemstring(1,'descripcion')
END IF
END IF
El error que se muestra es "NULL OBJECT REFERENCE " en "ds_objeto.CREATE(ls_syntax, ls_error)".
Por favor que estoy realizando mal, al crear el DataStore.
Gracias por la ayuda.
Saludos.
Con el siguiente codigo no sale error:
ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'STYLE (Type = Grid)' , ls_error)
IF Len(ls_error) > 0 THEN
MESSAGEBOX('ERROR AL CREAR',''+ls_error)
END IF
IF TRIM(ls_error) = '' THEN
dw_1.CREATE(ls_syntax, ls_error)
dw_1.SetTransObject(SQLCA)
IF dw_1.Retrieve() > 0 THEN
ls_valor_desc = dw_1.getitemstring(1,'descripcion')
END IF
END IF
Con el siguiente codigo sale error:
datastore ds_objeto
ls_syntax = SQLCA.SyntaxFromSQL(ls_sql, 'STYLE (Type = Grid)' , ls_error)
IF Len(ls_error) > 0 THEN
MESSAGEBOX('ERROR AL CREAR',''+ls_error)
END IF
IF TRIM(ls_error) = '' THEN
ds_objeto.CREATE(ls_syntax, ls_error)
ds_objeto.SetTransObject(SQLCA)
IF ds_objeto.Retrieve() > 0 THEN
ls_valor_desc = ds_objeto.getitemstring(1,'descripcion')
END IF
END IF
El error que se muestra es "NULL OBJECT REFERENCE " en "ds_objeto.CREATE(ls_syntax, ls_error)".
Por favor que estoy realizando mal, al crear el DataStore.
Gracias por la ayuda.
Saludos.
Valora esta pregunta
0