object RptRecibosCliente: TRptRecibosCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 405 Width = 892 object DADataCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object tbl_Cabecera: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'ID_REMESA' DataType = datInteger end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datString Size = 255 end item Name = 'IMPORTE' DataType = datCurrency end item Name = 'OTROS_GASTOS' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'FORMA_PAGO_FACTURA' DataType = datString Size = 255 end item Name = 'IMPORTE_FACTURA' DataType = datCurrency end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'CALLE_CLIENTE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString Size = 10 end item Name = 'PROVINCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'POBLACION_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 end item Name = 'PROVINCIA_EMPRESA' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 end item Name = 'TELEFONO_1' DataType = datString Size = 25 end item Name = 'FAX' DataType = datString Size = 25 end item Name = 'MOVIL_1' DataType = datString Size = 25 end item Name = 'EMAIL_1' DataType = datString Size = 255 end item Name = 'PAGINA_WEB' DataType = datString Size = 255 end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 end item Name = 'LOGOTIPO' DataType = datBlob end> Params = < item Name = 'ID' DataType = datInteger Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Cabecera' IndexDefs = <> Left = 264 Top = 128 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 = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_recibos_cliente' Name = 'IBX' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF_' + 'CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL,'#10'case'#10'w' + 'hen strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta bancaria'#39#10'else ' + 'DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS'#10#10'from V_recibos_cliente'#10'w' + 'here {where}'#10'order by ANO, MES, FECHA_VENCIMIENTO, DATOS_BANCARI' + 'OS, NOMBRE_CLIENTE'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'MES' TableField = 'MES' end item DatasetField = 'TITULO' TableField = 'TITULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF_CLIENTE' TableField = 'NIF_CIF_CLIENTE' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' end> end> Name = 'InformeListadoRecibosPendientes' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end> end item Params = < item Name = 'ID_RECIBO' 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 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'IMPORTE_TOTAL' DataType = datFloat end> end item Params = < item Name = 'ID' DataType = datInteger 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.DATOS_BANCARIOS,'#10' V_RECIBOS_CLIENT' + 'E.ID_REMESA,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REMESA,'#10' V_RECI' + 'BOS_CLIENTE.FECHA_EMISION,'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIEN' + 'TO,'#10' V_RECIBOS_CLIENTE.DESCRIPCION,'#10' V_RECIBOS_CLIENTE.OBS' + 'ERVACIONES,'#10' V_RECIBOS_CLIENTE.IMPORTE,'#10' V_RECIBOS_CLIENTE' + '.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' + 'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' + 'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' + 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' + 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' + 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' + 'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' + 'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' + ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' + ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' + 'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' + ' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' + 'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' + 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 + 'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_RECIBO_COMPENSADO' TableField = '' SQLOrigin = 'ID_RECIBO_COMPENSADO' end item DatasetField = 'REFERENCIA_REC_COMPENSADO' TableField = '' SQLOrigin = 'REFERENCIA_REC_COMPENSADO' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = '' SQLOrigin = 'SITUACION' end item DatasetField = 'ID_FACTURA' TableField = '' SQLOrigin = 'ID_FACTURA' end item DatasetField = 'DATOS_BANCARIOS' TableField = '' SQLOrigin = 'DATOS_BANCARIOS' end item DatasetField = 'ID_REMESA' TableField = '' SQLOrigin = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' TableField = '' SQLOrigin = 'REFERENCIA_REMESA' end item DatasetField = 'FECHA_EMISION' TableField = '' SQLOrigin = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = '' SQLOrigin = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'OBSERVACIONES' TableField = '' SQLOrigin = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' TableField = '' SQLOrigin = 'IMPORTE' end item DatasetField = 'OTROS_GASTOS' TableField = '' SQLOrigin = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'FECHA_FACTURA' TableField = '' SQLOrigin = 'FECHA_FACTURA' end item DatasetField = 'FORMA_PAGO_FACTURA' TableField = '' SQLOrigin = 'FORMA_PAGO_FACTURA' end item DatasetField = 'IMPORTE_FACTURA' TableField = '' SQLOrigin = 'IMPORTE_FACTURA' end item DatasetField = 'NOMBRE_CLIENTE' TableField = '' SQLOrigin = 'NOMBRE_CLIENTE' end item DatasetField = 'NIF_CIF_CLIENTE' TableField = '' SQLOrigin = 'NIF_CIF_CLIENTE' end item DatasetField = 'CALLE_CLIENTE' TableField = '' SQLOrigin = 'CALLE_CLIENTE' end item DatasetField = 'CODIGO_POSTAL_CLIENTE' TableField = '' SQLOrigin = 'CODIGO_POSTAL_CLIENTE' end item DatasetField = 'PROVINCIA_CLIENTE' TableField = '' SQLOrigin = 'PROVINCIA_CLIENTE' end item DatasetField = 'POBLACION_CLIENTE' TableField = '' SQLOrigin = 'POBLACION_CLIENTE' end item DatasetField = 'NIF_CIF_EMPRESA' TableField = '' SQLOrigin = 'NIF_CIF_EMPRESA' end item DatasetField = 'RAZON_SOCIAL' TableField = '' SQLOrigin = 'RAZON_SOCIAL' end item DatasetField = 'CALLE_EMPRESA' TableField = '' SQLOrigin = 'CALLE_EMPRESA' end item DatasetField = 'POBLACION_EMPRESA' TableField = '' SQLOrigin = 'POBLACION_EMPRESA' end item DatasetField = 'PROVINCIA_EMPRESA' TableField = '' SQLOrigin = 'PROVINCIA_EMPRESA' end item DatasetField = 'CODIGO_POSTAL_EMPRESA' TableField = '' SQLOrigin = 'CODIGO_POSTAL_EMPRESA' end item DatasetField = 'TELEFONO_1' TableField = '' SQLOrigin = 'TELEFONO_1' end item DatasetField = 'FAX' TableField = '' SQLOrigin = 'FAX' end item DatasetField = 'MOVIL_1' TableField = '' SQLOrigin = 'MOVIL_1' end item DatasetField = 'EMAIL_1' TableField = '' SQLOrigin = 'EMAIL_1' end item DatasetField = 'PAGINA_WEB' TableField = '' SQLOrigin = 'PAGINA_WEB' end item DatasetField = 'REGISTRO_MERCANTIL' TableField = '' SQLOrigin = 'REGISTRO_MERCANTIL' end item DatasetField = 'LOGOTIPO' TableField = '' SQLOrigin = 'LOGOTIPO' end> end> Name = 'Informe_Cabecera' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'ID_REMESA' DataType = datInteger end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datString Size = 255 end item Name = 'IMPORTE' DataType = datCurrency end item Name = 'OTROS_GASTOS' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'FORMA_PAGO_FACTURA' DataType = datString Size = 255 end item Name = 'IMPORTE_FACTURA' DataType = datCurrency end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'CALLE_CLIENTE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString Size = 10 end item Name = 'PROVINCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'POBLACION_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF_EMPRESA' DataType = datString Size = 15 end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 end item Name = 'CALLE_EMPRESA' DataType = datString Size = 255 end item Name = 'POBLACION_EMPRESA' DataType = datString Size = 255 end item Name = 'PROVINCIA_EMPRESA' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_EMPRESA' DataType = datString Size = 10 end item Name = 'TELEFONO_1' DataType = datString Size = 25 end item Name = 'FAX' DataType = datString Size = 25 end item Name = 'MOVIL_1' DataType = datString Size = 25 end item Name = 'EMAIL_1' DataType = datString Size = 255 end item Name = 'PAGINA_WEB' DataType = datString Size = 255 end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 end item Name = 'LOGOTIPO' DataType = datBlob end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_recibos_cliente' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' + 'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' + 'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' + 'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' + 'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' + 'LO,'#10'case'#10'when strlen(DATOS_BANCARIOS) = 0 then '#39'Sin cuenta banca' + 'ria'#39#10'else DATOS_BANCARIOS'#10'end as DATOS_BANCARIOS,'#10'sum(IMPORTE_TO' + 'TAL) as Importe_total'#10#10'from V_recibos_cliente'#10'group by 1,2,3,4,5' + #10'order by 1,2,3,4,5'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'MES' TableField = 'MES' end item DatasetField = 'TITULO' TableField = 'TITULO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'DATOS_BANCARIOS' TableField = 'DATOS_BANCARIOS' end> end> Name = 'InformeListadoRecibosPendientesResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_recibos_cliente' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_emision) as ANO,'#10'ext' + 'ract (month from fecha_emision) as MES,'#10'case'#10'when extract (month' + ' from fecha_emision) = 1 then '#39'ENERO - '#39' || extract (year from f' + 'echa_emision)'#10'when extract (month from fecha_emision) = 2 then '#39 + 'FEBRERO - '#39' || extract (year from fecha_emision)'#10'when extract (m' + 'onth from fecha_emision) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'om fecha_emision)'#10'when extract (month from fecha_emision) = 4 th' + 'en '#39'ABRIL - '#39' || extract (year from fecha_emision)'#10'when extract ' + '(month from fecha_emision) = 5 then '#39'MAYO - '#39' || extract (year f' + 'rom fecha_emision)'#10'when extract (month from fecha_emision) = 6 t' + 'hen '#39'JUNIO - '#39' || extract (year from fecha_emision)'#10'when extract' + ' (month from fecha_emision) = 7 then '#39'JULIO - '#39' || extract (year' + ' from fecha_emision)'#10'when extract (month from fecha_emision) = 8' + ' then '#39'AGOSTO - '#39' || extract (year from fecha_emision)'#10'when extr' + 'act (month from fecha_emision) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + 'ct (year from fecha_emision)'#10'when extract (month from fecha_emis' + 'ion) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_emision)' + #10'when extract (month from fecha_emision) = 11 then '#39'NOVIEMBRE - ' + #39' || extract (year from fecha_emision)'#10'when extract (month from ' + 'fecha_emision) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_emision)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIE' + 'NTE, SITUACION, NIF_CIF_CLIENTE, fecha_emision, FECHA_VENCIMIENT' + 'O,'#10'IMPORTE_TOTAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by ' + 'ANO, MES, fecha_emision, NOMBRE_CLIENTE'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'MES' TableField = 'MES' end item DatasetField = 'TITULO' TableField = 'TITULO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF_CLIENTE' TableField = 'NIF_CIF_CLIENTE' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeListadoRecibos' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_recibos_cliente' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_emision) as ANO,'#10'ext' + 'ract (month from fecha_emision) as MES,'#10'case'#10'when extract (month' + ' from fecha_emision) = 1 then '#39'ENERO - '#39' || extract (year from f' + 'echa_emision)'#10'when extract (month from fecha_emision) = 2 then '#39 + 'FEBRERO - '#39' || extract (year from fecha_emision)'#10'when extract (m' + 'onth from fecha_emision) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'om fecha_emision)'#10'when extract (month from fecha_emision) = 4 th' + 'en '#39'ABRIL - '#39' || extract (year from fecha_emision)'#10'when extract ' + '(month from fecha_emision) = 5 then '#39'MAYO - '#39' || extract (year f' + 'rom fecha_emision)'#10'when extract (month from fecha_emision) = 6 t' + 'hen '#39'JUNIO - '#39' || extract (year from fecha_emision)'#10'when extract' + ' (month from fecha_emision) = 7 then '#39'JULIO - '#39' || extract (year' + ' from fecha_emision)'#10'when extract (month from fecha_emision) = 8' + ' then '#39'AGOSTO - '#39' || extract (year from fecha_emision)'#10'when extr' + 'act (month from fecha_emision) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + 'ct (year from fecha_emision)'#10'when extract (month from fecha_emis' + 'ion) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_emision)' + #10'when extract (month from fecha_emision) = 11 then '#39'NOVIEMBRE - ' + #39' || extract (year from fecha_emision)'#10'when extract (month from ' + 'fecha_emision) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_emision)'#10'end as TITULO,'#10'sum(IMPORTE_TOTAL) as importe_total'#10 + #10'from V_recibos_cliente'#10'group by 1,2,3,4'#10'order by 1,2,3,4'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'MES' TableField = 'MES' end item DatasetField = 'TITULO' TableField = 'TITULO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeListadoRecibosResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 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.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.LastChange = 39840.717636527780000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' ' Set('#39'Pagina'#39', 0);' ' Set('#39'TotalPaginas'#39', 0); ' 'end;' '' 'procedure Band1OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' ' Set('#39'Pagina'#39', ( + 1)); ' 'end;' '' 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' 'begin' ' if Engine.FinalPass then' ' begin' ' //A la vez que salta este salta la asignacion de pagina por ' + 'lo que no coincide nunca si no suponemos +1 ' + ' ' + ' ' + ' ' + ' ' ' if (( + 1) = ) then' ' begin ' ' mContinua.Visible := True;' ' end ' ' else' ' begin ' ' mContinua.Visible := False;' ' end ' ' end; ' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 264 Top = 16 end object DADataCompensados: TDADataSource DataSet = tbl_Compensados.Dataset DataTable = tbl_Compensados Left = 360 Top = 72 end object frxDBCompensados: TfrxDBDataset UserName = 'frxDBCompensados' CloseDataSource = False DataSource = DADataCompensados Left = 360 Top = 16 end object tbl_Compensados: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'IMPORTE_TOTAL' DataType = datFloat end> Params = < item Name = 'ID_RECIBO' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Informe_Compensados' IndexDefs = <> Left = 360 Top = 128 end object tbl_InformeListadoRecibos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoRecibos' IndexDefs = <> Left = 496 Top = 128 end object DADSInformeListadoRecibos: TDADataSource DataSet = tbl_InformeListadoRecibos.Dataset DataTable = tbl_InformeListadoRecibos Left = 496 Top = 72 end object frxDBInformeListadoRecibos: TfrxDBDataset UserName = 'frxDBInformeListadoRecibos' CloseDataSource = False DataSource = DADSInformeListadoRecibos Left = 496 Top = 16 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 88 end object frxDBInformeListadoRecibosResumen: TfrxDBDataset UserName = 'frxDBInformeListadoRecibosResumen' CloseDataSource = False DataSource = DADSInformeListadoRecibosResumen Left = 504 Top = 192 end object DADSInformeListadoRecibosResumen: TDADataSource DataSet = tbl_InformeListadoRecibosResumen.Dataset DataTable = tbl_InformeListadoRecibosResumen Left = 504 Top = 248 end object tbl_InformeListadoRecibosResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 504 Top = 304 end object frxDBInformeListadoRecibosPendientes: TfrxDBDataset UserName = 'frxDBInformeListadoRecibosPendientes' CloseDataSource = False DataSource = DADSInformeListadoRecibosPendientes Left = 704 Top = 16 end object DADSInformeListadoRecibosPendientes: TDADataSource DataSet = tbl_InformeListadoRecibosPendientes.Dataset DataTable = tbl_InformeListadoRecibosPendientes Left = 704 Top = 72 end object tbl_InformeListadoRecibosPendientes: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'MES' DataType = datSmallInt end item Name = 'TITULO' DataType = datString Size = 19 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoRecibosPendientes' IndexDefs = <> Left = 704 Top = 128 end object frxDBInformeListadoRecibosPendResumen: TfrxDBDataset UserName = 'frxDBInformeListadoRecibosPendResumen' CloseDataSource = False DataSource = DADSInformeListadoRecibosPendResumen Left = 704 Top = 192 end object DADSInformeListadoRecibosPendResumen: TDADataSource DataSet = tbl_InformeListadoRecibosPendResumen.Dataset DataTable = tbl_InformeListadoRecibosPendResumen Left = 704 Top = 248 end object tbl_InformeListadoRecibosPendResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 704 Top = 304 end end