object RptFacturasCliente: TRptFacturasCliente OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 612 Width = 898 object DADataCabecera: TDADataSource DataSet = tbl_Cabecera.Dataset DataTable = tbl_Cabecera Left = 264 Top = 72 end object DADataDetalles: TDADataSource DataSet = tbl_Detalles.Dataset DataTable = tbl_Detalles Left = 344 Top = 72 end object tbl_Cabecera: 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 = 'TIPO' DataType = datString Size = 1 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 = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 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 = 'PAIS' DataType = datString Size = 255 end item Name = 'REF_CLI_CONTRATO' DataType = datString Size = 255 end item Name = 'RETENCION' DataType = datFloat end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'FECHA_RETENCION' DataType = datDateTime 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 item Name = 'IDIOMA_ISO' DataType = datString Size = 2 end> Params = < item Name = 'ID' DataType = datInteger Value = '1' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'InformeFacturasCliente' IndexDefs = <> Left = 264 Top = 128 end object tbl_Detalles: 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 = 'ID_ARTICULO' DataType = datInteger end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CONCEPTO_EN' DataType = datString Size = 1000 end item Name = 'CANTIDAD' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datSmallInt DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end item Name = 'VALORADO' DataType = datSmallInt 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 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 = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'v_Facturas_cliente' Name = 'IBX' SQL = 'select V_facturas_cliente.ID_EMPRESA,'#10'contactos.REFERENCIA,'#10'cont' + 'actos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_cliente.NOMBRE,'#10's' + 'um(V_facturas_cliente.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10'sum(V_f' + 'acturas_cliente.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_clie' + 'nte.IMPORTE_RETENCION) as IMPORTE_RETENCION,'#10'sum(V_facturas_clie' + 'nte.IMPORTE_RE) AS IMPORTE_RE,'#10'sum(V_facturas_cliente.IMPORTE_TO' + 'TAL) AS IMPORTE_TOTAL'#10'from V_facturas_cliente'#10'left join contacto' + 's on (contactos.ID = V_facturas_cliente.ID_CLIENTE)'#10'where (V_fac' + 'turas_cliente.TIPO <> '#39'P'#39')'#10'group by 1,2,3,4,5'#10'order by 1,5,2,3,4' + #10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'IMPORTE_RETENCION' TableField = 'IMPORTE_RETENCION' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' end> end> Name = 'ListadoFacturasResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' + 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' + ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' + 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 + 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' + 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' + 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' + 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' + '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' + 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' + 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' + ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' + ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' + ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' + 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' + 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' + 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' + #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, TIE' + 'NDA, TIPO_OPERACION, SITUACION, NIF_CIF, REFERENCIA_CLIENTE, FEC' + 'HA_FACTURA,'#10'FECHA_VENCIMIENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA,' + ' RE, IMPORTE_RE, RETENCION, IMPORTE_RETENCION, IMPORTE_TOTAL'#10#10'fr' + 'om V_facturas_cliente'#10'where (V_facturas_cliente.TIPO <> '#39'P'#39')'#10'and' + ' {where}'#10'order by ANO, MES, FECHA_FACTURA, REFERENCIA, NOMBRE'#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' TableField = 'NOMBRE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'IVA' TableField = 'IVA' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'RETENCION' TableField = 'RETENCION' end item DatasetField = 'IMPORTE_RETENCION' TableField = 'IMPORTE_RETENCION' end item DatasetField = 'RE' TableField = 'RE' end item DatasetField = 'IMPORTE_RE' TableField = 'IMPORTE_RE' end item DatasetField = 'TIPO_OPERACION' TableField = 'TIPO_OPERACION' end item DatasetField = 'TIENDA' TableField = 'TIENDA' end> end> Name = 'ListadoFacturas' 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' DataType = datString Size = 255 end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'TIPO_OPERACION' DataType = datString Size = 2000 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IVA' DataType = datFloat end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'RETENCION' DataType = datFloat end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_FACTURAS_CLIENTE' Name = 'IBX' SQL = 'select V_facturas_cliente.ID_EMPRESA,'#10'coalesce(T.DESCRIPCION, '#39'S' + 'in asignar'#39') as DESCRIPCION,'#10'sum(V_facturas_cliente.BASE_IMPONIB' + 'LE) as BASE_IMPONIBLE,'#10'sum(V_facturas_cliente.IMPORTE_IVA) as IM' + 'PORTE_IVA,'#10'sum(V_facturas_cliente.IMPORTE_TOTAL) AS IMPORTE_TOTA' + 'L'#10'from V_facturas_cliente'#10'left join tipos_factura_cliente T on (' + 'T.ID = V_facturas_cliente.ID_TIPO_FACTURA)'#10'where (V_facturas_cli' + 'ente.TIPO <> '#39'P'#39')'#10'group by 1,2'#10'order by 1,2'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'DESCRIPCION' TableField = '' SQLOrigin = 'DESCRIPCION' end item DatasetField = 'BASE_IMPONIBLE' TableField = 'BASE_IMPONIBLE' end item DatasetField = 'IMPORTE_IVA' TableField = 'IMPORTE_IVA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'ListadoFacturasClienteTipoResumen' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'DESCRIPCION' DataType = datString Size = 2000 end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_INF_FAC_PROVEEDOR' Name = 'IBX' SQL = 'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_PROVE' + 'EDOR, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SU' + 'M(IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_PROVEE' + 'DOR'#10'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'TRIMESTRE' TableField = 'TRIMESTRE' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'BASE_IMPONIBLE_ANO' TableField = 'BASE_IMPONIBLE_ANO' end item DatasetField = 'IMPORTE_TOTAL_ANO' TableField = 'IMPORTE_TOTAL_ANO' end item DatasetField = 'BASE_IMPONIBLE_PERIODO' TableField = '' SQLOrigin = 'BASE_IMPONIBLE_PERIODO' end> end> Name = 'Informe347FacturasProveedor' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'TRIMESTRE' DataType = datString Size = 7 end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'BASE_IMPONIBLE_ANO' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_ANO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE_PERIODO' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_INF_FAC_CLIENTE' Name = 'IBX' SQL = 'select ID_EMPRESA, ANO, TRIMESTRE || '#39'T'#39' AS TRIMESTRE, ID_CLIEN' + 'TE, NOMBRE, NIF_CIF, BASE_IMPONIBLE_ANO, IMPORTE_TOTAL_ANO, SUM(' + 'IMPORTE_TOTAL) as BASE_IMPONIBLE_PERIODO'#10'from V_INF_FAC_CLIENTE'#10 + 'where {where}'#10'group by 1,2,3,4,5,6,7,8'#10'order by 5,1,2 asc'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ANO' TableField = 'ANO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'BASE_IMPONIBLE_ANO' TableField = 'BASE_IMPONIBLE_ANO' end item DatasetField = 'BASE_IMPONIBLE_PERIODO' TableField = '' SQLOrigin = 'BASE_IMPONIBLE_PERIODO' end item DatasetField = 'TRIMESTRE' TableField = 'TRIMESTRE' end item DatasetField = 'IMPORTE_TOTAL_ANO' TableField = 'IMPORTE_TOTAL_ANO' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end> end> Name = 'Informe347FacturasCliente' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'TRIMESTRE' DataType = datString Size = 7 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'BASE_IMPONIBLE_ANO' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_ANO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE_PERIODO' DataType = datCurrency end> end 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.TIPO,'#10 + ' V_FACTURAS_CLIENTE.TIENDA, V_FACTURAS_CLIENTE.ID_TIENDA,'#10' ' + ' V_FACTURAS_CLIENTE.IMPORTE_NETO,'#10' V_FACTURAS_CLIENTE.BASE_IM' + 'PONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPORT' + 'E_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMPO' + 'RTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_R' + 'E,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE.' + 'OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURAS' + '_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.REFERENCIA_CLIENTE, ' + 'V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS_CLIENTE.NOMBRE, V_FACTURA' + 'S_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENTE.PROVINCIA, V_FACTURAS_CL' + 'IENTE.CODIGO_POSTAL, V_FACTURAS_CLIENTE.POBLACION, V_FACTURAS_CL' + 'IENTE.PAIS,'#10' V_FACTURAS_CLIENTE.REF_CLI_CONTRATO, V_FACTURAS_' + 'CLIENTE.RETENCION, V_FACTURAS_CLIENTE.IMPORTE_RETENCION, V_FACTU' + 'RAS_CLIENTE.FECHA_RETENCION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10 + ' CONTACTOS_DATOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUC' + 'URSAL,'#10' CONTACTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.C' + 'UENTA,'#10' ID_EMPRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPR' + 'ESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS' + '.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVI' + 'NCIA_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.REGISTRO_MERCANTIL, ' + 'EMPRESAS.LOGOTIPO,'#10' V_FACTURAS_CLIENTE.IDIOMA_ISO'#10'FROM V_FACT' + 'URAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID_EMPRESA'#10'LEFT' + ' JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_CLIENTE.ID_FOR' + 'MA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTACTOS_DATOS_BAN' + 'CO.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 item DatasetField = 'REFERENCIA_CLIENTE' TableField = '' SQLOrigin = 'REFERENCIA_CLIENTE' end item DatasetField = 'REF_CLI_CONTRATO' TableField = '' SQLOrigin = 'REF_CLI_CONTRATO' end item DatasetField = 'RETENCION' TableField = 'RETENCION' end item DatasetField = 'IMPORTE_RETENCION' TableField = 'IMPORTE_RETENCION' end item DatasetField = 'FECHA_RETENCION' TableField = 'FECHA_RETENCION' end item DatasetField = 'TIPO' TableField = 'TIPO' end item DatasetField = 'PAIS' TableField = 'PAIS' end item DatasetField = 'IDIOMA_ISO' TableField = 'IDIOMA_ISO' 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 = 'TIPO' DataType = datString Size = 1 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 = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 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 = 'PAIS' DataType = datString Size = 255 end item Name = 'REF_CLI_CONTRATO' DataType = datString Size = 255 end item Name = 'RETENCION' DataType = datFloat end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'FECHA_RETENCION' DataType = datDateTime 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 item Name = 'IDIOMA_ISO' DataType = datString Size = 2 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' FC.ID, FC.ID_FACTURA, FC.POSICION, FC.TIPO_DETALLE, F' + 'C.ID_ARTICULO,'#10' FC.CONCEPTO, AI.DESCRIPCION as CONCEPTO_EN,'#10'/' + '*'#10' F_RTFTOTEXT(CONCEPTO) AS CONCEPTO,'#10' CONCEPTO AS CONCEP' + 'TO_RTF,'#10'*/'#10' CANTIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_' + 'TOTAL, VISIBLE, VALORADO'#10'FROM FACTURAS_CLIENTE_DETALLES as FC'#10'LE' + 'FT JOIN ARTICULOS_IDIOMAS as AI ON (AI.id_articulo = FC.ID_ARTIC' + 'ULO)'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER BY POSICION;'#10 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 item DatasetField = 'VALORADO' TableField = 'VALORADO' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'CONCEPTO_EN' TableField = '' SQLOrigin = 'CONCEPTO_EN' 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 = 'ID_ARTICULO' DataType = datInteger end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' end item Name = 'CONCEPTO_EN' DataType = datString Size = 1000 end item Name = 'CANTIDAD' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datSmallInt DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' end item Name = 'VALORADO' DataType = datSmallInt 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 item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True SQL = 'select ID_EMPRESA,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITU' + 'ACION, NIF_CIF, FECHA_EMISION, FECHA_VENCIMIENTO, IMPORTE_TOTAL,' + ' case when SITUACION = '#39'COBRADO'#39' THEN IMPORTE_TOTAL ELSE 0 end a' + 's IMPORTE_COBRADO'#10#10'from V_RECIBOS_cliente'#10'where {where}'#10'order by' + ' FECHA_EMISION, NOMBRE_CLIENTE'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'IMPORTE_COBRADO' TableField = 'IMPORTE_COBRADO' end> end> Name = 'ListadoRecibos' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger 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' 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 item Name = 'IMPORTE_COBRADO' DataType = datCurrency 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.8.11' 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 = 45294.592966030090000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 145 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = True DataSource = DADataCabecera BCDToCurrency = False Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles BCDToCurrency = False 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 LogicalName = 'InformeFacturasCliente_Vencimientos' IndexDefs = <> Left = 456 Top = 128 end object frxDBDataset1: TfrxDBDataset UserName = 'frxDBVencimientos' CloseDataSource = True DataSource = DADataVencimientos BCDToCurrency = False Left = 456 Top = 16 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object tbl_InformeListadoFacturas: 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' DataType = datString Size = 255 end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'TIPO_OPERACION' DataType = datString Size = 2000 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'IVA' DataType = datFloat end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'RE' DataType = datFloat end item Name = 'IMPORTE_RE' DataType = datCurrency end item Name = 'RETENCION' DataType = datFloat end item Name = 'IMPORTE_RETENCION' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'ListadoFacturas' IndexDefs = <> Left = 576 Top = 128 end object DADSInformeListadoFacturas: TDADataSource DataSet = tbl_InformeListadoFacturas.Dataset DataTable = tbl_InformeListadoFacturas Left = 576 Top = 72 end object frxDBInformeListadoFacturas: TfrxDBDataset UserName = 'frxDBInformeListadoFacturas' CloseDataSource = True DataSource = DADSInformeListadoFacturas BCDToCurrency = False Left = 576 Top = 16 end object tbl_InformeListadoFacturasResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 584 Top = 304 end object DADSInformeListadoFacturasResumen: TDADataSource DataSet = tbl_InformeListadoFacturasResumen.Dataset DataTable = tbl_InformeListadoFacturasResumen Left = 584 Top = 248 end object frxDBInformeListadoFacturasResumen: TfrxDBDataset UserName = 'frxDBInformeListadoFacturasResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasResumen BCDToCurrency = False Left = 584 Top = 192 end object frxDBInformeListadoRecibos: TfrxDBDataset UserName = 'frxDBInformeListadoRecibos' CloseDataSource = True DataSource = DADSInformeListadoRecibos BCDToCurrency = False Left = 736 Top = 24 end object DADSInformeListadoRecibos: TDADataSource DataSet = tbl_InformeListadoRecibos.Dataset DataTable = tbl_InformeListadoRecibos Left = 736 Top = 72 end object tbl_InformeListadoRecibos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger 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' 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 item Name = 'IMPORTE_COBRADO' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'ListadoRecibos' IndexDefs = <> Left = 736 Top = 128 end object frxDBInformeListadoFacturasTipoResumen: TfrxDBDataset UserName = 'frxDBInformeListadoFacturasTipoResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasTipoResumen BCDToCurrency = False Left = 736 Top = 224 end object DADSInformeListadoFacturasTipoResumen: TDADataSource DataSet = tbl_InformeListadoFacturasTipoResumen.Dataset DataTable = tbl_InformeListadoFacturasTipoResumen Left = 736 Top = 280 end object tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 736 Top = 336 end object frxDBInforme347FacturasCliente: TfrxDBDataset UserName = 'frxDBInforme347FacturasCliente' CloseDataSource = False DataSource = DADSInforme347FacturasCliente BCDToCurrency = False Left = 288 Top = 392 end object DADSInforme347FacturasCliente: TDADataSource DataSet = tbl_Informe347FacturasCliente.Dataset DataTable = tbl_Informe347FacturasCliente Left = 288 Top = 448 end object tbl_Informe347FacturasCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'TRIMESTRE' DataType = datString Size = 7 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'BASE_IMPONIBLE_ANO' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_ANO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE_PERIODO' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LocalConnection = 'IBX' LogicalName = 'Informe347FacturasCliente' IndexDefs = <> Left = 288 Top = 504 end object frxCrossObject2: TfrxCrossObject Left = 144 Top = 504 end object IBDatabase1: TIBDatabase DatabaseName = 'C:\Codigo\Output\Debug\Database\FACTUGES.FDB' Params.Strings = ( 'user_name=sysdba' 'password=masterkey' 'lc_ctype=ISO8859_1') DefaultTransaction = IBTransaction1 Left = 768 Top = 448 end object IBQuery1: TIBQuery Database = IBDatabase1 Transaction = IBTransaction1 SQL.Strings = ( 'select ANO, TRIMESTRE || '#39'T'#39' as TRIMESTRE, ID_CLIENTE, NOMBRE, ' + 'NIF_CIF, BASE_IMPONIBLE_ANO, SUM(BASE_IMPONIBLE) as BASE_IMPONIB' + 'LE_PERIODO' 'from V_INF_FAC_CLIENTE' 'where (ID_EMPRESA = 1)' 'and (ANO = 2023)' 'and (BASE_IMPONIBLE_ANO > 3005)' 'group by 1,2,3,4,5,6' 'order by 4,1,2 asc') Left = 768 Top = 544 object IBQuery1ANO: TSmallintField FieldKind = fkInternalCalc FieldName = 'ANO' Origin = '"V_INF_FAC_CLIENTE"."ANO"' ProviderFlags = [] ReadOnly = True end object IBQuery1TRIMESTRE: TSmallintField FieldKind = fkInternalCalc FieldName = 'TRIMESTRE' Origin = '"V_INF_FAC_CLIENTE"."TRIMESTRE"' ProviderFlags = [] ReadOnly = True end object IBQuery1ID_CLIENTE: TIntegerField FieldName = 'ID_CLIENTE' Origin = '"V_INF_FAC_CLIENTE"."ID_CLIENTE"' end object IBQuery1NOMBRE: TIBStringField FieldName = 'NOMBRE' Origin = '"V_INF_FAC_CLIENTE"."NOMBRE"' Size = 255 end object IBQuery1NIF_CIF: TIBStringField FieldName = 'NIF_CIF' Origin = '"V_INF_FAC_CLIENTE"."NIF_CIF"' Size = 15 end object IBQuery1BASE_IMPONIBLE_ANO: TIBBCDField FieldKind = fkInternalCalc FieldName = 'BASE_IMPONIBLE_ANO' Origin = '"V_INF_FAC_CLIENTE"."BASE_IMPONIBLE_ANO"' ProviderFlags = [] ReadOnly = True Precision = 18 Size = 2 end object IBQuery1BASE_IMPONIBLE_PERIODO: TIBBCDField FieldName = 'BASE_IMPONIBLE_PERIODO' ProviderFlags = [] Precision = 18 Size = 2 end end object IBTransaction1: TIBTransaction DefaultDatabase = IBDatabase1 Left = 768 Top = 496 end object frxDBInforme347FacturasProveedor: TfrxDBDataset UserName = 'frxDBInforme347FacturasProveedor' CloseDataSource = False DataSource = DADSInforme347FacturasProveedor BCDToCurrency = False Left = 488 Top = 400 end object DADSInforme347FacturasProveedor: TDADataSource DataSet = tbl_Informe347FacturasProveedor.Dataset DataTable = tbl_Informe347FacturasProveedor Left = 488 Top = 456 end object tbl_Informe347FacturasProveedor: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ANO' DataType = datSmallInt end item Name = 'TRIMESTRE' DataType = datString Size = 7 end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'BASE_IMPONIBLE_ANO' DataType = datCurrency end item Name = 'IMPORTE_TOTAL_ANO' DataType = datCurrency end item Name = 'BASE_IMPONIBLE_PERIODO' DataType = datCurrency end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LocalConnection = 'IBX' LogicalName = 'Informe347FacturasProveedor' IndexDefs = <> Left = 488 Top = 512 end object frxPDFExport1: TfrxPDFExport ShowDialog = False UseFileCache = True ShowProgress = False OverwritePrompt = False EmbeddedFonts = True PrintOptimized = True Outline = False Background = False HTMLTags = True Author = 'FactuGES' Subject = 'FactuGES' Creator = 'FactuGES' ProtectionFlags = [ePrint, eAnnot] HideToolbar = False HideMenubar = False HideWindowUI = False FitWindow = False CenterWindow = False PrintScaling = False Left = 256 Top = 344 end end