Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
cee5e36166
AbetoDesign_FactuGES2/Source/Modulos/Comisiones/Reports/uRptComisiones_Server.dfm
roberto e7f40aac81 Version 4.7.2 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@194 93f398dd-4eb6-7a46-baf6-13f46f578da2
2024-09-12 16:51:35 +00:00

1009 lines
27 KiB
Plaintext
Raw Blame History

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.ID_EMPRESA,'#10' V.ID_FACTURA,'#10' V.COMISION,'#10' V' +
'.FECHA_FACTURA,'#10' V.REFERENCIA,'#10' V.COMISION_LIQUIDADA,'#10' ' +
'V.ID_CLIENTE,'#10' V.ID_AGENTE,'#10' CONTACTOS1.NOMBRE as AGENTE,'#10 +
' CONTACTOS2.NOMBRE as CLIENTE,'#10#10' V.IMPORTE_COMISIONABLE,'#10' ' +
' V.IMPORTE_COMISION'#10#10'from V_AGEN_COM_DET_AGRU as V'#10'LEFT JOIN C' +
'ONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = V.ID_AGENTE)'#10'LEFT JOIN C' +
'ONTACTOS CONTACTOS2 ON (CONTACTOS2.ID = V.ID_CLIENTE)'#10'WHERE V.CO' +
'MISION_LIQUIDADA = :ID'#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 = '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 = '<unknown>'
SQLOrigin = 'IMPORTE_COMISIONABLE'
end
item
DatasetField = 'IMPORTE_COMISION'
TableField = 'IMPORTE_COMISION'
end
item
DatasetField = 'AGENTE'
TableField = 'AGENTE'
end
item
DatasetField = 'CLIENTE'
TableField = 'CLIENTE'
end
item
DatasetField = 'FECHA_FACTURA'
TableField = 'FECHA_FACTURA'
end
item
DatasetField = 'COMISION_LIQUIDADA'
TableField = 'COMISION_LIQUIDADA'
end>
end>
Name = 'InformeFacturasComision'
Fields = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'COMISION'
DataType = datFloat
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'COMISION_LIQUIDADA'
DataType = datInteger
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
item
Name = 'IMPORTE_COMISIONABLE'
DataType = datCurrency
end
item
Name = 'IMPORTE_COMISION'
DataType = datFloat
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 = '<unknown>'
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_COMISIONABLE,'#10' V.COMISION,' +
#10' V.IMPORTE_COMISION'#10#10'from V_AGEN_COMI_DET_FAC_CAL 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 = 'ARTICULO'
TableField = '<unknown>'
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_COMISIONABLE'
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 = 45504.781716215280000000
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_EMPRESA'
DataType = datInteger
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'COMISION'
DataType = datFloat
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'COMISION_LIQUIDADA'
DataType = datInteger
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
item
Name = 'IMPORTE_COMISIONABLE'
DataType = datCurrency
end
item
Name = 'IMPORTE_COMISION'
DataType = datFloat
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_COMISIONABLE'
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
Reference in New Issue View Git Blame Copy Permalink