AbetoDesign_FactuGES2/Source/Modulos/Inventario/Reports/uRptInventario_Server.dfm

749 lines
22 KiB
Plaintext

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 = '<unknown>'
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