Hello friends :
I have attached a small project where I have managed to do the following:
1 - show account statements in the grid control (Cargar)
2 - click column "Su Pago" to enter the amount to pay
3 - select checkbox to make the sum of the amounts
Now my desire is to achieve the following:
1 - Click on the checkbox
2 - When done automatically, the column "Su Pago" is edited
3 - Enter amount
4 - Press Enter to add the amounts.
From now, thank you for you help
regards
Mario Mansilla
Hola Amigos :
adjunto un pequeño proyecto donde he logrado realizar lo siguiente :
1 - mostrar en el control grid estados de cuenta (Cargar)
2 - click columna "Su Pago" para ingresar el importe a pagar
3 - seleccionar checkbox para que realize la suma de los importes
Ahora bien mi deseo es lograr lo siguiente :
1 - Hacer click en el checkbox
2 - Al realizarlo automaticamente se edite la columna "Su pago"
3 - Ingresar importe
4 - Presionar Enter para realizar la suma de los importes .
Desde ya muchas gracias por su ayuda
Saludos
Mario Mansilla
Control Grid
Moderator: Rathinagiri
-
- Posts: 269
- Joined: Wed Aug 13, 2008 2:35 pm
- Location: Córdoba - Argentina
Control Grid
- Attachments
-
- Grid.rar
- (15.12 KiB) Downloaded 220 times
Re: Control Grid
Hola Mario
Quizá de esta forma te ayude...
*--------------------------------------------
Maybe in this way I will help you ...
Cambia en Main.fmg lo siguiente:
Y en Main.prg, en el PROCEDURE T_Provee añade al inicio:
Quizá de esta forma te ayude...
*--------------------------------------------
Maybe in this way I will help you ...
Cambia en Main.fmg lo siguiente:
Code: Select all
CELLNAVIGATION .T. // ******* CAMBIAR A .T.
Code: Select all
*-------------------
STATIC PROCEDURE T_Provee
*-------------------
Local i
c_Total := 0
*----------------------------------------- // AÑADIR
nRow := Main.Grid_1.CellRowClicked
Main.Grid_1.Value := { nRow, 9 }
HMG_PressKey(VK_RETURN)
*-----------------------------------------
If Main.Grid_1.CheckBoxEnabled == .T.
For i = 1 To Main.Grid_1.ItemCount
If Main.Grid_1.CheckBoxItem ( i ) == .T.
Do Case
Case Main.Grid_1.CellEx (i,3) = "FC"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "ND"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "NC"
c_Total := c_Total - Val(Main.Grid_1.CellEx (i, 7))
Endcase
Endif
Next
Endif
Main.Label_1.Value := Str(c_Total,12,2)
Return
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
-
- Posts: 269
- Joined: Wed Aug 13, 2008 2:35 pm
- Location: Córdoba - Argentina
Re: Control Grid
Hola Andrés :
muchas gracias por tu ayuda , ahora cuando realizo el click en el checkbox , automáticamente puedo editar e ingresar el valor , lo único que no espera que ingrese el valor para realizar la siguiente sentencia que calcula el importe total .
Cómo debería implementar esto ? . quizas un do while hasta que presione Enter
Saludos
Mario Rafael Mansilla
*----------------------------------------- // AÑADIR
nRow := Main.Grid_1.CellRowClicked
Main.Grid_1.Value := { nRow, 9 }
HMG_PressKey(VK_RETURN)
*-----------------------------------------
*-- Aqui esperar que ingrese el valor
If Main.Grid_1.CheckBoxEnabled == .T.
For i = 1 To Main.Grid_1.ItemCount
If Main.Grid_1.CheckBoxItem ( i ) == .T.
Do Case
Case Main.Grid_1.CellEx (i,3) = "FC"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "ND"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "NC"
c_Total := c_Total - Val(Main.Grid_1.CellEx (i, 7))
Endcase
Endif
Next
Endif
muchas gracias por tu ayuda , ahora cuando realizo el click en el checkbox , automáticamente puedo editar e ingresar el valor , lo único que no espera que ingrese el valor para realizar la siguiente sentencia que calcula el importe total .
Cómo debería implementar esto ? . quizas un do while hasta que presione Enter
Saludos
Mario Rafael Mansilla
*----------------------------------------- // AÑADIR
nRow := Main.Grid_1.CellRowClicked
Main.Grid_1.Value := { nRow, 9 }
HMG_PressKey(VK_RETURN)
*-----------------------------------------
*-- Aqui esperar que ingrese el valor
If Main.Grid_1.CheckBoxEnabled == .T.
For i = 1 To Main.Grid_1.ItemCount
If Main.Grid_1.CheckBoxItem ( i ) == .T.
Do Case
Case Main.Grid_1.CellEx (i,3) = "FC"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "ND"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "NC"
c_Total := c_Total - Val(Main.Grid_1.CellEx (i, 7))
Endcase
Endif
Next
Endif
Re: Control Grid
Bueno, tendrías que separar en 2 procedimientos...
*---------------------------------------------------------------
Well, you would have to separate in 2 procedures ...
Cambia en Main.fmg lo siguiente:
Y en el Main.prg, sería así:
*---------------------------------------------------------------
Well, you would have to separate in 2 procedures ...
Cambia en Main.fmg lo siguiente:
Code: Select all
ONCHANGE Totales()
Code: Select all
*-------------------
STATIC PROCEDURE T_Provee
*-------------------
Local nRow
nRow := Main.Grid_1.CellRowClicked
Main.Grid_1.Value := { nRow, 9 }
HMG_PressKey(VK_RETURN)
Return
*-------------------
STATIC PROCEDURE Totales
*-------------------
Local i
c_Total := 0
If Main.Grid_1.CheckBoxEnabled == .T.
For i = 1 To Main.Grid_1.ItemCount
If Main.Grid_1.CheckBoxItem ( i ) == .T.
Do Case
Case Main.Grid_1.CellEx (i,3) = "FC"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "ND"
c_Total := c_Total + Main.Grid_1.CellEx (i, 9)
Case Main.Grid_1.CellEx (i,3) = "NC"
c_Total := c_Total - Val(Main.Grid_1.CellEx (i, 7))
Endcase
Endif
Next
Endif
Main.Label_1.Value := Str(c_Total,12,2)
Return
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
-
- Posts: 269
- Joined: Wed Aug 13, 2008 2:35 pm
- Location: Córdoba - Argentina
Re: Control Grid
Hola Andrés :
perfecto funciona como deseaba .
Muchas gracias por tu ayuda .
Saludos
Mario Mansilla
perfecto funciona como deseaba .
Muchas gracias por tu ayuda .
Saludos
Mario Mansilla