Como dice el titulo es principalmente agradecer por este grandioso Aporte que nos dejo !! ^^ pero tengo un problema con el codigo de la funcion \"f_llenar_sql\"
en la linea 12
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
STRING ls_valor
GRAPHICobject ObjetoLocal
ObjetoLocal = Objeto
SetPointer ( HourGlass! )
/* Prepara el Descriptor */
PREPARE SQLSA FROM :SQLSentencia;
DESCRIBE SQLSA INTO SQLDA;
/* Declara el cursor dinámico */
DECLARE cDynCursor DYNAMIC CURSOR FOR SQLSA;
/* Abre el cursor Dinámico */
OPEN DYNAMIC cDynCursor USING DEscriptOR SQLDA;
IF ( SQLCA.SQLCode = -1 ) THEN /* Error ? */
GOTO ERROR_SQL
END IF
/* Obtiene el primer registro del cursor dinamico */
FETCH cDynCursor USING DEscriptOR SQLDA;
IF ( SQLCA.SQLCode = -1 ) THEN /* Error ? */
GOTO ERROR_SQL
END IF
DO WHILE SQLCA.SQLCODE = 0
/* Determina el numero de columnas solicitadas */
CHOOSE CASE SQLDA.NumOutPuts
CASE 1
/* Obtiene un solo valor de la primer columna */
ls_valor = GetDynamicString( SQLDA 1 )
CASE 2
/* Concatena las 2 columnas solicitadas. Por ejemplo el identificador del registro ( primary key ) y su descripcion */
ls_valor = GetDynamicString( SQLDA 1 )+\' \'+GetDynamicString( SQLDA 2 )
END CHOOSE
/* Verifica si se va a insertar un Picture
NOTA : Sin Picture = 0. Esto es para controles que no aceptan el ico como argumento en Additem */
IF Picture = 0 THEN ObjetoLocal. DYNAMIC Additem( ls_valor ) ELSE ObjetoLocal. DYNAMIC Additem( ls_valor Picture )
/* Siguiente registro del cursor dinamico */
FETCH cDynCursor USING DEscriptOR SQLDA;
LOOP
CLOSE cDynCursor;
SetPointer ( Arrow! )
RETURN
ERROR_SQL:
MESSAGEBOX(\"f_llenar_sql () - Error\" SQLCA.SQLErrtext StopSign! )
ROLLBACK USING SQLCA;
HALT CLOSE
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------
