david
28cc4ff877
- Adaptar el código a las nuevas versiones - Incluye VCLFixPack (http://andy.jgknet.de/blog/?page_id=288) git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@921 0c75b7a4-871f-7646-8a2f-f78d34cc349f
86 lines
2.3 KiB
Plaintext
86 lines
2.3 KiB
Plaintext
object srvConfiguracion: TsrvConfiguracion
|
|
OldCreateOrder = True
|
|
OnCreate = DARemoteServiceCreate
|
|
ConnectionName = 'IBX'
|
|
ServiceSchema = schConfiguracion
|
|
ServiceDataStreamer = Bin2DataStreamer
|
|
ExportedDataTables = <>
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
|
Height = 160
|
|
Width = 300
|
|
object schConfiguracion: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
Datasets = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CODIGO'
|
|
DataType = datString
|
|
Size = 50
|
|
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 = 255
|
|
end>
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CODIGO'
|
|
Value = ''
|
|
end
|
|
item
|
|
Name = 'VALOR'
|
|
Value = ''
|
|
end
|
|
item
|
|
Name = 'ID_EMPRESA'
|
|
Value = ''
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'CONFIGURACION'
|
|
Name = 'IBX'
|
|
SQL =
|
|
'insert into CONFIGURACION (ID, CODIGO, VALOR, ID_EMPRESA)'#10'values' +
|
|
'(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :ID_EMPRESA)'#10
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'InsertarValor'
|
|
end>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 40
|
|
Top = 16
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 40
|
|
Top = 80
|
|
end
|
|
end
|