kazador

Necesito si alguien sabe que me ayude un poco con este lenguaje que es muy parecido a Visual Basic...

1) Como asignarle a un boton del teclado una accion ?

ejemplo cuando aprete el F5 que me habra un datawindos...

me falta como asignarle al boton el open ( w_busqueda ) // siendo w_busqueda el datawindow

2) como hacer para hacer lo mismo con el Entre, asi le asigno la accion del boton aceptar o ESC para Salir...

despues si me podes explicar en rangos generales como es que se usan las funciones o sino algo para entender como se escriben los codigos

Te aclaro lo que entiendo
Integer li_servicio, li_deposito, li_extraccion, li_debito, li_credito // aca esta dando el tipo a la variable

boolean lb_encontro

li_servicio=(ddlb_servicios.selectitem(ddlb_servicios.text,1)) // esto no lo entendi tan bien, esta poniendo dentro de la variable servicios el item selecionado del dropdownlistbox? )

f_calculo_saldo(integer(sle_numero_socio.text),li_servicio) // aplico la funcion, dependiendo del numero de socio y el servicio


declare c_servicios cursor for
// una busqueda por SQL puro... esto lo se...
SELECT Permite_deposito, Permite_extraccion, Permite_debito, Permite_credito
FROM Servicios
WHERE Codigo_servicio= :li_servicio;

open c_servicios;
do
fetch c_servicios INTO :li_deposito, :li_extraccion, :li_debito, :li_credito;
if sqlca.sqlcode = 100 then
lb_encontro = true

else // estos if los entiendo tmb
If li_deposito=1 then
cb_deposito.enabled=true
Else
cb_deposito.enabled=false
End if

If li_extraccion=1 then
cb_extraccion.enabled=true
Else
cb_extraccion.enabled=false
End if

If li_debito=1 then
cb_debito.enabled=true
Else
cb_debito.enabled=false
End if

If li_credito=1 then
cb_credito.enabled=true
Else
cb_credito.enabled=false
End if
end if
loop while lb_encontro = false // esto lo entiendo mas o menos
close c_servicios;

Pris

yo no soy la persona mas indicada para hablar de esto pero... y si colocas
if keypress= keyascii(valor q corresponda a la tecla q queres utilizar) then...

kazador

me tira esto

Warning Undefinited variable: presskey ... la me pide que la declare boolean... asi se va el error este
Unknown function name: keyascii pero este no se como arreglarlo
.
--- Siguiente Mensaje ---
.
para F5 como seria... ?
.
--- Siguiente Mensaje ---
.
Puede ser algo asi

This example causes a beep when the user presses F1 or F2, as long as Shift and Ctrl are not pressed:

IF keyflags = 0 THEN

IF key = KeyF1! THEN

Beep(1)

ELSEIF key = KeyF2! THEN

Beep(20)

END IF

END IF

This line displays the value of keyflags when a key is pressed.

st_1.Text = String(keyflags)

Pero cuando pongo esto, me pide que declare key y keyflags pero no entiendo como declararlas por que con string, integer y boolean no me lo toma

Pris

mmmmmmmmm tengo un monton de codigos de visual espera q me fije a ver si encuentro algo para ayudarte

Skavenger

http://power-builder.blogspot.com/20...s-on-your.html

kazador

Al final era tan pabo como poner esto

IF keydown(keyF5!) then

// lo que quieras hacer

end if


les tiro otra....


Como puedo hacer para dentro de una consulta de SQL ( un SELECT )

tengo datos de una columna que pueden ser par o impar... tengo que poner los pares como estan y los impares *-1... para que me de el importe que tiene en negativo ya que tengo qeu discriminar entre deposito y credito

Pris

uyyyyyyy m mataste jajaja

kazador

Seria algo asi pero no me deja

SELECT Sum(Case When mod((movimientos.Tipo_comprobante/2)*2) then movimientos.Importe Else movimientos.Importe*(-1) End)


INTO :sle_saldo_actual.text

FROM Movimientos

WHERE Numero_Socio = :numero_socio AND Codigo_servicio = :codigo_servicio ;

Pero no funciona el muy cornudo por que supuestamente no se puede poner un

SELECT... con un SUM y dentro un MOD

Pris

select con sum si se puede porq lo hice alguna vez.. ahora lo q no me suena es el then
.
--- Siguiente Mensaje ---
.
el mod es lo q no me suena si use alguna vez mod fue con C++

kazador

Esto te deja usar mod pero no dentro de un Select...

ahora se me ocurrio algo veo si encontre la solucion