dos preguntas??

gabriel
10 de Diciembre del 2004
QUE TAL¡¡... TENGO DOS PREGUNTAS... LA PRIMERA ES COMO PUEDO INSERTAR UN FOTO Y GUARDARLA EN MI TABLA....

LA SEGUNDA ES COMO PUEDO IMPRIMIR LO QUE CONTENGA UN FORMULARIO, ESTO ES, SI SE PUEDE, CLARO, SI TENGO UNA INFORMACION Y NO DESEO MANDARLA A UN REPORTE SOLO IMPRIMIR EL CONTENIDO DEL FORMULARIO...

ESPERO Y ME HAYA EXPLICADO DE ANTEMANO MUCHAS GRACIAS....

FELIX PEREZ
10 de Diciembre del 2004
pARA INSERTAR UNA FOTO.
HABRE UN REGISTRO.
APPEN BLANK
LUEGO PARA SELECCIONAR LA FOTO Y GRABARLA
carchivofoto=space(0)
cArchivoFoto=GetPict('jpg','Name:')
append general empleado.foto_empl from (cArchivofoto) Class Picture

ESPERO QUE TE FUNCIONE.

LA PREGUNTA DOS PRODRIA SER MAS EXPLISITO NO LA ENTENDI.

FELIX PEREZ RIVAS
10 de Diciembre del 2004
DALE A LA TECLA PRINT SCREEN ABRE PAINT Y PEGALA
CON PASTE.
RECORTALA A TU GUSTO E IMPRIME ESO.

Marcio
10 de Diciembre del 2004
Para la primera pregunta
Existe más de una manera de como insertar ina imagen en un formulario, pero creo que la manera más sencilla es esta:
si estás trabajando con SQL define un campo varchar(250), si es VFP define un campo memo.
CONTROLES

1.- Inserta en el formulario un control IMAGE( Image1)

2.- inserta un control COMMAND BUTTON (EcmdAdd) para Buscar el archivo a insertar

3.- Inserta un último control COMMAND BUTTON(EcmdDel) para quitar la imagen.

Código
En el Evento Click del COMMAND BUTTON de Búsqueda de archivo.. este código

local lcFileName

lcFileName = getfile("BMP", This.Caption)
if !empty(lcFileName)
replace cPicture with lcFileName in <TABLE>
This.Parent.Image1.picture = lcFileName
This.Parent.Image1.visible = .t.
This.Caption = AmTran("Edit Image")
ThisForm.Refresh()
endif

En el Evento Click del COMMAND BUTTON de Quitar la imagen.. este código:

if !empty(TABLE.FIELDPICTURE)
replace cPicture with "" in <TABLE>
This.Parent.Image1.picture = ""
This.Parent.Image1.visible = .f.
This.Parent.EcmdAdd.caption = AmTran("Add Image")
endif
This.Parent.Refresh()


para la Segunda.
Tecla PrtSc y pegar Word

Cualquier cosa puedes escribir a [email protected]