FactuGES/Informes/InformeEstadoObra.dfm

inherited dmInformeEstadoObra: TdmInformeEstadoObra
  OldCreateOrder = True
  Left = 340
  Top = 218
  Height = 661
  Width = 864
  inherited FReport: TfrxReport
    DataSet = frxTablaObras
    DataSetName = 'frxTablaObras'
    ReportOptions.CreateDate = 38615.816423877320000000
    ReportOptions.LastChange = 38615.816423877320000000
    OnBeforePrint = FReportBeforePrint
    Datasets = <>
    Variables = <>
    Style = <>
  end
  object frxTablaCitas: TfrxDBDataset
    UserName = 'frxTablaCitas'
    CloseDataSource = False
    DataSource = dsCitas
    Left = 184
    Top = 136
  end
  object frxTablaInstaladores: TfrxDBDataset
    UserName = 'frxTablaInstaladores'
    CloseDataSource = False
    DataSource = dsInstaladores
    Left = 184
    Top = 16
  end
  object frxTablaObras: TfrxDBDataset
    UserName = 'frxTablaObras'
    CloseDataSource = False
    DataSource = dsObras
    Left = 184
    Top = 72
  end
  object dsCitas: TDataSource
    DataSet = TablaCitas
    Left = 360
    Top = 200
  end
  object dsInstaladores: TDataSource
    DataSet = TablaObrasInstaladores
    Left = 464
    Top = 200
  end
  object dsObras: TDataSource
    DataSet = TablaObras
    Left = 568
    Top = 200
  end
  object frxReport1: TfrxReport
    Version = '3.15'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 38615.764282858800000000
    ReportOptions.LastChange = 38659.551056307870000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'procedure Page6OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      ''
      'end;'
      ''
      'procedure Memo16OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      ''
      'end;'
      ''
      'procedure MasterData3OnBeforePrint(Sender: TfrxComponent);'
      'begin'
      ''
      'end;'
      ''
      
        'procedure Cross1OnPrintCell(Memo: TfrxMemoView; RowIndex, Column' +
        'Index, CellIndex: Integer; RowValues, ColumnValues, Value: Varia' +
        'nt);'
      'var'
      ' i,j: Integer;'
      'begin'
      '   if RowIndex = 0 then'
      '   begin'
      '      Memo.Color := $00E6E6E6;'
      '      Memo.Font.Style := 2;'
      '   end;'
      ''
      '   i:= Pos('#39'#'#39', Value) + 1;'
      '   j:= Length(Value) + 1;'
      '   Memo.Lines.Clear;'
      '   Memo.Lines.Add(Copy(Value, i, j-i));'
      ''
      '   if Pos('#39'#'#39', Value) = 0 then'
      '      Memo.Color := $00C2F0FF;'
      'end;'
      ''
      'begin'
      ''
      'end.')
    StoreInDFM = False
    Left = 360
    Top = 40
    Datasets = <
      item
        DataSet = frxTablaCitas
        DataSetName = 'frxTablaCitas'
      end
      item
        DataSet = frxTablaInstaladores
        DataSetName = 'frxTablaInstaladores'
      end
      item
        DataSet = frxTablaObras
        DataSetName = 'frxTablaObras'
      end>
    Variables = <>
    Style = <
      item
        Name = 'Style1'
        Color = clRed
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
      end>
  end
  object TablaCitas: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select * from CITAS '
      'WHERE (CODIGOCONTRATO = '#39'VCO05/000008'#39')')
    Left = 360
    Top = 144
  end
  object TablaObrasInstaladores: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select CODIGOCONTRATO, CODIGOINSTALADOR, FECHAALTA, USUARIO,'
      'NOMBRE, DESCRIPCION, PRECIO'
      'from OBRASINSTALADORES'
      'WHERE (CODIGOCONTRATO = '#39'VCO05/000008'#39')')
    Left = 464
    Top = 144
  end
  object TablaObras: TIBQuery
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      
        'select OBR.CODIGOCONTRATO, OBR.FECHAALTA, OBR.USUARIO, OBR.CODIG' +
        'ODOCUMENTO, '
      
        'OBR.FECHAFIN, CON.NOMBRE AS NOMBRE, CON.CALLE || '#39' '#39' || CON.NUME' +
        'RO '
      '|| '#39' '#39' || CON.PISO AS DIR1, '
      
        'CON.CODIGOPOSTAL ||'#39' '#39' || CON.POBLACION || '#39' '#39' || CON.PROVINCIA ' +
        'AS DIR2, '
      'CON.TELEFONO1 AS TELF, OBR.OBSERVACIONES, OBR.ULTIMOCAMBIO '
      'from OBRAS OBR, CONTRATOSCLIENTE CON '
      'where OBR.CODIGOCONTRATO = '#39'VCO05/000008'#39' AND '
      'CON.CODIGO = OBR.CODIGOCONTRATO')
    Left = 568
    Top = 144
  end
end