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
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
0