[JosepGA]

ultima parte (un saludo):

Código Delphi [-]
procedure TFormRptConsultaMantenimientos.FormCreate(Sender: TObject);
begin
  TituloDelReport := '';

  ListaCampos := tStringList.Create;
  ListaTitulos := tStringList.Create;
  ListaFormulas := tStringList.Create;
  ListaFormulasExpresion := tStringList.Create;
  ListaLongitud := tStringList.Create;
  ListaAlineacion := tStringList.Create;
  ListaFormatoCampos := tStringList.Create;
  ListaSumados := tStringList.Create;
  ListaCamposConRango := tStringList.Create;
  ListaRangosDesde := tStringList.Create;
  ListaRangosHasta := tStringList.Create;
  ListaValoresSustituir := tStringList.Create;
  //ListaBDTablasRelacionadasSQL := tStringList.Create;
  ListaTablasRelacionadasSQL := tStringList.Create;

  ListaTotalesSumados := tStringList.Create;

  ListaCampos.Sorted := FALSE;
  ListaTitulos.Sorted := FALSE;
  ListaFormulas.Sorted := FALSE;
  ListaFormulasExpresion.Sorted := FALSE;
  ListaLongitud.Sorted := FALSE;
  ListaAlineacion.Sorted := FALSE;
  ListaFormatoCampos.Sorted := FALSE;
  ListaSumados.Sorted := FALSE;
  ListaCamposConRango.Sorted := FALSE;
  ListaRangosDesde.Sorted := FALSE;
  ListaRangosHasta.Sorted := FALSE;
  ListaValoresSustituir.Sorted := FALSE;
  //ListaBDTablasRelacionadasSQL.Sorted := FALSE;
  ListaTablasRelacionadasSQL.Sorted := FALSE;

  ListaTotalesSumados.Sorted := FALSE;
end;

procedure TFormRptConsultaMantenimientos.FormDestroy(Sender: TObject);
Var
  i : Integer;
begin
  For i := 0 To ListaTablasRelacionadasSQL.Count - 1 Do
    If ListaTablasRelacionadasSQL.Strings[ i ] <> '' Then
      ListaTablasRelacionadas[ i ].Close;

  ListaCampos.Free;
  ListaTitulos.Free;
  ListaFormulas.Free;
  ListaFormulasExpresion.Free;
  ListaLongitud.Free;
  ListaAlineacion.Free;
  ListaFormatoCampos.Free;
  ListaSumados.Free;
  ListaCamposConRango.Free;
  ListaRangosDesde.Free;
  ListaRangosHasta.Free;
  ListaValoresSustituir.Free;
  //ListaBDTablasRelacionadasSQL.Free;
  ListaTablasRelacionadasSQL.Free;

  ListaTotalesSumados.Free;

  tContabilidades.Active := FALSE;
  tEmpresasContables.Active := FALSE;
  tLogoClientes.Active := FALSE;
  tEmpresasComercial.Active := FALSE;
  tParamClientes.Active := FALSE;

  //Session.RemoveAllPasswords;
end;

procedure TFormRptConsultaMantenimientos.ppEtiquetaCampoClick(Sender, aDrawCommand: TObject);
begin
  Try
    If tTablaConsulta.IndexFieldNames <> Copy( ( Sender As TppLabel ).Name, 5, Length( ( Sender As TppLabel ).Name ) - 4 ) Then
      Try
        tTablaConsulta.IndexFieldNames := Copy( ( Sender As TppLabel ).Name, 5, Length( ( Sender As TppLabel ).Name ) - 4 );

        //FormPrevisualizacionRts.ppVisualizador.RegenerateReport;
        ppReportConsultaMant.Reset;
      Except
        tTablaConsulta.IndexFieldNames := '';

        Try
          //FormPrevisualizacionRts.ppVisualizador.RegenerateReport;
          ppReportConsultaMant.Reset;
        Except
        End;
      End;
  Except
  End;
end;

Procedure TFormRptConsultaMantenimientos.ActivarConexionesModuloDeDatos( Const tSQLConexionGeneralOrigen, tSQLConexionGestionOrigen, tSQLConexionContabilidadOrigen : tSQLConnection );
Begin
  If tSQLConexionGeneralOrigen <> Nil Then
    Begin
      //FormDMDatosEdiciones.tSQLConexionGeneral := tSQLConexionGeneralOrigen;
      FormRptConsultaMantenimientos.ActivarConexionGeneral;
    End;

  If tSQLConexionGestionOrigen <> Nil Then
    Begin
      //FormDMDatosEdiciones.tSQLConexionGestion := tSQLConexionGestionOrigen;
      FormRptConsultaMantenimientos.ActivarConexionGestion;
    End;

  If tSQLConexionContabilidadOrigen <> Nil Then
    Try
      //FormRptConsultaMantenimientos.tSQLConexionContabilidad := tSQLConexionContabilidadOrigen;
      FormRptConsultaMantenimientos.ActivarConexionContabilidad;
    Except
    End;
