FoxPro/Visual FoxPro - AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

   
Vista:

AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

Publicado por HELDER MARTINEZ (710 intervenciones) el 10/03/2008 17:12:07
HOLA AMIGOS DE ESTE LINDO FORO;
TENGO UN PROBLEMA AL MOMENTO DE DAR VISTA PREVIA MI REPORTE.

CUANDO LE DOY LA VISTA PREVIA AL REPORTE ME MUESTRA LOS DATOS, PERO AL MOMENTO DE DARLE CLICK SOBRE EL REPORTE O ZOOM O HACERLO MAS PEQUEÑO EN PANTALLA, EL REPORTE SE MUETRA EN BLANCO; (COMO QUE SE VACIARA EL CURSOR O TABLA)
POR EJEMPLO

IDENTIDAD: 1811-1986-00008
NOMBRE: HELDER MARTINEZ

CUANDO DOY CLICK SOBRE EL MISMO O ZOOM, SOLO ME MUESTRA LAS ETIQUETAS O LABEL PERO NO ME MUESTRA LOS DATOS DEL CURSOR O TABLA. (¿SERA QUE SE VACIA LA TABLA?) ASI SE MUESTRA EN PANTALLA.

IDENTIDAD: VACIO
NOMBRE: VACIO

***************************************************************************
***ESTE ES EL CODIGO****
****************************************************************************

PUBLIC cIdentidad, dFecha, cNom_cliente, nSexo, cOcup_Prof_ofic, nEstado_civil, cNom_conyuge,;
cPais, cCod_pais, cNacionalidad, cDomicilio, cDepartamento, cCod_depto,;
cMunicipio, cCod_muni, cTelefono_casa, cTelefono_celular,;
nTrabaja_empresa, cNom_empresa, cTelefono_trabajo, cE_mail, cFoto, cFoto_identidad, cUsuario

cIdentidad =ALLTRIM(thisform.pagfClientes.page2.txtIdentidad.Value)
dFecha =thisform.pagfClientes.page2.txtFecha.Value
cNom_cliente =ALLTRIM(thisform.pagfClientes.page2.txtNom_cliente.Value)
nSexo =thisform.PagfClientes.PAge2.opgSexo.Value
cOcup_prof_ofic =ALLTRIM(thisform.pagfClientes.page2.cboOcup_Prof_ofic.Value)
nEstado_civil =thisform.pagfClientes.page2.opgEstado_civil.Value
cNom_conyuge =ALLTRIM(thisform.pagfClientes.page2.txtNom_conyuge.Value)
cPais =ALLTRIM(thisform.pagfClientes.page2.cboPais.Value)
cCod_pais =ALLTRIM(thisform.pagfClientes.page2.txtCod_pais.Value)
cNacionalidad =ALLTRIM(thisform.pagfClientes.page2.txtnacionalidad.Value)
cDomicilio =ALLTRIM(thisform.pagfClientes.page2.txtDomicilio.Value)
cDepartamento =ALLTRIM(thisform.pagfClientes.page2.cboDepartamento.Value)
cCod_depto =ALLTRIM(thisform.pagfClientes.page2.txtcod_depto.Value)
cMunicipio =ALLTRIM(thisform.pagfClientes.page2.cboMunicipio.Value)
cCod_muni =ALLTRIM(thisform.pagfClientes.page2.txtCod_muni.Value)
cTelefono_casa =ALLTRIM(thisform.pagfClientes.page2.txtTelefono_casa.Value)
*cCod_area1 =ALLTRIM(thisform.pagfClientes.page2.cboCod_area1.Value)
cTelefono_celular =ALLTRIM(thisform.pagfClientes.page2.txtTelefono_celular.Value)
*cCod_area2 =ALLTRIM(thisform.pagfClientes.page2.cboCod_area2.value)
nTrabaja_empresa =thisform.pagfClientes.page2.opgTrabajaEmpresa.Value
cNom_empresa =ALLTRIM(thisform.pagfClientes.page2.txtNom_empresa.Value)
cTelefono_trabajo =ALLTRIM(thisform.pagfClientes.page2.txtTelefono_trabajo.Value)
*cCod_area3 =ALLTRIM(thisform.pagfClientes.page2.cboCod_area3.Value)
cE_mail =ALLTRIM(thisform.pagfClientes.page2.txtE_mail.Value)
cFoto =ALLTRIM(thisform.pagfClientes.page2.edtFoto.Value)
cFoto_identidad =ALLTRIM(thisform.pagfClientes.page2.EdtFoto_identidad.Value)
cUsuario =ALLTRIM(thisform.pagfClientes.page2.txtUsuario.Value)

***Creo cursor*****************************
CREATE CURSOR _Temp_clientes;
(Identidad c(13), nom_cliente c(40),;
fecha d, sexo c(10),;
ocup_prof_ofic c(20), estado_civil c(15),;
nom_conyuge c(40), pais c(20),;
cod_pais c(5), nacionalidad c(20),;
domicilio c(70), departamento c(20),;
cod_depto c(5), municipio c(20),;
cod_muni c(5), telefono_casa c(9),;
telefono_celular c(10), trabaja_empresa c(3),;
nom_empresa c(30), telefono_trabajo c(9),;
e_mail c(30), foto m, foto_identidad m)
INDEX ON identidad TAG identidad

****selecciono cursor y guardo los datos para mostrarlo en el report***
SELECT _temp_clientes
DELETE ALL
APPEND BLANK
REPLACE _temp_clientes.identidad WITH cIdentidad
REPLACE _temp_clientes.nom_cliente WITH cNom_cliente
REPLACE _temp_clientes.fecha WITH dFecha
REPLACE _temp_clientes.ocup_prof_ofic WITH cOcup_prof_ofic

