Hola a todos en el foro
Como puedo hacer un arreglo de código para que en un campo me muestre el numero del registro actual, y cuando introduzca el siguiente registro este campo se refresque y cuente automáticamente mas el nuevo registro.
Cordialmente
JAIRO E BARBOSA
Ayuda para un novato
- leandro
- Posts: 1759
- Joined: Wed Oct 26, 2005 2:49 pm
- Location: Colombia
- Has thanked: 42 times
- Been thanked: 11 times
- Contact:
Puede ser asi....
Amigo mira lo puedes hacer asi...
Tambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datos
Espero te sirva..
Ptda: Que pena la demora
Code: Select all | Expand
DEFINE DIALOG ventana RESOURCE "OBCAT21" .....REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventanaREDEFINE SAY oSay2 VAR saytre ID 21 OF ventana....*Para ir actualizando a medida que te desplazas sobre el browse*haces lo siguiente:REDEFINE LISTBOX lisbasAM VAR este; FIELDS HFPRO->HTcodigo,HFPRO->HTdigive,HFPRO->HTnombre; FIELDSIZES 78,25,320; ID 110 OF ventana; HEADERS "Código","D/V","Nombre"; ON CHANGE (oSay2:SetText(RecCount()),oSay1:SetText(RecNo()))ACTIVATR DIALOG......
Tambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datos
Code: Select all | Expand
FUNCTION refrescar()oSay2:SetText(RecCount())oSay1:SetText(RecNo())
Espero te sirva..
Ptda: Que pena la demora

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 24.09 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 24.09 ] [ xHarbour 64 bits) ]
Re: Puede ser asi....
leandro wrote:Amigo mira lo puedes hacer asi...Code: Select all | Expand
DEFINE DIALOG ventana RESOURCE "OBCAT21" .....REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventanaREDEFINE SAY oSay2 VAR saytre ID 21 OF ventana....*Para ir actualizando a medida que te desplazas sobre el browse*haces lo siguiente:REDEFINE LISTBOX lisbasAM VAR este; FIELDS HFPRO->HTcodigo,HFPRO->HTdigive,HFPRO->HTnombre; FIELDSIZES 78,25,320; ID 110 OF ventana; HEADERS "Código","D/V","Nombre"; ON CHANGE (oSay2:SetText(RecCount()),oSay1:SetText(RecNo()))ACTIVATR DIALOG......
Tambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datosCode: Select all | Expand
FUNCTION refrescar()oSay2:SetText(RecCount())oSay1:SetText(RecNo())
Espero te sirva..
Ptda: Que pena la demora
Amigo
Sin pena, gracias por tu enseñanza lo pondre en practica y te respondere por este medio.
Cordialmente
Jairo Barbosa
Re: Puede ser asi....
jaba wrote:leandro wrote:Amigo mira lo puedes hacer asi...Code: Select all | Expand
DEFINE DIALOG ventana RESOURCE "OBCAT21" .....REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventanaREDEFINE SAY oSay2 VAR saytre ID 21 OF ventana....*Para ir actualizando a medida que te desplazas sobre el browse*haces lo siguiente:REDEFINE LISTBOX lisbasAM VAR este; FIELDS HFPRO->HTcodigo,HFPRO->HTdigive,HFPRO->HTnombre; FIELDSIZES 78,25,320; ID 110 OF ventana; HEADERS "Código","D/V","Nombre"; ON CHANGE (oSay2:SetText(RecCount()),oSay1:SetText(RecNo()))ACTIVATR DIALOG......
Tambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datosCode: Select all | Expand
FUNCTION refrescar()oSay2:SetText(RecCount())oSay1:SetText(RecNo())
Espero te sirva..
Ptda: Que pena la demora
Amigo
Sin pena, gracias por tu enseñanza lo pondre en practica y te respondere por este medio.
Cordialmente
Jairo Barbosa
Leandro
Funciona perfectamente Ok Agradecido
Jairo Barbosa
- leandro
- Posts: 1759
- Joined: Wed Oct 26, 2005 2:49 pm
- Location: Colombia
- Has thanked: 42 times
- Been thanked: 11 times
- Contact:
Por nada...
Por nada amigo...
y de nuevo que pena la demora...
Saludos
y de nuevo que pena la demora...

Saludos
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 24.09 ] [ xHarbour 64 bits) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 24.09 ] [ xHarbour 64 bits) ]