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

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 - Juanra15

Páginas: [1] 2 3
1
Power Builder / Re:Problemas para imprimir reportes desde Windows7 64bits
« en: Miércoles 21 de Agosto de 2013, 14:21 »
La verdad ni idea de porque te sucede eso al imprimir, no es lo ideal, pero lo unico que se me ocurre es boton derecho - propiedades - compatibilidad y seleccionar windows xp  :think:

2
Power Builder / obtener imagen del portapapeles
« en: Miércoles 14 de Agosto de 2013, 19:22 »
Hola, necesito obtener o en un picturebox o en una variable blob o grabarlo directamente en una archivo bmp o jpg, una imagen del portapapeles.
Llevo 2 dias buscando en internet y no encuentro la manera, hay varias preguntas sobre el tema hasta en foros de sybase y ninguno tiene respuesta, sera una limitacion del powerscript?  :think:.
Encontre como grabar en un archivo una impresion de pantalla (PrintScrn) pero no funciona con una imagen copiada al portapapeles.
Se agradece cualquier sugerencia.  :adios:

3
Power Builder / Obtener datos con SNMP
« en: Viernes 23 de Noviembre de 2012, 16:32 »
Hola, he estado buscando hace dias como obtener informacion con el protocolo snmp (tengo un servidor configurado) para recopilar informacion de los aparatos de comunicacion y hacer un inventario. encontre algo de informacion en el foro de Java, pero no encuentro como aplicarlo en power builder.
Encontre una API que se llama WINSNMP alguno sabe como obtener las funciones de la API? tengo el ApiSpy27 pero no funciona con windows 7.

Cualquier ayuda o sugerencia se agradece  :adios:

4
Power Builder / Re:Cierra aplicacion echa en power builder (Nivel usuario)
« en: Martes 20 de Noviembre de 2012, 12:47 »
Hola tocayo, que se cierre solo y de manera erraritca parece mas un problema de windows que de powerbuilder en si, estas conectado a una base de datos?.
fijate cuando se cierre en el visor de eventos de windows, (ejecutar eventvwr) y fijate si aparece algun registro cuando se cierra el programa.

Saludos Juan.

5
Power Builder / Re:evento en SingleLineEdit
« en: Viernes 19 de Octubre de 2012, 15:43 »
Encontre donde, creo un nuevo evento y en la lista selecciono pbm_keydown y listo  :kicking:

6
Power Builder / evento en SingleLineEdit
« en: Jueves 18 de Octubre de 2012, 22:06 »
necesito  :ayuda:

estoy haciendo un predicador de texto muy rudimentario con un select filtrando con un like, para tratar de hacer algo que creo que se llama prediccion de escritura o algo asi (es lo que hace cuando escribís algo en la busqueda de google que te autocompleta la palabra)
pero no encuentro ningun evento donde ponerlo, porque necesito que lo ejecute a medida que lo vaya escribiendo.
pense en el evento Key de la window pero no se como saber en que control estoy parado.

cualquier ayuda se agradece.  :think:
 

8
Power Builder / Re:windows en powerbuilder
« en: Miércoles 8 de Agosto de 2012, 16:15 »
Queres que la ventana se acomode a la resolucion de pantalla que estan ejecutando??  :think:
No es tarea facil y mucho menos viable ya que da mucho trabajo. A menos que encuentres la manera de hacerlo generico para todas, para dejarlo lo mas automatizado posible.
Lo primero que vas a necesitar es saber en que resolucion lo estan ejecutando.

Variables Globales:
CONSTANT Integer DevelopWidth = 1024
environment env
Long scrHeight
Long scrWidth


Crea una Function con el nombre winsize y pegale este codigo en el Edit Source
global type winsize from function_object
end type

forward prototypes
global function integer winsize (window w_ref, boolean b_sizewindow)
end prototypes

global function integer winsize (window w_ref, boolean b_sizewindow);dragobject temp
line temp2
integer cnt, i
double ratio

// Cálculo de la relación
ratio = scrWidth / DevelopWidth

// Si la relación es 1 , entonces la resolución actual es la misma que la resolución en la que se desarrolló la aplicación, así que no hacemos nada.
if ratio = 1 then
return 10
elseif ratio < 1 then
   return 9
else
   return 11
end if
end function


espero que te sirva...  :suerte:

9
Power Builder / Re:Powerbuilder en la web
« en: Miércoles 25 de Julio de 2012, 20:43 »
creo que el caballito de batalla de power builder es la velocidad de produccion, pero es cierto si, en web se cae a pedazos  :think:

10
Power Builder / Re:Algoritmo de ecriptacion MD5
« en: Jueves 19 de Julio de 2012, 18:15 »
que grande TopWiz!! si habre copiado codigo de ahi!!,
Pana gracias por publicar la solucion!, es una buena costumbre que no todos hacen.  :yes:

