HELP! - Error -1141
Posted in 1994
When exit to the CONSTRUCT with INTERRUPT, the sentence "CLOSE WINDOW w_criterio" produces the error -1141, else everything is ok However, is runned the same sentence in the INTERACTIVE DEBUGGER does not occurs the error. Does anyone Know a solution to this problem ...? Thanks in advance! #----------------------------------------------------------------------# # Construct para el ingreso de criterio de busqueda #----------------------------------------------------------------------# FUNCTION arma_construct() DEFINE que_consulta CHAR(1000), cual_select SMALLINT, que_orden CHAR(25) LET int_flag = FALSE OPEN WINDOW w_criterio AT 08,13 WITH FORM "fv_articu" ATTRIBUTE (BORDER, FORM LINE 1) CONSTRUCT que_consulta ON articulos.nro_proveedor, proveedores.fantasia, articulos.nro_rubro, rubros.descripcion, articulos.descripcion FROM nro_proveedor, fantasia, nro_rubro, descri_rubro, descripcion HELP 103 BEFORE CONSTRUCT INITIALIZE gr_panta.* TO NULL DISPLAY BY NAME gr_panta.* AFTER CONSTRUCT IF (NOT int_flag) THEN IF (NOT FIELD_TOUCHED(nro_proveedor, fantasia, nro_rubro, descri_rubro, descripcion)) THEN CALL mensaje_valida("Debe ingresar algun criterio de seleccion") CONTINUE CONSTRUCT END IF END IF END CONSTRUCT IF NOT int_flag THEN OPEN WINDOW w_orden AT 14,10 WITH 2 ROWS, 63 COLUMNS ATTRIBUTE (BORDER, FORM LINE 1) MENU "Ordenado por:" BEFORE MENU NEXT OPTION "Codigo" COMMAND "Codigo" "Ordenado por Codigo de Articulo" LET que_orden = "codigo_articulo" EXIT MENU COMMAND "Proveedor" "Ordenado por la Descripcion de Proveedor" LET que_orden = "fantasia" EXIT MENU COMMAND "Salir" "Cancelar la Busqueda y retornar ..." INITIALIZE que_orden TO NULL EXIT MENU END MENU CLOSE WINDOW w_orden END IF CLOSE WINDOW w_criterio IF que_orden IS NULL THEN RETURN FALSE ELSE LET sentencia_select = "SELECT articulos.codigo_articulo, proveedores.fantasia, ", " rubros.descripcion, articulos.descripcion ", " FROM articulos, proveedores,rubros ", " WHERE ", que_consulta CLIPPED, " AND articulos.nro_proveedor = proveedores.nro_proveedor ", " AND articulos.nro_rubro = rubros.nro_rubro ", " ORDER BY ", que_orden CLIPPED RETURN TRUE END IF END FUNCTION #-------------------------------------------------------------# # RIZZI HOGAR S.A. - SAN MARTIN 2621 - SANTA FE - ARGENTINA # # # # Telefono (42) 56 0000 - Fax (42) 56 0699 # # # # Email: xrizzi@arcride.edu.ar # #-------------------------------------------------------------#