object ppReport: TppReport
  AutoStop = False
  DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
  NoDataBehaviors = [ndMessageDialog, ndBlankPage]
  PrinterSetup.BinName = 'Default'
  PrinterSetup.DocumentName = 'Report'
  PrinterSetup.Duplex = dpNone
  PrinterSetup.PaperName = 'Letter'
  PrinterSetup.PrinterName = 'Default'
  PrinterSetup.SaveDeviceSettings = False
  PrinterSetup.mmMarginBottom = 6350
  PrinterSetup.mmMarginLeft = 6350
  PrinterSetup.mmMarginRight = 6350
  PrinterSetup.mmMarginTop = 6350
  PrinterSetup.mmPaperHeight = 279401
  PrinterSetup.mmPaperWidth = 215900
  PrinterSetup.PaperSize = 1
  SaveAsTemplate = True
  Template.DatabaseSettings.DataPipeline = plRBItem
  Template.DatabaseSettings.Name = '2015 VER 900. 200 Plantilla acceso usuarios a reportes'
  Template.DatabaseSettings.NameField = 'NAME'
  Template.DatabaseSettings.TemplateField = 'TEMPLATE'
  Template.FileName = 
    'C:\Users\IngMontes\Downloads\2015 VER 900. 200 Plantilla acceso ' +
    'usuarios a reportes.rtm'
  Template.Format = ftASCII
  Units = utScreenPixels
  AllowPrintToFile = True
  ArchiveFileName = '($MyDocuments)\ReportArchive.raf'
  DeviceType = 'Screen'
  DefaultFileDeviceType = 'PDF'
  EmailSettings.ReportFormat = 'PDF'
  LanguageID = 'Spanish (Mexico)'
  OpenFile = False
  OutlineSettings.CreateNode = True
  OutlineSettings.CreatePageNodes = True
  OutlineSettings.Enabled = False
  OutlineSettings.Visible = False
  ThumbnailSettings.Enabled = True
  ThumbnailSettings.Visible = True
  ThumbnailSettings.DeadSpace = 30
  ThumbnailSettings.PageHighlight.Width = 3
  ThumbnailSettings.ThumbnailSize = tsSmall
  PDFSettings.EmbedFontOptions = [efUseSubset]
  PDFSettings.EncryptSettings.AllowCopy = True
  PDFSettings.EncryptSettings.AllowInteract = True
  PDFSettings.EncryptSettings.AllowModify = True
  PDFSettings.EncryptSettings.AllowPrint = True
  PDFSettings.EncryptSettings.AllowExtract = True
  PDFSettings.EncryptSettings.AllowAssemble = True
  PDFSettings.EncryptSettings.AllowQualityPrint = True
  PDFSettings.EncryptSettings.Enabled = False
  PDFSettings.EncryptSettings.KeyLength = kl40Bit
  PDFSettings.EncryptSettings.EncryptionType = etRC4
  PDFSettings.FontEncoding = feAnsi
  PDFSettings.ImageCompressionLevel = 25
  PDFSettings.PDFAFormat = pafNone
  PreviewFormSettings.PageBorder.mmPadding = 0
  RTFSettings.DefaultFont.Charset = DEFAULT_CHARSET
  RTFSettings.DefaultFont.Color = clWindowText
  RTFSettings.DefaultFont.Height = -13
  RTFSettings.DefaultFont.Name = 'Arial'
  RTFSettings.DefaultFont.Style = []
  ShowAutoSearchDialog = True
  TextFileName = '($MyDocuments)\Report.pdf'
  TextSearchSettings.DefaultString = '<FindText>'
  TextSearchSettings.Enabled = False
  XLSSettings.AppName = 'ReportBuilder'
  XLSSettings.Author = 'ReportBuilder'
  XLSSettings.Subject = 'Report'
  XLSSettings.Title = 'Report'
  XLSSettings.WorksheetName = 'Report'
  Left = 4
  Top = 208
  Version = '20.04'
  mmColumnWidth = 0
  DataPipelineName = 'CMC_CONSULTAS'
  object ppTitleBand2: TppTitleBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 30427
    mmPrintPosition = 0
    object ppDBText9: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'DBText1'
      HyperlinkEnabled = False
      AutoSize = True
      Border.mmPadding = 0
      DataField = 'NOMBRE'
      DataPipeline = daFIBQueryDataView422.Datos_Empresa
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 16
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 6879
      mmLeft = 90488
      mmTop = 1058
      mmWidth = 22225
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel9: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'lblTitulo'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      Caption = 'Acceso a usuarios a reportes'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 10040115
      Font.Name = 'Tahoma'
      Font.Size = 24
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 10319
      mmLeft = 41275
      mmTop = 7408
      mmWidth = 120386
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel10: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'lblNombreReporte'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      Caption = 'Nombre del Reporte'
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Name = 'Tahoma'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taCentered
      Transparent = True
      mmHeight = 3439
      mmLeft = 87577
      mmTop = 17463
      mmWidth = 25400
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel14: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'lblFecha_Inicial'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      Caption = 'lblFecha_Inicial'
      Color = clYellow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Draft 17cpi'
      Font.Size = 8
      Font.Style = [fsBold, fsItalic]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 0
      mmTop = 20638
      mmWidth = 23813
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel15: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'lblFecha_Final'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      Caption = 'lblFecha_Final'
      Color = clYellow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Draft 17cpi'
      Font.Size = 8
      Font.Style = []
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Visible = False
      mmHeight = 4233
      mmLeft = 0
      mmTop = 7673
      mmWidth = 20638
      BandType = 1
      LayerName = Foreground1
    end
    object ppMemo1: TppMemo
      DesignLayer = ppDesignLayer2
      UserName = 'CMC_Consulta'
      Border.mmPadding = 0
      Caption = 'CMC_Consulta'
      CharWrap = False
      Color = clYellow
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Draft 17cpi'
      Font.Size = 6
      Font.Style = [fsItalic]
      RemoveEmptyLines = False
      Visible = False
      mmHeight = 2646
      mmLeft = 0
      mmTop = 2646
      mmWidth = 20638
      BandType = 1
      LayerName = Foreground1
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      mmLeading = 0
    end
    object ppMemo2: TppMemo
      DesignLayer = ppDesignLayer2
      UserName = 'memMsg'
      Border.mmPadding = 0
      Caption = 'memMsg'
      CharWrap = False
      Color = clYellow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = []
      Lines.Strings = (
        '1'
        '2')
      RemoveEmptyLines = False
      Visible = False
      mmHeight = 2910
      mmLeft = 0
      mmTop = 0
      mmWidth = 20638
      BandType = 1
      LayerName = Foreground1
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      mmLeading = 0
    end
    object ppMemo6: TppMemo
      DesignLayer = ppDesignLayer2
      UserName = 'memNombreReporte'
      Border.mmPadding = 0
      Caption = 'memNombre_Del_Cliente'
      CharWrap = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 8
      Font.Style = []
      RemoveEmptyLines = False
      Transparent = True
      Visible = False
      mmHeight = 3440
      mmLeft = 148432
      mmTop = 17463
      mmWidth = 15610
      BandType = 1
      LayerName = Foreground1
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      mmLeading = 0
    end
    object ppMemo3: TppMemo
      DesignLayer = ppDesignLayer2
      UserName = 'memTitulo'
      Border.mmPadding = 0
      Caption = 'memTitulo'
      CharWrap = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Arial'
      Font.Size = 8
      Font.Style = [fsBold]
      Lines.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        'A partir de este renglon describes lo que hace el reporte'
        ':'
        ':'
        ':'
        ':')
      RemoveEmptyLines = False
      Transparent = True
      Visible = False
      mmHeight = 3175
      mmLeft = 148432
      mmTop = 7144
      mmWidth = 15610
      BandType = 1
      LayerName = Foreground1
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      mmLeading = 0
    end
    object ppLabel1: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'Label1'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Importe'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 91546
      mmTop = 26194
      mmWidth = 31750
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel2: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'Label2'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Impuestos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 125677
      mmTop = 26194
      mmWidth = 31750
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel3: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'Label3'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Total'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 159015
      mmTop = 26194
      mmWidth = 31750
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel4: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'Label4'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Documentos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 23807
      mmTop = 26194
      mmWidth = 34930
      BandType = 1
      LayerName = Foreground1
    end
    object ppLabel5: TppLabel
      DesignLayer = ppDesignLayer2
      UserName = 'Label5'
      AutoSize = False
      Border.mmPadding = 0
      Caption = 'Estatus'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = [fsBold]
      FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost
      FormFieldSettings.FormFieldType = fftNone
      Transparent = True
      mmHeight = 4233
      mmLeft = 60325
      mmTop = 26194
      mmWidth = 24077
      BandType = 1
      LayerName = Foreground1
    end
  end
  object ppDetailBand1: TppDetailBand
    Background1.Brush.Style = bsClear
    Background2.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 5027
    mmPrintPosition = 0
    object ppSubReport1: TppSubReport
      DesignLayer = ppDesignLayer2
      UserName = 'sbrMarco'
      ExpandAll = False
      NewPrintJob = False
      OutlineSettings.CreateNode = True
      ParentWidth = False
      TraverseAllData = False
      DataPipelineName = 'CMC_Detalle'
      mmHeight = 5027
      mmLeft = 0
      mmTop = 0
      mmWidth = 22754
      BandType = 4
      LayerName = Foreground1
      mmBottomOffset = 0
      mmOverFlowOffset = 0
      mmStopPosition = 0
      mmMinHeight = 0
      object ppChildReport1: TppChildReport
        AutoStop = False
        DataPipeline = daFIBQueryDataView1.CMC_Detalle
        PrinterSetup.BinName = 'Default'
        PrinterSetup.DocumentName = 'Report'
        PrinterSetup.Duplex = dpNone
        PrinterSetup.PaperName = 'Letter'
        PrinterSetup.PrinterName = 'Default'
        PrinterSetup.SaveDeviceSettings = False
        PrinterSetup.mmMarginBottom = 6350
        PrinterSetup.mmMarginLeft = 6350
        PrinterSetup.mmMarginRight = 6350
        PrinterSetup.mmMarginTop = 6350
        PrinterSetup.mmPaperHeight = 279401
        PrinterSetup.mmPaperWidth = 215900
        PrinterSetup.PaperSize = 1
        Template.DatabaseSettings.DataPipeline = plRBItem
        Template.DatabaseSettings.NameField = 'NAME'
        Template.DatabaseSettings.TemplateField = 'TEMPLATE'
        Template.SaveTo = stDatabase
        Template.Format = ftASCII
        Units = utScreenPixels
        Version = '20.04'
        mmColumnWidth = 0
        DataPipelineName = 'CMC_Detalle'
        object ppTitleBand1: TppTitleBand
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object ppDetailBand2: TppDetailBand
          Background1.Brush.Style = bsClear
          Background2.Brush.Style = bsClear
          Border.mmPadding = 0
          PrintHeight = phDynamic
          mmBottomOffset = 0
          mmHeight = 5027
          mmPrintPosition = 0
          object ppShape1: TppShape
            DesignLayer = ppDesignLayer1
            UserName = 'Shape1'
            Brush.Style = bsClear
            ParentWidth = True
            Pen.Color = clAqua
            mmHeight = 5027
            mmLeft = 0
            mmTop = 0
            mmWidth = 203200
            BandType = 4
            LayerName = Foreground
          end
        end
        object ppSummaryBand1: TppSummaryBand
          Background.Brush.Style = bsClear
          Border.mmPadding = 0
          mmBottomOffset = 0
          mmHeight = 0
          mmPrintPosition = 0
        end
        object ppDesignLayers1: TppDesignLayers
          object ppDesignLayer1: TppDesignLayer
            UserName = 'Foreground'
            LayerType = ltBanded
            Index = 0
          end
        end
      end
    end
    object ppDBText2: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtImporte'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      DataField = 'SUM_DOCTOS_VE_1_IMPORTE_N'
      DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
      DisplayFormat = '#,0.00;-#,0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'CMC_CONSULTAS'
      mmHeight = 4233
      mmLeft = 91546
      mmTop = 0
      mmWidth = 31750
      BandType = 4
      LayerName = Foreground1
    end
    object ppDBText3: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtImpuesto'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      DataField = 'SUM_DOCTOS_VE_1_TOTAL_IMP'
      DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
      DisplayFormat = '#,0.00;-#,0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'CMC_CONSULTAS'
      mmHeight = 4233
      mmLeft = 125677
      mmTop = 0
      mmWidth = 31750
      BandType = 4
      LayerName = Foreground1
    end
    object ppDBText4: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtEstatus'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      DataField = 'ESTATUS'
      DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'CMC_CONSULTAS'
      mmHeight = 4233
      mmLeft = 60325
      mmTop = 0
      mmWidth = 24077
      BandType = 4
      LayerName = Foreground1
    end
    object ppVariable1: TppVariable
      DesignLayer = ppDesignLayer2
      UserName = 'varTotal'
      HyperlinkEnabled = False
      AutoSize = False
      Border.mmPadding = 0
      BlankWhenZero = False
      CalcOrder = 0
      DataType = dtDouble
      DisplayFormat = '#,0.00;-#,0.00'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 4233
      mmLeft = 159015
      mmTop = 0
      mmWidth = 31750
      BandType = 4
      LayerName = Foreground1
    end
    object ppDBText5: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtDocumentos'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      DataField = 'COUNT_2'
      DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
      DisplayFormat = '#,0;-#,0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      TextAlignment = taRightJustified
      Transparent = True
      DataPipelineName = 'CMC_CONSULTAS'
      mmHeight = 4233
      mmLeft = 48683
      mmTop = 0
      mmWidth = 10054
      BandType = 4
      LayerName = Foreground1
    end
    object ppDBText1: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtTipoDocumento'
      Border.mmPadding = 0
      DataField = 'TIPO_DOCTO'
      DataPipeline = daFIBQueryDataView423.CMC_CONSULTAS
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Name = 'Tahoma'
      Font.Size = 10
      Font.Style = []
      Transparent = True
      DataPipelineName = 'CMC_CONSULTAS'
      mmHeight = 4233
      mmLeft = 23807
      mmTop = 265
      mmWidth = 23028
      BandType = 4
      LayerName = Foreground1
    end
  end
  object ppSummaryBand2: TppSummaryBand
    Background.Brush.Style = bsClear
    Border.mmPadding = 0
    mmBottomOffset = 0
    mmHeight = 13229
    mmPrintPosition = 0
    object ppSystemVariable1: TppSystemVariable
      DesignLayer = ppDesignLayer2
      UserName = 'SystemVariable1'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      VarType = vtPrintDateTime
      DisplayFormat = 'dddd dd/mmmm/yyyy hh:nn:ss'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Draft 17cpi'
      Font.Size = 8
      Font.Style = [fsBold]
      Transparent = True
      mmHeight = 3440
      mmLeft = 5300
      mmTop = 1323
      mmWidth = 51858
      BandType = 7
      LayerName = Foreground1
    end
    object ppSystemVariable2: TppSystemVariable
      DesignLayer = ppDesignLayer2
      UserName = 'SystemVariable2'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      VarType = vtPageNoDesc
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Draft 17cpi'
      Font.Size = 8
      Font.Style = [fsBold]
      TextAlignment = taRightJustified
      Transparent = True
      mmHeight = 3440
      mmLeft = 181769
      mmTop = 1323
      mmWidth = 11377
      BandType = 7
      LayerName = Foreground1
    end
    object ppSystemVariable3: TppSystemVariable
      DesignLayer = ppDesignLayer2
      UserName = 'svFecha'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      VarType = vtDateTime
      Color = clYellow
      DisplayFormat = 'dd/mmmm/yyyy hh:nn:ss'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Name = 'Tahoma'
      Font.Size = 12
      Font.Style = []
      Visible = False
      mmHeight = 5027
      mmLeft = 5300
      mmTop = 6352
      mmWidth = 56356
      BandType = 7
      LayerName = Foreground1
    end
    object ppDBText17: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'DBText7'
      HyperlinkEnabled = False
      AutoSize = True
      Border.mmPadding = 0
      Color = clWindow
      DataField = 'OTRO_REG2'
      DataPipeline = daFIBQueryDataView422.Datos_Empresa
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clAqua
      Font.Name = 'Tahoma'
      Font.Size = 24
      Font.Style = [fsBold]
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'Datos_Empresa'
      mmHeight = 10202
      mmLeft = 75407
      mmTop = 2910
      mmWidth = 52747
      BandType = 7
      LayerName = Foreground1
    end
    object ppDBText36: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'DBText36'
      HyperlinkEnabled = False
      AutoSize = True
      Border.mmPadding = 0
      DataField = 'USUARIO'
      DataPipeline = daFIBQueryDataView424.CMC_USUARIO
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Name = 'Tahoma'
      Font.Size = 8
      Font.Style = [fsBold]
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'CMC_USUARIO'
      mmHeight = 3429
      mmLeft = 91017
      mmTop = 1323
      mmWidth = 21167
      BandType = 7
      LayerName = Foreground1
    end
    object ppDBText37: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'DBText2'
      HyperlinkEnabled = False
      Border.mmPadding = 0
      DataField = 'VERSION_FIREBIRD'
      DataPipeline = daFIBQueryDataView424.CMC_USUARIO
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Name = 'Tahoma'
      Font.Size = 7
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'CMC_USUARIO'
      mmHeight = 2963
      mmLeft = 91017
      mmTop = 4498
      mmWidth = 21167
      BandType = 7
      LayerName = Foreground1
    end
    object ppDBText59: TppDBText
      DesignLayer = ppDesignLayer2
      UserName = 'dbtMSPmodulo'
      HyperlinkEnabled = False
      AutoSize = True
      Border.mmPadding = 0
      DataField = 'MSP_MODULO'
      DataPipeline = daFIBQueryDataView424.CMC_USUARIO
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Name = 'Tahoma'
      Font.Size = 7
      Font.Style = []
      ParentDataPipeline = False
      TextAlignment = taCentered
      Transparent = True
      DataPipelineName = 'CMC_USUARIO'
      mmHeight = 2910
      mmLeft = 91017
      mmTop = 6615
      mmWidth = 21167
      BandType = 7
      LayerName = Foreground1
    end
  end
  object daDataModule163: TdaDataModule
    object daFIBQueryDataView422: TdaFIBQueryDataView
      UserName = 'Query_Datos_Empresa15'
      Height = 145
      Left = 10
      NameColumnWidth = 107
      SizeColumnWidth = 58
      SortMode = 0
      Top = 11
      TypeColumnWidth = 52
      Width = 298
      AutoSearchTabOrder = 0
      object Datos_Empresa: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'Datos_Empresa'
        object ppField1: TppField
          FieldAlias = 'NOMBRE'
          FieldName = 'NOMBRE'
          FieldLength = 10
          DisplayWidth = 10
          Position = 0
        end
        object ppField2: TppField
          FieldAlias = 'OTRO_REG2'
          FieldName = 'OTRO_REG2'
          FieldLength = 10
          DisplayWidth = 10
          Position = 1
        end
      end
      object daSQL2: TdaSQL
        CollationType = ctASCII
        DatabaseName = 'dtbsMicrosip'
        DatabaseType = dtInterBase
        DataPipelineName = 'Datos_Empresa'
        EditSQLAsText = True
        IsCaseSensitive = True
        LinkColor = clBlack
        LinkType = ltParameterizedSQL
        MaxSQLFieldAliasLength = 0
        SQLText.Strings = (
          'Select '
          '             NOMBRE,'
          '             OTRO_REG2'
          ''
          'From Datos_Empresa')
        SQLType = sqSQL2
        object daField1: TdaField
          Alias = 'NOMBRE'
          DisplayWidth = 10
          FieldAlias = 'NOMBRE'
          FieldLength = 10
          FieldName = 'NOMBRE'
          SQLFieldName = 'NOMBRE'
        end
        object daField2: TdaField
          Alias = 'OTRO_REG2'
          DisplayWidth = 10
          FieldAlias = 'OTRO_REG2'
          FieldLength = 10
          FieldName = 'OTRO_REG2'
          SQLFieldName = 'OTRO_REG2'
        end
      end
    end
    object daFIBQueryDataView423: TdaFIBQueryDataView
      UserName = 'Query_CMC_CONSULTAS'
      Height = 188
      Left = 347
      NameColumnWidth = 138
      SizeColumnWidth = 66
      SortMode = 0
      Top = 10
      TypeColumnWidth = 52
      Width = 337
      AutoSearchTabOrder = 0
      object CMC_CONSULTAS: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'CMC_CONSULTAS'
        object ppField1: TppField
          FieldAlias = 'Tipo de documento'
          FieldName = 'TIPO_DOCTO'
          FieldLength = 10
          DisplayWidth = 10
          Position = 0
          TableName = 'DOCTOS_VE_1'
        end
        object ppField2: TppField
          FieldAlias = 'Estatus'
          FieldName = 'ESTATUS'
          FieldLength = 10
          DisplayWidth = 10
          Position = 1
          TableName = 'DOCTOS_VE_1'
        end
        object ppField3: TppField
          FieldAlias = 'Documentos'
          FieldName = 'COUNT_2'
          FieldLength = 10
          DataType = dtLargeInt
          DisplayWidth = 10
          Position = 2
          TableName = 'DOCTOS_VE_1'
        end
        object ppField4: TppField
          FieldAlias = 'Importe Neto'
          FieldName = 'SUM_DOCTOS_VE_1_IMPORTE_N'
          FieldLength = 10
          DataType = dtDouble
          DisplayWidth = 10
          Position = 3
          TableName = 'DOCTOS_VE_1'
        end
        object ppField5: TppField
          FieldAlias = 'Impuestos'
          FieldName = 'SUM_DOCTOS_VE_1_TOTAL_IMP'
          FieldLength = 10
          DataType = dtDouble
          DisplayWidth = 10
          Position = 4
          TableName = 'DOCTOS_VE_1'
        end
      end
      object daSQL4: TdaSQL
        CollationType = ctASCII
        DatabaseName = 'dtbsMicrosip'
        DatabaseType = dtInterBase
        DataPipelineName = 'CMC_CONSULTAS'
        IsCaseSensitive = True
        GroupByFieldsSynced = True
        LinkColor = clGreen
        LinkType = ltMagicSQL
        MaxSQLFieldAliasLength = 25
        SQLText.Strings = (
          'SELECT DOCTOS_VE_1.TIPO_DOCTO, '
          '       DOCTOS_VE_1.ESTATUS, COUNT(*) COUNT_2, '
          '       SUM(DOCTOS_VE_1.IMPORTE_NETO) SUM_DOCTOS_VE_1_IMPORTE_N, '
          
            '       SUM(DOCTOS_VE_1.TOTAL_IMPUESTOS) SUM_DOCTOS_VE_1_TOTAL_IM' +
            'P'
          'FROM DOCTOS_VE DOCTOS_VE_1'
          'WHERE ( DOCTOS_VE_1.FECHA >= '#39'06/01/2023'#39' )'
          '       AND ( DOCTOS_VE_1.FECHA <= 31/06/2023 )'
          'GROUP BY DOCTOS_VE_1.TIPO_DOCTO, '
          '         DOCTOS_VE_1.ESTATUS')
        SQLType = sqSQL2
        object daCalculation1: TdaCalculation
          ChildType = 8
          Alias = 'Documentos'
          DataType = dtLargeInt
          DisplayWidth = 10
          FieldAlias = 'Importe Neto'
          FieldLength = 10
          FieldName = 'IMPORTE_NETO'
          SQLFieldName = 'COUNT_2'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
          CalcType = dacaCount
        end
        object daCalculation2: TdaCalculation
          ChildType = 8
          Alias = 'Importe Neto'
          DataType = dtDouble
          DisplayWidth = 10
          FieldAlias = 'Importe Neto'
          FieldLength = 10
          FieldName = 'IMPORTE_NETO'
          SQLFieldName = 'SUM_DOCTOS_VE_1_IMPORTE_N'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
          CalcType = dacaSum
        end
        object daCalculation3: TdaCalculation
          ChildType = 8
          Alias = 'Impuestos'
          DataType = dtDouble
          DisplayWidth = 10
          FieldAlias = 'Total de impuestos'
          FieldLength = 10
          FieldName = 'TOTAL_IMPUESTOS'
          SQLFieldName = 'SUM_DOCTOS_VE_1_TOTAL_IMP'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
          CalcType = dacaSum
        end
        object daCriteria1: TdaCriteria
          ChildType = 7
          Level = 0
          Operator = dacoGreaterThanOrEqualTo
          Value = '01/06/2023'
          object TdaField
            Alias = 'Fecha'
            AutoSearch = True
            DataType = dtDate
            DisplayWidth = 10
            FieldAlias = 'Fecha'
            FieldLength = 10
            FieldName = 'FECHA'
            SQLFieldName = 'FECHA'
            TableAlias = 'DocumentosVentas'
            TableName = 'DOCTOS_VE'
            TableSQLAlias = 'DOCTOS_VE_1'
          end
          object TdaNumericValue
            Value = 45078.000000000000000000
          end
        end
        object daCriteria2: TdaCriteria
          ChildType = 7
          Level = 0
          Operator = dacoLessThanOrEqualTo
          Value = '30/06/2023'
          object TdaField
            Alias = 'Fecha'
            AutoSearch = True
            DataType = dtDate
            DisplayWidth = 10
            FieldAlias = 'Fecha'
            FieldLength = 10
            FieldName = 'FECHA'
            SQLFieldName = 'FECHA'
            TableAlias = 'DocumentosVentas'
            TableName = 'DOCTOS_VE'
            TableSQLAlias = 'DOCTOS_VE_1'
          end
          object TdaNumericValue
            Value = 45107.000000000000000000
          end
        end
        object daField1: TdaField
          Alias = 'Tipo de documento'
          DisplayWidth = 10
          FieldAlias = 'Tipo de documento'
          FieldLength = 10
          FieldName = 'TIPO_DOCTO'
          SQLFieldName = 'TIPO_DOCTO'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
        end
        object daField2: TdaField
          Alias = 'Estatus'
          DisplayWidth = 10
          FieldAlias = 'Estatus'
          FieldLength = 10
          FieldName = 'ESTATUS'
          SQLFieldName = 'ESTATUS'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
        end
        object daField3: TdaField
          ChildType = 1
          Alias = 'Tipo de documento'
          DisplayWidth = 10
          FieldAlias = 'Tipo de documento'
          FieldLength = 10
          FieldName = 'TIPO_DOCTO'
          SQLFieldName = 'TIPO_DOCTO'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
        end
        object daField4: TdaField
          ChildType = 1
          Alias = 'Estatus'
          DisplayWidth = 10
          FieldAlias = 'Estatus'
          FieldLength = 10
          FieldName = 'ESTATUS'
          SQLFieldName = 'ESTATUS'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
          TableSQLAlias = 'DOCTOS_VE_1'
        end
        object daTable1: TdaTable
          ChildType = 5
          Alias = 'DocumentosVentas'
          JoinType = dajtNone
          SQLAlias = 'DOCTOS_VE_1'
          TableAlias = 'DocumentosVentas'
          TableName = 'DOCTOS_VE'
        end
      end
    end
    object daFIBQueryDataView424: TdaFIBQueryDataView
      UserName = 'Query_CMC_USUARIO14'
      Height = 230
      Left = 10
      NameColumnWidth = 126
      SizeColumnWidth = 55
      SortMode = 0
      Top = 200
      TypeColumnWidth = 52
      Width = 298
      AutoSearchTabOrder = 0
      object CMC_USUARIO: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'CMC_USUARIO'
        object ppField1: TppField
          FieldAlias = 'USUARIO'
          FieldName = 'USUARIO'
          FieldLength = 10
          DisplayWidth = 10
          Position = 0
        end
        object ppField2: TppField
          FieldAlias = 'VERSION_FIREBIRD'
          FieldName = 'VERSION_FIREBIRD'
          FieldLength = 10
          DisplayWidth = 10
          Position = 1
        end
        object ppField3: TppField
          FieldAlias = 'ROL'
          FieldName = 'ROL'
          FieldLength = 10
          DisplayWidth = 10
          Position = 2
        end
        object ppField4: TppField
          FieldAlias = 'DIRECCION_IP'
          FieldName = 'DIRECCION_IP'
          FieldLength = 10
          DisplayWidth = 10
          Position = 3
        end
        object ppField5: TppField
          FieldAlias = 'BASE_DATOS'
          FieldName = 'BASE_DATOS'
          FieldLength = 10
          DisplayWidth = 10
          Position = 4
        end
        object ppField6: TppField
          FieldAlias = 'STATE'
          FieldName = 'STATE'
          FieldLength = 10
          DataType = dtInteger
          DisplayWidth = 10
          Position = 5
        end
        object ppField7: TppField
          FieldAlias = 'MSP_MODULO'
          FieldName = 'MSP_MODULO'
          FieldLength = 10
          DisplayWidth = 10
          Position = 6
        end
        object ppField8: TppField
          FieldAlias = 'REPORTE_ID'
          FieldName = 'REPORTE_ID'
          FieldLength = 10
          DisplayWidth = 10
          Position = 7
        end
      end
      object daSQL11: TdaSQL
        CollationType = ctASCII
        DatabaseName = 'dtbsMicrosip'
        DatabaseType = dtInterBase
        DataPipelineName = 'CMC_USUARIO'
        EditSQLAsText = True
        IsCaseSensitive = True
        LinkColor = clBlack
        LinkType = ltParameterizedSQL
        MaxSQLFieldAliasLength = 0
        SQLText.Strings = (
          'SELECT'
          '          RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'CURRENT_USER'#39'  )  USUARIO,'
          
            '          RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'ENGINE_VERSION'#39')  VERSION_F' +
            'IREBIRD,'
          '          RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'CURRENT_ROLE'#39'  )  ROL,'
          
            '          RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'CLIENT_ADDRESS'#39')  DIRECCION' +
            '_IP,'
          
            '          RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'DB_NAME'#39'       )  BASE_DATO' +
            'S,'
          '          MON$STATE                                    STATE,'
          
            '          MON$REMOTE_PROCESS                        AS MSP_MODUL' +
            'O,'
          
            '          '#39'10105'#39'                                   AS REPORTE_I' +
            'D'
          'FROM      RDB$DATABASE'
          'LEFT JOIN MON$ATTACHMENTS ON 1 = 1'
          'WHERE     MON$STATE = 1')
        SQLType = sqSQL2
        object daField1: TdaField
          Alias = 'USUARIO'
          DisplayWidth = 10
          FieldAlias = 'USUARIO'
          FieldLength = 10
          FieldName = 'USUARIO'
          SQLFieldName = 'USUARIO'
        end
        object daField2: TdaField
          Alias = 'VERSION_FIREBIRD'
          DisplayWidth = 10
          FieldAlias = 'VERSION_FIREBIRD'
          FieldLength = 10
          FieldName = 'VERSION_FIREBIRD'
          SQLFieldName = 'VERSION_FIREBIRD'
        end
        object daField3: TdaField
          Alias = 'ROL'
          DisplayWidth = 10
          FieldAlias = 'ROL'
          FieldLength = 10
          FieldName = 'ROL'
          SQLFieldName = 'ROL'
        end
        object daField4: TdaField
          Alias = 'DIRECCION_IP'
          DisplayWidth = 10
          FieldAlias = 'DIRECCION_IP'
          FieldLength = 10
          FieldName = 'DIRECCION_IP'
          SQLFieldName = 'DIRECCION_IP'
        end
        object daField5: TdaField
          Alias = 'BASE_DATOS'
          DisplayWidth = 10
          FieldAlias = 'BASE_DATOS'
          FieldLength = 10
          FieldName = 'BASE_DATOS'
          SQLFieldName = 'BASE_DATOS'
        end
        object daField6: TdaField
          Alias = 'STATE'
          DataType = dtInteger
          DisplayWidth = 10
          FieldAlias = 'STATE'
          FieldLength = 10
          FieldName = 'STATE'
          SQLFieldName = 'STATE'
        end
        object daField7: TdaField
          Alias = 'MSP_MODULO'
          DisplayWidth = 10
          FieldAlias = 'MSP_MODULO'
          FieldLength = 10
          FieldName = 'MSP_MODULO'
          SQLFieldName = 'MSP_MODULO'
        end
        object daField8: TdaField
          Alias = 'REPORTE_ID'
          DisplayWidth = 10
          FieldAlias = 'REPORTE_ID'
          FieldLength = 10
          FieldName = 'REPORTE_ID'
          SQLFieldName = 'REPORTE_ID'
        end
      end
    end
    object daFIBQueryDataView1: TdaFIBQueryDataView
      UserName = 'Query_'
      Height = 114
      Left = 10
      NameColumnWidth = 105
      SizeColumnWidth = 53
      SortMode = 0
      Top = 448
      TypeColumnWidth = 52
      Width = 298
      AutoSearchTabOrder = 0
      object CMC_Detalle: TppChildDBPipeline
        AutoCreateFields = False
        UserName = 'CMC_Detalle'
        object ppField1: TppField
          FieldAlias = 'DETALLE'
          FieldName = 'DETALLE'
          FieldLength = 10
          DisplayWidth = 10
          Position = 0
        end
      end
      object daSQL5: TdaSQL
        CollationType = ctASCII
        DatabaseName = 'dtbsMicrosip'
        DatabaseType = dtInterBase
        DataPipelineName = 'CMC_Detalle'
        EditSQLAsText = True
        IsCaseSensitive = True
        LinkColor = clBlack
        LinkType = ltParameterizedSQL
        MaxSQLFieldAliasLength = 0
        SQLText.Strings = (
          
            'SELECT RDB$GET_CONTEXT('#39'SYSTEM'#39', '#39'CURRENT_USER'#39') DETALLE FROM RD' +
            'B$DATABASE')
        SQLType = sqSQL2
        object daField1: TdaField
          Alias = 'DETALLE'
          DisplayWidth = 10
          FieldAlias = 'DETALLE'
          FieldLength = 10
          FieldName = 'DETALLE'
          SQLFieldName = 'DETALLE'
        end
      end
    end
  end
  object raCodeModule1: TraCodeModule
    object raProgramInfo1: TraProgramInfo
      raClassName = 'TraVarProgram'
      raProgram.ChildType = 17
      raProgram.ProgramName = 'Variables'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure Variables;'#13#10'var'#13#10'{'#13#10'   Ing. Carlos Montes Cort'#233's'#13#10'   I' +
        'ng. Sistemas Computacionales'#13#10'   Cel. 871 184 43 29'#13#10'   carlosmo' +
        'ntesc@hotmail.com'#13#10'}'#13#10'       CMC_AUT_USER_LIST  : String  ;'#13#10'   ' +
        '    CMC_AUT_USER       ,'#13#10'       CMC_AUT_USER_TODOS : Boolean ;'#13 +
        #10'       '#13#10'       FColors           ,'#13#10'       FColorVenta       :' +
        ' TList ;'#13#10'       FBrush            : TBrushStyle ;'#13#10'       '#13#10'   ' +
        '    lFacturaContado   ,'#13#10'       lFacturaCancelada : Boolean ;'#13#10' ' +
        '      '#13#10#13#10#13#10#13#10#13#10#13#10'begin'#13#10#13#10'end;'#13#10
      raProgram.CaretPos = (
        14
        14)
    end
    object raProgramInfo2: TraProgramInfo
      raClassName = 'TraProgram'
      raProgram.ChildType = 19
      raProgram.ProgramName = 'GlobalOnCreate'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure GlobalOnCreate;'#13#10#13#10'begin'#13#10'  FColors := TList.Create;'#13#10 +
        '  FColors.Add( TObject( clYellow ) ) ;'#13#10'  FColors.Add( TObject( ' +
        'clRed    ) ) ;'#13#10'  FColors.Add( TObject( clLime   ) ) ;'#13#10'  FColor' +
        's.Add( TObject( clAqua   ) ) ;'#13#10'  FColors.Add( TObject( clRed   ' +
        ' ) ) ;'#13#10'  FColors.Add( TObject( clSilver ) ) ;'#13#10'  FColors.Add( T' +
        'Object( clYellow ) ) ;'#13#10'  FColors.Add( TObject( clRed    ) ) ;'#13#10 +
        '  FColors.Add( TObject( clGray   ) ) ;'#13#10'  FColors.Add( TObject( ' +
        'clGreen  ) ) ;'#13#10'  FColors.Add( TObject( clOlive  ) ) ;'#13#10'  FColor' +
        's.Add( TObject( clGray   ) ) ;'#13#10'  FColors.Add( TObject( clSilver' +
        ' ) ) ;'#13#10'  FColors.Add( TObject( clMaroon ) ) ;'#13#10'  FColors.Add( T' +
        'Object( clSilver ) ) ;'#13#10'  FColors.Add( TObject( clAqua   ) ) ;'#13#10 +
        '  FColors.Add( TObject( clRed    ) ) ;'#13#10'  FColors.Add( TObject( ' +
        'clSilver ) ) ;'#13#10'  FColors.Add( TObject( clAqua   ) ) ;'#13#10'  FColor' +
        's.Add( TObject( clMaroon ) ) ;'#13#10'  FColors.Add( TObject( clGray  ' +
        ' ) ) ;'#13#10'  FColors.Add( TObject( clBlue   ) ) ;'#13#10'  FColors.Add( T' +
        'Object( clYellow ) ) ;'#13#10'  FColors.Add( TObject( clRed    ) ) ;'#13#10 +
        '  FColors.Add( TObject( clSilver ) ) ;'#13#10'  FColors.Add( TObject( ' +
        'clMaroon ) ) ;'#13#10'  FColors.Add( TObject( clYellow ) ) ;'#13#10'  FColor' +
        's.Add( TObject( clSilver ) ) ;'#13#10'  '#13#10'  FColorVenta := TList.Creat' +
        'e;'#13#10'  FColorVenta.Add( TObject( clGreen  ));   { Ventas >  20,00' +
        '0 }'#13#10'  FColorVenta.Add( TObject( clYellow ));   { Ventas >= 10,0' +
        '00 y <= 19,999.99 }'#13#10'  FColorVenta.Add( TObject( clAqua   ));   ' +
        '{ Ventas >=  5,000 y <=  9,999.99 }'#13#10'  FColorVenta.Add( TObject(' +
        ' clRed    ));   { Ventas >=      0 y <=  4,999.99 }'#13#10'end;'#13#10
      raProgram.CaretPos = (
        1
        4)
    end
    object raProgramInfo3: TraProgramInfo
      raClassName = 'TraProgram'
      raProgram.ChildType = 20
      raProgram.ProgramName = 'GlobalOnDestroy'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure GlobalOnDestroy;'#13#10'begin'#13#10'  memNombreReporte.Free ;  me' +
        'mNombreReporte := nil ;'#13#10'           FColors.Free ;           FCo' +
        'lors := nil ;'#13#10'       FColorVenta.Free ;       FColorVenta := ni' +
        'l ;'#13#10'end;'#13#10
      raProgram.CaretPos = (
        1
        6)
    end
    object raProgramInfo4: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lblFecha_InicialOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lblFecha_InicialOnGetText(var Text: String);'#13#10'begin'#13#10#13 +
        #10'Text := '#39'Per'#237'odo del '#39' + Text + '#39' al '#39' + lblFecha_final.Caption' +
        ' ;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'lblFecha_Inicial'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo5: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportOnStartPage'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportOnStartPage;'#13#10'var'#13#10'   nPos : Integer ;'#13#10#13#10'begin'#13 +
        #10'   Report.GetAutoSearchDescriptionLines( CMC_Consulta.Lines ) ;' +
        #13#10#13#10'                   nPos := Pos( '#39'/'#39', CMC_Consulta.Lines[ 0 ]' +
        ' ) ;'#13#10'   lblFecha_inicial.Caption := copy( CMC_Consulta.Lines[ 0' +
        ' ], nPos-2, 10 ) ;'#13#10#13#10'                 nPos := Pos( '#39'/'#39', CMC_Con' +
        'sulta.Lines[ 1 ] ) ;'#13#10'   lblFecha_final.Caption := copy( CMC_Con' +
        'sulta.Lines[ 1 ], nPos-2, 10 ) ;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'OnStartPage'
      raProgram.EventID = 21
      raProgram.CaretPos = (
        3
        6)
    end
    object raProgramInfo6: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'dbtEstatusOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure dbtEstatusOnGetText(var Text: String);'#13#10'begin'#13#10#13#10'  if ' +
        'Text = '#39'C'#39' then Text := '#39'Canceladas'#39' ;'#13#10'  if Text = '#39'D'#39' then Tex' +
        't := '#39'Devueltas'#39'  ;'#13#10'  if Text = '#39'F'#39' then Text := '#39'Facturadas'#39' ;' +
        #13#10'  if Text = '#39'N'#39' then Text := '#39'Normales'#39'   ;'#13#10'  if Text = '#39'P'#39' t' +
        'hen Text := '#39'Pendientes'#39' ;'#13#10'  if Text = '#39'S'#39' then Text := '#39'Surtid' +
        'as'#39'   ;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'dbtEstatus'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        1
        10)
    end
    object raProgramInfo7: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'varTotalOnCalc'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure varTotalOnCalc(var Value: Variant);'#13#10'var'#13#10'    Suma : D' +
        'ouble ;'#13#10'begin'#13#10'  Suma  := dbtImporte.FieldValue +  dbtImpuesto.' +
        'FieldValue ;'#13#10'  Value := Suma ;'#13#10'end;'#13#10
      raProgram.ComponentName = 'varTotal'
      raProgram.EventName = 'OnCalc'
      raProgram.EventID = 33
      raProgram.CaretPos = (
        3
        5)
    end
    object raProgramInfo8: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'DetailBeforePrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure DetailBeforePrint;'#13#10'var'#13#10'   Color_O ,'#13#10'   Color_X : In' +
        'teger ;'#13#10#13#10'begin'#13#10'              Color_O := clBlue  ;'#13#10'  varTotal' +
        '.Font.Color := Color_O ;'#13#10'  '#13#10'  if CMC_CONSULTAS['#39'Estatus'#39'] = '#39'C' +
        #39' then Color_X := clRed     ;'#13#10'  if CMC_CONSULTAS['#39'Estatus'#39'] = '#39 +
        'D'#39' then Color_X := 6723891   ;'#13#10'  if CMC_CONSULTAS['#39'Estatus'#39'] = ' +
        #39'F'#39' then Color_X := clGreen   ;'#13#10'  if CMC_CONSULTAS['#39'Estatus'#39'] =' +
        ' '#39'N'#39' then Color_X := Color_O   ;'#13#10'  if CMC_CONSULTAS['#39'Estatus'#39'] ' +
        '= '#39'P'#39' then Color_X := 13421619  ;'#13#10'  if CMC_CONSULTAS['#39'Estatus'#39']' +
        ' = '#39'S'#39' then Color_X := clFuchsia ;'#13#10'               '#13#10'  dbtDocume' +
        'ntos.Font.Color := Color_X ;'#13#10'     dbtEstatus.Font.Color := Colo' +
        'r_X ;'#13#10'     dbtImporte.Font.Color := Color_X ;'#13#10'    dbtImpuesto.' +
        'Font.Color := Color_X ;'#13#10'       varTotal.Font.Color := Color_X ;' +
        #13#10'               '#13#10'end;'#13#10
      raProgram.ComponentName = 'Detail'
      raProgram.EventName = 'BeforePrint'
      raProgram.EventID = 24
      raProgram.CaretPos = (
        53
        23)
    end
    object raProgramInfo10: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lblNombreReporteOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lblNombreReporteOnGetText(var Text: String);'#13#10'begin'#13#10#13 +
        #10'  Text := Report.Template.DatabaseSettings.Name ;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'lblNombreReporte'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo12: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportOnCancel'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportOnCancel;'#13#10'begin'#13#10'   ShowMessage( '#39'*****  CANCEL' +
        'ADO  por: ['#39' + GetUsuarioMicrosip + '#39']  *****'#39');'#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'OnCancel'
      raProgram.EventID = 2
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo13: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportBeforeOpenDataPipelines'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportBeforeOpenDataPipelines;'#13#10'begin'#13#10'  CMC_AUT_USER_' +
        'TODOS := False  ;    { True = Todos, False = Solo lista de usuar' +
        'ios CMC_AUT_USER_LIST }'#13#10'  CMC_AUT_USER_LIST  := '#39'U_INGMONTES'#39'  ' +
        ' + '#39'**'#39#13#10'                      + '#39'U_FACTURACION'#39' + '#39'**'#39#13#10'       ' +
        '               + '#39'SYSDBA'#39'        + '#39'**'#39#13#10'                      ;' +
        #13#10'end;'#13#10#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'BeforeOpenDataPipelines'
      raProgram.EventID = 134
      raProgram.CaretPos = (
        30
        3)
    end
    object raProgramInfo14: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportBeforePrint'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportBeforePrint;'#13#10'var'#13#10'   Msg : String ;'#13#10#13#10'begin'#13#10#13 +
        #10'  memMsg.Lines[ 0 ] := Datos_Empresa['#39'NOMBRE'#39'] ;'#13#10'  memMsg.Line' +
        's.Add( '#39'--'#39' );'#13#10'  '#13#10'  CMC_AUT_USER := ( Pos( GetUsuarioMicrosip ' +
        '+ '#39'**'#39', CMC_AUT_USER_LIST ) = 0 ) ;'#13#10'  Msg := '#39'       *****  USU' +
        'ARIO NO AUTORIZADO  *****        '#39' + chr(13) +'#13#10'         '#39'      ' +
        '           para ver este Reporte            '#39' + chr(13) +'#13#10'     ' +
        '    '#39'Solicitar autorizaci'#243'n al Departamento de Sistemas'#39' ;'#13#10#13#10'//' +
        ' Poner en False la secci'#243'n que no se requiere mostra, seg'#250'n las ' +
        'secciones que tenga el reprote'#13#10'  if CMC_AUT_USER  and  not CMC_' +
        'AUT_USER_TODOS  then begin'#13#10'             Title.Visible := False ' +
        ';           // Ocultar'#13#10'          { Header.Visible := False ; }'#13 +
        #10'{ GroupHeaderBand1.Visible := False ; }'#13#10'{ GroupFooterBand1.Vis' +
        'ible := False ; }'#13#10'{ GroupHeaderBand2.Visible := False ; }'#13#10'{ Gr' +
        'oupFooterBand2.Visible := False ; }'#13#10'            Detail.Visible ' +
        ':= False ;           // Ocultar'#13#10'          { Footer.Visible := F' +
        'alse ; }'#13#10'           Summary.Visible := False ;           // Ocu' +
        'ltar'#13#10'         ShowMessage( Msg ) ;                  '#13#10'  end ;'#13#10 +
        #13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'BeforePrint'
      raProgram.EventID = 1
      raProgram.CaretPos = (
        72
        27)
    end
    object raProgramInfo15: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportOnNoData'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportOnNoData(aDialog: TObject; var aShowDialog: Bool' +
        'ean; aDrawCommand: TObject; var aAddDrawCommand: Boolean; aBlank' +
        'Page: Boolean);'#13#10'begin'#13#10#13#10'  ShowMessage( '#39'*****  NO HAY DATOS  *' +
        '****'#39');'#13#10'  {'#13#10'  aShowDialog :='#13#10'  aAddDrawCommand :='#13#10'  }'#13#10'end;'#13 +
        #10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'OnNoData'
      raProgram.EventID = 87
      raProgram.CaretPos = (
        3
        3)
    end
    object raProgramInfo17: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lblNombreReporteOnDrawCommandClick'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lblNombreReporteOnDrawCommandClick(aDrawCommand: TObje' +
        'ct);'#13#10'Begin'#13#10'  ShowMessage( memNombreReporte.Text );'#13#10'end;'#13#10
      raProgram.ComponentName = 'lblNombreReporte'
      raProgram.EventName = 'OnDrawCommandClick'
      raProgram.EventID = 85
      raProgram.CaretPos = (
        1
        3)
    end
    object raProgramInfo18: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'lblTituloOnDrawCommandClick'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure lblTituloOnDrawCommandClick(aDrawCommand: TObject);'#13#10'b' +
        'egin'#13#10'  ShowMessage( memTitulo.Text );'#13#10'end;'#13#10
      raProgram.ComponentName = 'lblTitulo'
      raProgram.EventName = 'OnDrawCommandClick'
      raProgram.EventID = 85
      raProgram.CaretPos = (
        98
        4)
    end
    object raProgramInfo19: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'ReportAfterOpenDataPipelines'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure ReportAfterOpenDataPipelines;'#13#10'var'#13#10'  cTitulo     ,'#13#10' ' +
        ' cReporte_id ,'#13#10'  cReporteNom ,'#13#10'  cLinea      : String  ;'#13#10'  St' +
        'r         , '#13#10'  PaddingChar : String  ;'#13#10'  TotalWidth  : Integer' +
        ' ; '#13#10'  '#13#10'begin'#13#10'           cTitulo     := lblTitulo.Caption ;'#13#10' ' +
        '          cReporte_id := '#39'Reporte_id: '#39' + CMC_USUARIO['#39'REPORTE_I' +
        'D'#39'] ;'#13#10'           cReporteNom := Report.Template.DatabaseSetting' +
        's.Name ;'#13#10#13#10'           Str         := '#39#39' ; '#13#10'           TotalWid' +
        'th  := Length( cReporteNom ) ; '#13#10'           PaddingChar := '#39'-'#39'  ' +
        ';'#13#10'           '#13#10'           cLinea      := PadLeft(Str, TotalWidt' +
        'h, PaddingChar) ;'#13#10'  '#13#10'  memTitulo.Lines[ 0 ] := cTitulo     ;  ' +
        #13#10'  memTitulo.Lines[ 1 ] := cLinea      ; '#13#10'  memTitulo.Lines[ 2' +
        ' ] := cReporte_id ;  '#13#10'  memTitulo.Lines[ 3 ] := cReporteNom ;  ' +
        #13#10'  memTitulo.Lines[ 4 ] := cLinea      ; '#13#10#13#10'  memNombreReporte' +
        '.Lines.Add( cReporte_id ) ;'#13#10'  memNombreReporte.Lines.Add( cRepo' +
        'rteNom ) ;       '#13#10'end;'#13#10
      raProgram.ComponentName = 'Report'
      raProgram.EventName = 'AfterOpenDataPipelines'
      raProgram.EventID = 135
      raProgram.CaretPos = (
        64
        28)
    end
    object raProgramInfo9: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'dbtMSPmoduloOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure dbtMSPmoduloOnGetText(var Text: String);'#13#10'var'#13#10'    nLe' +
        'n : Integer ;'#13#10#13#10'begin'#13#10#13#10'  nLen := Length( TrimRight( Text ) ) ' +
        '- 4 - 23 ;  { -4 = .exe || -23 = pos \ }'#13#10'  Text :=   Copy( Text' +
        ', 24, nLen ) ;'#13#10#13#10'end;'#13#10
      raProgram.ComponentName = 'dbtMSPmodulo'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        5
        10)
    end
    object raProgramInfo11: TraProgramInfo
      raClassName = 'TraEventHandler'
      raProgram.ProgramName = 'dbtTipoDocumentoOnGetText'
      raProgram.ProgramType = ttProcedure
      raProgram.Source = 
        'procedure dbtTipoDocumentoOnGetText(var Text: String);'#13#10'begin'#13#10#13 +
        #10'  if Text = '#39'D'#39' then Text := '#39'Devoluciones'#39' ;'#13#10'  if Text = '#39'F'#39' ' +
        'then Text := '#39'Facturas'#39'     ;'#13#10'  if Text = '#39'R'#39' then Text := '#39'Rem' +
        'isiones'#39'   ;'#13#10'  if Text = '#39'P'#39' then Text := '#39'Pedidos'#39'      ;'#13#10#13#10'e' +
        'nd;'#13#10
      raProgram.ComponentName = 'dbtTipoDocumento'
      raProgram.EventName = 'OnGetText'
      raProgram.EventID = 53
      raProgram.CaretPos = (
        44
        7)
    end
  end
  object ppDesignLayers2: TppDesignLayers
    object ppDesignLayer2: TppDesignLayer
      UserName = 'Foreground1'
      LayerType = ltBanded
      Index = 0
    end
  end
  object ppParameterList2: TppParameterList
    object ppParameter1: TppParameter
      AutoSearchSettings.LogicalPrefix = []
      AutoSearchSettings.Mandatory = True
      DataType = dtString
      LookupSettings.DisplayType = dtNameOnly
      LookupSettings.SortOrder = soName
      Value = ''
      UserName = 'Parameter1'
    end
  end
end