AYUDA POR FAVOR
Hola yo lo que quiero hacer es al abrir un report decirle que solo me muestre los 9 primeros registros en la primera hoja y que despues muestre los siguientes 9 en otra he probado desde crystal report a poner if RecordNumber > 0 And RecordNumber mod 9 = 0 then
true
else
false
en nueva pagina mi problem es que se trata de tablas cruzadas y al ponerlo en el encabezado del informe pues no funcion ahora lo estoy haciendo mediante codigo en visual lo que hago es cada 9 registros abris un informe diferente lo que quiero conseguir es en lugar de abrir un report diferente crear una pagina e imprimirlo ahi pongo el codigo aunque es un bastante largo.
Case "TUnidadesOrdenado por maquina"
CryReport.WindowTitle = "Listado TiempoMaquina"
CryReport.ReportFileName = App.Path & "listadosarticulo_maquina2.rpt"
CryReport.Formulas(0) = "NombreEmpresa=" & "'" & MDIGestion.Caption & "'"
CryReport.Formulas(1) = "DesdeMaquina=" & "'" & TxtTexto(1).Text & "'"
CryReport.Formulas(2) = "HastaMaquina=" & "'" & TxtTexto(2).Text & "'"
CryReport.Formulas(3) = "DesdeArticulo=" & "'" & TxtTexto(3).Text & "'"
CryReport.Formulas(4) = "HastaArticulo=" & "'" & TxtTexto(4).Text & "'"
CryReport.Destination = Destino
'MsgBox (CryReport.SelectionFormula)
If Len(TxtTexto(2).Text) <> 0 Then
cod_maq_primero = ""
cod_maq_ultimo = ""
strSQL = "Select distinct(codart) as codigo_articulo From tunidad where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'order by Codmaq,codart"
'strSQL = "Select * From Tunidad where TUnidad.CodMaq>= " & "'" & txtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & txtTexto(2).Text & "'"
'where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'and " & "'" & "TUnidad.CodMaq=TxtTexto(2).Text " & "'" & " and " & "'" & TUnidad.CodArt=TxtTexto(3).Text " & "'" & " and " & "'" & TUnidad.CodArt=TxtTexto(4).Text"
MsgBox (strSQL)
strSQL1 = "Select count(distinct(codart)) as num_registro From tunidad where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "' group by codmaq"
'where TUnidad.CodMaq= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt= " & "'" & TxtTexto(4).Text & "'"
MsgBox (strSQL1)
Set Registro = Nothing: Registro.Open strSQL, Connection, adOpenKeyset, adLockPessimistic
Set Registro1 = Nothing: Registro1.Open strSQL1, Connection, adOpenKeyset, adLockPessimistic
i = 1
cont_pag = 0
If Registro1!num_registro > 5 Then
'Do Until Registro1.EOF
Do Until Registro.EOF
i = i + 1
'MsgBox (Registro1!num_registro)
'MsgBox (Registro!num_registro)
MsgBox (Registro!codigo_maquina)
Registro.MoveNext
If i = 1 And sw = 0 Then
cod_maq_primero = Registro!codigo_articulo
End If
'i = Registro1!num_registro
If i = 9 Then
If cod_maq_ultimo = "" Then
'cod_maq_primero = Registro!codigo_maquina
cod_maq_ultimo = Registro!codigo_articulo
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & TxtTexto(3).Text & "'" & " and {TUnidad.CodArt}<=" & "'" & cod_maq_ultimo & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
i = 0
sw = 0
Else
'cod_maq_primero = cod_maq_ultimo
cod_maq_ultimo = Registro!codigo_articulo
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & cod_maq_primero & "'" & " and {TUnidad.CodArt}<=" & "'" & cod_maq_ultimo & "'"
MsgBox (CryReport.SelectionFormula)
'CryReport.PageNext
CryReport.PrintReport
i = 0
sw = 0
End If
End If
Loop
End If
If i > 1 And i < 9 Then
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & cod_maq_primero & "'" & " and {TUnidad.CodArt}<=" & "'" & TxtTexto(4).Text & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
End If
If i = 1 Then
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & TxtTexto(3).Text & "'" & " and {TUnidad.CodArt}<=" & "'" & TxtTexto(4).Text & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
End If
true
else
false
en nueva pagina mi problem es que se trata de tablas cruzadas y al ponerlo en el encabezado del informe pues no funcion ahora lo estoy haciendo mediante codigo en visual lo que hago es cada 9 registros abris un informe diferente lo que quiero conseguir es en lugar de abrir un report diferente crear una pagina e imprimirlo ahi pongo el codigo aunque es un bastante largo.
Case "TUnidadesOrdenado por maquina"
CryReport.WindowTitle = "Listado TiempoMaquina"
CryReport.ReportFileName = App.Path & "listadosarticulo_maquina2.rpt"
CryReport.Formulas(0) = "NombreEmpresa=" & "'" & MDIGestion.Caption & "'"
CryReport.Formulas(1) = "DesdeMaquina=" & "'" & TxtTexto(1).Text & "'"
CryReport.Formulas(2) = "HastaMaquina=" & "'" & TxtTexto(2).Text & "'"
CryReport.Formulas(3) = "DesdeArticulo=" & "'" & TxtTexto(3).Text & "'"
CryReport.Formulas(4) = "HastaArticulo=" & "'" & TxtTexto(4).Text & "'"
CryReport.Destination = Destino
'MsgBox (CryReport.SelectionFormula)
If Len(TxtTexto(2).Text) <> 0 Then
cod_maq_primero = ""
cod_maq_ultimo = ""
strSQL = "Select distinct(codart) as codigo_articulo From tunidad where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'order by Codmaq,codart"
'strSQL = "Select * From Tunidad where TUnidad.CodMaq>= " & "'" & txtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & txtTexto(2).Text & "'"
'where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'and " & "'" & "TUnidad.CodMaq=TxtTexto(2).Text " & "'" & " and " & "'" & TUnidad.CodArt=TxtTexto(3).Text " & "'" & " and " & "'" & TUnidad.CodArt=TxtTexto(4).Text"
MsgBox (strSQL)
strSQL1 = "Select count(distinct(codart)) as num_registro From tunidad where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "'"
'where TUnidad.CodMaq>= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq<= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt>=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt<= " & "'" & TxtTexto(4).Text & "' group by codmaq"
'where TUnidad.CodMaq= " & "'" & TxtTexto(1).Text & "'" & " and TUnidad.CodMaq= " & "'" & TxtTexto(2).Text & "'" & " and TUnidad.CodArt=" & "'" & TxtTexto(3).Text & "'" & " and TUnidad.CodArt= " & "'" & TxtTexto(4).Text & "'"
MsgBox (strSQL1)
Set Registro = Nothing: Registro.Open strSQL, Connection, adOpenKeyset, adLockPessimistic
Set Registro1 = Nothing: Registro1.Open strSQL1, Connection, adOpenKeyset, adLockPessimistic
i = 1
cont_pag = 0
If Registro1!num_registro > 5 Then
'Do Until Registro1.EOF
Do Until Registro.EOF
i = i + 1
'MsgBox (Registro1!num_registro)
'MsgBox (Registro!num_registro)
MsgBox (Registro!codigo_maquina)
Registro.MoveNext
If i = 1 And sw = 0 Then
cod_maq_primero = Registro!codigo_articulo
End If
'i = Registro1!num_registro
If i = 9 Then
If cod_maq_ultimo = "" Then
'cod_maq_primero = Registro!codigo_maquina
cod_maq_ultimo = Registro!codigo_articulo
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & TxtTexto(3).Text & "'" & " and {TUnidad.CodArt}<=" & "'" & cod_maq_ultimo & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
i = 0
sw = 0
Else
'cod_maq_primero = cod_maq_ultimo
cod_maq_ultimo = Registro!codigo_articulo
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & cod_maq_primero & "'" & " and {TUnidad.CodArt}<=" & "'" & cod_maq_ultimo & "'"
MsgBox (CryReport.SelectionFormula)
'CryReport.PageNext
CryReport.PrintReport
i = 0
sw = 0
End If
End If
Loop
End If
If i > 1 And i < 9 Then
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & cod_maq_primero & "'" & " and {TUnidad.CodArt}<=" & "'" & TxtTexto(4).Text & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
End If
If i = 1 Then
CryReport.SelectionFormula = "{TUnidad.CodMaq}>=" & "'" & TxtTexto(1).Text & "'" & " and {TUnidad.CodMaq}<=" & "'" & TxtTexto(2).Text & "'" & " and {TUnidad.CodArt}>=" & "'" & TxtTexto(3).Text & "'" & " and {TUnidad.CodArt}<=" & "'" & TxtTexto(4).Text & "'"
MsgBox (CryReport.SelectionFormula)
CryReport.PrintReport
End If