Eliminar Lineas en Blanca de un GRID en Visual Fox pro
Imagínate que tienes una grila de 20 registros
Te muestra 5 registros (es decir 20, 19, 18, 17, 16) al iniciar el form, luego tu te desplazas hacia abajo al final del todo y te muestra el (5,4,3,2,1) y al dar el click sobre el item 1 primero el foco cae automaticamente en el 5 y luego pasa al 1
Eso es lo que me esta ocurriendo
Aqui esta mi codigo del Afferter Row
************Se conecta Al servidor a la BD muimpefg************************************************
*- Para conectar MYSQL
SERVERMYSQL = "192.168.2.101"
USUARIO = "root"
CLAVE = "902211218"
BD = "muimpefg"
lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"SERVER="+SERVERMYSQL+";" + ;
"UID="+USUARIO+";" + ;
"PWD="+CLAVE+";" + ;
"DATABASE="+BD+";" + ;
"OPTIONS='';"
SQLSETPROP(0,"DispLogin" , 3 )
arte = SQLSTRINGCONNECT(lcStringCnxLocal)
IF arte < 0
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
CLEAR ALL
CLOSE ALL
CANCEL
QUIT
ENDIF
*************************************************************************************************
************Se conecta Al servidor a la BD 2014fg************************************************
*- Para conectar MYSQL
SERVERMYSQL = "192.168.2.101"
USUARIO = "root"
CLAVE = "902211218"
BD = "2014fg"
lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"SERVER="+SERVERMYSQL+";" + ;
"UID="+USUARIO+";" + ;
"PWD="+CLAVE+";" + ;
"DATABASE="+BD+";" + ;
"OPTIONS='';"
SQLSETPROP(0,"DispLogin" , 3 )
siex = SQLSTRINGCONNECT(lcStringCnxLocal)
IF siex < 0
AERROR(laErr)
MESSAGEBOX("No se pudo conectar a mySQL. Error: " + CHR(13) + laErr[2])
CLEAR ALL
CLOSE ALL
CANCEL
QUIT
ENDIF
*************************************************************************************************
********Comprueba el valor seleccionado en la grilla*********************************************
valuategrid = EVALUATE(this.Columns(1).Controlsource)
ok=SQLEXEC(conexion, 'select p.Codigo, p.NumLinea, p.ArticuloCodigo2, p.cantidad, p.bultos, p.dto, p.subtotal ;
from pedidolinea p where p.codigo=?valuategrid ', 'consultita2')
IF ok<0
DO perror
endif
SELECT consultita2
******Se crea la consulta para la Tabla articulo y Barras de la BD 2014fg
ok = sqlexec(siex,'select a.codigo, a.nombre, a.unicaja, a.ubicacion, b.barras ;
from articulo a, barras b where a.codigo= b.articulo group by b.articulo','temarticulo')
IF ok<0
DO perror
ENDIF
SELECT temarticulo
************A partir de aqui es para comprobar la Cantidad de Caja*****************
******Se crea la consulta para la Tabla Arteunica de la BD 2014fg
ok = sqlexec(arte,'select articulo, actividad, unicaja ;
from artunica ','temartunico')
IF ok<0
DO perror
ENDIF
SELECT temartunico
*****************Unimos arteunica y barras
SELECT a.articulo, a.actividad, a.unicaja, p.ArticuloCodigo2, p.codigo ;
FROM temartunico a, consultita2 p WHERE p.ArticuloCodigo2 = a.articulo AND p.codigo=?valuategrid AND a.actividad="MI" ORDER BY p.articuloCodigo2 INTO CURSOR temp3
SELECT temp3
******Union de las dos consultas para mostrar en Grilla******************************************
SELECT ROUND(p.Codigo,0) as Codigo, p.NumLinea as Linea, p.ArticuloCodigo2 as Artículo, a.barras as Barras, a.ubicacion as Ubicación, ;
ROUND((p.cantidad/t.unicaja),1) as Bultos, ROUND(p.cantidad,0) as Cantidad, ;
a.nombre as Descripción, p.dto as Descuento, ROUND(p.subtotal,2) as Importe;
FROM temarticulo a, consultita2 p, temp3 t WHERE p.ArticuloCodigo2 = a.codigo AND t.articulo=a.codigo ORDER BY p.numlinea INTO CURSOR temp1
SELECT temp1
GO top
********Carga la grilla***************************************************************************
thisform.pageframe1.page1.Grid2.RecordSource="temp1"
********Calcula los totales***********************************************************************
thisform.calculototales
********Carga los Comentarios***********************************************************************
sqlconsultacomen=("select Codigo, Comentario from pedidocabecera where codigo=?valuategrid order by codigo DESC ")
SQLEXEC(ok, sqlconsultacomen,'comentarios')
SELECT comentarios
thisform.pageframe1.page1.edit1.Value= comentarios.comentario
sqlconsultacomentario=("select Codigo, Comentex from comentarios where codigo=?valuategrid order by codigo DESC ")
SQLEXEC(ok, sqlconsultacomentario,'comentarios2')
SELECT comentarios2
thisform.pageframe1.page1.edit2.Value= comentarios2.comentex
SCATTER memvar
thisform.Refresh
Gracias Fidel, espero poder explicarme mejor