FoxPro/Visual FoxPro - AYUDA POR FAVOR AMIGOS ME URGE ESTO POR FAVOR

   
Vista:

AYUDA POR FAVOR AMIGOS ME URGE ESTO POR FAVOR

Publicado por HELDER MARTINEZ (710 intervenciones) el 11/03/2008 23:12:30
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:AYUDA POR FAVOR AMIGOS ME URGE ESTO POR FAVOR

Publicado por tito (311 intervenciones) el 13/03/2008 02:29:01
Si estas utlizando un cursor, entonces revisa que no yaha ninguna tabla en el data enviorenment del report.
Os deseo suerte,
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

RE:AYUDA POR FAVOR AMIGOS ME URGE ESTO POR FAVOR

Publicado por Arturo Garcia Casas (156 intervenciones) el 19/03/2008 02:43:01
demasiado codigo para una vista previa del reporte
si vas a usar cursores....creo que es mas conveniente que lo hagas directamente con la inntruccion SELECT de SQL y evitas tanto rollo....por ejemplo

supongamos que tienes una tabla donde tienes los datos personales de los alumnos.

SELECT * FROM ALUMNOS INTO CURSOR CUR_ALU WHERE COLONIA="BUENAVISTA" ORDER BY MATRICULA

lo que indico en el codigo de arriba es que haga un cursor de la tabla ALUMNOS llamado CUR_ALU con la condicion que sean solamente los de la colonia BUENAVISTA y que los ordene por MATRICULA.

una vez que creas el cursor en el reporte agrega un campo y a ese campo ponle el nombre del cursor seguido por el nombre del campo por ejemplo:

CUR_ALU.MATRICULA
CUR_ALU.COLONIA

y asi sucesivamente....no trates de ejecutarlo en modo de diseño en reportes
llamalo desde la aplicacion.

asi es mas sencillo y mas rapido.

si tienes dudas no dudes en contactarme.

saludos desde el bello puerto de Veracruz, Ver. Mexico
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