Skip to Content
0
Former Member
Sep 13, 2007 at 02:19 PM

SubReport -> Crystal Report XI + VB 6 + RDC (Windows Vista Business)

31 Views

Post Author: Brujo

CA Forum: General

Hi,

I update my CR 9 to CR XI, until all work fine ( all reports) but with the new Crystal XI not 😔

I explained the problem :

In CR XI program all work without problems I can see fine, but we I do it with VB 6 before showing the Report (it contain subReports) appears a poster saying :

ASSIGNED FIELD ( WITH 4 SMALL WINDOWS)

FIELDS FROM REPORT NOT ASSIGNED FIELDS (REPORT <-> ADO)

FIELDS FROM REPORT ASSIGNED FIELDS(REPORT <->ADO)

If I press "OK" all working fine, How I can quit it ¿?

I attached the code :

SQLAux = "SELECT VIAJES.INDICE AS INDICE, VIAJES.C9 AS NUMVIAJE, VIAJES.C10 AS NDS, VIAJES.C13 AS FECHA, VIAJES.C15 AS PTOINI," & _ "VIAJES.C16 AS PTOFIN, VIAJES_CNTS.C6 AS EMB, VIAJES_CNTS.C7 AS RECP," & _ "VIAJES_CNTS.C12 AS NOTIFICAR," & _ "VIAJES_VEHS.C3 AS MATVEH1, VIAJES_VEHS.C4 AS DESCRIPVEH1," & _ "VIAJES_VEHS.C5 AS TARAVEH1, VIAJES_VEHS.C7 AS MATVEH2, VIAJES_VEHS.C8 AS DESCRIPVEH2," & _ "VIAJES_VEHS.C9 AS TARAVEH2, VIAJES_VEHS.C10 AS METROS, BUQUE.NOMBRE AS NOMBUQUE," & _ "VIAJES_CNTS.C1 AS NUMCNT, CLIENTES.NOMBRE AS NOMBCODAG," & _ "VIAJES.C11 AS CARPETA, BUQUE.CAPITAN AS CAPITAN, BUQUE.BANDERA AS BANDERA, VIAJES_CNTS.C13 AS BAJA " & _ "FROM VIAJES LEFT JOIN " & _ "VIAJES_CNTS ON VIAJES.INDICE = VIAJES_CNTS.INDICE AND VIAJES.INDICE=" & CDbl(LBIDENTIF) & " INNER JOIN " & _ "VIAJES_VEHS ON VIAJES_CNTS.INDICE = VIAJES_VEHS.INDICE AND VIAJES_CNTS.C1 = VIAJES_VEHS.C1 INNER JOIN " & _ "BUQUE ON VIAJES.C12 = BUQUE.CODIGO INNER JOIN " & _ "COMPANIA ON BUQUE.COD_COMP = COMPANIA.CODIGO INNER JOIN " & _ "LPAG ON VIAJES_CNTS.C8 = LPAG.CODIGO INNER JOIN " & _ "LPAG LPAG_1 ON VIAJES_CNTS.C10 = LPAG_1.CODIGO LEFT OUTER JOIN " & _ "CLIENTES ON VIAJES_CNTS.C5 = CLIENTES.CODIGO AND CONVERT(datetime, VIAJES.C13, 120) BETWEEN CLIENTES.FINI AND " & _ "CLIENTES.FFIN LEFT OUTER JOIN CLIENTES CLIENTES_1 ON VIAJES_CNTS.C9 = CLIENTES_1.CODIGO" Else SQLAux = "SELECT VIAJES.INDICE AS INDICE, VIAJES.C9 AS NUMVIAJE, VIAJES.C10 AS NDS, VIAJES.C12 AS CODBUQUE, VIAJES.C13 AS FECHA, VIAJES.C15 AS PTOINI," & _ "VIAJES.C16 AS PTOFIN, BUQUE.NOMBRE AS NOMBUQUE, COMPANIA.NOMBRE AS NOMBCIA, VIAJES.C11 AS CARPETA, BUQUE.CAPITAN AS CAPITAN," & _ "BUQUE.GT AS GT, BUQUE.BANDERA AS BANDERA, VIAJES.C3 AS SINCARGA, VIAJES.C5 AS LASTRE " & _ "FROM VIAJES INNER JOIN BUQUE ON VIAJES.C12 = BUQUE.CODIGO AND VIAJES.INDICE=" & CDbl(LBIDENTIF) & " INNER JOIN COMPANIA ON BUQUE.COD_COMP = COMPANIA.CODIGO" End If ' Debug.Print If RstAux.State = adStateOpen Then RstAux.Close Set RstAux = Nothing Set RstAux = New ADODB.Recordset With RstAux .ActiveConnection = CnAux .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Source = SQLAux .Open End With

