Tecsitel_FactuGES2/Source/Servicios/srvConfiguracion_Impl.dfm
2007-09-04 17:25:54 +00:00

65 lines
1.8 KiB
Plaintext

object srvConfiguracion: TsrvConfiguracion
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schConfiguracion
ServiceAdapter = DABINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
Height = 160
Width = 300
object schConfiguracion: TDASchema
ConnectionManager = dmServer.ConnectionManager
Datasets = <
item
Params = <
item
Name = 'CODIGO'
DataType = datString
Size = 50
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONFIGURACION'
SQL = 'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODIGO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'VALOR'
TableField = 'VALOR'
end>
end>
Name = 'darValor'
Fields = <
item
Name = 'VALOR'
DataType = datString
Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <>
RelationShips = <>
UpdateRules = <>
Left = 40
Top = 16
end
object DABINAdapter: TDABINAdapter
Left = 40
Top = 72
end
end