• Jueves 28 de Marzo de 2024, 13:33

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

Páginas: [1]
1
Power Builder / Re: Datawindows Seleccion
« en: Jueves 21 de Junio de 2007, 16:53 »
Long ll_fila
for i=1 to dw_1.RowCount()
   ll_fila = dw_2.InsertRow(0)
   dw_2.SetItem(ll_fila,"campo_1",dw_1.GetItemString(i,"campo_1")
   dw_2.SetItem(ll_fila,"campo_2",dw_1.GetItemString(i,"campo_2")
   dw_2.SetItem(ll_fila,"campo_3",dw_1.GetItemString(i,"campo_3")
next

dw_1.RowsMove(1, dw_1.DeletedCount(), Delete!,dw_1, 1, Primary!)

Con eso es suficiente, espero te sirva.

2
Power Builder / Re: Ayudaaa!!!!
« en: Jueves 21 de Junio de 2007, 16:43 »
Para una conexión más directa, puedes realizar una conexión OLEDB.

Funciona muy bien.

3
Power Builder / Re: Setfilter
« en: Martes 19 de Junio de 2007, 22:01 »
Hola Jorge, haber si estoy en lo correcto, tu campo cod_mov es de tipo numérico, y deseas hacer un filtro por ese campo.

Si es el caso, entonces lo que debes hacer es lo siguiente:

string busqueda
Long val
val=long(em_text)
busqueda="cod_mov=val"
dw_1.setfilter(busqueda)
dw_1.filter()

Espero te sea de mucha ayuda.

Saludos desde Lima - Perú    :comp:

4
Power Builder / [Código Fuente] Permitir solo letras y números en un dw
« en: Martes 19 de Junio de 2007, 21:47 »
Este código permitirá validar el ingreso de letras o de números en un determinado campo.
Para ello deberá poner el siguiente script en el evento editchanged del datawindow.


Código: PowerBuilder
  1. //Evento editchanged
  2. String ls_data
  3. if dwo.name = 'nombre' then  //Solo letras
  4.     if Match(data, "[^A-ZÑa-zñ]+$") then
  5.         ls_data = mid(data,len(data),1)
  6.         if isnumber(ls_data) then
  7.            SetItem(row,"nombre",left(data,len(data) - 1))
  8.            SelectText(1, Len(data))
  9.         end if
  10.         return 1
  11.      end if
  12. end if
  13. if dwo.name = 'telefono' then   //Solo numeros
  14.    if Match(data, "[^0-9]+$") then
  15.        SetItem(row,"telefono",left(data,len(data) - 1))
  16.        SelectText(1, Len(data))
  17.        return 1
  18.    end if
  19. end if

Adjunto codigo fuente está en Power Builder 8.0

Autor: achafio

5
VB .NET / Re: Manuales Eidos
« en: Miércoles 17 de Noviembre de 2004, 02:36 »
Por favor desearía que también me manden manuales de Visual Basic.Net.

Este es mi correo: achafio@yahoo.es

De antemano gracias.

6
VB .NET / Busqueda En Datagrid
« en: Miércoles 17 de Noviembre de 2004, 01:38 »
Hola a todos, estoy iniciandome en Visual Basic.Net, y no conosco mucho de este código, lo que quiero hacer es lo siguiente:

Tengo un textbox y un datagrid, lo que quiero es que conforme voy ingresando letras en el textbox vaya buscandome en el Datagrid.

Gracias de antemano.

Quise descargar el manual de esta pagina pero sale error.

Páginas: [1]