Tecsitel_FactuGES2/Source/Modulos/Familias/Servidor/srvFamilias_Impl.dfm
david 28cc4ff877 - Nuevas versiones de las librerías
- 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
2009-03-05 12:18:48 +00:00

108 lines
2.8 KiB
Plaintext

object srvFamilias: TsrvFamilias
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
ConnectionName = 'IBX'
ServiceSchema = schFamilias
ServiceDataStreamer = Bin2DataStreamer
AllowExecuteSQL = True
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 249
Width = 343
object Diagrams: TDADiagrams
Left = 150
Top = 82
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Familias_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FAMILIAS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'Familias_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end>
Left = 150
Top = 22
end
object schFamilias: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'FAMILIAS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'Familias'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FAMILIAS_ID'
DictionaryEntry = 'Familias_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Familias_DESCRIPCION'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <
item
Name = 'Insert Familias'
DoUpdate = False
DoDelete = False
DatasetName = 'Familias'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Familias'
DoInsert = False
DoDelete = False
DatasetName = 'Familias'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Familias'
DoUpdate = False
DoInsert = False
DatasetName = 'Familias'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
end