• Miércoles 20 de Enero de 2021, 21:25

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - aTxdz18

Páginas: [1]
1
Power Builder / [Código Fuente] Gracias
« en: Viernes 7 de Agosto de 2009, 19:02 »
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
------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------


Páginas: [1]