11
Power Builder / Re:Procedimiento almacenados
« en: Miércoles 16 de Mayo de 2012, 15:42 »
por lo general cuando uso un procedimiento almacenado que me retorna algo (generalmente informes) lo devuelvo en una datawindows.

Anda a crear un datawindows nueva, selecciona el tipo de datawindows ej. Tabular y despues selecciona "Stored Procedure" y te va a traer todos los procedimientos creados en SQL, seleccionas el tuyo y listo.

 :suerte:

Saludos

12
Power Builder / Re:Crear conexión ODBC desde PB
« en: Lunes 14 de Mayo de 2012, 14:33 »
Parametros: nombre = "DB_Mi_Programa" , ruta = "C:\Mi Programa\base de datos.mdb"

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", nombre, RegString!,"Microsoft Access Driver (*.mdb)")

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "Driver", RegString!,"C:\WINDOWS\system32\odbcjt32.dll")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "DBQ", RegString!,ruta)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "DriverId", ReguLong!,25)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "FIL", RegString!,"MS Access;")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "SafeTransactions", ReguLong!,0)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "UID", RegString!,"")

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "ImplicitCommitSync", RegString!,"")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "MaxBufferSize", ReguLong!,2048)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "PageTimeout", ReguLong!,5)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "Threads", ReguLong!,3)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "UserCommitSync", RegString!,"Yes")

El parametro ruta  es justamente eso, la ruta donde se encuentra la base de datos de Access, Saludos.

13
Power Builder / Re:Procedimiento almacenados
« en: Miércoles 9 de Mayo de 2012, 18:13 »
no veo que hagas por ningun lado el commit; no sera eso?

14
Power Builder / Re:Powerbuilder muerto, como este su foro?
« en: Miércoles 9 de Mayo de 2012, 18:10 »
es una lastima....  somos pocos los que programamos en powerbuilder, no hay mucha informacion ni ejemplos y para colmo nos ayudamos poco entre nosotros  :adios:

15
Power Builder / Re:acceder a bd access en win 7 64bits
« en: Miércoles 9 de Mayo de 2012, 18:07 »
acordate que en las versiones de 64bits tenes que ejecutar el odbcad32 desde la carpeta SYSWOW64, como tu programa es 32bits tenes que generar la odbc para que funcione para 32bits. Espero que te ayude.  :suerte:

16
Power Builder / Re:Crear conexión ODBC desde PB
« en: Miércoles 9 de Mayo de 2012, 18:02 »
Crea una funcion con 2 parametros string (nombre y ruta) y tirale este codigo, a mi me funciona sin problema, espero que te sirva, Saludos

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", nombre, RegString!,"Microsoft Access Driver (*.mdb)")

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "Driver", RegString!,"C:\WINDOWS\system32\odbcjt32.dll")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "DBQ", RegString!,ruta)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "DriverId", ReguLong!,25)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "FIL", RegString!,"MS Access;")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "SafeTransactions", ReguLong!,0)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre, "UID", RegString!,"")

RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "ImplicitCommitSync", RegString!,"")
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "MaxBufferSize", ReguLong!,2048)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "PageTimeout", ReguLong!,5)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "Threads", ReguLong!,3)
RegistrySet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"+nombre+"\Engines\Jet", "UserCommitSync", RegString!,"Yes")

17
Power Builder / Re:Obtener Nombre De La Pcy Usuario
« en: Viernes 16 de Septiembre de 2011, 16:07 »
hola 摁業楮瑳慲潤

en global external function
function int gethostname ( ref string name, int namelen ) library "wsock32.dll"

hace una funcion sin parametros que retorne un string

string      ls_HostName = space(128)
string      ls_IpAddress
int      li_version = 257
blob{4}    lb_hostaddress
unsignedinteger version
unsignedinteger highversion
character description[257]
character systemstatus[129]
unsignedinteger maxsockets
unsignedinteger maxupddg
string vendorinfo
IF gethostname ( ls_HostName, len(ls_HostName) ) >= 0 THEN
      return upper(ls_HostName)
END IF

y despues es sle_nombrePc.text = nombreFuncion()

y listo el pollo, probalo y comenta si te funciono.

Saludos Juan

18
Power Builder / Re:IIS 7 y pb 12 web form
« en: Miércoles 14 de Septiembre de 2011, 14:13 »
si, esta desactivado y tambien revise el router por las dudas.

