FoxPro/Visual FoxPro - carga de fotos

   
Vista:

carga de fotos

Publicado por felix (2 intervenciones) el 03/09/2008 04:23:53
Tengo un aplicativo que cuando estoy en ambiente FOX el formulario me muestra las fotos correctamente, pero cuando genero el proyecto en ejecutable, solo me muestra la primera foto, ya no busca las siguientes fotos.

Uso lo siguiente
FORMULARIO : FRMSOCIO

CONTROL IMAGEN : NAME IMAGENFOTO
PICTURE="COOPFOTOSMIFOTO.BMP"

CONTRO PUNTERO: AL NAVEGAR POR LA BASE DE DATOS ESTE CODIGO:

DO CASE
CASE THIS.VALUE=1
GO TOP

QNROSOC=STR(VAL(MAESTRO.NROSOC),4)
QNROSOC=RJUST(QNROSOC,"0")
RUTA="COOPFOTOSF"+QNROSOC+".BMP"

IF FILE(RUTA)
COPY FILE &RUTA TO COOPFOTOSMIFOTO.BMP
ELSE
COPY FILE COOPFOTOSSINFOTO.BMP TO COOPFOTOSMIFOTO.BMP
ENDIF
THISFORM.IMAGENFOTO.PICTURE="COOPFOTOSMIFOTO.BMP"

CASE THIS.VALUE=2
IF NOT BOF()
SKIP -1
IF BOF()
GO TOP
ENDIF
ENDIF

QNROSOC=STR(VAL(MAESTRO.NROSOC),4)
QNROSOC=RJUST(QNROSOC,"0")
RUTA="COOPFOTOSF"+QNROSOC+".BMP"

IF FILE(RUTA)
COPY FILE &RUTA TO COOPFOTOSMIFOTO.BMP
ELSE
COPY FILE COOPFOTOSSINFOTO.BMP TO COOPFOTOSMIFOTO.BMP
ENDIF
THISFORM.IMAGENFOTO.PICTURE="COOPFOTOSMIFOTO.BMP"

CASE THIS.VALUE=3
IF NOT EOF()
SKIP
IF EOF()
GO BOTTOM
ENDIF
ENDIF

QNROSOC=STR(VAL(MAESTRO.NROSOC),4)
QNROSOC=RJUST(QNROSOC,"0")
RUTA="COOPFOTOSF"+QNROSOC+".BMP"

IF FILE(RUTA)
COPY FILE &RUTA TO COOPFOTOSMIFOTO.BMP
ELSE
COPY FILE COOPFOTOSSINFOTO.BMP TO COOPFOTOSMIFOTO.BMP
ENDIF
THISFORM.IMAGENFOTO.PICTURE="COOPFOTOSMIFOTO.BMP"

CASE THIS.VALUE=4
UNLOCK
GO BOTTOM

QNROSOC=STR(VAL(MAESTRO.NROSOC),4)
QNROSOC=RJUST(QNROSOC,"0")
RUTA="COOPFOTOSF"+QNROSOC+".BMP"
IF FILE(RUTA)
COPY FILE &RUTA TO COOPFOTOSMIFOTO.BMP
ELSE
COPY FILE COOPFOTOSSINFOTO.BMP TO COOPFOTOSMIFOTO.BMP
ENDIF
THISFORM.IMAGENFOTO.PICTURE="COOPFOTOSMIFOTO.BMP"

ENDCASE
THISFORM.REFRESH

** EN EL DIRECTORIO COOPFOTOS ESTAN LAS FOTOS DE LOS SOCIOS
EJEMPLO : F0001.BMP
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

UFFF,...que cantidad de código..

Publicado por TITO (311 intervenciones) el 07/09/2008 04:51:04
Yo manejo esto con una sola linea:

Thisform.image1.Picture = SYS(2003)+"imagenes"+ficha.foto
en conjunto con el objeto "image1"
No se para que copias, la verdad es que me canso tratar de leer tal cantidad de código. Recuerda que este es un leguaje orientado a objeto,....no es cobol ni visual basic.
Saludos,
TITO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar