• Viernes 29 de Marzo de 2024, 00:18

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.


Temas - davidmolina1

Páginas: [1]
1
Power Builder / Selección de ficheros
« en: Lunes 3 de Mayo de 2010, 23:50 »
Hola.

¿Alguien sabe como se puede seleccionar varios ficheros de una sola vez?

Lo que necesito es que se abra una ventana como la que se abre con la instrucción

ll_valor = GetFileOpenName("Seleccionar Fichero", ls_path, ls_nombre, "PBL", "Código Fuente PowerBuilder (*.PBL),*.PBL")


Pero que permita seleccionar varios ficheros, no uno solo.


Gracias.

2
Power Builder / Fecha de lanzamiento de PB 11.5
« en: Miércoles 25 de Noviembre de 2009, 20:33 »
Hola.

Necesito saber cuando fue el lanzamiento de PB 11.5.

No necesito exactamente la de esa versión, me bastaría saber la de la versión 11.

Gracias.

3
Power Builder / ClassDefinition
« en: Miércoles 30 de Septiembre de 2009, 23:30 »
Hola.

¿Alguien ha usado la clase ClassDefinition de PB?

En el código que viene de ejemplo en PB no funciona porque sd toma un valor nulo cuando se ejecuta c_obj.FindMatchingFunction( "Find", ls_args)

¿Alguna sugerencia?

Gracias de antemano

Citar
string ls_args[]
string s, lineend
integer li
ScriptDefinition sd
ClassDefinition c_obj

ls_args[1] = "string"
ls_args[2] = "long"
ls_args[3] = "long"

c_obj = CREATE classDefinition
sd = CREATE ScriptDefinition

sd = c_obj.FindMatchingFunction( "Find", ls_args)

IF NOT IsValid(sd) or isnull (sd) THEN
   messagebox ("", "No matching script")
ELSE

   //The uf_scriptinfo function gets information about the function that matched the signature and builds a string. Scriptobj is the ScriptDefinition object passed to the function:
   lineend = "~r~n"
   
   // Script name
   s = s + sd.Name + lineend
   // Data type of the return value
   
   s = s + String (sd.ReturnType) + lineend
   //.DataTypeOf
   // List argument names
   
   s = s + "Arguments:" + lineend
   
   FOR li = 1 to UpperBound(sd.ArgumentList)
      s = s + sd.ArgumentList[li].Name + lineend
   
   NEXT
   
   // List local variables
   
   s = s + "Local variables:" + lineend
   
   FOR li = 1 to UpperBound(sd.LocalVariableList)
      s = s + sd.LocalVariableList[li].Name + lineend
   
   NEXT
   
   messagebox ('', s)

END IF


Páginas: [1]