19
Power Builder / Re:IIS 7 y pb 12 web form
« en: Martes 13 de Septiembre de 2011, 16:39 »
Ya le di permisos a los usuarios "RAUL-PC\IUSR" y a "UISR" pero sigo sin poder levantar la web desde otro pc con XP, hoy voy a probar con otro Pc que tiene windows vista a ver si levanta la web, es como que no reconociera el iss que esta levantando la maquina que hace de servidor.
Si se les ocurre alguna prueba que pueda hacer se agradece. Probe levantar el sitio desde windows XP y lo pude cargar local (desde localhost) pero con el pc con win 7 no pude ver la web  :ayuda:

20
Power Builder / Re:Repara aplicación Power Builder 9.0
« en: Domingo 11 de Septiembre de 2011, 03:45 »
lo que yo haria seria desinstalar el power builder completamente y volverlo a instalar, lo mas provable es que el virus haya dañado algun archivo que usa power builder.
No te olvides de publicar la solucion en caso que lo hayas podido solucionar.  :suerte:

21
Power Builder / Re:IIS 7 y pb 12 web form
« en: Domingo 11 de Septiembre de 2011, 03:39 »
Bueno amigos, les cuento que pude cargar el msi en iss7, instale el framenetwork 2.0, las extenciones SDK para .NET y el AJAX pero no habia caso, el maldito iss7 no cargabala web. Solamente despues de instalar powerbuilder 12 levanto la web sin problemas  :jumpie: .
pero la felicidad complena no existe  :ayuda:, el drama que tengo ahora es que dentro de la red [grupo de trabajo, no dominio] no puedo acceder a la web cargada al iss,en la pc local lo cargo con http://localhost/sgp, pero en otro pc pongo http://192.168.0.101/sgp y no encuentra la pagina,  alguien me podria dar una mano?  gracias

22
Power Builder / IIS 7 y pb 12 web form
« en: Viernes 9 de Septiembre de 2011, 16:49 »
Hola amigos, he estado maldiciendo 35 veces por minuto instalando una aplicacion webform creada en power builder 12.
Les cuento...  mi pc tiene win XP , la aplicacion le hago deploy directo en la la iis o corro el archivo .msi generado en mi XP y entro a http://localhost/sgp  sin dramas, pero cuando instalo el archivo .msi en un Windows 7 da errores de todos los colores al acceder.
Me fije en la pagina de microsoft y modifique los permisos para dar acceso a todos ( remplaze el deny por allow en C:\Windows\System32\inetsrv\config\applicationHost.config) y solo cambio el mensaje de error  :fire:.

Error HTTP 404.3 - Not Found
No puede obtener acceso a la página solicitada debido a la configuración de la extensión. Si la página es un script, agregue un controlador. Si se debe cargar el archivo, agregue una asignación MIME.

Se agradece enormente alguna sugerencia  :think:  para configurar el iis 7

Saludos Juan.

23
Power Builder / Re:Migrar de pbclasico a pbNET
« en: Martes 26 de Julio de 2011, 17:10 »
Hola Pana, ni idea de como migrar de pbNet a la web pero es bastante sencillo generar para web en PB12 clasico, podes cargarlo al IIS o generar un archivo .msi para instalarlo en otro lugar (servidor), funciona sin dramas incluso en Windows XP.

Teniendo el proyecto funcionando en winform (aplicacion de escritorio) vas a new / .NET web form Application y sigues el wizard, al terminar te dara una lista con las funciones o propidades no compatibles con web, para corregir eso tenes que usar un preproccesor, acordate siempre de hacer el deploy antes de publicar para webform

espero que te sirva de ayuda, saludos

24
Power Builder / Re: obtener tarjeta de Red y MAC
« en: Miércoles 23 de Marzo de 2011, 18:46 »
ya encontre una pbl que obtiene lo que necesito, si alquien la necesita con gusto se la mando.

Muchas gracias Moskito por las ideas  :good:

25
Power Builder / Re: obtener tarjeta de Red y MAC
« en: Miércoles 23 de Marzo de 2011, 13:45 »
amigo tengo entendido que no se puede, trabajo con la version 9 de PowerBuilder quizas en alguna mas nueva se pueda.

Ya pude acceder a la informacion pero usando el WMI, el drama que tengo es que no se como retornar un estructura o array o algo que me permita extraer mas de un registro, trayendo solo un string me funciona, pero con arrays no  :brickwall:

OleObject wsh
wsh = CREATE OleObject
wsh.ConnectToNewObject( "MSScriptControl.ScriptControl" )
wsh.language = "vbscript"

wsh.AddCode('function obtener1() ~n ' + &
 'strComputer = "." ~n ' + &
 'Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2") ~n ' + &
 'Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter") ~n ' + &
 'For Each objItem in colItems ~n ' + &
 'obtener1 = objItem.Name~n ' + &
 'Next ~n ' + &
 'end function ~n '

ls_retorno = wsh.eval('obtener1()')


mi idea es en el for each recorrer y tirarlo dentro de una estructura, pero no he podido  :ouch:

Páginas: [1] 2 3