Saludos cordiales
Manuel Tovar Ruiz
Barranquilla - COLOMBIA
Antes de imprimir este correo piensa en la contribuci�n que puedes hacer al medio ambiente.
Please consider your environmental responsibility and commitment before printing.
El 16/04/2011 09:45 a.m., Dante escribi�:
LOCAL FOTO AS BLOB
FOTO = (0h) && Inicializamos la Variable
FOTO = FILETOSTR("\TOP\" + CUCU7 + "\FOTO\" +
ALLTRIM(THISFORM.I_NUMERO.Value) + ".JPG") && leemos el archivo y lo
dejamos en la variable FOTO
DELETE FILE "\TOP\" + CUCU7 + "\FOTO\" +
ALLTRIM(THISFORM.I_NUMERO.Value) + ".JPG" && borramos el archivo
*
*** SE ACTUALIZA EL REGISTRO QUE SE ACABA DE GRABAR CON LA FOTO, SE HACE
APARTE PORQUE LA TECNICA QUE SE UTILIZA ES DIFERENTE POR LO DEL TEXT
TO TEXTMERGE NOSHOW
*
IF ALLTRIM(FOTO) == ''
ELSE
LOCAL A
A = ALLTRIM(THISFORM.I_NUMERO.Value)
SQLEXEC (THISFORM.CONexion,"USE " + BDTOP1 )
TEXT TO CADENA TEXTMERGE NOSHOW
UPDATE top105 SET top105.CD54 = ?FOTO WHERE top105.CD2 = ?A
ENDTEXT
SQLEXEC (THISFORM.CONexion,CADENA)
ENDIF
Si algo no est� claro, no dudes en preguntar.
Saludos cordiales
Manuel Tovar Ruiz
Barranquilla - COLOMBIA
Antes de imprimir este correo piensa en la contribuci�n que puedes hacer al medio ambiente.
Please consider your environmental responsibility and commitment before printing.
El 16/04/2011 09:45 a.m., Dante escribi�:
Saludos cordiales
Manuel Tovar Ruiz
Barranquilla - COLOMBIA
Antes de imprimir este correo piensa en la contribuci�n que puedes hacer al medio ambiente.
Please consider your environmental responsibility and commitment before printing.
El 16/04/2011 10:18 a.m., Dante escribi�:
> Gracias amigo por el ejemplo me sirvio bastante.
>
>
>
> On 16 abr, 09:53, Programas ToP<programas...@gmail.com> wrote:
>> M s informaci n.
>> En el caso de im genes grandes hacemos esto sobre campos LongBlob:
>>
>> LOCAL FOTO AS BLOB
>> FOTO = (0h)&& Inicializamos la Variable
>> FOTO = FILETOSTR("\TOP\" + CUCU7 + "\FOTO\" +
>> ALLTRIM(THISFORM.I_NUMERO.Value) + ".JPG")&& leemos el archivo y lo