La pregunta es cómo cambiar una imagen que asigné a una columna en un grid, por ejemplo: una vez que cargué los datos al grid le asigno esa imagen y al dar clic al botón conciliar se va a realizar el proceso, aquí la función, con su ayuda así quedó:
Code: Select all
PROCEDURE Conciliar()
LOCAL i
LOCAL j
LOCAL cArchivo := HB_DirBase() + 'conciliacion.txt'
LOCAL lNuevo
FOR i=1 TO Win1.Grid1.ItemCount // BANCO
cDescBanco := Win1.Grid1.CellEx(i, 3)
nCargoBanco := Val(Win1.Grid1.CellEx(i, 4))
nAbonoBanco := Val(Win1.Grid1.CellEx(i, 5))
FOR j := 1 TO Win1.Grid2.ItemCount // AUXILIAR
cDescAux := Win1.Grid2.CellEx(i, 4)
nCargoAux := Val(Win1.Grid2.CellEx(i, 5))
nAbonoAux := Val(Win1.Grid2.CellEx(i, 6))
IF nCargoAux == nCargoBanco .AND. nAbonoAux == nAbonoBanco // ENCONTRÓ ALGUNA COINCIDENCIA
crearArchivo( cArchivo, 'fila ' + hb_NToS(j) + ' del Auxiliar --> ' + cDescAux + ;
' Cargo --> ' + hb_NToS(nCargoAux) + ;
' Abono --> ' + hb_NToS(nAbonoAux) + hb_eol(), @lNuevo )
crearArchivo( cArchivo, 'fila ' + hb_NToS(i) + ' del Banco --> ' + cDescBanco + ;
' Cargo --> ' + hb_NToS(nCargoBanco) + ;
' Abono --> ' + hb_NToS(nAbonoBanco) + hb_eol(), @lNuevo )
ENDIF
NEXT j
NEXT i
MsgBox('Terminado...')
RETURN
Esa es la idea que tengo, pero luego pienso que cómo voy a ligar la información para presentar al usuario, es decir simples imágenes no le dicen nada al usuario a menos que tenga alguna columna adicional con algún identificador o que al seleccionar el grid bancos en automático se seleccione la fila del grid auxiliar que tiene coincidencia.
Alguna idea compañeros de cómo implementar esta solución.
Saludos,
Javier