object ppReport: TppReport AutoStop = False DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA PassSetting = psTwoPass PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Report' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 12700 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279400 PrinterSetup.mmPaperWidth = 215900 PrinterSetup.PaperSize = 1 SaveAsTemplate = True Template.DatabaseSettings.DataPipeline = plRBItem Template.DatabaseSettings.Name = '2022 CPR 600. 600 Semaforos' Template.DatabaseSettings.NameField = 'NAME' Template.DatabaseSettings.TemplateField = 'TEMPLATE' Template.FileName = 'C:\Users\IngMontes\Downloads\2022 CPR 600. 600 Semaforos.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 = [] TextFileName = '($MyDocuments)\Report.pdf' TextSearchSettings.DefaultString = '' TextSearchSettings.Enabled = False XLSSettings.AppName = 'ReportBuilder' XLSSettings.Author = 'ReportBuilder' XLSSettings.IgnorePageHeight = True XLSSettings.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Left = 4 Top = 208 Version = '20.04' mmColumnWidth = 0 DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' object ppTitleBand1: TppTitleBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 26988 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer2 UserName = 'sbrLinea' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'CMC_Detalle' mmHeight = 5027 mmLeft = 0 mmTop = 21881 mmWidth = 24916 BandType = 1 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport1: TppChildReport AutoStop = False DataPipeline = daFIBQueryDataView1240.CMC_Detalle PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Report' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 12700 PrinterSetup.mmMarginLeft = 6350 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279400 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 ppDetailBand2: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 5027 mmPrintPosition = 0 object ppLine2: TppLine DesignLayer = ppDesignLayer1 UserName = 'Line2' Border.mmPadding = 0 Pen.Color = 16737843 Pen.Width = 3 ParentWidth = True Position = lpBottom Weight = 2.250000000000000000 mmHeight = 4763 mmLeft = 0 mmTop = 29 mmWidth = 203200 BandType = 4 LayerName = Foreground end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end end end object ppDBText9: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText1' HyperlinkEnabled = False AutoSize = True Border.mmPadding = 0 DataField = 'NOMBRE' DataPipeline = daFIBQueryDataView1239.Datos_Empresa Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 16 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True DataPipelineName = 'Datos_Empresa' mmHeight = 6879 mmLeft = 23262 mmTop = 1588 mmWidth = 157163 BandType = 1 LayerName = Foreground1 end object ppLabel9: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblTitulo' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Sem'#225'foros' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 20 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 8731 mmLeft = 82823 mmTop = 8202 mmWidth = 38365 BandType = 1 LayerName = Foreground1 end object ppLabel1: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblNombreReporte' HyperlinkEnabled = False AutoSize = 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 = 3440 mmLeft = 63346 mmTop = 16782 mmWidth = 77210 BandType = 1 LayerName = Foreground1 end object ppMemo5: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memNombreReporte' Border.mmPadding = 0 Caption = 'memNombreReporte' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False TextAlignment = taCentered Transparent = True Visible = False mmHeight = 3175 mmLeft = 168543 mmTop = 16782 mmWidth = 15875 BandType = 1 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo4: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memTitulo' Border.mmPadding = 0 Caption = 'memTitulo' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( '' '' '' '' '' '' 'Problemas con tabla SEM'#193'FOROS' '' 'Cada que se realiza una acci'#243'n como inserci'#243'n o actualizaci'#243'n de' + ' alguno de sus campos en las tablas de cada m'#243'dulo, Firebird' 'bloquea temporalmente el acceso a este registro y posiblemente s' + 'e quede "pegado" dadas las circunstancias de la red.' '' 'Para solucionarlo, se debe entrar por Ibexpert a la tabla SEM'#193'FO' + 'ROS y verificar que las consultas no se queden atoradas. Esta' 'tabla siempre deber'#225' estar vacia.' '' 'Si esto no funciona, deberemos entrar por Ibexpert y poner la si' + 'guiente consulta:' '' 'SELECT * FROM MON$ATTACHMENTS WHERE MON$STATE = 0' '' 'y eliminar manualmente el usuario que este atorado o con sesi'#243'n ' + 'fantasma en la base de datos.' '' 'Con esto se evita que las transacciones del usuario se queden "a' + 'toradas", y mientras no se resuelva el tema de la congestio'#243'n' 'de red, deber'#225's vigilar este dato e ir borrando manualmente los ' + 'registros.' '' 'Si esto no funciona deber'#225', darle mantenimiento a la BD, y reini' + 'ciar el motor de Firebird.' '' '' '' 'Notas:' ' Problema con tabla SEM'#193'FOROS' ' - https://www.microsipste.mx/preguntas-frecuentes/' ' ***** Pagina ya no esta disponible *****' '' ' - https://www.mayaccess.com.mx/usame/problema-con-tabla-semafor' + 'os/') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True Visible = False mmHeight = 2910 mmLeft = 168543 mmTop = 8202 mmWidth = 15875 BandType = 1 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel29: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblUsuario' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'USUARIO' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 71609 mmTop = 22742 mmWidth = 35190 BandType = 1 LayerName = Foreground1 end object ppLabel30: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblProceso' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'PROCESO' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = -2 mmTop = 22742 mmWidth = 27781 BandType = 1 LayerName = Foreground1 end object ppLabel31: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label31' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'PROTOCOLO' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 107078 mmTop = 22742 mmWidth = 25137 BandType = 1 LayerName = Foreground1 end object ppLabel3: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label301' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'IP/PUERTO' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 134069 mmTop = 22742 mmWidth = 37045 BandType = 1 LayerName = Foreground1 end object ppLabel5: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label2' AutoSize = False Border.mmPadding = 0 Caption = 'FECHA' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 32184 mmTop = 22742 mmWidth = 37042 BandType = 1 LayerName = Foreground1 end object ppLabel2: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label1' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'Host:' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 172509 mmTop = 22742 mmWidth = 19912 BandType = 1 LayerName = Foreground1 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memUsuario' Border.mmPadding = 0 Caption = 'memUsuario' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False Transparent = True Visible = False mmHeight = 2910 mmLeft = 71609 mmTop = 20114 mmWidth = 35190 BandType = 1 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo6: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memProceso' Border.mmPadding = 0 Caption = 'memProceso' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] RemoveEmptyLines = False Transparent = True Visible = False mmHeight = 2910 mmLeft = -2 mmTop = 20114 mmWidth = 27781 BandType = 1 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel8: TppLabel DesignLayer = ppDesignLayer2 UserName = 'Label8' HyperlinkEnabled = False AutoSize = False Border.Color = clGreen Border.mmPadding = 0 Caption = 'Status' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taRightJustified Transparent = True mmHeight = 3440 mmLeft = 193559 mmTop = 22580 mmWidth = 9022 BandType = 1 LayerName = Foreground1 end end object ppHeaderBand1: TppHeaderBand Visible = False Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 7144 mmPrintPosition = 0 object ppDBText24: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtUsuario' HyperlinkEnabled = False Border.mmPadding = 0 Color = clWindow DataField = 'S_USUARIO' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 71505 mmTop = 293 mmWidth = 34864 BandType = 4 LayerName = Foreground1 end object ppDBText25: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtProceso' HyperlinkEnabled = False Border.mmPadding = 0 Color = clWindow DataField = 'S_PROCESO' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = -2 mmTop = 265 mmWidth = 27781 BandType = 4 LayerName = Foreground1 end object ppDBText2: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtFecha' HyperlinkEnabled = False Border.mmPadding = 0 Color = clWindow DataField = 'S_FECHA' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 32186 mmTop = 265 mmWidth = 37068 BandType = 4 LayerName = Foreground1 end object ppDBText26: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtProtocolo' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'S_PROTOCOLO' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 107100 mmTop = 293 mmWidth = 25137 BandType = 4 LayerName = Foreground1 end object ppDBText1: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtIP_puerto' HyperlinkEnabled = False Border.mmPadding = 0 Color = clYellow DataField = 'S_IP' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Calibri' Font.Size = 10 Font.Style = [] Transparent = True DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 134203 mmTop = 293 mmWidth = 37110 BandType = 4 LayerName = Foreground1 end object ppDBText5: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtHost' HyperlinkEnabled = False Border.mmPadding = 0 Color = clYellow DataField = 'S_HOST' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] Transparent = True VerticalAlignment = avBottom DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 172509 mmTop = 293 mmWidth = 19912 BandType = 4 LayerName = Foreground1 end object ppDBText3: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtRuta' Border.mmPadding = 0 DataField = 'S_PROCESO' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = 9868950 Font.Name = 'Calibri' Font.Size = 6 Font.Style = [] Transparent = True Visible = False DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 2646 mmLeft = -2 mmTop = 4207 mmWidth = 125942 BandType = 4 LayerName = Foreground1 end object ppDBText4: TppDBText DesignLayer = ppDesignLayer2 UserName = 'dbtHost1' HyperlinkEnabled = False Border.mmPadding = 0 Color = clYellow DataField = 'S_STATE' DataPipeline = daFIBQueryDataView1237.CMC_SEMAFOROS_CONSULTA Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Calibri' Font.Size = 8 Font.Style = [] TextAlignment = taCentered Transparent = True VerticalAlignment = avBottom DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' mmHeight = 3969 mmLeft = 193559 mmTop = 293 mmWidth = 9022 BandType = 4 LayerName = Foreground1 end end object ppFooterBand1: TppFooterBand Visible = False Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 0 mmPrintPosition = 0 end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 13229 mmPrintPosition = 0 object ppDBText17: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText7' HyperlinkEnabled = False AutoSize = True Border.mmPadding = 0 Color = clWindow DataField = 'OTRO_REG2' DataPipeline = daFIBQueryDataView1239.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 = 10319 mmLeft = 86519 mmTop = 2646 mmWidth = 32015 BandType = 7 LayerName = Foreground1 end 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 = clNavy Font.Name = 'Draft 17cpi' Font.Size = 8 Font.Style = [fsBold] Transparent = True mmHeight = 3705 mmLeft = 2910 mmTop = 1058 mmWidth = 49478 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 = clNavy Font.Name = 'Draft 17cpi' Font.Size = 8 Font.Style = [fsBold] TextAlignment = taRightJustified Transparent = True mmHeight = 3704 mmLeft = 185209 mmTop = 1058 mmWidth = 11906 BandType = 7 LayerName = Foreground1 end object ppDBText36: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText36' HyperlinkEnabled = False AutoSize = True Border.mmPadding = 0 DataField = 'USUARIO' DataPipeline = daFIBQueryDataView1238.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 = 3440 mmLeft = 92075 mmTop = 1058 mmWidth = 21167 BandType = 7 LayerName = Foreground1 end object ppDBText37: TppDBText DesignLayer = ppDesignLayer2 UserName = 'DBText2' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'VERSION_FIREBIRD' DataPipeline = daFIBQueryDataView1238.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 = 2910 mmLeft = 92075 mmTop = 4233 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 = daFIBQueryDataView1238.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 = 92075 mmTop = 6350 mmWidth = 21167 BandType = 7 LayerName = Foreground1 end object ppLabel6: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblCodigoTodos' AutoSize = False Border.mmPadding = 0 Caption = 'C'#243'digo todos' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 3440 mmLeft = 138642 mmTop = 4930 mmWidth = 21696 BandType = 7 LayerName = Foreground1 end object ppMemo1: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memCodigoTodos' Border.mmPadding = 0 Caption = 'memTitulo' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'C'#243'digo para borrar todos los registros en la tabla SEMAFOROS' '----------------------------------------------------------------' + '-----------' '' 'DELETE * FROM MON$ATTACHMENTS WHERE MON$STATE = 0') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True Visible = False mmHeight = 2910 mmLeft = 164836 mmTop = 4930 mmWidth = 15875 BandType = 7 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel7: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblCodigoUsuario' AutoSize = False Border.mmPadding = 0 Caption = 'C'#243'digo usuario' Color = 13434828 Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 3439 mmLeft = 138642 mmTop = 8877 mmWidth = 21696 BandType = 7 LayerName = Foreground1 end object ppMemo2: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memCodigoUsuario' Border.mmPadding = 0 Caption = 'memTitulo' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'C'#243'digo para borrar por USUARIO en un PROCESO en la tabla SEMAFOR' + 'OS' '----------------------------------------------------------------' + '-------------------------' '' 'DELETE * ' 'FROM MON$ATTACHMENTS' 'WHERE MON$STATE = 0 AND ' ' MON$REMOTE_PROCESS LIKE '#39'%'#39' || '#39'Cxp'#39' || '#39'%'#39' AND ' ' MON$USER = '#39'U-INGMONTES'#39 '' '') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True Visible = False mmHeight = 2910 mmLeft = 164836 mmTop = 8879 mmWidth = 15875 BandType = 7 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppLabel4: TppLabel DesignLayer = ppDesignLayer2 UserName = 'lblLeasePrimero' AutoSize = False Border.mmPadding = 0 Caption = 'Lease primero' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clLime Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 3440 mmLeft = 138642 mmTop = 1058 mmWidth = 21696 BandType = 7 LayerName = Foreground1 end object ppMemo7: TppMemo DesignLayer = ppDesignLayer2 UserName = 'memLeasePrimero' Border.mmPadding = 0 Caption = 'memTitulo' CharWrap = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] Lines.Strings = ( 'SEM'#193'FOROS.- El reporte mostrara los usuarios que dejaron "ator' + 'ados" los semaforos' ' - La tabla Sem'#225'foros debe estar en blanco' ' ' 'DATOS A MOSTRAR' '------------------------' ' FECHA, USUARIO, PROCESO, PROTOCOLO, IP/PUERTO, STATUS' '' 'CODIGO A COPIAR' '-----------------------' ' - CODIGO TODOS' ' DELETE * FROM MON$ATTACHMENTS WHER' + 'E MON$STATE = 0' ' - CODIGO USUARIO' ' DELETE * ' ' FROM MON$ATTACHMENTS' ' WHERE MON$STATE = 0 AND ' ' MON$REMOTE_PROCESS LIKE '#39'%'#39' || '#39'Cxp' + #39' || '#39'%'#39' AND ' ' MON$USER = '#39'U-INGMONTES'#39 '' 'PROCEDIMIENTO' '---------------------' ' - Ejecutamos el reporte ( 2022 CPR 600. 600 Semaforos ) (Report' + 'e_id: 9339) en la base de datos a procesar' ' - Dar clic en el boton "Codigo todos" o "Codigo usuario"' ' Se mostrara el c'#243'digo correspondiente' ' Presionar CTRL+C para copiar el codigo mostrado ( se pegara e' + 'n "Desde el Reporteador" )' '' ' - "Desde el Reporteador"' ' Abrir el Reporteador / Nuevo reporte / Datos / Archivo / Nuev' + 'o / Dise'#241'ador de consultas / OK / SQL' ' Nombre ( capturar "BORRAR" o cualquier nombre ) / Clic derec' + 'ho en el area blanca grande' ' Editar SQL ( se mostrar'#225' '#191'Est'#225' seguro que desea editar el con' + 'tenido del SQL? ) / Yes' ' CTL+V ( se pegara lo copiado, quitar el texto y dejar solo ' + 'la instruccion sql )' ' Nota: revisar primero que cumpla lo que realm' + 'ente deseamos borrar' ' Clic en OK ( marcara error, pero el comando ya habra borrado' + ' el o los registros )' ' Cancelar / Cerrar el reporte creado sin guardar los cambios' ' ************ Listo el semaforo ya ha sido borrado ***********' + '************' '' '' '' 'Nota:' ' - Dar clic en el t'#237'tulo USUARIO para listar lo usuarios atorado' + 's' ' - Dar clic en el t'#237'tulo PROCESO para listar los procesos atorad' + 'os') RemoveEmptyLines = False TextAlignment = taCentered Transparent = True Visible = False mmHeight = 2910 mmLeft = 164836 mmTop = 1058 mmWidth = 15875 BandType = 7 LayerName = Foreground1 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object daDataModule270: TdaDataModule object daFIBQueryDataView1237: TdaFIBQueryDataView UserName = 'Query_CMC_SEMAFOROS_CONSULTA' Height = 220 Left = 304 NameColumnWidth = 164 SizeColumnWidth = 35 SortMode = 0 Top = 9 TypeColumnWidth = 52 Width = 311 AutoSearchTabOrder = 0 object CMC_SEMAFOROS_CONSULTA: TppChildDBPipeline AutoCreateFields = False UserName = 'CMC_SEMAFOROS_CONSULTA' object ppField1: TppField FieldAlias = 'S_PROCESO' FieldName = 'S_PROCESO' FieldLength = 10 DisplayWidth = 10 Position = 0 end object ppField2: TppField FieldAlias = 'S_FECHA' FieldName = 'S_FECHA' FieldLength = 10 DataType = dtDateTime DisplayWidth = 10 Position = 1 end object ppField3: TppField FieldAlias = 'S_USUARIO' FieldName = 'S_USUARIO' FieldLength = 10 DisplayWidth = 10 Position = 2 end object ppField4: TppField FieldAlias = 'S_PROTOCOLO' FieldName = 'S_PROTOCOLO' FieldLength = 10 DisplayWidth = 10 Position = 3 end object ppField5: TppField FieldAlias = 'S_IP' FieldName = 'S_IP' FieldLength = 10 DisplayWidth = 10 Position = 4 end object ppField6: TppField FieldAlias = 'S_HOST' FieldName = 'S_HOST' FieldLength = 10 DisplayWidth = 10 Position = 5 end object ppField7: TppField FieldAlias = 'S_STATE' FieldName = 'S_STATE' FieldLength = 10 DataType = dtInteger DisplayWidth = 10 Position = 6 end end object daSQL1: TdaSQL CollationType = ctASCII DatabaseName = 'dtbsMicrosip' DatabaseType = dtInterBase DataPipelineName = 'CMC_SEMAFOROS_CONSULTA' EditSQLAsText = True IsCaseSensitive = True LinkColor = clBlack LinkType = ltParameterizedSQL MaxSQLFieldAliasLength = 0 SQLText.Strings = ( ' /*' ' ----- No borrar este comentario -----' ' Es el orden en que se muestran las variables' ' : F_FECHA_INICIAL' ' : F_FECHA_FINAL' ' : C_EMPLEADO' ' */' '' '' 'SELECT' ' -- Inicia orden del reporte' ' S.MON$REMOTE_PROCESS AS S_PROCESO,' ' S.MON$TIMESTAMP AS S_FECHA,' ' -- Finaliza orden del reporte' '' ' S.MON$USER AS S_USUARIO,' ' S.MON$REMOTE_PROTOCOL AS S_PROTOCOLO,' ' S.MON$REMOTE_ADDRESS AS S_IP,' ' S.MON$REMOTE_HOST AS S_HOST,' ' S.MON$STATE AS S_STATE' '' 'FROM MON$ATTACHMENTS S' 'WHERE S.MON$STATE = 0' '-- AND S.MON$REMOTE_PROCESS LIKE '#39'%'#39' || '#39'Cxp'#39' || '#39'%'#39' -- AN' + 'D S.MON$USER = '#39'RAFAEL_AJA'#39 'ORDER BY 1 , 2') SQLType = sqSQL2 object daField1: TdaField Alias = 'S_PROCESO' DisplayWidth = 10 FieldAlias = 'S_PROCESO' FieldLength = 10 FieldName = 'S_PROCESO' SQLFieldName = 'S_PROCESO' end object daField2: TdaField Alias = 'S_FECHA' DataType = dtDateTime DisplayWidth = 10 FieldAlias = 'S_FECHA' FieldLength = 10 FieldName = 'S_FECHA' SQLFieldName = 'S_FECHA' end object daField3: TdaField Alias = 'S_USUARIO' DisplayWidth = 10 FieldAlias = 'S_USUARIO' FieldLength = 10 FieldName = 'S_USUARIO' SQLFieldName = 'S_USUARIO' end object daField4: TdaField Alias = 'S_PROTOCOLO' DisplayWidth = 10 FieldAlias = 'S_PROTOCOLO' FieldLength = 10 FieldName = 'S_PROTOCOLO' SQLFieldName = 'S_PROTOCOLO' end object daField5: TdaField Alias = 'S_IP' DisplayWidth = 10 FieldAlias = 'S_IP' FieldLength = 10 FieldName = 'S_IP' SQLFieldName = 'S_IP' end object daField6: TdaField Alias = 'S_HOST' DisplayWidth = 10 FieldAlias = 'S_HOST' FieldLength = 10 FieldName = 'S_HOST' SQLFieldName = 'S_HOST' end object daField7: TdaField Alias = 'S_STATE' DataType = dtInteger DisplayWidth = 10 FieldAlias = 'S_STATE' FieldLength = 10 FieldName = 'S_STATE' SQLFieldName = 'S_STATE' end end end object daFIBQueryDataView1238: TdaFIBQueryDataView UserName = 'Query_CMC_USUARIO69' Height = 231 Left = 8 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 142 TypeColumnWidth = 52 Width = 281 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'9339'#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 daFIBQueryDataView1239: TdaFIBQueryDataView UserName = 'Query_Datos_Empresa42' Height = 124 Left = 7 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 15 TypeColumnWidth = 52 Width = 282 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 daSQL3: 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 daFIBQueryDataView1240: TdaFIBQueryDataView UserName = 'Query_CMC_Detalle12' Height = 107 Left = 9 NameColumnWidth = 105 SizeColumnWidth = 35 SortMode = 0 Top = 381 TypeColumnWidth = 52 Width = 281 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 daSQL2: TdaSQL CollationType = ctASCII DatabaseName = 'dtbsMicrosip' DatabaseType = dtInterBase DataPipelineName = 'CMC_Detalle' EditSQLAsText = True IsCaseSensitive = True LinkColor = clMaroon 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 raProgramInfo5: 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' MMXXII'#13#10'}'#13#10#13#10' CMC_MOSTRAR_CAMPO ' + ': Boolean ; { Muestra el detalle del campo }'#13#10' CMC_MSP_A' + 'NIO ,'#13#10' CMC_PROC_NAME : String ;'#13#10#13#10#13#10'begin'#13#10#13#10'end;' + #13#10 raProgram.CaretPos = ( 1 2) end object raProgramInfo11: 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 = ( 1 6) end object raProgramInfo12: 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 = ( 30 6) end object raProgramInfo6: 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 = ( 49 4) end object raProgramInfo9: 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 = ( 1 2) end object raProgramInfo10: 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 = ( 33 3) end object raProgramInfo13: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'dbtProcesoOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure dbtProcesoOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Tex' + 't := ExtractFileName( Text );'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'dbtProceso' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 53 6) end object raProgramInfo14: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'dbtRutaOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure dbtRutaOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= ExtractFilePath( Text );'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'dbtRuta' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 33 4) end object raProgramInfo15: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblCodigoTodosOnDrawCommandClick' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblCodigoTodosOnDrawCommandClick(aDrawCommand: TObject' + ');'#13#10'begin'#13#10' ShowMessage( memCodigoTodos.Text );'#13#10'end;'#13#10 raProgram.ComponentName = 'lblCodigoTodos' raProgram.EventName = 'OnDrawCommandClick' raProgram.EventID = 85 raProgram.CaretPos = ( 38 3) end object raProgramInfo16: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblCodigoUsuarioOnDrawCommandClick' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblCodigoUsuarioOnDrawCommandClick(aDrawCommand: TObje' + 'ct);'#13#10'begin'#13#10' ShowMessage( memCodigoUsuario.Text );'#13#10'end;'#13#10 raProgram.ComponentName = 'lblCodigoUsuario' raProgram.EventName = 'OnDrawCommandClick' raProgram.EventID = 85 raProgram.CaretPos = ( 40 3) end object raProgramInfo17: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblUsuarioOnDrawCommandClick' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblUsuarioOnDrawCommandClick(aDrawCommand: TObject);'#13#10 + 'var'#13#10' cClave : String ;'#13#10#13#10'begin'#13#10#13#10' memUsuario.Lines.Clear ' + ';'#13#10#13#10' cClave := '#39'Usuarios'#39' ' + ' ; memUsuario.Lines.Add( cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memUsuario.Lines.Add(' + ' cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memUsuario.Lines.Add( cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memUsuario.Li' + 'nes.Add( cClave ) ;'#13#10#13#10' SetQuery( '#39'SELECT DISTINCT S.MON$USER A' + 'S S_USUARIO FROM MON$ATTACHMENTS S WHERE S.MON$STATE = 0 ORDER ' + 'BY 1'#39' ) ;'#13#10#13#10' OpenQuery;'#13#10' First;'#13#10' while not Eof do'#13#10' ' + ' begin'#13#10' cClave := GetFieldAsString( '#39'S_USUARIO'#39' ) ' + ' ; memUsuario.Lines.Add( cClave ) ;'#13#10' Next;'#13#10' en' + 'd;'#13#10' CloseQuery;'#13#10#13#10' ShowMessage( memUsuario.Text );'#13#10#13#10'end ;'#13 + #10 raProgram.ComponentName = 'lblUsuario' raProgram.EventName = 'OnDrawCommandClick' raProgram.EventID = 85 raProgram.CaretPos = ( 1 15) end object raProgramInfo18: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblProcesoOnDrawCommandClick' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblProcesoOnDrawCommandClick(aDrawCommand: TObject);'#13#10 + 'var'#13#10' cClave : String ;'#13#10#13#10'begin'#13#10#13#10' memProceso.Lines.Clear ' + ';'#13#10#13#10' cClave := '#39'Procesos'#39' ' + ' ; memProceso.Lines.Add( cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memProceso.Lines.Add(' + ' cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memProceso.Lines.Add( cClave ) ;'#13#10' cClave := '#39#39' ' + ' ; memProceso.Li' + 'nes.Add( cClave ) ;'#13#10#13#10' SetQuery( '#39'SELECT DISTINCT S.MON$REMOTE' + '_PROCESS AS S_PROCESO FROM MON$ATTACHMENTS S WHERE S.MON$STATE =' + ' 0 ORDER BY 1'#39' ) ;'#13#10#13#10' OpenQuery;'#13#10' First;'#13#10' while not E' + 'of do'#13#10' begin'#13#10' cClave := GetFieldAsString( '#39'S_PROCESO'#39' ' + ') ; memProceso.Lines.Add( cClave ) ;'#13#10' Nex' + 't;'#13#10' end;'#13#10' CloseQuery;'#13#10#13#10' ShowMessage( memProceso.Text );' + #13#10#13#10'end ;'#13#10 raProgram.ComponentName = 'lblProceso' raProgram.EventName = 'OnDrawCommandClick' raProgram.EventID = 85 raProgram.CaretPos = ( 1 14) end object raProgramInfo19: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblTituloOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblTituloOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text' + ' := Text + '#39' '#39' + CMC_MSP_ANIO ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lblTitulo' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 36 6) end object raProgramInfo20: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'TitleBeforePrint' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure TitleBeforePrint;'#13#10'var'#13#10' nLen ,'#13#10' nPos : Integer' + ' ;'#13#10' S : String ;'#13#10#13#10'begin'#13#10#13#10' S := CMC_USUARIO['#39'MSP_MO' + 'DULO'#39'] ;'#13#10' nLen := Length( TrimRight( S ) ) - 4 - 23 ; { -4 =' + ' .exe || -23 = pos \ }'#13#10' S := Copy( S, 24, nLen ) ;'#13#10' nPo' + 's := Pos('#39'\'#39', S ) + 1 ;'#13#10' CMC_MSP_ANIO := Copy( S, nPos, 4 ) ;' + #13#10#13#10'end;'#13#10 raProgram.ComponentName = 'Title' raProgram.EventName = 'BeforePrint' raProgram.EventID = 24 raProgram.CaretPos = ( 28 15) end object raProgramInfo1: TraProgramInfo raClassName = 'TraEventHandler' raProgram.ProgramName = 'lblLeasePrimeroOnDrawCommandClick' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblLeasePrimeroOnDrawCommandClick(aDrawCommand: TObjec' + 't);'#13#10'begin'#13#10' ShowMessage( memLeasePrimero.Text );'#13#10'end;'#13#10 raProgram.ComponentName = 'lblLeasePrimero' raProgram.EventName = 'OnDrawCommandClick' raProgram.EventID = 85 raProgram.CaretPos = ( 31 3) end end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end