object RptInventario: TRptInventario OldCreateOrder = True OnCreate = DataModuleCreate OnDestroy = DataModuleDestroy Height = 405 Width = 837 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_facturas_proveedor' Name = 'IBX' SQL = 'select V_facturas_proveedor.ID_EMPRESA,'#10'contactos.REFERENCIA,'#10'co' + 'ntactos.nif_cif,'#10'contactos.poblacion,'#10'V_facturas_proveedor.NOMBR' + 'E,'#10'sum(V_facturas_proveedor.BASE_IMPONIBLE) as BASE_IMPONIBLE,'#10's' + 'um(V_facturas_proveedor.IMPORTE_IRPF) as IMPORTE_IRPF,'#10'sum(V_fac' + 'turas_proveedor.IMPORTE_IVA) as IMPORTE_IVA,'#10'sum(V_facturas_prov' + 'eedor.IMPORTE_TOTAL) AS IMPORTE_TOTAL'#10'from V_facturas_proveedor'#10 + 'left join contactos on (contactos.ID = V_facturas_proveedor.ID_P' + 'ROVEEDOR)'#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 = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'IMPORTE_IRPF' TableField = 'IMPORTE_IRPF' end> end> Name = 'ListadoFacturasProveedorResumen' 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_IRPF' DataType = datCurrency end item Name = 'IMPORTE_IVA' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = <> Statements = < item ConnectionType = 'Interbase' Default = True TargetTable = 'V_INVENTARIO' Name = 'IBX' SQL = 'SELECT'#10' V_INV.ID_ALMACEN, V_INV.ID_ARTICULO, V_INV.NOMBRE as ' + 'ALMACEN, V_INV.ID_EMPRESA,'#10' V_INV.REFERENCIA, FAMILIA, V_INV.' + 'DESCRIPCION, V_INV.STOCK_MIN, V_INV.UNIDAD_MEDIDA,'#10' V_INV.PRE' + 'CIO_NETO, V_INV.STOCK, V_INV.UNIDADES_ALMACEN, V_INV.COSTE_UNIDA' + 'DES,'#10' V_INV.RESERVA, V_INV.PENDIENTE_RECEPCION,'#10' CASE'#10' ' + 'when V_INV_ART_PRECIO_COMP_2ANOS.importe_neto_compra_med is not ' + 'null then V_INV_ART_PRECIO_COMP_2ANOS.importe_neto_compra_med'#10' ' + ' when V_INV_ART_PRECIO_COMP.importe_neto_compra_med is not null' + ' then V_INV_ART_PRECIO_COMP.importe_neto_compra_med'#10' else 0'#10' ' + ' end as Importe_neto_compra_medio'#10#10'FROM V_INVENTARIO V_INV'#10'le' + 'ft JOIN V_INV_ART_PRECIO_COMP_2ANOS on (V_INV_ART_PRECIO_COMP_2A' + 'NOS.id_articulo = V_INV.ID_ARTICULO)'#10'left JOIN V_INV_ART_PRECIO_' + 'COMP on (V_INV_ART_PRECIO_COMP.id_articulo = V_INV.ID_ARTICULO)'#10 + 'where {where}'#10'ORDER BY UNIDADES_ALMACEN'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_ALMACEN' TableField = 'ID_ALMACEN' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'ALMACEN' TableField = 'ALMACEN' end item DatasetField = 'FAMILIA' TableField = 'FAMILIA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'STOCK_MIN' TableField = 'STOCK_MIN' end item DatasetField = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' end item DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end item DatasetField = 'STOCK' TableField = 'STOCK' end item DatasetField = 'UNIDADES_ALMACEN' TableField = 'UNIDADES_ALMACEN' end item DatasetField = 'COSTE_UNIDADES' TableField = 'COSTE_UNIDADES' end item DatasetField = 'RESERVA' TableField = 'RESERVA' end item DatasetField = 'PENDIENTE_RECEPCION' TableField = 'PENDIENTE_RECEPCION' end item DatasetField = 'IMPORTE_NETO_COMPRA_MEDIO' TableField = '' SQLOrigin = 'IMPORTE_NETO_COMPRA_MEDIO' end> end> Name = 'InventarioValorado' Fields = < item Name = 'ID_ALMACEN' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ALMACEN' DataType = datString Size = 255 end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'STOCK_MIN' DataType = datInteger end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end item Name = 'PRECIO_NETO' DataType = datCurrency end item Name = 'STOCK' DataType = datCurrency end item Name = 'UNIDADES_ALMACEN' DataType = datCurrency end item Name = 'COSTE_UNIDADES' DataType = datCurrency end item Name = 'RESERVA' DataType = datCurrency end item Name = 'PENDIENTE_RECEPCION' DataType = datCurrency end item Name = 'IMPORTE_NETO_COMPRA_MEDIO' DataType = datFloat end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'v_facturas_proveedor' SQL = 'select V_facturas_proveedor.ID_EMPRESA,'#10'coalesce(T.DESCRIPCION, ' + #39'Sin asignar'#39') as DESCRIPCION,'#10'sum(V_facturas_proveedor.BASE_IMP' + 'ONIBLE) as BASE_IMPONIBLE,'#10'sum(V_facturas_proveedor.IMPORTE_IRPF' + ') as IMPORTE_IRPF,'#10'sum(V_facturas_proveedor.IMPORTE_IVA) as IMPO' + 'RTE_IVA,'#10'sum(V_facturas_proveedor.IMPORTE_TOTAL) AS IMPORTE_TOTA' + 'L'#10'from V_facturas_proveedor'#10'left join tipos_factura_proveedor T ' + 'on (T.ID = V_facturas_proveedor.ID_TIPO_FACTURA)'#10'group by 1,2'#10'or' + 'der by 1,2'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' 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 = 'IMPORTE_IRPF' TableField = 'IMPORTE_IRPF' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end> end> Name = 'ListadoFacturasProveedorTipoResumen' 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_IRPF' DataType = datCurrency end item Name = 'IMPORTE_IVA' DataType = datCurrency 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 = < 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 = 158 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.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.LastChange = 44804.584910914350000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object frxDBInformeListadoFacturasResumen: TfrxDBDataset UserName = 'frxDBInformeListadoFacturasResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasResumen BCDToCurrency = False Left = 648 Top = 24 end object DADSInformeListadoFacturasResumen: TDADataSource DataSet = tbl_InformeListadoFacturasResumen.Dataset DataTable = tbl_InformeListadoFacturasResumen Left = 648 Top = 80 end object tbl_InformeListadoFacturasResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 648 Top = 136 end object frxDBInformeListadoFacturasTipoResumen: TfrxDBDataset UserName = 'frxDBInformeListadoFacturasTipoResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasTipoResumen BCDToCurrency = False Left = 648 Top = 192 end object DADSInformeListadoFacturasTipoResumen: TDADataSource DataSet = tbl_InformeListadoFacturasTipoResumen.Dataset DataTable = tbl_InformeListadoFacturasTipoResumen Left = 648 Top = 248 end object tbl_InformeListadoFacturasTipoResumen: TDAMemDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False IndexDefs = <> Left = 648 Top = 304 end object tbl_InventarioValorado: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_ALMACEN' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ALMACEN' DataType = datString Size = 255 end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'STOCK_MIN' DataType = datInteger end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end item Name = 'PRECIO_NETO' DataType = datCurrency end item Name = 'STOCK' DataType = datCurrency end item Name = 'UNIDADES_ALMACEN' DataType = datCurrency end item Name = 'COSTE_UNIDADES' DataType = datCurrency end item Name = 'RESERVA' DataType = datCurrency end item Name = 'PENDIENTE_RECEPCION' DataType = datCurrency end item Name = 'IMPORTE_NETO_COMPRA_MEDIO' DataType = datFloat end> Params = <> LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'InventarioValorado' IndexDefs = <> Left = 280 Top = 136 end object DADSInventarioValorado: TDADataSource DataSet = tbl_InventarioValorado.Dataset DataTable = tbl_InventarioValorado Left = 280 Top = 80 end object frxDBInventarioValorado: TfrxDBDataset UserName = 'frxDBInventarioValorado' CloseDataSource = True DataSource = DADSInventarioValorado BCDToCurrency = False Left = 280 Top = 24 end end