Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
965d92f74c
Varela_PuntosVenta/Source/Modulos/Stock/Servidor/srvStock_Impl.dfm

1141 lines
32 KiB
Plaintext
Raw Blame History

object srvStock: TsrvStock
OldCreateOrder = True
SessionManager = dmServer.SessionManager
AcquireConnection = True
ServiceSchema = schStock
ServiceAdapter = DABINAdapter
OnAfterProcessTransactionAction = pptaNone
OnAfterAcquireConnection = DARemoteServiceAfterAcquireConnection
ExportedDataTables = <>
CacheElements = <>
Options = [rsoProcessDeltasWithoutUpdateRules]
Height = 300
Width = 300
object DABINAdapter: TDABINAdapter
Left = 56
Top = 96
end
object schStock: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = dmServer.DataDictionary
Diagrams = dmServer.DADiagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
SQL =
'SELECT'#10' CODIGO,'#10' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' ' +
'GRUPO_PRODUCTO,'#10' COLECCION,'#10' COLOR,'#10' SUM(K38) AS ' +
'T38,'#10' SUM(K40) AS T40,'#10' SUM(K42) AS T42,'#10' SUM(K44' +
') AS T44,'#10' SUM(K46) AS T46,'#10' SUM(K48) AS T48,'#10' SU' +
'M(KT) AS TOTAL'#10'FROM RDX_V_STOCK_CALCULADO'#10'GROUP BY CODIGO,'#10' ' +
' PRODUCTO,'#10' TIPO_PRODUCTO,'#10' GRUPO_PRODUCTO,'#10' COLE' +
'CCION,'#10' COLOR'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'TIPO_PRODUCTO'
TableField = 'TIPO_PRODUCTO'
end
item
DatasetField = 'GRUPO_PRODUCTO'
TableField = 'GRUPO_PRODUCTO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'T38'
TableField = 'T38'
end
item
DatasetField = 'T40'
TableField = 'T40'
end
item
DatasetField = 'T42'
TableField = 'T42'
end
item
DatasetField = 'T44'
TableField = 'T44'
end
item
DatasetField = 'T46'
TableField = 'T46'
end
item
DatasetField = 'T48'
TableField = 'T48'
end
item
DatasetField = 'TOTAL'
TableField = 'TOTAL'
end>
end>
Name = 'StockPrendasCentros'
Fields = <
item
Name = 'CODIGO'
DataType = datString
Size = 12
DisplayLabel = 'C'#243'digo'
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
DisplayLabel = 'Producto'
end
item
Name = 'TIPO_PRODUCTO'
DataType = datString
Size = 25
DisplayLabel = 'Tipo'
end
item
Name = 'GRUPO_PRODUCTO'
DataType = datString
Size = 25
DisplayLabel = 'Grupo'
end
item
Name = 'COLECCION'
DataType = datString
Size = 40
DisplayLabel = 'Colecci'#243'n'
end
item
Name = 'COLOR'
DataType = datString
Size = 10
DisplayLabel = 'Color'
end
item
Name = 'T38'
DataType = datFloat
DisplayLabel = '38'
Alignment = taRightJustify
end
item
Name = 'T40'
DataType = datFloat
DisplayLabel = '40'
Alignment = taRightJustify
end
item
Name = 'T42'
DataType = datFloat
DisplayLabel = '42'
Alignment = taRightJustify
end
item
Name = 'T44'
DataType = datFloat
DisplayLabel = '44'
Alignment = taRightJustify
end
item
Name = 'T46'
DataType = datFloat
DisplayLabel = '46'
Alignment = taRightJustify
end
item
Name = 'T48'
DataType = datFloat
DisplayLabel = '48'
Alignment = taRightJustify
end
item
Name = 'TOTAL'
DataType = datFloat
DisplayLabel = 'Total'
Alignment = taRightJustify
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
SQL =
'SELECT'#10#10' CENTRO, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRU' +
'PO_PRODUCTO, COLECCION, COLOR,'#10#10' SUM(E38) as E38,'#10' SUM(E40' +
') as E40,'#10' SUM(E42) as E42,'#10' SUM(E44) as E44,'#10' SUM(E46)' +
' as E46,'#10' SUM(E48) as E48,'#10' (SUM(E38) + SUM(E40) + SUM(E42' +
') + SUM(E44) + SUM(E46) + SUM(E48)) as TE,'#10' SUM(S38) as S38,'#10 +
' SUM(S40) as S40,'#10' SUM(S42) as S42,'#10' SUM(S44) as S44,'#10' ' +
' SUM(S46) as S46,'#10' SUM(S48) as S48,'#10' (SUM(S38) + SUM(S40' +
') + SUM(S42) + SUM(S44) + SUM(S46) + SUM(S48)) as TS,'#10#10' (SUM(' +
'E38) - SUM(S38)) as K38,'#10' (SUM(E40) - SUM(S40)) as K40,'#10' (' +
'SUM(E42) - SUM(S42)) as K42,'#10' (SUM(E44) - SUM(S44)) as K44,'#10' ' +
' (SUM(E46) - SUM(S46)) as K46,'#10' (SUM(E48) - SUM(S48)) as K4' +
'8,'#10#10' ((SUM(E38) - SUM(S38)) + (SUM(E40) - SUM(S40)) + (SUM(E4' +
'2) - SUM(S42)) + (SUM(E44) - SUM(S44)) + (SUM(E46) - SUM(S46)) +' +
' (SUM(E48) - SUM(S48))) as KT'#10#10' FROM'#10' RDX_V_STOCK_CALCULADO'#10 +
#10#10'GROUP BY CENTRO, FILIAL, CODIGO, PRODUCTO, TIPO_PRODUCTO, GRUP' +
'O_PRODUCTO, COLECCION, COLOR'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'TIPO_PRODUCTO'
TableField = 'TIPO_PRODUCTO'
end
item
DatasetField = 'GRUPO_PRODUCTO'
TableField = 'GRUPO_PRODUCTO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'E38'
TableField = 'E38'
end
item
DatasetField = 'E40'
TableField = 'E40'
end
item
DatasetField = 'E42'
TableField = 'E42'
end
item
DatasetField = 'E44'
TableField = 'E44'
end
item
DatasetField = 'E46'
TableField = 'E46'
end
item
DatasetField = 'E48'
TableField = 'E48'
end
item
DatasetField = 'TE'
TableField = 'TE'
end
item
DatasetField = 'S38'
TableField = 'S38'
end
item
DatasetField = 'S40'
TableField = 'S40'
end
item
DatasetField = 'S42'
TableField = 'S42'
end
item
DatasetField = 'S44'
TableField = 'S44'
end
item
DatasetField = 'S46'
TableField = 'S46'
end
item
DatasetField = 'S48'
TableField = 'S48'
end
item
DatasetField = 'TS'
TableField = 'TS'
end
item
DatasetField = 'K38'
TableField = 'K38'
end
item
DatasetField = 'K40'
TableField = 'K40'
end
item
DatasetField = 'K42'
TableField = 'K42'
end
item
DatasetField = 'K44'
TableField = 'K44'
end
item
DatasetField = 'K46'
TableField = 'K46'
end
item
DatasetField = 'K48'
TableField = 'K48'
end
item
DatasetField = 'KT'
TableField = 'KT'
end>
end>
Name = 'StockEDI'
Fields = <
item
Name = 'CENTRO'
DataType = datString
Size = 17
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
end
item
Name = 'TIPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'GRUPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'COLECCION'
DataType = datString
Size = 6
end
item
Name = 'COLOR'
DataType = datString
Size = 10
end
item
Name = 'E38'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E40'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E42'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E44'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E46'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'E48'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'TE'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S38'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S40'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S42'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S44'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S46'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'S48'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'TS'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K38'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K40'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K42'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K44'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K46'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'K48'
DataType = datFloat
Alignment = taRightJustify
end
item
Name = 'KT'
DataType = datFloat
Alignment = taRightJustify
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
SQL =
'SELECT FILIAL, CODIGO, COLOR, PRODUCTO, TIPO_PRODUTO, GRUPO_PROD' +
'UTO,'#10' COLECCION, K38, K40, K42, K44, K46, K48, KT'#10' '#10'F' +
'ROM RDX_V_STOCK_VARELA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'K38'
TableField = 'K38'
end
item
DatasetField = 'K40'
TableField = 'K40'
end
item
DatasetField = 'K42'
TableField = 'K42'
end
item
DatasetField = 'K44'
TableField = 'K44'
end
item
DatasetField = 'K46'
TableField = 'K46'
end
item
DatasetField = 'K48'
TableField = 'K48'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'TIPO_PRODUTO'
TableField = 'TIPO_PRODUTO'
end
item
DatasetField = 'GRUPO_PRODUTO'
TableField = 'GRUPO_PRODUTO'
end
item
DatasetField = 'KT'
TableField = 'KT'
end>
end>
Name = 'StockVARELA'
Fields = <
item
Name = 'FILIAL'
DataType = datString
Size = 25
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
end
item
Name = 'COLOR'
DataType = datString
Size = 10
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
end
item
Name = 'TIPO_PRODUTO'
DataType = datString
Size = 25
end
item
Name = 'GRUPO_PRODUTO'
DataType = datString
Size = 25
end
item
Name = 'COLECCION'
DataType = datString
Size = 40
end
item
Name = 'K38'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K40'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K42'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K44'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K46'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'K48'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'KT'
DataType = datInteger
Alignment = taRightJustify
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_INVENTARIO'
SQL =
'SELECT '#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUC' +
'TO, GRUPO_PRODUCTO,'#10' COLECCION, I38, I40, I42, I44, I46, I48,' +
' TI, K38, K40, '#10' K42, K44, K46, K48, TK, D38, D40, D42, D44, ' +
'D46, D48, '#10' DT'#10' FROM'#10' RDX_V_CONTROL_INVENTARIO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'TIPO_PRODUCTO'
TableField = 'TIPO_PRODUCTO'
end
item
DatasetField = 'GRUPO_PRODUCTO'
TableField = 'GRUPO_PRODUCTO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'I38'
TableField = 'I38'
end
item
DatasetField = 'I40'
TableField = 'I40'
end
item
DatasetField = 'I42'
TableField = 'I42'
end
item
DatasetField = 'I44'
TableField = 'I44'
end
item
DatasetField = 'I46'
TableField = 'I46'
end
item
DatasetField = 'I48'
TableField = 'I48'
end
item
DatasetField = 'TI'
TableField = 'TI'
end
item
DatasetField = 'K38'
TableField = 'K38'
end
item
DatasetField = 'K40'
TableField = 'K40'
end
item
DatasetField = 'K42'
TableField = 'K42'
end
item
DatasetField = 'K44'
TableField = 'K44'
end
item
DatasetField = 'K46'
TableField = 'K46'
end
item
DatasetField = 'K48'
TableField = 'K48'
end
item
DatasetField = 'TK'
TableField = 'TK'
end
item
DatasetField = 'D38'
TableField = 'D38'
end
item
DatasetField = 'D40'
TableField = 'D40'
end
item
DatasetField = 'D42'
TableField = 'D42'
end
item
DatasetField = 'D44'
TableField = 'D44'
end
item
DatasetField = 'D46'
TableField = 'D46'
end
item
DatasetField = 'D48'
TableField = 'D48'
end
item
DatasetField = 'DT'
TableField = 'DT'
end>
end>
Name = 'StockEDIInventario2'
Fields = <
item
Name = 'CENTRO'
DataType = datString
Size = 17
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
end
item
Name = 'COLOR'
DataType = datString
Size = 10
end
item
Name = 'TIPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'GRUPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'COLECCION'
DataType = datString
Size = 6
end
item
Name = 'I38'
DataType = datFloat
end
item
Name = 'I40'
DataType = datFloat
end
item
Name = 'I42'
DataType = datFloat
end
item
Name = 'I44'
DataType = datFloat
end
item
Name = 'I46'
DataType = datFloat
end
item
Name = 'I48'
DataType = datFloat
end
item
Name = 'TI'
DataType = datFloat
end
item
Name = 'K38'
DataType = datFloat
end
item
Name = 'K40'
DataType = datFloat
end
item
Name = 'K42'
DataType = datFloat
end
item
Name = 'K44'
DataType = datFloat
end
item
Name = 'K46'
DataType = datFloat
end
item
Name = 'K48'
DataType = datFloat
end
item
Name = 'TK'
DataType = datFloat
end
item
Name = 'D38'
DataType = datFloat
end
item
Name = 'D40'
DataType = datFloat
end
item
Name = 'D42'
DataType = datFloat
end
item
Name = 'D44'
DataType = datFloat
end
item
Name = 'D46'
DataType = datFloat
end
item
Name = 'D48'
DataType = datFloat
end
item
Name = 'DT'
DataType = datFloat
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_INVENTARIO'
SQL =
'SELECT'#10' CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUCT' +
'O, GRUPO_PRODUCTO, COLECCION,'#10#10' SUM(I38) as I38,'#10' SUM(I40)' +
' as I40,'#10' SUM(I42) as I42,'#10' SUM(I44) as I44,'#10' SUM(I46) ' +
'as I46,'#10' SUM(I48) as I48,'#10' (SUM(I38) + SUM(I40) + SUM(I42)' +
' + SUM(I44) + SUM(I46) + SUM(I48)) as TI,'#10' SUM(K38) as K38,'#10' ' +
' SUM(K40) as K40,'#10' SUM(K42) as K42,'#10' SUM(K44) as K44,'#10' ' +
' SUM(K46) as K46,'#10' SUM(K48) as K48,'#10' (SUM(K38) + SUM(K40)' +
' + SUM(K42) + SUM(K44) + SUM(K46) + SUM(K48)) as TK,'#10#10' (SUM(I' +
'38) - SUM(K38)) as D38,'#10' (SUM(I40) - SUM(K40)) as D40,'#10' (S' +
'UM(I42) - SUM(K42)) as D42,'#10' (SUM(I44) - SUM(K44)) as D44,'#10' ' +
' (SUM(I46) - SUM(K46)) as D46,'#10' (SUM(I48) - SUM(K48)) as D48' +
','#10#10' ((SUM(I38) - SUM(K38)) + (SUM(I40) - SUM(K40)) + (SUM(I42' +
') - SUM(K42)) + (SUM(I44) - SUM(K44)) + (SUM(I46) - SUM(K46)) + ' +
'(SUM(I48) - SUM(K48))) as DT'#10#10' FROM'#10' RDX_V_CONTROL_INVENTARI' +
'O'#10#10'GROUP BY CENTRO, FILIAL, CODIGO, PRODUCTO, COLOR, TIPO_PRODUC' +
'TO, GRUPO_PRODUCTO, COLECCION'#10#10'having ((SUM(I38) - SUM(K38)) + (' +
'SUM(I40) - SUM(K40)) +'#10' (SUM(I42) - SUM(K42)) + (SUM(I44) ' +
'- SUM(K44)) +'#10' (SUM(I46) - SUM(K46)) + (SUM(I48) - SUM(K48' +
')) <> 0)'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
end
item
DatasetField = 'COLOR'
TableField = 'COLOR'
end
item
DatasetField = 'TIPO_PRODUCTO'
TableField = 'TIPO_PRODUCTO'
end
item
DatasetField = 'GRUPO_PRODUCTO'
TableField = 'GRUPO_PRODUCTO'
end
item
DatasetField = 'COLECCION'
TableField = 'COLECCION'
end
item
DatasetField = 'I38'
TableField = 'I38'
end
item
DatasetField = 'I40'
TableField = 'I40'
end
item
DatasetField = 'I42'
TableField = 'I42'
end
item
DatasetField = 'I44'
TableField = 'I44'
end
item
DatasetField = 'I46'
TableField = 'I46'
end
item
DatasetField = 'I48'
TableField = 'I48'
end
item
DatasetField = 'TI'
TableField = 'TI'
end
item
DatasetField = 'K38'
TableField = 'K38'
end
item
DatasetField = 'K40'
TableField = 'K40'
end
item
DatasetField = 'K42'
TableField = 'K42'
end
item
DatasetField = 'K44'
TableField = 'K44'
end
item
DatasetField = 'K46'
TableField = 'K46'
end
item
DatasetField = 'K48'
TableField = 'K48'
end
item
DatasetField = 'TK'
TableField = 'TK'
end
item
DatasetField = 'D38'
TableField = 'D38'
end
item
DatasetField = 'D40'
TableField = 'D40'
end
item
DatasetField = 'D42'
TableField = 'D42'
end
item
DatasetField = 'D44'
TableField = 'D44'
end
item
DatasetField = 'D46'
TableField = 'D46'
end
item
DatasetField = 'D48'
TableField = 'D48'
end
item
DatasetField = 'DT'
TableField = 'DT'
end>
end>
Name = 'StockEDIInventario'
Fields = <
item
Name = 'CENTRO'
DataType = datString
Size = 17
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
end
item
Name = 'COLOR'
DataType = datString
Size = 10
end
item
Name = 'TIPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'GRUPO_PRODUCTO'
DataType = datString
Size = 25
end
item
Name = 'COLECCION'
DataType = datString
Size = 6
end
item
Name = 'I38'
DataType = datFloat
end
item
Name = 'I40'
DataType = datFloat
end
item
Name = 'I42'
DataType = datFloat
end
item
Name = 'I44'
DataType = datFloat
end
item
Name = 'I46'
DataType = datFloat
end
item
Name = 'I48'
DataType = datFloat
end
item
Name = 'TI'
DataType = datFloat
end
item
Name = 'K38'
DataType = datFloat
end
item
Name = 'K40'
DataType = datFloat
end
item
Name = 'K42'
DataType = datFloat
end
item
Name = 'K44'
DataType = datFloat
end
item
Name = 'K46'
DataType = datFloat
end
item
Name = 'K48'
DataType = datFloat
end
item
Name = 'TK'
DataType = datFloat
end
item
Name = 'D38'
DataType = datFloat
end
item
Name = 'D40'
DataType = datFloat
end
item
Name = 'D42'
DataType = datFloat
end
item
Name = 'D44'
DataType = datFloat
end
item
Name = 'D46'
DataType = datFloat
end
item
Name = 'D48'
DataType = datFloat
end
item
Name = 'DT'
DataType = datFloat
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 56
Top = 32
end
end
Reference in New Issue View Git Blame Copy Permalink