crystal reports no me muestra todos los valores
Publicado por dann (7 intervenciones) el 01/04/2013 17:03:16
hola estimados tengo una consulta con el tema de imprecion no logro dar que me muestre los datos de una factura es decir me muestra a imprimir los primeros datos de la factura pero por el numero de factura tengo mas datos el recorset los recorre pero como lo muestro en crystal reports
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub consulta1()
Data1.DatabaseName = directorio_actual + "administrador.mdb"
Data1.RecordSource = "ingreso_insumo"
Data1.RefreshData1.Database.Execute ("delete from " + "ingreso_insumo")
Dim oConn, RS, sqlmy
Set oConn = New ADODB.Connection
Set RS = New ADODB.Recordset
oConn.Open (conn_string2)
sqlmy = "SELECT * FROM ingreso_insumo WHERE num_doc =" & numero
RS.Open sqlmy, oConn, 1
If RS.EOF = False Then
Do While Not RS.EOFData1.Recordset.AddNew
For H = 0 To 18 ' recorre los campos de la basedato
Data1.Recordset(H) = RS(H)
Next H
Data1.Recordset.Update
RS.MoveNextLoop
End If
RS.CloseoConn.CloseSet RS = NothingSet oConn = NothingEnd Sub
Private Sub Command1_Click()
consulta1
For H = 0 To 10: Report1.DataFiles(H) = "": Report1.Formulas(H) = "": Next H
Report1.WindowTitle = "FACTURA"
Report1.WindowTop = True
Report1.WindowHeight = 800
Report1.WindowWidth = 1200
Report1.ReportFileName = directorio_reportes + "facturas.rpt"
Report1.DataFiles(0) = directorio_actual + "administrador.mdb"
Report1.Action = 1
End Sub
Valora esta pregunta
0