object RptComisiones: TRptComisiones OldCreateOrder = True OnCreate = DataModuleCreate Height = 405 Width = 630 object DADataCabecera: TDADataSource DataSet = tbl_Comisiones.Dataset DataTable = tbl_Comisiones Left = 264 Top = 72 end object tbl_Comisiones: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger Required = True InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FECHA' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'NOMBRE' DataType = datString Size = 255 end> Params = < item Name = 'ID' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'InformeComisiones' IndexDefs = <> Left = 264 Top = 128 end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 end object frxBarCodeObject1: TfrxBarCodeObject Left = 144 Top = 296 end object frxOLEObject1: TfrxOLEObject Left = 48 Top = 344 end object frxCrossObject1: TfrxCrossObject Left = 144 Top = 344 end object frxCheckBoxObject1: TfrxCheckBoxObject Left = 256 Top = 296 end object frxGradientObject1: TfrxGradientObject Left = 360 Top = 296 end object frxChartObject1: TfrxChartObject Left = 256 Top = 344 end object schReport: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'COMISIONES_LIQ_VENDEDORES' Name = 'IBX' SQL = 'SELECT '#10' ID, ID_COMISION, ID_VENDEDOR, NOMBRE, COMISION, IMPO' + 'RTE_TOTAL'#10' FROM'#10' COMISIONES_LIQ_VENDEDORES'#10' WHERE ID_COMISI' + 'ON = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_COMISION' TableField = 'ID_COMISION' end item DatasetField = 'ID_VENDEDOR' TableField = 'ID_VENDEDOR' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'COMISION' TableField = 'COMISION' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'InformeComisionesVendedores' Fields = < item Name = 'ID' DataType = datInteger Required = True InPrimaryKey = True end item Name = 'ID_COMISION' DataType = datInteger end item Name = 'ID_VENDEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> end item Params = < item Name = 'ID' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_AGEN_COM_DET_AGRU' Name = 'IBX' SQL = 'select'#10' V_AGEN_COM_DET_AGRU.ID_FACTURA,'#10' V_AGEN_COM_' + 'DET_AGRU.COMISION,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISIONAB' + 'LE,'#10' V_AGEN_COM_DET_AGRU.IMPORTE_COMISION,'#10#10' FACTURA' + 'S_CLIENTE.ID_EMPRESA,'#10' FACTURAS_CLIENTE.ID_COMISION_LIQUID' + 'ADA,'#10' FACTURAS_CLIENTE.FECHA_FACTURA as FECHA,'#10' FACT' + 'URAS_CLIENTE.REFERENCIA,'#10' FACTURAS_CLIENTE.SITUACION,'#10' ' + ' FACTURAS_CLIENTE.ID_CLIENTE,'#10' FACTURAS_CLIENTE.ID_AGENT' + 'E,'#10#10' CONTACTOS1.NOMBRE as AGENTE,'#10' CONTACTOS2.NOMBRE' + ' as CLIENTE'#10#10#10'from V_AGEN_COM_DET_AGRU'#10'LEFT JOIN FACTURAS_CLIENT' + 'E on (FACTURAS_CLIENTE.ID = V_AGEN_COM_DET_AGRU.ID_FACTURA)'#10'LEFT' + ' JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = FACTURAS_CLIENTE.' + 'ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONTACTOS2 ON (CONTACTOS2.ID = FA' + 'CTURAS_CLIENTE.ID_CLIENTE)'#10'WHERE ID_COMISION_LIQUIDADA = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_COMISION_LIQUIDADA' TableField = 'ID_COMISION_LIQUIDADA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'COMISION' TableField = 'COMISION' end item DatasetField = 'IMPORTE_COMISIONABLE' TableField = '' SQLOrigin = 'IMPORTE_COMISIONABLE' end item DatasetField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'AGENTE' TableField = 'AGENTE' end item DatasetField = 'CLIENTE' TableField = 'CLIENTE' end> end> Name = 'InformeFacturasComision' Fields = < item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency end item Name = 'IMPORTE_COMISION' DataType = datFloat end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger end item Name = 'FECHA' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'AGENTE' DataType = datString Size = 255 end item Name = 'CLIENTE' DataType = datString Size = 255 end> end item Params = < item Name = 'ID' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'V_AGENTES_COMISIONES' SQL = 'SELECT *'#10' FROM'#10' V_AGENTES_COMISIONES'#10' WHERE ID = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'NOMBRE' TableField = '' SQLOrigin = 'NOMBRE' end> end> Name = 'InformeComisiones' Fields = < item Name = 'ID' DataType = datInteger Required = True InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FECHA' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'NOMBRE' DataType = datString Size = 255 end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_AGEN_COMI_DET' SQL = 'select'#10' V.ID_EMPRESA,'#10' V.ID_FACTURA,'#10' V.FECHA,'#10' V.RE' + 'FERENCIA,'#10' V.ID_COMISION_LIQUIDADA,'#10' V.ID_CLIENTE,'#10' V.I' + 'D_AGENTE,'#10' V.ID_ARTICULO,'#10' V.ARTICULO,'#10' V.CONCEPTO_FACT' + 'URA,'#10' V.CANTIDAD,'#10' V.IMPORTE_TOTAL,'#10' V.COMISION,'#10' V.' + 'IMPORTE_COMISION'#10#10'from V_AGEN_COMI_DET as V'#10'WHERE {where}'#10#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_COMISION_LIQUIDADA' TableField = 'ID_COMISION_LIQUIDADA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'COMISION' TableField = 'COMISION' end item DatasetField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'CONCEPTO_FACTURA' TableField = 'CONCEPTO_FACTURA' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'ARTICULO' TableField = '' SQLOrigin = 'ARTICULO' end> end> Name = 'InformeFacturasComisionDesglosado' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'FECHA' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ARTICULO' DataType = datString Size = 1025 end item Name = 'CONCEPTO_FACTURA' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_COMISION' 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 = 150 end object frxReport: TfrxReport Version = '4.8.11' DotMatrixReport = False 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 = 45251.652106296300000000 ReportOptions.LastChange = 45253.529982268500000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False Left = 169 Top = 16 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera BCDToCurrency = False Left = 264 Top = 16 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object frxDBDetalles2: TfrxDBDataset UserName = 'frxDBDetalles2' CloseDataSource = False DataSource = DADataDetalles2 BCDToCurrency = False Left = 512 Top = 216 end object DADataDetalles2: TDADataSource DataSet = tbl_Vendedores.Dataset DataTable = tbl_Vendedores Left = 512 Top = 272 end object tbl_Vendedores: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger Required = True InPrimaryKey = True end item Name = 'ID_COMISION' DataType = datInteger end item Name = 'ID_VENDEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end> Params = < item Name = 'ID' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'InformeComisionesVendedores' IndexDefs = <> Left = 512 Top = 328 end object tbl_FacturasComision: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency end item Name = 'IMPORTE_COMISION' DataType = datFloat end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger end item Name = 'FECHA' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'AGENTE' DataType = datString Size = 255 end item Name = 'CLIENTE' DataType = datString Size = 255 end> Params = < item Name = 'ID' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer LogicalName = 'InformeFacturasComision' IndexDefs = <> Left = 368 Top = 128 end object DADataDetalles: TDADataSource DataSet = tbl_FacturasComision.Dataset DataTable = tbl_FacturasComision Left = 368 Top = 72 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles BCDToCurrency = False Left = 368 Top = 16 end object tbl_FacturasComisionDesglosado: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'FECHA' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ARTICULO' DataType = datString Size = 1025 end item Name = 'CONCEPTO_FACTURA' DataType = datString Size = 2000 end item Name = 'CANTIDAD' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'COMISION' DataType = datFloat end item Name = 'IMPORTE_COMISION' DataType = datFloat end> Params = <> MasterMappingMode = mmWhere LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer MasterSource = DADataDetalles MasterFields = 'ID_FACTURA' DetailFields = 'ID_FACTURA' LogicalName = 'InformeFacturasComisionDesglosado' IndexDefs = <> Left = 504 Top = 128 end object DADataDetalles3: TDADataSource DataSet = tbl_FacturasComisionDesglosado.Dataset DataTable = tbl_FacturasComisionDesglosado Left = 504 Top = 72 end object frxDBDetalles3: TfrxDBDataset UserName = 'frxDBDetalles3' CloseDataSource = False DataSource = DADataDetalles3 BCDToCurrency = False Left = 504 Top = 16 end end