contar lineas de grid

942 views
Skip to first unread message

Unico

unread,
Jul 20, 2009, 11:25:51 PM7/20/09
to Mundo Visual FoxPro
que tal foxeros!!!!!! exitos en sus labores diarias, mi consulta es
que si alguien de ustedes me puede orientar como sabes cuantas lineas
tiene una grid. dicha gris sera utilizada para facturacion y necesito
saber cuantod productos lleva facturando, de antemano muchas
gracias!!!!!!!!!!!!!!!

GOOD_FOX

unread,
Jul 21, 2009, 12:00:40 AM7/21/09
to Mundo Visual FoxPro

Hola ke tal....

kreo ke lo mas fácil es contar el número de registros que tienes en la
tabla actual

es decir hacer un Reccount()


Saudos.!!


Good_Fox

Daniel Sánchez

unread,
Jul 21, 2009, 12:59:09 AM7/21/09
to mundovis...@googlegroups.com
Bueno un reccount() funcionaria, pero tiene inconvenientes, puede ser que estes trabajando con un set filter sobre la tabla o si es un cursor que hallas eliminando items, cosas que el reccount() consideraría las lineas no filtradas como las eliminadas, en todo caso aplica un count to ntotalitems, que contara solo las lineas que estas visualizando de la tabla indicada.
--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú

ger...@hbaron.com

unread,
Jul 21, 2009, 8:07:29 AM7/21/09
to mundovis...@googlegroups.com
solo tenes que ver cuantos registros tiene la tabla o el cursor en donde
tenes los productos utiliza
count all


Unico escribió:

Unico

unread,
Jul 21, 2009, 4:30:48 PM7/21/09
to Mundo Visual FoxPro
foxeros muchas gracias, tomare muy encuenta sus comentarios.
muchas gracias por aportar sus conocimientos y resolver mi problema,
gracia a todos!!!!

di por favor, luego gracias

unread,
Jul 21, 2009, 8:26:22 PM7/21/09
to Mundo Visual FoxPro
esto funciona mira. esto va en el keypress de la ultima columna del
grid
local n
if nkeycode= 13 && dijito enter
count to n for ! deleted()
if n < gnmaxl && esta variable tiene que decirte cuantas lineas
deseas
go bottom in factura
if ! empty( factura.codigo )
append blank
go bottom in factura
keyboard '{dnarrow}'
endif
else
delete next 1
messagebox('La Cantidad maxima de Lineas Permitida '+CHR
(13)+'Para una FAActura es:' + str(gnmaxl),16,'ERROR')
endif
endif
This.Parent.Parent.refresh && refrescamos la cuadricula
Reply all
Reply to author
Forward
0 new messages