End;

Procedure TFormRptConsultaMantenimientos.DesactivarConexionesModuloDeDatos( Const tSQLConexionGeneralOrigen, tSQLConexionGestionOrigen, tSQLConexionContabilidadOrigen : tSQLConnection );
Begin
  If tSQLConexionGeneralOrigen <> Nil Then
    FormRptConsultaMantenimientos.DesactivarConexionGeneral;

  If tSQLConexionGestionOrigen <> Nil Then
    FormRptConsultaMantenimientos.DesactivarConexionGestion;

  If tSQLConexionContabilidadOrigen <> Nil Then
    Try
      FormRptConsultaMantenimientos.DesactivarConexionContabilidad;
    Except
    End;
End;

Procedure TFormRptConsultaMantenimientos.ActivarConexionGeneral;
Begin
  ChDir( setRutaEjecutable );
  tSQLConexionGeneral.ConnectionName := 'General';
  tSQLConexionGeneral.DriverName := setNombreDriverBD;
  tSQLConexionGeneral.LoadParamsFromIniFile( 'Cfgs.Ini' );
  tSQLConexionGeneral.Params.Values[ 'Password' ] := setPassword;
  tSQLConexionGeneral.LibraryName := setNombreLibrariaBD;
  tSQLConexionGeneral.VendorLib := setLibrariaVendedorBD;
  tSQLConexionGeneral.GetDriverFunc := setNombreFuncionBD;
  tSQLConexionGeneral.Connected := TRUE;
End;

Procedure TFormRptConsultaMantenimientos.ActivarConexionGestion;
Begin
  If ( setEmpresaActual <> '' ) Then
    Begin
      ChDir( setRutaEjecutable );
      tSQLConexionGestion.DriverName := setNombreDriverBD;
      tSQLConexionGestion.LoadParamsFromIniFile(  'Cfgs.Ini' );
      tSQLConexionGestion.Params.Values[ 'DataBase' ] := ExtractFileDir( tSQLConexionGeneral.Params.Values[ 'DataBase' ] ) + '\GESTION-' + setEmpresaActual + '.FDB';
      tSQLConexionGestion.Params.Values[ 'Password' ] := setPassword;
      tSQLConexionGestion.LibraryName :=  setNombreLibrariaBD;
      tSQLConexionGestion.VendorLib :=  setLibrariaVendedorBD;
      tSQLConexionGestion.GetDriverFunc := setNombreFuncionBD;
      tSQLConexionGestion.Connected := TRUE;
    End;
End;

Procedure TFormRptConsultaMantenimientos.ActivarConexionContabilidad;
Begin
  If ( setEmpresaContable <> '' ) Then
    Try
      ChDir( setRutaEjecutable );
      tSQLConexionContabilidad.DriverName := setNombreDriverBD;
      tSQLConexionContabilidad.LoadParamsFromIniFile(  'Cfgs.Ini' );
      tSQLConexionContabilidad.Params.Values[ 'DataBase' ] := ExtractFileDir( tSQLConexionGeneral.Params.Values[ 'DataBase' ] ) + '\CONTABILIDAD-' + setEmpresaContable + '.FDB';
      tSQLConexionContabilidad.Params.Values[ 'Password' ] := setPassword;
      tSQLConexionContabilidad.LibraryName :=  setNombreLibrariaBD;
      tSQLConexionContabilidad.VendorLib :=  setLibrariaVendedorBD;
      tSQLConexionContabilidad.GetDriverFunc := setNombreFuncionBD;
      tSQLConexionContabilidad.Connected := TRUE;
    Except
    End;
End;

Procedure TFormRptConsultaMantenimientos.DesactivarConexionGeneral;
Begin
  If tSQLConexionGeneral.Connected Then
    Begin

      tSQLConexionGeneral.Connected := FALSE;
    End;
End;

Procedure TFormRptConsultaMantenimientos.DesactivarConexionGestion;
Begin
  If tSQLConexionGestion.Connected Then
    Begin

      tSQLConexionGestion.Connected := FALSE;
    End;
End;

Procedure TFormRptConsultaMantenimientos.DesactivarConexionContabilidad;
Begin
  If tSQLConexionContabilidad.Connected Then
    Begin

      tSQLConexionContabilidad.Connected := FALSE;
    End;
End;

end.