Visual Basic - Data Report

Life is soft - evento anual de software empresarial
 
Vista:

Data Report

Publicado por Isabel (2 intervenciones) el 04/12/2008 18:46:27
Hola!!!

Estoy haciendo unos formularios en el que genero unos montajes dados unos clientes y unos materiales, cada uno de su base de datos, esos montajes los puedo guardar, modificar y eliminar de otra tabla de la base de datos, el problema es a la hora de imprimir... Tengo un Data Report y lo que quiero hacer es que me imprima los datos del montaje que estoy viendo por pantalla, cuando yo lo hago el data report lo que me saca son todos los datos pero del primer registro de la tabla montajes, ¿como hacer para que me saque el actual de la pantalla (ya sea uno de los que estaba consultando o uno nuevo que acabo de generar)?

Muchas Gracias!!
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
sin imagen de perfil

RE:Data Report

Publicado por VICTOR MR (34 intervenciones) el 08/12/2008 16:11:53
HOLA QUE TAL

PREGUNTA, ¿ COMO CARGAS EL DATAREPORT? QUIZAS NO ESTES REFRESCANDO LA INFORAMCION CORRECTAMENTE , SI LO QUE ESTAS VIENDO EN PANTALLA ESTA GRABADO EN TU BASE DE DATOS, ENTONCES PUEDE SER QUE ESTAS JALANDO MAL LA INFORMACION

EXPLICA UN POCO MAS , PARA PODER AYUDARTE

SALUD2
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:Data Report para Victor MR

Publicado por Isabel (2 intervenciones) el 10/12/2008 19:17:39
Hola muchas gracias por contestar, la verdad es que no tengo mucha idea de esto, lo mejor que se me ocurre es mandarte el codigo que he puesto cuando imprimo. De esta forma al darle si es la primera vez (es decir, que la tabla este vacia, que no tenga ningun registro pues salta error, normal!!) y si es la segunda vez sale bien normalmente, yo creo que tienes razon en lo de refrescar pero no se muy bien como hacerlo. Te mando el codigo por si lo quieres mirar. Muchas Gracias!!!

Y otro problema que tenemos es el imprimir el codigo de barras que se genera con el numero de PC, tengo una funcion que consegui por ahi en un ejemplo en el formulario me la genera bien pero claro en en la imagen del datareport no se como sacarla. Muchas Gracias otra vez.


Private Sub Cmd_CnImprimir_Click()

RecImprimir.Open "select * from TImpresion", Conex, adOpenKeyset, adLockOptimistic
RecImprimir.Delete
RecImprimir.MovePrevious
RecImprimir.MoveNext

RecImprimir.AddNew
RecImprimir.Fields("codigo") = 1
RecImprimir.Fields("fecha") = Txt_codMontaje(1).Text
RecImprimir.Fields("estado") = Cbo_estado.List(Cbo_estado.ListIndex)

RecImprimir.Fields("CIF") = Text1.Text
RecImprimir.Fields("codigoCliente") = Text2.Text
RecImprimir.Fields("cliente") = Text3.Text
RecImprimir.Fields("direccion") = Text4.Text
RecImprimir.Fields("provincia") = Text5.Text

RecImprimir.Fields("codpostal") = Text6.Text
RecImprimir.Fields("telefono") = Text7.Text
RecImprimir.Fields("comercial") = Cbo_comercial.List(Cbo_comercial.ListIndex)
RecImprimir.Fields("tecnico") = Cbo_tecnico.List(Cbo_tecnico.ListIndex)
RecImprimir.Fields("pcSerie") = Txt_codMontaje(4).Text
RecImprimir.Fields("externo1") = txt_externo(0).Text
RecImprimir.Fields("externo2") = txt_externo(1).Text
RecImprimir.Fields("externo3") = txt_externo(2).Text
RecImprimir.Fields("serExterno1") = txt_serExterno(0).Text
RecImprimir.Fields("serExterno2") = txt_serExterno(1).Text
RecImprimir.Fields("serExterno3") = txt_serExterno(2).Text
RecImprimir.Fields("precio") = Txt_codMontaje(6).Text

RecImprimir.Fields("microprocesador") = Dbo_Componentes(0).BoundText
RecImprimir.Fields("placaBase") = Dbo_Componentes(1).BoundText
RecImprimir.Fields("memoria") = Dbo_Componentes(2).BoundText
RecImprimir.Fields("discoDuro") = Dbo_Componentes(3).BoundText
RecImprimir.Fields("sistemaOperativo") = Dbo_Componentes(4).BoundText
RecImprimir.Fields("opticas1") = Dbo_Componentes(5).BoundText
RecImprimir.Fields("opticas2") = Dbo_Componentes(6).BoundText
RecImprimir.Fields("removibles1") = Dbo_Componentes(7).BoundText
RecImprimir.Fields("removibles2") = Dbo_Componentes(8).BoundText
RecImprimir.Fields("perifericos1") = Dbo_Componentes(9).BoundText
RecImprimir.Fields("perifericos2") = Dbo_Componentes(10).BoundText
RecImprimir.Fields("caja") = Dbo_Componentes(11).BoundText
RecImprimir.Fields("adicionales1") = Dbo_Componentes(12).BoundText
RecImprimir.Fields("adicionales2") = Dbo_Componentes(13).BoundText
RecImprimir.Fields("adicionales3") = Dbo_Componentes(14).BoundText

RecImprimir.Fields("observaciones") = Txt_codMontaje(7).Text
RecImprimir.Fields("incidencias") = Txt_codMontaje(8).Text
RecImprimir.Fields("ID_Imagen") = Text6.Text

Call DrawBarcode(Txt_codMontaje(4), DataReport1.Sections.Item("CmConsultasImpresion_Detail").Controls("rptImage").Picture)
RecImprimir.Update

RecImprimir.MoveLast
DeArticulos.CmConsultasImpresion

DataReport1.Show


End Sub
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