- 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
89 lines
2.3 KiB
Plaintext
89 lines
2.3 KiB
Plaintext
object srvFabricantes: TsrvFabricantes
|
|
OldCreateOrder = True
|
|
OnCreate = DARemoteServiceCreate
|
|
ServiceSchema = schFabricantes
|
|
ServiceDataStreamer = Bin2DataStreamer
|
|
ExportedDataTables = <>
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
|
Height = 300
|
|
Width = 334
|
|
object Diagrams: TDADiagrams
|
|
Left = 150
|
|
Top = 88
|
|
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
|
|
end
|
|
object DataDictionary: TDADataDictionary
|
|
Fields = <
|
|
item
|
|
Name = 'Fabricantes_ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_FABRICANTES_ID'
|
|
Required = True
|
|
DisplayLabel = 'ID'
|
|
ServerAutoRefresh = True
|
|
end
|
|
item
|
|
Name = 'Fabricantes_DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
DisplayLabel = 'Descripci'#243'n'
|
|
end>
|
|
Left = 150
|
|
Top = 24
|
|
end
|
|
object schFabricantes: TDASchema
|
|
ConnectionManager = dmServer.ConnectionManager
|
|
DataDictionary = DataDictionary
|
|
Diagrams = Diagrams
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'IBX'
|
|
ConnectionType = 'Interbase'
|
|
Default = True
|
|
TargetTable = 'FABRICANTES'
|
|
StatementType = stAutoSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'ID'
|
|
TableField = 'ID'
|
|
end
|
|
item
|
|
DatasetField = 'DESCRIPCION'
|
|
TableField = 'DESCRIPCION'
|
|
end>
|
|
end>
|
|
Name = 'Fabricantes'
|
|
Fields = <
|
|
item
|
|
Name = 'ID'
|
|
DataType = datAutoInc
|
|
GeneratorName = 'GEN_FABRICANTES_ID'
|
|
ServerAutoRefresh = True
|
|
DictionaryEntry = 'Fabricantes_ID'
|
|
InPrimaryKey = True
|
|
end
|
|
item
|
|
Name = 'DESCRIPCION'
|
|
DataType = datString
|
|
Size = 255
|
|
DictionaryEntry = 'Fabricantes_DESCRIPCION'
|
|
end>
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 48
|
|
Top = 24
|
|
end
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
Left = 48
|
|
Top = 88
|
|
end
|
|
end
|