If RstAux.EOF = True And RstAux.BOF = True Then Else Set rpCrystalAux = appCrystalAux.OpenReport(App.Path & "RPT" + ReadIniFile2(FicheroIni, "PUERTO ORIGEN", "PUERTO") + "MANIFIESTO-" & CStr(Left(LB6.Caption, 3)) & ".rpt") With rpCrystalAux .DiscardSavedData .Database.SetDataSource RstAux.Clone, 3 End With ' -

-


CARGAR RECORDSET DEL SUBREPORT SUBRPTMANIFIESTO.rpt -

-


SQLAux2 = "SELECT VIAJES_MERCS.INDICE, VIAJES_MERCS.C1 AS NUMCNT, VIAJES_MERCS.C2, VIAJES_MERCS.C3, VIAJES_MERCS.C4, VIAJES_MERCS.C5, VIAJES_MERCS.C6," & _ "VIAJES_MERCS.C7 , VIAJES_CNTS.C13 FROM VIAJES_MERCS INNER JOIN VIAJES_CNTS ON VIAJES_MERCS.INDICE = VIAJES_CNTS.INDICE AND VIAJES_MERCS.C1 = VIAJES_CNTS.C1 AND VIAJES_CNTS.C13 = 0 WHERE VIAJES_CNTS.INDICE=" & CDbl(LBIDENTIF) If RstAux2.State = adStateOpen Then RstAux2.Close Set RstAux2 = Nothing Set RstAux2 = New ADODB.Recordset With RstAux2 .ActiveConnection = CnAux .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Source = SQLAux2 .Open End With DoEvents ' --- SUBREPORT -- Set SubReport1 = rpCrystalAux.OpenSubreport("SUBRPTMANIFIESTO.rpt")

With SubReport1 .DiscardSavedData DoEvents .Database.SetDataSource RstAux2.Clone, 3 End With DoEvents ' -

-


CARGAR RECORDSET DEL SUBREPORT SUBRPTMANIFIESTO-TVEH.rpt -

-


SQLAux3 = "SELECT VIAJES_VEHS.INDICE, VIAJES_VEHS.C1 AS NUMCNT, VIAJES_VEHS.C2, VIAJES_VEHS.C5, VIAJES_VEHS.C6, VIAJES_VEHS.C9, VIAJES_VEHS.C10," & _ "VIAJES_CNTS.C13 FROM VIAJES_VEHS INNER JOIN VIAJES_CNTS ON VIAJES_VEHS.INDICE = VIAJES_CNTS.INDICE AND VIAJES_VEHS.C1 = VIAJES_CNTS.C1 AND VIAJES_CNTS.C13=0 WHERE VIAJES_CNTS.INDICE=" & CDbl(LBIDENTIF) If RstAux3.State = adStateOpen Then RstAux3.Close Set RstAux3 = Nothing Set RstAux3 = New ADODB.Recordset With RstAux3 .ActiveConnection = CnAux .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Source = SQLAux3 .Open End With DoEvents ' --- SUBREPORT -- Set SubReport2 = rpCrystalAux.OpenSubreport("SUBRPTMANIFIESTO-TVEH.rpt")

SubReport2.DisplayProgressDialog = False With SubReport2 .DiscardSavedData DoEvents .Database.SetDataSource RstAux3.Clone, 3 End With DoEvents

' -- -- CARGAR RECORDSET DEL SUBREPORT SUBRPTMANIFIESTO-TMERC.rpt -

-


SQLAux4 = "SELECT VIAJES_MERCS.INDICE, VIAJES_MERCS.C1 AS NUMCNT, VIAJES_MERCS.C2, VIAJES_MERCS.C3, VIAJES_MERCS.C4, VIAJES_MERCS.C5, VIAJES_MERCS.C6," & _ "VIAJES_MERCS.C7 , VIAJES_CNTS.C13 FROM VIAJES_MERCS INNER JOIN VIAJES_CNTS ON VIAJES_MERCS.INDICE = VIAJES_CNTS.INDICE AND VIAJES_MERCS.C1 = VIAJES_CNTS.C1 AND VIAJES_CNTS.C13 = 0 WHERE VIAJES_CNTS.INDICE=" & CDbl(LBIDENTIF) If RstAux4.State = adStateOpen Then RstAux4.Close Set RstAux4 = Nothing Set RstAux4 = New ADODB.Recordset With RstAux4 .ActiveConnection = CnAux .LockType = adLockReadOnly .CursorType = adOpenForwardOnly .CursorLocation = adUseClient .Source = SQLAux4 .Open End With DoEvents ' --- SUBREPORT -- Set SubReport3 = rpCrystalAux.OpenSubreport("SUBRPTMANIFIESTO-TMERC.rpt") SubReport3.DisplayProgressDialog = False With SubReport3 .DiscardSavedData DoEvents .Database.SetDataSource RstAux4.Clone, 3 End With DoEvents

' --- MOSTRAR INFORME --- With FormCrystal .Caption = LoadResString(361) .cr.ReportSource = rpCrystalAux .cr.ViewReport .Show End With DoEvents Exit Sub