IF nSexo=1
REPLACE _temp_clientes.sexo WITH "MASCULINO"
ELSE
IF nSexo=2
REPLACE _temp_clientes.sexo WITH "FEMENINO"
ENDIF
ENDIF

IF nEstado_civil= 1
REPLACE _temp_clientes.estado_civil WITH "SOLTERO (A)"
ELSE
IF nEstado_civil= 2
REPLACE _temp_clientes.estado_civil WITH "UNION LIBRE"
ELSE
IF nEstado_civil= 3
REPLACE _temp_clientes.estado_civil WITH "CASADO (A)"
ELSE
IF nEstado_civil= 4
REPLACE _temp_clientes.estado_civil WITH "DIVORCIADO (A)"
ELSE
IF nEstado_civil= 5
REPLACE _temp_clientes.estado_civil WITH "VIUDO (A)"
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF


REPLACE _temp_clientes.nom_conyuge WITH cNom_conyuge
REPLACE _temp_clientes.pais WITH cPais
REPLACE _temp_clientes.cod_pais WITH cCod_pais
REPLACE _temp_clientes.nacionalidad WITH cNacionalidad
REPLACE _temp_clientes.domicilio WITH cDomicilio
REPLACE _temp_clientes.departamento WITH cDepartamento
REPLACE _temp_clientes.cod_depto WITH cCod_depto
REPLACE _temp_clientes.municipio WITH cMunicipio
REPLACE _temp_clientes.cod_muni WITH cCod_muni
REPLACE _temp_clientes.telefono_casa WITH cTelefono_casa
REPLACE _temp_clientes.telefono_celular WITH cTelefono_celular

IF nTrabaja_empresa= 1
REPLACE _temp_clientes.trabaja_empresa WITH "SI"
ELSE
IF nTrabaja_empresa= 2
REPLACE _temp_clientes.trabaja_empresa WITH "NO"
ENDIF
ENDIF

REPLACE _temp_clientes.nom_empresa WITH cNom_empresa
REPLACE _temp_clientes.telefono_trabajo WITH cTelefono_trabajo
REPLACE _temp_clientes.e_mail WITH cE_mail
REPLACE _temp_clientes.foto WITH cFoto
REPLACE _temp_clientes.foto_identidad WITH cFoto_identidad

*****cursor para poner el logo O FOTO EN EL REPORT************
**CREANDO CURSOR O TABLA TEMPORAL*************************************
CREATE CURSOR _registro;
(genero1 c(70), genero2 c(70),;
direccion c(70), telefono c(10))

SELECT registro
cGenero1=ALLTRIM(registro.genero1)
cGenero2=ALLTRIM(registro.genero2)
cDireccion=ALLTRIM(registro.direccion)
cTelefono=ALLTRIM(registro.telefono)
****borrando y almacenando en la tabla o cursor****
SELECT _registro
DELETE ALL
APPEND BLANK
REPLACE _registro.genero1 WITH cGenero1
REPLACE _registro.genero2 WITH cGenero2
REPLACE _registro.direccion WITH cDireccion
REPLACE _registro.telefono WITH cTelefono

SELECT _registro
SELECT _temp_clientes
SET ORDER TO identidad
REPORT FORM c:invent_system eports pt_clientes.frx prev

****************************************************************************

¿QUE PODRA SER? TRABAJO EN VFP9.

SALUDES
LES AGRADECERE MUCHO; MIL GRACIAS

HELDER MARTINEZ
YORO YORO,
HONDURAS C.A
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

RE:AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

Publicado por Saul (El Guatemalteco...) (676 intervenciones) el 10/03/2008 21:35:29
OK haz esto

SUSPEND

SELECT _registro
SELECT _temp_clientes
SET ORDER TO identidad
REPORT FORM c:invent_system eports pt_clientes.frx prev

y luego abres tu reporte
a ves que pasa porque se me hace que usas dos tablas..

en tus campos.

chequelo
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

RE:AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

Publicado por HELDER MARTINEZ (710 intervenciones) el 10/03/2008 22:05:15
HOLA SAUL, MIL GRACIAS POR TU INTERSES Y TU AYUDA AMIGO;

HICE LO QUE ME DICES Y NO PASA NADA DENTRO DE MI FORMULARIO, LUEGO LE DOY EL RESUME PARA SEGUIR EJECUTANDO PERO LOS TEXT DEL FORM SIGUEN LO MISMO.

SALUDES
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

AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

Publicado por jose miguel (2 intervenciones) el 22/02/2016 20:59:56
Buen dia,intentar con
REPORT FORM 'XXXXXX.frx' TO PRINTER PROMPT NODIALOG OBJECT TYPE 1
Solo en VFP9
saludos
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

AL DAR EL ZOOM EL REPORTE SE MUESTRA EN BLANCO

Publicado por jose (2 intervenciones) el 13/04/2016 23:02:33
Buen dia

El uso de la siguiente linea corrige el tema de que desaparezcan los datos al hacer un zoom sobre la vista previa.

REPORT FORM 'XXXXXX.frx' TO PRINTER PROMPT NODIALOG OBJECT TYPE 1

Sin embargo, cuando creo el ejecutable de la aplicación (xx.exe) y la coloco en otro ordenador, no funciona, ni siquiera visualizo la ventana previa. Necesito incluir algun archivo .dll?

gracias

saludos

Jose Miguel
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