Varela_PuntosVenta/Source/Servidor/srvInformes_Impl.dfm

332 lines
9.8 KiB
Plaintext

object srvInformes: TsrvInformes
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schInformes
ServiceAdapter = DABINAdapter
OnAfterProcessTransactionAction = pptaNone
ExportedDataTables = <>
CacheElements = <>
Options = [rsoProcessDeltasWithoutUpdateRules]
Height = 297
Width = 298
object schInformes: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <
item
Name = 'CATEGORIA'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = 'VENTAS'
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_INFORMES'
SQL =
'SELECT '#10' ID, CATEGORIA, MODIFICABLE, ICONO, NOMBRE, DESCRIPCI' +
'ON, ORDEN, VISTA'#10' FROM'#10' RDX_INFORMES'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'CATEGORIA'
TableField = 'CATEGORIA'
end
item
DatasetField = 'ICONO'
TableField = 'ICONO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ORDEN'
TableField = 'ORDEN'
end
item
DatasetField = 'VISTA'
TableField = 'VISTA'
end
item
DatasetField = 'MODIFICABLE'
TableField = 'MODIFICABLE'
end>
end>
Name = 'ListaInformesPorCategoria'
Fields = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
ServerAutoRefresh = True
InPrimaryKey = True
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CATEGORIA'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MODIFICABLE'
DataType = datString
Size = 1
BlobType = dabtUnknown
DefaultValue = 'S'
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ICONO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 50
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ORDEN'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISTA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
ServerCalculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'CATEGORIA'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ICONO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 50
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ORDEN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VISTA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_INFORMES'
SQL =
'INSERT'#10' INTO RDX_INFORMES'#10' (CATEGORIA, MODIFICABLE, ICONO, N' +
'OMBRE, DESCRIPCION, ORDEN, VISTA)'#10' VALUES'#10' (:CATEGORIA, :MOD' +
'IFICABLE, :ICONO, :NOMBRE, :DESCRIPCION, :ORDEN,'#10' :VISTA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ListaInformesPorCategoria'
end
item
Params = <
item
Name = 'CATEGORIA'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ICONO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 50
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ORDEN'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'VISTA'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_INFORMES'
SQL =
'UPDATE RDX_INFORMES'#10' SET '#10' CATEGORIA = :CATEGORIA, '#10' MODI' +
'FICABLE = :MODIFICABLE,'#10' ICONO = :ICONO, '#10' NOMBRE = :NOMBR' +
'E, '#10' DESCRIPCION = :DESCRIPCION, '#10' ORDEN = :ORDEN, '#10' VI' +
'STA = :VISTA'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ListaInformesPorCategoria'
end>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 40
Top = 24
end
object bpInformes: TDABusinessProcessor
Schema = schInformes
InsertCommandName = 'Insert_ListaInformesPorCategoria'
UpdateCommandName = 'Update_ListaInformesPorCategoria'
ReferencedDataset = 'ListaInformesPorCategoria'
ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 144
Top = 24
end
object DABINAdapter: TDABINAdapter
BufferSize = 262144
IsCompatibleV4 = True
Left = 40
Top = 96
end
end