Ayuda para un novato

[jaba]

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

[leandro]

Amigo mira lo puedes hacer asi...

Code: Select all | Expand

DEFINE DIALOG ventana RESOURCE "OBCAT21" 
.....

REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana
REDEFINE 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

[jaba]

Amigo mira lo puedes hacer asi...

Code: Select all | Expand

DEFINE DIALOG ventana RESOURCE "OBCAT21" 
.....

REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana
REDEFINE 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

Amigo
Sin pena, gracias por tu enseñanza lo pondre en practica y te respondere por este medio.

Cordialmente

Jairo Barbosa

[jaba]

Amigo mira lo puedes hacer asi...

Code: Select all | Expand

DEFINE DIALOG ventana RESOURCE "OBCAT21" 
.....

REDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana
REDEFINE 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

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]

Por nada amigo...

y de nuevo que pena la demora...

Saludos