object RptFacturasCliente: TRptFacturasCliente OldCreateOrder = True OnCreate = DataModuleCreate Height = 464 Width = 589 object DADataCabecera: TDADataSource DataSet = tbl_FacturaCliente.Dataset DataTable = tbl_FacturaCliente Left = 264 Top = 72 end object DADataDetalles: TDADataSource DataSet = tbl_DetallesFacturaCliente.Dataset DataTable = tbl_DetallesFacturaCliente Left = 344 Top = 72 end object tbl_FacturaCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'ID_TIENDA' DataType = datInteger end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'FacturasCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' end item Name = 'IVA' DataType = datFloat DictionaryEntry = 'FacturasCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' end item Name = 'OBSERVACIONES' DataType = datMemo DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item Name = 'FORMA_PAGO' DataType = datString Size = 255 DisplayLabel = 'Forma de pago' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 DictionaryEntry = 'FacturasCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_NOMBRE' end item Name = 'CALLE' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_CALLE' end item Name = 'PROVINCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item Name = 'POBLACION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_POBLACION' end item Name = 'TITULAR' DataType = datString Size = 255 end item Name = 'ENTIDAD' DataType = datString Size = 15 end item Name = 'SUCURSAL' DataType = datString Size = 15 end item Name = 'DC' DataType = datString Size = 15 end item Name = 'CUENTA' DataType = datString Size = 15 end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_EMPRESA' 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 = '1' 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 = 'InformeFacturasCliente' IndexDefs = <> Left = 264 Top = 128 end object tbl_DetallesFacturaCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc DictionaryEntry = 'FacturasCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_FACTURA' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' end item Name = 'POSICION' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end> Params = < item Name = 'ID_FACTURA' DataType = datInteger Value = '13' 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 = 'InformeFacturasCliente_Detalles' IndexDefs = <> Left = 344 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 schReport: TDASchema ConnectionManager = dmServer.ConnectionManager Datasets = < item Params = < item Name = 'ID' DataType = datInteger Value = '1' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' + ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.TIENDA' + ', V_FACTURAS_CLIENTE.ID_TIENDA,'#10' V_FACTURAS_CLIENTE.IMPORTE_N' + 'ETO,'#10' V_FACTURAS_CLIENTE.BASE_IMPONIBLE, V_FACTURAS_CLIENTE.D' + 'ESCUENTO, V_FACTURAS_CLIENTE.IMPORTE_DESCUENTO,'#10' V_FACTURAS_C' + 'LIENTE.IVA, V_FACTURAS_CLIENTE.IMPORTE_IVA,'#10' V_FACTURAS_CLIEN' + 'TE.RE, V_FACTURAS_CLIENTE.IMPORTE_RE,'#10' V_FACTURAS_CLIENTE.IMP' + 'ORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.OBSERVACIONES, FORMAS_PAGO.DE' + 'SCRIPCION AS FORMA_PAGO, V_FACTURAS_CLIENTE.ID_CLIENTE,'#10' V_FA' + 'CTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURAS_CL' + 'IENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CLIENT' + 'E.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION,'#10' CONTACTOS_DAT' + 'OS_BANCO.TITULAR,'#10' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACT' + 'OS_DATOS_BANCO.SUCURSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTA' + 'CTOS_DATOS_BANCO.CUENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF' + '_CIF_EMPRESA, 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_EMPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS' + '.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.RE' + 'GISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT' + ' JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT JOIN FORMAS_PAGO' + ' ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FORMA_PAGO)'#10'LEFT JOI' + 'N CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BANCO.ID_CONTACTO = ' + 'V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE V_FACTURAS_CLIENTE.ID = :ID' + #10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'IMPORTE_NETO' TableField = 'IMPORTE_NETO' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_DESCUENTO' TableField = 'IMPORTE_DESCUENTO' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'RE' TableField = 'RE' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'FORMA_PAGO' TableField = '' SQLOrigin = 'FORMA_PAGO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'TITULAR' TableField = '' SQLOrigin = 'TITULAR' end item DatasetField = 'ENTIDAD' TableField = '' SQLOrigin = 'ENTIDAD' end item DatasetField = 'SUCURSAL' TableField = '' SQLOrigin = 'SUCURSAL' end item DatasetField = 'DC' TableField = '' SQLOrigin = 'DC' end item DatasetField = 'CUENTA' TableField = '' SQLOrigin = 'CUENTA' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' 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 item DatasetField = 'TIENDA' TableField = '' SQLOrigin = 'TIENDA' end item DatasetField = 'ID_TIENDA' TableField = 'ID_TIENDA' end> end> Name = 'InformeFacturasCliente' Fields = < item Name = 'ID' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_REFERENCIA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'ID_TIENDA' DataType = datInteger end item Name = 'IMPORTE_NETO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'FacturasCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' end item Name = 'IVA' DataType = datFloat DictionaryEntry = 'FacturasCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' end item Name = 'OBSERVACIONES' DataType = datMemo DictionaryEntry = 'FacturasCliente_OBSERVACIONES' end item Name = 'FORMA_PAGO' DataType = datString Size = 255 DisplayLabel = 'Forma de pago' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 DictionaryEntry = 'FacturasCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_NOMBRE' end item Name = 'CALLE' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_CALLE' end item Name = 'PROVINCIA' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' end item Name = 'POBLACION' DataType = datString Size = 255 DictionaryEntry = 'FacturasCliente_POBLACION' end item Name = 'TITULAR' DataType = datString Size = 255 end item Name = 'ENTIDAD' DataType = datString Size = 15 end item Name = 'SUCURSAL' DataType = datString Size = 15 end item Name = 'DC' DataType = datString Size = 15 end item Name = 'CUENTA' DataType = datString Size = 15 end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_EMPRESA' 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 = < item Name = 'ID_FACTURA' DataType = datInteger Value = '13' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE_DETALLES' SQL = 'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + 'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' + 'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER' + ' BY POSICION;' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end> end> Name = 'InformeFacturasCliente_Detalles' Fields = < item Name = 'ID' DataType = datAutoInc DictionaryEntry = 'FacturasCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_FACTURA' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' end item Name = 'POSICION' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datFloat DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end> end item Params = < item Name = 'ID_FACTURA' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'V_RECIBOS_CLIENTE' SQL = 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' + 'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' + 'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' + 'ENTO' StatementType = stSQL ColumnMappings = < item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end> end> Name = 'InformeFacturasCliente_Vencimientos' Fields = < item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datFloat end> end> JoinDataTables = <> UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 16 end object DataDictionary: TDADataDictionary Fields = < item Name = 'FacturasCliente_ID' DataType = datAutoInc Required = True DisplayLabel = 'ID' end item Name = 'FacturasCliente_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'FacturasCliente_ID_CONTRATO' DataType = datInteger DisplayLabel = 'ID_CONTRATO' end item Name = 'FacturasCliente_FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'Fecha de las factura' end item Name = 'FacturasCliente_VENCIMIENTO' DataType = datInteger DisplayLabel = 'Vencimiento' end item Name = 'FacturasCliente_SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' end item Name = 'FacturasCliente_BASE_IMPONIBLE' DataType = datFloat DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_DESCUENTO' DataType = datFloat DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_IVA' DataType = datFloat DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_TOTAL' DataType = datFloat DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_FORMA_PAGO' DataType = datMemo DisplayLabel = 'Forma de pago' end item Name = 'FacturasCliente_ID_CLIENTE' DataType = datInteger DisplayLabel = 'ID_CLIENTE' end item Name = 'FacturasCliente_NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' end item Name = 'FacturasCliente_CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'd. postal' end item Name = 'FacturasCliente_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item Name = 'FacturasCliente_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item Name = 'FacturasCliente_OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' end item Name = 'FacturasCliente_NOMBRE' DataType = datString Size = 100 DisplayLabel = 'Cliente' end item Name = 'FacturasCliente_CALLE' DataType = datString Size = 150 DisplayLabel = 'Direcci'#243'n' end item Name = 'FacturasCliente_PROVINCIA' DataType = datString Size = 30 DisplayLabel = 'Provincia' end item Name = 'FacturasCliente_POBLACION' DataType = datString Size = 150 DisplayLabel = 'Poblaci'#243'n' end item Name = 'FacturasCliente_IVA' DataType = datFloat DisplayLabel = 'IVA' end item Name = 'FacturasCliente_USUARIO' DataType = datString Size = 100 DisplayLabel = 'USUARIO' end item Name = 'FacturasCliente_REFERENCIA' DataType = datString Size = 20 DisplayLabel = 'Referencia' end item Name = 'FacturasCliente_DESCUENTO' DataType = datFloat DisplayLabel = 'Dto.' end item Name = 'FacturasCliente_Detalles_ID' DataType = datAutoInc Required = True DisplayLabel = 'ID' end item Name = 'FacturasCliente_Detalles_ID_FACTURA' DataType = datInteger DisplayLabel = 'ID_FACTURA' end item Name = 'FacturasCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 10 DisplayLabel = 'Tipo detalle' end item Name = 'FacturasCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'Concepto' end item Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DataType = datFloat DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DataType = datFloat DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_VISIBLE' DataType = datInteger DisplayLabel = #191'Visible?' end item Name = 'FacturasCliente_Detalles_POSICION' DataType = datInteger DisplayLabel = 'Posici'#243'n' end item Name = 'FacturasCliente_Detalles_CANTIDAD' DataType = datInteger DisplayLabel = 'Cantidad' end> Left = 46 Top = 142 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.LastChange = 39629.545549768520000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' 'begin' ' DatosCliente.Lines.Clear;' ' DatosCliente.Lines.Add();' '' ' if ( <> '#39#39')' ' or ( <> '#39#39') then' ' DatosCliente.Lines.Add( + '#39' ' + ' '#39' + );' '' ' if ( <> '#39#39') then' ' DatosCliente.Lines.Add();' 'end;' '' 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' 'begin' ' BandaDetalles.StartNewPage := False;' ' BandaDetalles.Visible := True;' ' MemPrecio.Style := '#39'Concepto normal'#39';' ' MemCantidad.Style := '#39'Concepto normal'#39';' ' MemImpTotal.Style := '#39'Concepto normal'#39';' ' RichConcepto.Visible := True;' '' ' case of' ' '#39'Salto'#39': begin' ' BandaDetalles.StartNewPage := True;' ' RichConcepto.Visible := False;' ' end;' ' '#39'Titulo'#39': begin' ' MemPrecio.Style := '#39'Concepto titulo'#39';' ' MemCantidad.Style := '#39'Concepto titulo'#39';' ' MemImpTotal.Style := '#39'Concepto titulo'#39';' ' end;' ' '#39'Concepto'#39': begin' ' MemPrecio.Style := '#39'Concepto normal'#39';' ' MemCantidad.Style := '#39'Concepto normal'#39';' ' MemImpTotal.Style := '#39'Concepto normal'#39';' ' end;' ' '#39'Subtotal'#39': begin' ' MemPrecio.Style := '#39'Concepto subtotal'#39';' ' MemCantidad.Style := '#39'Concepto subtotal'#39';' ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' ' end;' ' '#39'Descuento'#39': begin' ' BandaDetalles.Visible := False;' ' RichConcepto.Color := clNone;' ' end;' ' end;' '' ' RichConcepto.Color := MemImpTotal.Color;' ' RichConcepto.Frame := MemImpTotal.Frame;' 'end;' '' 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' 'begin' '// if Engine.FreeSpace > ReportSummary1.Height then ' ' Engine.CurY := Engine.PageHeight - ReportSummary1.Height - ' + 'Band3.Height - 1' 'end;' '' 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' 'begin' ' Memo15.Lines.Clear;' ' if (StrToFloat() < 0) then' ' Memo15.Lines.Add('#39'ABONO'#39')' ' else' ' Memo15.Lines.Add('#39'FACTURA'#39')' 'end;' '' 'procedure Band2OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if not Engine.FinalPass then' ' Set('#39'TotalPaginas'#39', ( + 1));' '' ' if Engine.FinalPass then' ' Set('#39'Pagina'#39', ( + 1));' '' ' if Engine.FinalPass and ( > ) then' ' begin ' ' LineaCorta1.visible := False; ' ' LineaLarga1.visible := True; ' ' LineaCorta2.visible := False; ' ' LineaLarga2.visible := True; ' ' ' ' end' ' else' ' begin' ' LineaCorta1.visible := True; ' ' LineaLarga1.visible := False;' ' LineaCorta2.visible := True; ' ' LineaLarga2.visible := False;' ' ' ' end; ' 'end;' '' 'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'begin' ' Set('#39'Pagina'#39', 0);' ' Set('#39'TotalPaginas'#39', 0);' 'end;' '' 'procedure Memo26OnBeforePrint(Sender: TfrxComponent);' 'begin ' ' if ( > 0) then' ' begin' ' Memo26.visible := True; ' + ' ' ' end' ' else' ' begin' ' Memo26.visible := False; ' ' end; ' 'end;' '' 'procedure Memo25OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if ( > 0) then' ' begin' ' Memo25.visible := True; ' + ' ' ' end' ' else' ' begin' ' Memo25.visible := False; ' ' end; ' 'end;' '' 'procedure Memo21OnBeforePrint(Sender: TfrxComponent);' 'begin' ' if ( > 0) then' ' begin' ' Memo21.visible := True; ' + ' ' ' end' ' else' ' begin' ' Memo21.visible := False; ' ' end; ' 'end;' '' '' 'procedure ReportSummary1OnAfterCalcHeight(Sender: TfrxComponent)' + ';' 'begin' '//Es peor el remedio que la enfermedad, en el caso de sobre pasa' + 'r en uno el numero de conceptos para que no quepa el reportsumar' + 'y,' '//no hay forma de ponerlo al final en la p'#225'gina siguiente hasta ' + 'que el numero de conceptos rellene al menos un concepto de la si' + 'guiente hoja. ' + ' ' + ' ' + ' ' + ' ' + ' ' '// if Engine.FreeSpace > ReportSummary1.Height then ' '// Engine.CurY := Engine.PageHeight - ReportSummary1.Height ' + '- Band3.Height - 1' 'end;' '' 'begin' '' 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = True DataSource = DADataCabecera Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles Left = 344 Top = 16 end object DADataVencimientos: TDADataSource DataSet = tbl_Vencimientos.Dataset DataTable = tbl_Vencimientos Left = 456 Top = 72 end object tbl_Vencimientos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datFloat end> Params = < item Name = 'ID_FACTURA' 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 = 'InformeFacturasCliente_Vencimientos' IndexDefs = <> Left = 456 Top = 128 end object frxDBDataset1: TfrxDBDataset UserName = 'frxDBVencimientos' CloseDataSource = True DataSource = DADataVencimientos Left = 456 Top = 16 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end end