object ppReport: TppReport AutoStop = False DataPipeline = daFIBQueryDataView104.Datos_Empresa PrinterSetup.BinName = 'Default' PrinterSetup.DocumentName = 'Report' PrinterSetup.Duplex = dpNone PrinterSetup.PaperName = 'Letter' PrinterSetup.PrinterName = 'Default' PrinterSetup.SaveDeviceSettings = False PrinterSetup.mmMarginBottom = 6350 PrinterSetup.mmMarginLeft = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279000 PrinterSetup.mmPaperWidth = 216000 PrinterSetup.PaperSize = 1 SaveAsTemplate = True Template.DatabaseSettings.DataPipeline = plRBItem Template.DatabaseSettings.Name = '2015 VER 700. 120 Control bitacora Correr ligas / Crear poli' Template.DatabaseSettings.NameField = 'NAME' Template.DatabaseSettings.TemplateField = 'TEMPLATE' Template.FileName = 'C:\Users\IngMontes\Downloads\2015 VER 700. 120 Control bitacora ' + 'Correr ligas Crear poli.rtm' Template.Format = ftASCII Units = utMillimeters 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.Subject = 'Report' XLSSettings.Title = 'Report' XLSSettings.WorksheetName = 'Report' Left = 4 Top = 208 Version = '20.04' mmColumnWidth = 0 DataPipelineName = 'Datos_Empresa' object ppHeaderBand1: TppHeaderBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 43392 mmPrintPosition = 0 object ppShape3: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape3' Brush.Color = clYellow ParentWidth = True Pen.Color = clYellow mmHeight = 5820 mmLeft = 0 mmTop = 37571 mmWidth = 196950 BandType = 0 LayerName = Foreground2 end object ppLabel2: TppLabel DesignLayer = ppDesignLayer3 UserName = 'lblEmpresa' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'EMPRESA' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Visible = False mmHeight = 3440 mmLeft = 2646 mmTop = 39423 mmWidth = 13758 BandType = 0 LayerName = Foreground2 end object ppShape2: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape2' Brush.Color = clBlack ParentWidth = True mmHeight = 6350 mmLeft = 0 mmTop = 32544 mmWidth = 196950 BandType = 0 LayerName = Foreground2 end object ppDBText6: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText6' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'NOMBRE' DataPipeline = daFIBQueryDataView104.Datos_Empresa Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 16 Font.Style = [] ParentDataPipeline = False TextAlignment = taCentered Transparent = True Visible = False DataPipelineName = 'Datos_Empresa' mmHeight = 6350 mmLeft = 0 mmTop = 3704 mmWidth = 196321 BandType = 0 LayerName = Foreground2 end object ppLabel1: TppLabel DesignLayer = ppDesignLayer3 UserName = 'lblTitulo' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Correr Ligas / Crear p'#243'lizas' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Tahoma' Font.Size = 24 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 10202 mmLeft = 40217 mmTop = 9525 mmWidth = 116544 BandType = 0 LayerName = Foreground2 end object ppLabel3: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label3' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'CxC' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 88636 mmTop = 39423 mmWidth = 5556 BandType = 0 LayerName = Foreground2 end object ppLabel4: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label4' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'IN' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 100277 mmTop = 39423 mmWidth = 3440 BandType = 0 LayerName = Foreground2 end object ppLabel5: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label5' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'VE' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 110596 mmTop = 39423 mmWidth = 3704 BandType = 0 LayerName = Foreground2 end object ppLabel6: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label6' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'CM' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 120386 mmTop = 39423 mmWidth = 4498 BandType = 0 LayerName = Foreground2 end object ppLabel9: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label9' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '4x4 / ASE / ASE-GA / COL / FyC' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 4149 mmLeft = 77258 mmTop = 6615 mmWidth = 42079 BandType = 0 LayerName = Foreground2 end object ppLabel11: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label11' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'CO' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3429 mmLeft = 184150 mmTop = 39423 mmWidth = 4106 BandType = 0 LayerName = Foreground2 end object ppLabel13: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label13' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'Mensual' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 12500 mmLeft = 178859 mmTop = 30163 mmWidth = 3704 BandType = 0 LayerName = Foreground2 RotatedOriginLeft = 0 RotatedOriginTop = 12500 end object ppLabel14: TppLabel DesignLayer = ppDesignLayer3 UserName = 'lblArea' HyperlinkEnabled = False Border.mmPadding = 0 Caption = #193'rea' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Name = 'Tahoma' Font.Size = 24 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 10202 mmLeft = 88626 mmTop = 17727 mmWidth = 19600 BandType = 0 LayerName = Foreground2 end object ppLabel15: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label14' HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'M'#211'DULO' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Tahoma' Font.Size = 14 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 6085 mmLeft = 87842 mmTop = 33338 mmWidth = 47625 BandType = 0 LayerName = Foreground2 end object ppLabel12: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label12' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'Diario' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 12500 mmLeft = 175419 mmTop = 30163 mmWidth = 3704 BandType = 0 LayerName = Foreground2 RotatedOriginLeft = 0 RotatedOriginTop = 12500 end object ppLabel7: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label7' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Fecha' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 28310 mmTop = 39423 mmWidth = 10319 BandType = 0 LayerName = Foreground2 end object ppLabel38: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label18' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Recal. costos' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True WordWrap = True mmHeight = 3704 mmLeft = 57679 mmTop = 39158 mmWidth = 22225 BandType = 0 LayerName = Foreground2 end object ppLabel39: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label39' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'SIS' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3429 mmLeft = 191030 mmTop = 39423 mmWidth = 4911 BandType = 0 LayerName = Foreground2 end object ppLabel40: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label40' HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'ENTERA' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 183886 mmTop = 33867 mmWidth = 11377 BandType = 0 LayerName = Foreground2 end object ppLabel41: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label41' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'OBSERVACIONES' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3429 mmLeft = 145257 mmTop = 38894 mmWidth = 24765 BandType = 0 LayerName = Foreground2 end object ppLabel47: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label47' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'KARDEX' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone mmHeight = 11113 mmLeft = 80433 mmTop = 31221 mmWidth = 4233 BandType = 0 LayerName = Foreground2 RotatedOriginLeft = 0 RotatedOriginTop = 11113 end object ppLabel48: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label48' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'CxP' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3440 mmLeft = 130175 mmTop = 39423 mmWidth = 5556 BandType = 0 LayerName = Foreground2 end object ppSubReport2: TppSubReport DesignLayer = ppDesignLayer3 UserName = 'sbr_Emp_Encabezados' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'CMC_Detalle' mmHeight = 18256 mmLeft = 0 mmTop = 25135 mmWidth = 18521 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 object ppChildReport2: 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 = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279000 PrinterSetup.mmPaperWidth = 216000 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.DataPipeline = plRBItem Template.DatabaseSettings.NameField = 'NAME' Template.DatabaseSettings.TemplateField = 'TEMPLATE' Template.SaveTo = stDatabase Template.Format = ftASCII Units = utMillimeters Version = '20.04' mmColumnWidth = 0 DataPipelineName = 'CMC_Detalle' object ppDetailBand3: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 18521 mmPrintPosition = 0 object ppShape22: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape22' Brush.Color = clYellow Visible = False mmHeight = 18521 mmLeft = 51065 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape12: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape12' Brush.Color = clYellow mmHeight = 18521 mmLeft = 0 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape13: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape13' mmHeight = 18521 mmLeft = 3704 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape14: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape14' Brush.Color = clYellow mmHeight = 18521 mmLeft = 7408 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape15: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape15' mmHeight = 18521 mmLeft = 11113 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape16: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape16' Brush.Color = clYellow Visible = False mmHeight = 18521 mmLeft = 36248 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape17: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape17' Brush.Color = clYellow Visible = False mmHeight = 18521 mmLeft = 39952 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppLabel16: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbl4x4' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = '4x4' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 10848 mmLeft = 39952 mmTop = 3969 mmWidth = 3969 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 7673 end object ppLabel53: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lbl4x4_NVO' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = '4x4 NVO' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 15610 mmLeft = 35983 mmTop = 1588 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 13493 end object ppLabel18: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblASE_CU' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'ASE-CU' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True VerticalAlignment = avCenter mmHeight = 15883 mmLeft = 0 mmTop = 1054 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 14603 end object ppLabel19: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblCOL' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'COL' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 15883 mmLeft = 3440 mmTop = 1054 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 11566 end object ppShape18: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape18' Brush.Color = clYellow Visible = False mmHeight = 18521 mmLeft = 43656 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppShape19: TppShape DesignLayer = ppDesignLayer1 UserName = 'Shape19' Brush.Color = clYellow Visible = False mmHeight = 18521 mmLeft = 47361 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground end object ppLabel55: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblFyC' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'FyC' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 15883 mmLeft = 10848 mmTop = 1054 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 11174 end object ppLabel20: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblSSA' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'SSA' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 15883 mmLeft = 7144 mmTop = 1054 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 11465 end object ppLabel56: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblASE_GA' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'ASE-GA' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 10848 mmLeft = 47096 mmTop = 3969 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 10716 end object ppLabel54: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblVMN' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'VMN' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 10848 mmLeft = 50800 mmTop = 3969 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 8599 end object ppLabel17: TppLabel DesignLayer = ppDesignLayer1 UserName = 'lblASE' Angle = 90 HyperlinkEnabled = False AutoSize = False Border.mmPadding = 0 Caption = 'ASE' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial Narrow' Font.Size = 10 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True Visible = False mmHeight = 10848 mmLeft = 43392 mmTop = 3969 mmWidth = 4233 BandType = 4 LayerName = Foreground RotatedOriginLeft = 0 RotatedOriginTop = 8202 end end object raCodeModule3: TraCodeModule object raProgramInfo2: 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' MMXIX'#13#10' ---oOo---'#13#10'}'#13#10#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'begin'#13#10#13#10'end;'#13#10 raProgram.CaretPos = ( 1 11) end end object ppDesignLayers1: TppDesignLayers object ppDesignLayer1: TppDesignLayer UserName = 'Foreground' LayerType = ltBanded Index = 0 end end end end object ppLabel37: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label17' Angle = 90 HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Preguntar' Color = 10092543 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 12700 mmLeft = 51858 mmTop = 29236 mmWidth = 3969 BandType = 0 LayerName = Foreground2 RotatedOriginLeft = 455 RotatedOriginTop = 12700 end object ppLabel61: TppLabel DesignLayer = ppDesignLayer3 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 = 3440 mmLeft = 61484 mmTop = 27601 mmWidth = 79904 BandType = 0 LayerName = Foreground2 end object ppMemo6: TppMemo DesignLayer = ppDesignLayer3 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 = 158486 mmTop = 27601 mmWidth = 15610 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end object ppMemo3: TppMemo DesignLayer = ppDesignLayer3 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' 'Muestra la plantilla para el cierre de mes' '' 'COLUMNAS' '-------------' '(4) Columnas son las siglas de las empresas' 'Fecha.- Es la fecha en la que se realiza el cierre de mes' 'Preguntar.- Preguntar al area de ventas y compras si ya esta to' + 'do capturado' 'Recal. costos.- Se marca si ya se recalcularon los costos desde ' + 'Inventarios' 'KARDEX.- Impresion del Kardex CONCEPTOS / TOTALES' 'CxC.- Polizas creadas en Cuentas por cobrar' 'IN.- Polizas creadas en Inventarios' 'VE.- Polizas creadas en Ventas' 'CM.- Polizas creadas en Compras' 'CxP.- Polizas creadas en Cuentas por pagar' 'OBSERVACIONES.- Anotar areas de oportunidad' 'Diario.- Marcar si se crearon las p'#243'lizas todos los dias' 'Mensual.- Marcar si se crearon las p'#243'lizas mensualmente' 'ENTERA' ' CO .- Avisar a contabilidad' ' SIS.- Avisar a sistemas' '' '') RemoveEmptyLines = False Transparent = True Visible = False mmHeight = 3175 mmLeft = 158486 mmTop = 16552 mmWidth = 15610 BandType = 0 LayerName = Foreground2 mmBottomOffset = 0 mmOverFlowOffset = 0 mmStopPosition = 0 mmMinHeight = 0 mmLeading = 0 end end object ppDetailBand1: TppDetailBand Background1.Brush.Style = bsClear Background2.Brush.Style = bsClear BandsPerRecord = 27 Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 5821 mmPrintPosition = 0 object ppSubReport1: TppSubReport DesignLayer = ppDesignLayer3 UserName = 'sbr_Emp_Rayas' ExpandAll = False NewPrintJob = False OutlineSettings.CreateNode = True ParentWidth = False TraverseAllData = False DataPipelineName = 'CMC_Detalle' mmHeight = 4233 mmLeft = 0 mmTop = 0 mmWidth = 28046 BandType = 4 LayerName = Foreground2 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 = 12700 PrinterSetup.mmMarginRight = 6350 PrinterSetup.mmMarginTop = 6350 PrinterSetup.mmPaperHeight = 279000 PrinterSetup.mmPaperWidth = 216000 PrinterSetup.PaperSize = 1 Template.DatabaseSettings.DataPipeline = plRBItem Template.DatabaseSettings.NameField = 'NAME' Template.DatabaseSettings.TemplateField = 'TEMPLATE' Template.SaveTo = stDatabase Template.Format = ftASCII Units = utMillimeters 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 = 5821 mmPrintPosition = 0 object ppShape24: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape24' Brush.Color = clYellow Visible = False mmHeight = 5821 mmLeft = 29633 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape25: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape25' Brush.Color = clYellow mmHeight = 5821 mmLeft = 0 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape26: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape26' mmHeight = 5821 mmLeft = 3704 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape27: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape27' Brush.Color = clYellow mmHeight = 5821 mmLeft = 7408 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape28: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape28' mmHeight = 5821 mmLeft = 11113 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape29: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape29' Brush.Color = clYellow Visible = False mmHeight = 5821 mmLeft = 14817 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape30: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape30' Visible = False mmHeight = 5821 mmLeft = 18521 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape31: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape31' Brush.Color = clYellow Visible = False mmHeight = 5821 mmLeft = 22225 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end object ppShape32: TppShape DesignLayer = ppDesignLayer2 UserName = 'Shape32' Visible = False mmHeight = 5821 mmLeft = 25929 mmTop = 0 mmWidth = 3969 BandType = 4 LayerName = Foreground1 end end object raCodeModule2: TraCodeModule end object ppDesignLayers2: TppDesignLayers object ppDesignLayer2: TppDesignLayer UserName = 'Foreground1' LayerType = ltBanded Index = 0 end end end end object ppShape1: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape1' Brush.Style = bsClear ParentHeight = True ParentWidth = True mmHeight = 5821 mmLeft = 0 mmTop = 0 mmWidth = 196950 BandType = 4 LayerName = Foreground2 end object ppLine2: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line2' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 122767 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine3: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line3' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 112713 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine4: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line4' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 91811 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine5: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line5' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 102394 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine6: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line6' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 187855 mmTop = 0 mmWidth = 1588 BandType = 4 LayerName = Foreground2 end object ppLine7: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line7' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 171186 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine8: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line8' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 177800 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppShape4: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape4' Brush.Style = bsClear Pen.Color = clAqua Pen.Style = psDot Visible = False mmHeight = 4498 mmLeft = 136790 mmTop = 1323 mmWidth = 17198 BandType = 4 LayerName = Foreground2 end object ppLine13: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line13' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 84667 mmTop = 0 mmWidth = 1588 BandType = 4 LayerName = Foreground2 end object ppLine14: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line14' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 46831 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine15: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line15' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 177536 mmTop = 0 mmWidth = 1588 BandType = 4 LayerName = Foreground2 end object ppLine16: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line16' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 52388 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end object ppLine17: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line17' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 78052 mmTop = 0 mmWidth = 1588 BandType = 4 LayerName = Foreground2 end object ppLine18: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line18' Border.mmPadding = 0 ParentHeight = True Position = lpRight Weight = 0.750000000000000000 mmHeight = 5821 mmLeft = 133350 mmTop = 0 mmWidth = 4498 BandType = 4 LayerName = Foreground2 end end object ppFooterBand1: TppFooterBand Background.Brush.Style = bsClear Border.mmPadding = 0 mmBottomOffset = 0 mmHeight = 10054 mmPrintPosition = 0 object ppSystemVariable1: TppSystemVariable DesignLayer = ppDesignLayer3 UserName = 'SystemVariable1' HyperlinkEnabled = False Border.mmPadding = 0 VarType = vtPrintDateTime DisplayFormat = 'dddd dd/mmmm/yyyy hh:nn:ss' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Arial' Font.Size = 8 Font.Style = [fsBold] Transparent = True mmHeight = 3704 mmLeft = 1588 mmTop = 1048 mmWidth = 54504 BandType = 8 LayerName = Foreground2 end object ppSystemVariable2: TppSystemVariable DesignLayer = ppDesignLayer3 UserName = 'SystemVariable2' HyperlinkEnabled = False Border.mmPadding = 0 VarType = vtPageNoDesc DisplayFormat = 'dd/mmm/yyyy h:nn:ss am/pm' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Name = 'Arial' Font.Size = 8 Font.Style = [fsBold] TextAlignment = taCentered Transparent = True mmHeight = 3175 mmLeft = 183886 mmTop = 1577 mmWidth = 11430 BandType = 8 LayerName = Foreground2 end object ppDBText36: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText36' HyperlinkEnabled = False AutoSize = True Border.mmPadding = 0 DataField = 'USUARIO' DataPipeline = daFIBQueryDataView105.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 = 84667 mmTop = 1323 mmWidth = 21209 BandType = 8 LayerName = Foreground2 end object ppDBText37: TppDBText DesignLayer = ppDesignLayer3 UserName = 'DBText2' HyperlinkEnabled = False Border.mmPadding = 0 DataField = 'VERSION_FIREBIRD' DataPipeline = daFIBQueryDataView105.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 = 84667 mmTop = 4498 mmWidth = 21167 BandType = 8 LayerName = Foreground2 end object ppLabel8: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label1' Border.mmPadding = 0 Caption = '---oOo---' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 2910 mmLeft = 90488 mmTop = 7141 mmWidth = 9525 BandType = 8 LayerName = Foreground2 end end object ppSummaryBand1: TppSummaryBand Background.Brush.Style = bsClear Border.mmPadding = 0 PrintHeight = phDynamic mmBottomOffset = 0 mmHeight = 47361 mmPrintPosition = 0 object ppShape5: TppShape DesignLayer = ppDesignLayer3 UserName = 'Shape5' Brush.Style = bsClear ParentWidth = True mmHeight = 22490 mmLeft = 0 mmTop = 5292 mmWidth = 196950 BandType = 7 LayerName = Foreground2 end object ppLabel21: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label2' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Crear p'#243'liza por:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 1588 mmTop = 6085 mmWidth = 20638 BandType = 7 LayerName = Foreground2 end object ppLabel22: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label15' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Grupo:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 1588 mmTop = 10054 mmWidth = 8594 BandType = 7 LayerName = Foreground2 end object ppLabel23: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label16' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Guardar p'#243'lizas en:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 1588 mmTop = 14552 mmWidth = 24342 BandType = 7 LayerName = Foreground2 end object ppLabel24: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label24' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Un Concepto' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 39688 mmTop = 10054 mmWidth = 15917 BandType = 7 LayerName = Foreground2 end object ppLabel25: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label25' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Todos' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 79111 mmTop = 10054 mmWidth = 7535 BandType = 7 LayerName = Foreground2 end object ppLabel26: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label26' HyperlinkEnabled = False AutoSize = False Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Visible = True Border.mmPadding = 0 Caption = '(CxC) Cuentas por cobrar' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 37042 mmTop = 529 mmWidth = 39952 BandType = 7 LayerName = Foreground2 end object ppLabel27: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label27' HyperlinkEnabled = False AutoSize = False Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Visible = True Border.mmPadding = 0 Caption = '(IN) Inventario' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3969 mmLeft = 76994 mmTop = 529 mmWidth = 25000 BandType = 7 LayerName = Foreground2 end object ppLabel28: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label28' HyperlinkEnabled = False AutoSize = False Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Visible = True Border.mmPadding = 0 Caption = '(VE) Ventas' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 101865 mmTop = 529 mmWidth = 30427 BandType = 7 LayerName = Foreground2 end object ppLabel29: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label29' HyperlinkEnabled = False AutoSize = False Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Visible = True Border.mmPadding = 0 Caption = '(CM) Compras' Color = clYellow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered mmHeight = 3969 mmLeft = 132292 mmTop = 529 mmWidth = 25929 BandType = 7 LayerName = Foreground2 end object ppLabel30: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label30' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Todos' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 135202 mmTop = 10054 mmWidth = 7535 BandType = 7 LayerName = Foreground2 end object ppLabel31: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label31' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Contabilidad' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 39688 mmTop = 14552 mmWidth = 15282 BandType = 7 LayerName = Foreground2 end object ppLabel32: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label32' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Contabilidad' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 79111 mmTop = 14552 mmWidth = 15346 BandType = 7 LayerName = Foreground2 end object ppLabel33: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label33' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Contabilidad' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 101865 mmTop = 14552 mmWidth = 15346 BandType = 7 LayerName = Foreground2 end object ppLabel34: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label34' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Contabilidad' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 135202 mmTop = 14552 mmWidth = 15346 BandType = 7 LayerName = Foreground2 end object ppLabel35: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label301' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'FACTURAS/DEVOLUCIONES' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 7 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 2963 mmLeft = 101865 mmTop = 10583 mmWidth = 30226 BandType = 7 LayerName = Foreground2 end object ppLabel36: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label36' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Ignorar los documentos ya contabilizados:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True WordWrap = True mmHeight = 6879 mmLeft = 1588 mmTop = 19844 mmWidth = 34925 BandType = 7 LayerName = Foreground2 end object myCheckBox1: TmyCheckBox DesignLayer = ppDesignLayer3 UserName = 'CheckBox1' FormField = False BooleanFalse = 'False' BooleanTrue = 'True' CheckBoxColor = clWindowText mmHeight = 6350 mmLeft = 39688 mmTop = 19844 mmWidth = 6350 BandType = 7 LayerName = Foreground2 end object myCheckBox2: TmyCheckBox DesignLayer = ppDesignLayer3 UserName = 'CheckBox2' FormField = False BooleanFalse = 'False' BooleanTrue = 'True' CheckBoxColor = clWindowText mmHeight = 6350 mmLeft = 79111 mmTop = 19844 mmWidth = 6350 BandType = 7 LayerName = Foreground2 end object myCheckBox3: TmyCheckBox DesignLayer = ppDesignLayer3 UserName = 'CheckBox3' FormField = False BooleanFalse = 'False' BooleanTrue = 'True' CheckBoxColor = clWindowText mmHeight = 6350 mmLeft = 101865 mmTop = 19844 mmWidth = 6350 BandType = 7 LayerName = Foreground2 end object myCheckBox4: TmyCheckBox DesignLayer = ppDesignLayer3 UserName = 'CheckBox4' FormField = False BooleanFalse = 'False' BooleanTrue = 'True' CheckBoxColor = clWindowText mmHeight = 6350 mmLeft = 135202 mmTop = 19844 mmWidth = 6350 BandType = 7 LayerName = Foreground2 end object ppLabel10: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label10' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'DIA' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 39688 mmTop = 6085 mmWidth = 5461 BandType = 7 LayerName = Foreground2 end object ppLabel42: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label101' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'PERIODO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 79111 mmTop = 6085 mmWidth = 13589 BandType = 7 LayerName = Foreground2 end object ppLabel43: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label43' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'DIA / DOCUMENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 101865 mmTop = 6085 mmWidth = 27601 BandType = 7 LayerName = Foreground2 end object ppLabel44: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label44' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'PERIODO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 135202 mmTop = 6085 mmWidth = 13494 BandType = 7 LayerName = Foreground2 end object ppLabel49: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label49' HyperlinkEnabled = False AutoSize = False Border.BorderPositions = [bpLeft, bpTop, bpRight, bpBottom] Border.Visible = True Border.mmPadding = 0 Caption = '(CxP) Cuentas por pagar' Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone TextAlignment = taCentered Transparent = True mmHeight = 3969 mmLeft = 158221 mmTop = 529 mmWidth = 38629 BandType = 7 LayerName = Foreground2 end object ppLabel50: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label50' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'MOVIMIENTO' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [fsBold] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 160338 mmTop = 6085 mmWidth = 19770 BandType = 7 LayerName = Foreground2 end object ppLabel51: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label302' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Un Concepto' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 160338 mmTop = 10054 mmWidth = 15917 BandType = 7 LayerName = Foreground2 end object ppLabel52: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label52' HyperlinkEnabled = False Border.mmPadding = 0 Caption = 'Contabilidad' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 160338 mmTop = 14552 mmWidth = 15346 BandType = 7 LayerName = Foreground2 end object myCheckBox5: TmyCheckBox DesignLayer = ppDesignLayer3 UserName = 'CheckBox5' FormField = False BooleanFalse = 'False' BooleanTrue = 'True' CheckBoxColor = clWindowText mmHeight = 6350 mmLeft = 160338 mmTop = 19844 mmWidth = 6350 BandType = 7 LayerName = Foreground2 end object ppLabel45: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label45' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '- Cuando estan corridas las ligas y hay modificaciones se le qui' + 'ta la paloma' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3260 mmLeft = 1323 mmTop = 39158 mmWidth = 95377 BandType = 7 LayerName = Foreground2 end object ppLabel46: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label46' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '- Hay que borrar las polizas en Contabilidad y se corren las lig' + 'as' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Arial' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3260 mmLeft = 1323 mmTop = 42598 mmWidth = 80941 BandType = 7 LayerName = Foreground2 end object ppLabel57: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label19' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '2015 CMR 100. 230 Diario de compras DOLARES' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 135202 mmTop = 38629 mmWidth = 61129 BandType = 7 LayerName = Foreground2 end object ppLabel58: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label20' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '2015 VER 100. 122 Diario de Facturas TOTALES' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 101865 mmTop = 35190 mmWidth = 60061 BandType = 7 LayerName = Foreground2 end object ppLabel59: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label21' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '2015 INR 100. 122 Diarios del Inventario TOTALES' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3440 mmLeft = 79111 mmTop = 31485 mmWidth = 63765 BandType = 7 LayerName = Foreground2 end object ppLabel60: TppLabel DesignLayer = ppDesignLayer3 UserName = 'Label22' HyperlinkEnabled = False Border.mmPadding = 0 Caption = '2015 INR 100. 150 Kardex de los articulos CONCEPTOS' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Name = 'Tahoma' Font.Size = 8 Font.Style = [] FormFieldSettings.FormSubmitInfo.SubmitMethod = fstPost FormFieldSettings.FormFieldType = fftNone Transparent = True mmHeight = 3429 mmLeft = 79111 mmTop = 27781 mmWidth = 69469 BandType = 7 LayerName = Foreground2 end object ppLine1: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line1' Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 22490 mmLeft = 72231 mmTop = 5292 mmWidth = 5027 BandType = 7 LayerName = Foreground2 end object ppLine9: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line9' Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 22490 mmLeft = 153459 mmTop = 5292 mmWidth = 5027 BandType = 7 LayerName = Foreground2 end object ppLine10: TppLine DesignLayer = ppDesignLayer3 UserName = 'Line10' Border.mmPadding = 0 Position = lpRight Weight = 0.750000000000000000 mmHeight = 22490 mmLeft = 32279 mmTop = 5292 mmWidth = 5027 BandType = 7 LayerName = Foreground2 end end object daDataModule42: TdaDataModule object daFIBQueryDataView104: TdaFIBQueryDataView UserName = 'Query_Datos_Empresa4' Height = 172 Left = 11 NameColumnWidth = 105 SizeColumnWidth = 62 SortMode = 0 Top = 28 TypeColumnWidth = 52 Width = 317 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 daFIBQueryDataView105: TdaFIBQueryDataView UserName = 'Query_CMC_USUARIO4' Height = 233 Left = 11 NameColumnWidth = 132 SizeColumnWidth = 64 SortMode = 0 Top = 214 TypeColumnWidth = 52 Width = 319 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'5498'#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 = 12 NameColumnWidth = 121 SizeColumnWidth = 70 SortMode = 0 Top = 451 TypeColumnWidth = 52 Width = 316 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 = 'TraEventHandler' raProgram.ProgramName = 'lblAreaOnGetText' raProgram.ProgramType = ttProcedure raProgram.Source = 'procedure lblAreaOnGetText(var Text: String);'#13#10'begin'#13#10#13#10' Text :' + '= '#39'SISTEMAS'#39' ;'#13#10#13#10'end;'#13#10 raProgram.ComponentName = 'lblArea' raProgram.EventName = 'OnGetText' raProgram.EventID = 53 raProgram.CaretPos = ( 3 3) end object raProgramInfo3: 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 = ( 50 4) end object raProgramInfo4: 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 = ( 40 3) end object raProgramInfo5: 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_ID'#39'] ;'#13#10' ' + ' cReporteNom := Report.Template.DatabaseSettings.Name ;'#13 + #10#13#10' Str := '#39#39' ; '#13#10' TotalWidth := Le' + 'ngth( cReporteNom ) ; '#13#10' PaddingChar := '#39'-'#39' ;'#13#10' ' + ' '#13#10' cLinea := PadLeft(Str, TotalWidth, Paddin' + 'gChar) ;'#13#10' '#13#10' memTitulo.Lines[ 0 ] := cTitulo ; '#13#10' memTi' + 'tulo.Lines[ 1 ] := cLinea ; '#13#10' memTitulo.Lines[ 2 ] := cRe' + 'porte_id ; '#13#10' memTitulo.Lines[ 3 ] := cReporteNom ; '#13#10' memTi' + 'tulo.Lines[ 4 ] := cLinea ; '#13#10#13#10' memNombreReporte.Lines.Ad' + 'd( cReporte_id ) ;'#13#10' memNombreReporte.Lines.Add( cReporteNom ) ' + '; '#13#10'end;'#13#10 raProgram.ComponentName = 'Report' raProgram.EventName = 'AfterOpenDataPipelines' raProgram.EventID = 135 raProgram.CaretPos = ( 3 22) end object raProgramInfo6: 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 raProgramInfo7: 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' Dise'#241'o de reportes especiales usando 100% ' + 'el reportedor de Microsip'#13#10' MMXV'#13#10' ---oOo---'#13 + #10'}'#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'begin'#13#10#13#10'e' + 'nd;'#13#10 raProgram.CaretPos = ( 1 11) end end object ppDesignLayers3: TppDesignLayers object ppDesignLayer3: TppDesignLayer UserName = 'Foreground2' LayerType = ltBanded Index = 0 end end object ppParameterList1: TppParameterList end end