object RptRecibosCliente: TRptRecibosCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 405 Width = 447 object DADataCabecera: TDADataSource DataTable = tbl_Cabecera Left = 264 Top = 72 end object tbl_Cabecera: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 264 Top = 128 end object DABINAdapter: TDABINAdapter Left = 48 Top = 80 end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 end object frxBarCodeObject1: TfrxBarCodeObject Left = 144 Top = 296 end object frxOLEObject1: TfrxOLEObject Left = 48 Top = 344 end object frxCrossObject1: TfrxCrossObject Left = 144 Top = 344 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 256 Top = 296 end object frxGradientObject1: TfrxGradientObject Left = 360 Top = 296 end object frxChartObject1: TfrxChartObject Left = 256 Top = 344 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID_RECIBO' BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = 'SELECT'#10' V_RECIBOS_CLIENTE.REFERENCIA, V_RECIBOS_CLIENTE.DESCR' + 'IPCION, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'W' + 'HERE V_RECIBOS_CLIENTE.ID_RECIBO_COMPENSADO = :ID_RECIBO' StatementType = stSQL ColumnMappings = < item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end> end> Name = 'Informe_Compensados' Fields = < item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_RECIBO' + '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + ' V_RECIBOS_CLIENTE.ID_EMPRESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA' + ','#10' V_RECIBOS_CLIENTE.SITUACION,'#10' V_RECIBOS_CLIENTE.ID_FACT' + 'URA,'#10' V_RECIBOS_CLIENTE.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFE' + 'RENCIA_REMESA,'#10' V_RECIBOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBO' + 'S_CLIENTE.FECHA_VENCIMIENTO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10 + ' V_RECIBOS_CLIENTE.OBSERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPOR' + 'TE,'#10' V_RECIBOS_CLIENTE.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IM' + 'PORTE_TOTAL,'#10' V_RECIBOS_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_' + 'CLIENTE.FORMA_PAGO_FACTURA,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTUR' + 'A,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.N' + 'IF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.ENTIDAD_CLIENTE,'#10' V_REC' + 'IBOS_CLIENTE.SUCURSAL_CLIENTE,'#10' V_RECIBOS_CLIENTE.DC_CLIENTE,' + #10' V_RECIBOS_CLIENTE.CUENTA_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as ' + 'NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CA' + 'LLE_EMPRESA, EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRES' + 'AS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as COD' + 'IGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRE' + 'SAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS' + '.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE' + #10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.' + 'ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'ID_REMESA' TableField = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' TableField = 'REFERENCIA_REMESA' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'FORMA_PAGO_FACTURA' TableField = 'FORMA_PAGO_FACTURA' end item DatasetField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'NIF_CIF_CLIENTE' TableField = 'NIF_CIF_CLIENTE' end item DatasetField = 'ENTIDAD_CLIENTE' TableField = 'ENTIDAD_CLIENTE' end item DatasetField = 'SUCURSAL_CLIENTE' TableField = 'SUCURSAL_CLIENTE' end item DatasetField = 'DC_CLIENTE' TableField = 'DC_CLIENTE' end item DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' end item DatasetField = 'NIF_CIF_EMPRESA' TableField = 'NIF_CIF_EMPRESA' end item DatasetField = 'RAZON_SOCIAL' TableField = 'RAZON_SOCIAL' end item DatasetField = 'CALLE_EMPRESA' TableField = 'CALLE_EMPRESA' end item DatasetField = 'POBLACION_EMPRESA' TableField = 'POBLACION_EMPRESA' end item DatasetField = 'PROVINCIA_EMPRESA' TableField = 'PROVINCIA_EMPRESA' end item DatasetField = 'CODIGO_POSTAL_EMPRESA' TableField = 'CODIGO_POSTAL_EMPRESA' end item DatasetField = 'TELEFONO_1' TableField = 'TELEFONO_1' end item DatasetField = 'FAX' TableField = 'FAX' end item DatasetField = 'MOVIL_1' TableField = 'MOVIL_1' end item DatasetField = 'EMAIL_1' TableField = 'EMAIL_1' end item DatasetField = 'PAGINA_WEB' TableField = 'PAGINA_WEB' end item DatasetField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL' end item DatasetField = 'LOGOTIPO' TableField = 'LOGOTIPO' end item DatasetField = 'OTROS_GASTOS' TableField = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'ID_RECIBO_COMPENSADO' TableField = 'ID_RECIBO_COMPENSADO' end item DatasetField = 'REFERENCIA_REC_COMPENSADO' TableField = 'REFERENCIA_REC_COMPENSADO' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 9 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FACTURA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_REMESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_EMISION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OTROS_GASTOS' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_FACTURA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FORMA_PAGO_FACTURA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_FACTURA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ENTIDAD_CLIENTE' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUCURSAL_CLIENTE' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DC_CLIENTE' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CUENTA_CLIENTE' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA_EMPRESA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'LOGOTIPO' DataType = datBlob BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = <> UpdateRules = <> Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = <> Left = 46 Top = 158 end object frxReport: TfrxReport Version = '4.3' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') ReportOptions.LastChange = 39276.413526655100000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' 'var' ' Cadena: String;' 'begin' ' DatosEmpresa.Lines.Clear;' ' DatosEmpresa.Lines.Add();' ' DatosEmpresa.Lines.Add();' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := '#39'TLF: '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' FAX: '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' '' ' Cadena := '#39#39';' ' if ( <> '#39#39') then' ' Cadena := ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' '#39' + ;' ' if ( <> '#39#39') then' ' Cadena := Cadena + '#39' - '#39' + ;' ' DatosEmpresa.Lines.Add(Cadena);' 'end;' '' 'procedure Memo54OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if ( <> '#39#39') then' ' Memo54.Text := '#39'Recibos compensados'#39';' 'end;' '' 'procedure EtiCompensadoOnBeforePrint(Sender: TfrxComponent);' 'begin' ' if ( = '#39#39') then' ' EtiCompensado.Visible := False;' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 264 Top = 16 end object DADataCompensados: TDADataSource DataTable = tbl_Compensados Left = 360 Top = 72 end object frxDBCompensados: TfrxDBDataset UserName = 'frxDBCompensados' CloseDataSource = True DataSource = DADataCompensados Left = 360 Top = 16 end object tbl_Compensados: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 360 Top = 128 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False PrintOptimized = True Outline = True Author = 'FactuGES' Subject = 'FactuGES' Background = False Creator = 'FactuGES' HTMLTags = True Left = 360 Top = 344 end end