Varela_PuntosVenta/Source/Modulos/Parametros/Servidor/srvParametros_Impl.dfm
david 5f4dba093e - Mejoras en el acceso a BD. Sustitución de vistas básicas por tablas.
- Revisión del proceso de carga.
- Parámetros de consulta en recepción, traslado y devoluciones.

git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@7 1c943782-d109-9647-9548-93b3ac332352
2007-08-08 15:18:45 +00:00

144 lines
4.4 KiB
Plaintext

object srvParametros: TsrvParametros
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schParametros
ServiceAdapter = DABINAdapter
Left = 718
Top = 370
Height = 300
Width = 300
object schParametros: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_INFORMES'
SQL =
'SELECT'#10' RDX_FILIALES.CODFILIAL, RDX_FILIALES.CODBARRA, FILI' +
'AIS.FILIAL'#10'FROM'#10' RDX_FILIALES INNER JOIN FILIAIS ON (RDX_FILI' +
'ALES.CODFILIAL = FILIAIS.COD_FILIAL)'#10'WHERE'#10' RDX_FILIALES.COD' +
'FILIAL <> '#39'000001'#39
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODFILIAL'
TableField = 'CODFILIAL'
end
item
DatasetField = 'CODBARRA'
TableField = 'CODBARRA'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end>
end>
Name = 'ListaCentros'
Fields = <
item
Name = 'CODFILIAL'
DataType = datString
Size = 6
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODBARRA'
DataType = datString
Size = 17
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_INFORMES'
SQL =
'SELECT'#10' COLECOES.COLECAO, COLECOES.DESC_COLECAO'#10'FROM'#10' CO' +
'LECOES'#10'WHERE'#10' COLECOES.COLECAO NOT IN ('#39'IND'#39', '#39'PRI'#39', '#39'009'#39')'#10 +
'ORDER BY COLECOES.COLECAO DESC'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'COLECAO'
TableField = 'COLECAO'
end
item
DatasetField = 'DESC_COLECAO'
TableField = 'DESC_COLECAO'
end>
end>
Name = 'ListaColecciones'
Fields = <
item
Name = 'COLECAO'
DataType = datString
Size = 6
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESC_COLECAO'
DataType = datString
Size = 40
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 = 24
end
object DABINAdapter: TDABINAdapter
Left = 40
Top = 96
end
end