Archivado/Varela_PuntosVenta
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e2a1f9f312
Varela_PuntosVenta/Source/Modulos/Traspasos/Servidor/srvTraspasos_Impl.dfm
david a5b0d2c322 Ajustes para nuevas tallas 'jeans' 36-46 
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@114 1c943782-d109-9647-9548-93b3ac332352
2008-05-05 09:14:34 +00:00

1364 lines
41 KiB
Plaintext
Raw Blame History

object srvTraspasos: TsrvTraspasos
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ServiceSchema = schTraspasos
ServiceDataStreamer = DABINAdapter
AllowWhereSQL = True
ExportedDataTables = <>
Height = 300
Width = 300
object DABINAdapter: TDABINAdapter
Left = 40
Top = 96
end
object schTraspasos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary1
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_TRASPASOS'
SQL =
'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' +
'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' +
'BIO, '#10' CODIGO, PRODUCTO, COLOR, T36, T38, T40, T42, T44, T46,' +
' T48,'#10' TOTAL, TR36, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL' +
'_RECT'#10' FROM'#10' RDX_V_CONTROL_TRASPASOS'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CENTRO2'
TableField = 'CENTRO2'
end
item
DatasetField = 'FILIAL2'
TableField = 'FILIAL2'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
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
item
DatasetField = 'TR38'
TableField = 'TR38'
end
item
DatasetField = 'TR40'
TableField = 'TR40'
end
item
DatasetField = 'TR42'
TableField = 'TR42'
end
item
DatasetField = 'TR44'
TableField = 'TR44'
end
item
DatasetField = 'TR46'
TableField = 'TR46'
end
item
DatasetField = 'TR48'
TableField = 'TR48'
end
item
DatasetField = 'TOTAL_RECT'
TableField = 'TOTAL_RECT'
end
item
DatasetField = 'APROBADO'
TableField = 'APROBADO'
end
item
DatasetField = 'ESTADO_TRASPASO'
TableField = 'ESTADO_TRASPASO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'CONTABILIZAR'
TableField = 'CONTABILIZAR'
end
item
DatasetField = 'FECHACAMBIO'
TableField = 'FECHACAMBIO'
end
item
DatasetField = 'T36'
TableField = 'T36'
end
item
DatasetField = 'TR36'
TableField = 'TR36'
end>
end>
Name = 'Traspasos'
Fields = <
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_TIPO'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHA'
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO'
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL'
end
item
Name = 'CENTRO2'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO2'
end
item
Name = 'FILIAL2'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL2'
end
item
Name = 'APROBADO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_APROBADO'
end
item
Name = 'ESTADO_TRASPASO'
DataType = datString
Size = 20
DictionaryEntry = 'Traspasos_ESTADO_TRASPASO'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'Traspasos_OBSERVACIONES'
end
item
Name = 'CONTABILIZAR'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_CONTABILIZAR'
end
item
Name = 'FECHACAMBIO'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHACAMBIO'
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
DictionaryEntry = 'Traspasos_CODIGO'
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
DictionaryEntry = 'Traspasos_PRODUCTO'
end
item
Name = 'COLOR'
DataType = datString
Size = 10
DictionaryEntry = 'Traspasos_COLOR'
end
item
Name = 'T36'
DataType = datFloat
DictionaryEntry = 'Traspasos_T36'
end
item
Name = 'T38'
DataType = datFloat
DictionaryEntry = 'Traspasos_T38'
end
item
Name = 'T40'
DataType = datFloat
DictionaryEntry = 'Traspasos_T40'
end
item
Name = 'T42'
DataType = datFloat
DictionaryEntry = 'Traspasos_T42'
end
item
Name = 'T44'
DataType = datFloat
DictionaryEntry = 'Traspasos_T44'
end
item
Name = 'T46'
DataType = datFloat
DictionaryEntry = 'Traspasos_T46'
end
item
Name = 'T48'
DataType = datFloat
DictionaryEntry = 'Traspasos_T48'
end
item
Name = 'TOTAL'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL'
end
item
Name = 'TR36'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR36'
end
item
Name = 'TR38'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR38'
end
item
Name = 'TR40'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR40'
end
item
Name = 'TR42'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR42'
end
item
Name = 'TR44'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR44'
end
item
Name = 'TR46'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR46'
end
item
Name = 'TR48'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR48'
end
item
Name = 'TOTAL_RECT'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL_RECT'
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_TRASPASOS'
SQL =
'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' +
'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' +
'BIO, '#10' CODIGO, PRODUCTO, COLOR, T36, T38, T40, T42, T44, T46,' +
' T48,'#10' TOTAL, TR36, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL' +
'_RECT'#10' FROM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHERE APROBADO = '#39'N'#39#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CENTRO2'
TableField = 'CENTRO2'
end
item
DatasetField = 'FILIAL2'
TableField = 'FILIAL2'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
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
item
DatasetField = 'TR38'
TableField = 'TR38'
end
item
DatasetField = 'TR40'
TableField = 'TR40'
end
item
DatasetField = 'TR42'
TableField = 'TR42'
end
item
DatasetField = 'TR44'
TableField = 'TR44'
end
item
DatasetField = 'TR46'
TableField = 'TR46'
end
item
DatasetField = 'TR48'
TableField = 'TR48'
end
item
DatasetField = 'TOTAL_RECT'
TableField = 'TOTAL_RECT'
end
item
DatasetField = 'APROBADO'
TableField = 'APROBADO'
end
item
DatasetField = 'ESTADO_TRASPASO'
TableField = 'ESTADO_TRASPASO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'CONTABILIZAR'
TableField = 'CONTABILIZAR'
end
item
DatasetField = 'FECHACAMBIO'
TableField = 'FECHACAMBIO'
end
item
DatasetField = 'T36'
TableField = 'T36'
end
item
DatasetField = 'TR36'
TableField = 'TR36'
end>
end>
Name = 'TraspasosPendientes'
Fields = <
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_TIPO'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHA'
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO'
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL'
end
item
Name = 'CENTRO2'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO2'
end
item
Name = 'FILIAL2'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL2'
end
item
Name = 'APROBADO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_APROBADO'
end
item
Name = 'ESTADO_TRASPASO'
DataType = datString
Size = 20
DictionaryEntry = 'Traspasos_ESTADO_TRASPASO'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'Traspasos_OBSERVACIONES'
end
item
Name = 'CONTABILIZAR'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_CONTABILIZAR'
end
item
Name = 'FECHACAMBIO'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHACAMBIO'
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
DictionaryEntry = 'Traspasos_CODIGO'
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
DictionaryEntry = 'Traspasos_PRODUCTO'
end
item
Name = 'COLOR'
DataType = datString
Size = 10
DictionaryEntry = 'Traspasos_COLOR'
end
item
Name = 'T36'
DataType = datFloat
DictionaryEntry = 'Traspasos_T36'
end
item
Name = 'T38'
DataType = datFloat
DictionaryEntry = 'Traspasos_T38'
end
item
Name = 'T40'
DataType = datFloat
DictionaryEntry = 'Traspasos_T40'
end
item
Name = 'T42'
DataType = datFloat
DictionaryEntry = 'Traspasos_T42'
end
item
Name = 'T44'
DataType = datFloat
DictionaryEntry = 'Traspasos_T44'
end
item
Name = 'T46'
DataType = datFloat
DictionaryEntry = 'Traspasos_T46'
end
item
Name = 'T48'
DataType = datFloat
DictionaryEntry = 'Traspasos_T48'
end
item
Name = 'TOTAL'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL'
end
item
Name = 'TR36'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR36'
end
item
Name = 'TR38'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR38'
end
item
Name = 'TR40'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR40'
end
item
Name = 'TR42'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR42'
end
item
Name = 'TR44'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR44'
end
item
Name = 'TR46'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR46'
end
item
Name = 'TR48'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR48'
end
item
Name = 'TOTAL_RECT'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL_RECT'
end>
end
item
Params = <>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_TRASPASOS'
SQL =
'SELECT '#10' TIPO, FECHA, CENTRO, FILIAL, CENTRO2, FILIAL2, APROB' +
'ADO, '#10' ESTADO_TRASPASO, OBSERVACIONES, CONTABILIZAR, FECHACAM' +
'BIO, '#10' CODIGO, PRODUCTO, COLOR, T36, T38, T40, T42, T44, T46,' +
' T48,'#10' TOTAL, TR36, TR38, TR40, TR42, TR44, TR46, TR48, TOTAL' +
'_RECT'#10' FROM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHERE APROBADO = '#39'S'#39#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end
item
DatasetField = 'FECHA'
TableField = 'FECHA'
end
item
DatasetField = 'CENTRO'
TableField = 'CENTRO'
end
item
DatasetField = 'FILIAL'
TableField = 'FILIAL'
end
item
DatasetField = 'CENTRO2'
TableField = 'CENTRO2'
end
item
DatasetField = 'FILIAL2'
TableField = 'FILIAL2'
end
item
DatasetField = 'CODIGO'
TableField = 'CODIGO'
end
item
DatasetField = 'PRODUCTO'
TableField = 'PRODUCTO'
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
item
DatasetField = 'TR38'
TableField = 'TR38'
end
item
DatasetField = 'TR40'
TableField = 'TR40'
end
item
DatasetField = 'TR42'
TableField = 'TR42'
end
item
DatasetField = 'TR44'
TableField = 'TR44'
end
item
DatasetField = 'TR46'
TableField = 'TR46'
end
item
DatasetField = 'TR48'
TableField = 'TR48'
end
item
DatasetField = 'TOTAL_RECT'
TableField = 'TOTAL_RECT'
end
item
DatasetField = 'APROBADO'
TableField = 'APROBADO'
end
item
DatasetField = 'ESTADO_TRASPASO'
TableField = 'ESTADO_TRASPASO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'CONTABILIZAR'
TableField = 'CONTABILIZAR'
end
item
DatasetField = 'FECHACAMBIO'
TableField = 'FECHACAMBIO'
end
item
DatasetField = 'T36'
TableField = 'T36'
end
item
DatasetField = 'TR36'
TableField = 'TR36'
end>
end>
Name = 'TraspasosAprobados'
Fields = <
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_TIPO'
end
item
Name = 'FECHA'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHA'
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO'
end
item
Name = 'FILIAL'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL'
end
item
Name = 'CENTRO2'
DataType = datString
Size = 17
DictionaryEntry = 'Traspasos_CENTRO2'
end
item
Name = 'FILIAL2'
DataType = datString
Size = 25
DictionaryEntry = 'Traspasos_FILIAL2'
end
item
Name = 'APROBADO'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_APROBADO'
end
item
Name = 'ESTADO_TRASPASO'
DataType = datString
Size = 20
DictionaryEntry = 'Traspasos_ESTADO_TRASPASO'
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
DictionaryEntry = 'Traspasos_OBSERVACIONES'
end
item
Name = 'CONTABILIZAR'
DataType = datString
Size = 1
DictionaryEntry = 'Traspasos_CONTABILIZAR'
end
item
Name = 'FECHACAMBIO'
DataType = datDateTime
DictionaryEntry = 'Traspasos_FECHACAMBIO'
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
DictionaryEntry = 'Traspasos_CODIGO'
end
item
Name = 'PRODUCTO'
DataType = datString
Size = 40
DictionaryEntry = 'Traspasos_PRODUCTO'
end
item
Name = 'COLOR'
DataType = datString
Size = 10
DictionaryEntry = 'Traspasos_COLOR'
end
item
Name = 'T36'
DataType = datFloat
DictionaryEntry = 'Traspasos_T36'
end
item
Name = 'T38'
DataType = datFloat
DictionaryEntry = 'Traspasos_T38'
end
item
Name = 'T40'
DataType = datFloat
DictionaryEntry = 'Traspasos_T40'
end
item
Name = 'T42'
DataType = datFloat
DictionaryEntry = 'Traspasos_T42'
end
item
Name = 'T44'
DataType = datFloat
DictionaryEntry = 'Traspasos_T44'
end
item
Name = 'T46'
DataType = datFloat
DictionaryEntry = 'Traspasos_T46'
end
item
Name = 'T48'
DataType = datFloat
DictionaryEntry = 'Traspasos_T48'
end
item
Name = 'TOTAL'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL'
end
item
Name = 'TR36'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR36'
end
item
Name = 'TR38'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR38'
end
item
Name = 'TR40'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR40'
end
item
Name = 'TR42'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR42'
end
item
Name = 'TR44'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR44'
end
item
Name = 'TR46'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR46'
end
item
Name = 'TR48'
DataType = datFloat
DictionaryEntry = 'Traspasos_TR48'
end
item
Name = 'TOTAL_RECT'
DataType = datFloat
DictionaryEntry = 'Traspasos_TOTAL_RECT'
end>
end
item
Params = <
item
Name = 'FECHA'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
Value = ''
ParamType = daptInput
end
item
Name = 'CENTRO2'
DataType = datString
Size = 17
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
Value = ''
ParamType = daptInput
end
item
Name = 'COLOR'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_TRASPASOS'
SQL =
'SELECT '#10' TOTAL_RECT'#10' FROM'#10' RDX_V_CONTROL_TRASPASOS'#10' WHER' +
'E'#10' FECHA = :FECHA AND'#10' CENTRO = :CENTRO AND'#10' C' +
'ENTRO2 = :CENTRO2 AND'#10' CODIGO = :CODIGO AND'#10' COLOR =' +
' :COLOR'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'TOTAL_RECT'
TableField = 'TOTAL_RECT'
end>
end>
Name = 'RefreshTraspasos'
Fields = <
item
Name = 'TOTAL_RECT'
DataType = datFloat
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ESTADO_TRASPASO'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CONTABILIZAR'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'TR36'
DataType = datFloat
Value = ''
end
item
Name = 'TR38'
DataType = datFloat
Value = ''
end
item
Name = 'TR40'
DataType = datFloat
Value = ''
end
item
Name = 'TR42'
DataType = datFloat
Value = ''
end
item
Name = 'TR44'
DataType = datFloat
Value = ''
end
item
Name = 'TR46'
DataType = datFloat
Value = ''
end
item
Name = 'TR48'
DataType = datFloat
Value = ''
end
item
Name = 'APROBADO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'FECHA'
DataType = datDateTime
Value = ''
end
item
Name = 'CENTRO'
DataType = datString
Size = 17
Value = ''
end
item
Name = 'CENTRO2'
DataType = datString
Size = 17
Value = ''
end
item
Name = 'CODIGO'
DataType = datString
Size = 12
Value = ''
end
item
Name = 'COLOR'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 2
Value = ''
end>
Statements = <
item
Connection = 'GFT_VARELA'
TargetTable = 'RDX_V_CONTROL_TRASPASOS'
SQL =
'begin'#10' declare @rowcount_var int'#10' declare @ESTADO varchar(' +
'20)'#10' declare @OBSERVACIONES varchar(255)'#10' declare @CONTABI' +
'LIZAR char(1)'#10#10' declare @TR36 numeric(15,0)'#10' declare @TR38' +
' numeric(15,0)'#10' declare @TR40 numeric(15,0)'#10' declare @TR42' +
' numeric(15,0)'#10' declare @TR44 numeric(15,0)'#10' declare @TR46' +
' numeric(15,0)'#10' declare @TR48 numeric(15,0)'#10' declare @TR_S' +
' numeric(15,0)'#10' declare @TR_M numeric(15,0)'#10' declare @TR_L' +
' numeric(15,0)'#10' declare @TR_XL numeric(15,0)'#10#10' declare @AP' +
'ROBADO char(1)'#10' declare @FECHA datetime'#10' declare @CENTRO v' +
'archar(17)'#10' declare @CENTRO2 varchar(17)'#10' declare @CODIGO ' +
'varchar(12)'#10' declare @COLOR varchar(10)'#10' declare @TIPOCANT' +
' varchar(3)'#10' declare @TIPO_TALLAJE smallint'#10#10' set @ESTADO ' +
'= :ESTADO_TRASPASO'#10' set @OBSERVACIONES = :OBSERVACIONES'#10' s' +
'et @CONTABILIZAR = :CONTABILIZAR'#10#10' set @TR36 = :TR36'#10' set ' +
'@TR38 = :TR38'#10' set @TR40 = :TR40'#10' set @TR42 = :TR42'#10' se' +
't @TR44 = :TR44'#10' set @TR46 = :TR46'#10' set @TR48 = :TR48'#10' ' +
'set @TR_S = :TR38'#10' set @TR_M = :TR40'#10' set @TR_L = :TR42'#10' ' +
' set @TR_XL = :TR44'#10#10' set @APROBADO = :APROBADO'#10' set @FEC' +
'HA = :FECHA'#10' set @CENTRO = :CENTRO'#10' set @CENTRO2 = :CENTRO' +
'2'#10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10' set @TIP' +
'OCANT = :TIPO'#10#10' /* ARREGLO PARA QUE SOPORTE LOS NUEVOS TALLAJ' +
'ES*** */'#10#10' execute RDX_P_TIPO_TALLAJE @CODIGO, @TIPO_TALLAJE ' +
'OUTPUT'#10#10' if @TIPO_TALLAJE = 1'#10' begin'#10' set @TR_S = NU' +
'LL'#10' set @TR_M = NULL'#10' set @TR_L = NULL'#10' set @T' +
'R_XL = NULL'#10' end'#10' else'#10' begin'#10' set @TR36 = NULL'#10' ' +
' set @TR38 = NULL'#10' set @TR40 = NULL'#10' set @TR42 ' +
'= NULL'#10' set @TR44 = NULL'#10' set @TR46 = NULL'#10' se' +
't @TR48 = NULL'#10' end'#10#10' /* *********************************' +
'** */'#10#9'update RDX_TRASPASOS_AJUSTES set'#10#9' CANT36 = @TR' +
'36,'#10#9' CANT38 = @TR38,'#10#9' CANT40 = @TR40,'#10#9' ' +
' CANT42 = @TR42,'#10#9' CANT44 = @TR44,'#10#9' ' +
'CANT46 = @TR46,'#10#9' CANT48 = @TR48,'#10#9' CANT_S =' +
' @TR_S,'#10#9' CANT_M = @TR_M,'#10#9' CANT_L = @TR_L,'#10 +
#9' CANT_XL = @TR_XL,'#10' APROBADO = @APROBAD' +
'O,'#10' ESTADO = @ESTADO,'#10' TIPOCANT = @T' +
'IPOCANT,'#10' OBSERVACIONES = @OBSERVACIONES,'#10' ' +
' CONTABILIZAR = @CONTABILIZAR,'#10' FECHACAMBIO ' +
'= CURRENT_TIMESTAMP'#10#9'where'#10' (RDX_TRASPASOS_AJUSTES.C' +
'ENTRO = @CENTRO and'#10' RDX_TRASPASOS_AJUSTES.CENTRO2 ' +
'= @CENTRO2 and'#10#9' RDX_TRASPASOS_AJUSTES.CODIGO = @CODIGO and' +
#10#9' RDX_TRASPASOS_AJUSTES.COLOR = @COLOR and'#10#9' RDX_TRAS' +
'PASOS_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT_VAR = @@ROWCOUN' +
'T'#10#10#9'if @ROWCOUNT_VAR = 0'#10' begin'#10' insert into RDX_TRAS' +
'PASOS_AJUSTES'#10' (FECHA, CENTRO, CENTRO2, CODIGO, C' +
'OLOR,'#10' APROBADO, FECHACAMBIO, TIPOCANT,'#10' ' +
' ESTADO, OBSERVACIONES, CONTABILIZAR,'#10' C' +
'ANT36, CANT38, CANT40, CANT42,'#10' CANT44, CANT46, ' +
'CANT48,'#10' CANT_S, CANT_M, CANT_L, CANT_XL)'#10' ' +
' values ('#10' @FECHA, @CENTRO, @CENTRO2, @CODIGO,' +
#10' @COLOR, @APROBADO, CURRENT_TIMESTAMP, @TIPOCAN' +
'T,'#10' @ESTADO, @OBSERVACIONES, @CONTABILIZAR, @TR3' +
'6,'#10' @TR38, @TR40, @TR42,'#10' @TR44,' +
' @TR46, @TR48,'#10' @TR_S, @TR_M, @TR_L, @TR_XL)'#10' ' +
' end'#10'end'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Estado_Traspasos'
end>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 40
Top = 24
end
object DADataDictionary1: TDADataDictionary
Fields = <
item
Name = 'Traspasos_TIPO'
DataType = datString
Size = 1
Required = True
DisplayLabel = 'Tipo'
ReadOnly = True
end
item
Name = 'Traspasos_FECHA'
DataType = datDateTime
DisplayLabel = 'Fecha'
ReadOnly = True
end
item
Name = 'Traspasos_CENTRO'
DataType = datString
Size = 17
DisplayLabel = 'Centro'
ReadOnly = True
end
item
Name = 'Traspasos_FILIAL'
DataType = datString
Size = 25
DisplayLabel = 'Filial'
ReadOnly = True
end
item
Name = 'Traspasos_CENTRO2'
DataType = datString
Size = 17
DisplayLabel = 'Centro2'
ReadOnly = True
end
item
Name = 'Traspasos_FILIAL2'
DataType = datString
Size = 25
DisplayLabel = 'Filial2'
ReadOnly = True
end
item
Name = 'Traspasos_CODIGO'
DataType = datString
Size = 12
DisplayLabel = 'C'#243'digo'
ReadOnly = True
end
item
Name = 'Traspasos_PRODUCTO'
DataType = datString
Size = 40
Required = True
DisplayLabel = 'Producto'
ReadOnly = True
end
item
Name = 'Traspasos_COLOR'
DataType = datString
Size = 10
DisplayLabel = 'Color'
ReadOnly = True
end
item
Name = 'Traspasos_T38'
DataType = datFloat
DisplayLabel = 'T38'
ReadOnly = True
end
item
Name = 'Traspasos_T40'
DataType = datFloat
DisplayLabel = 'T40'
ReadOnly = True
end
item
Name = 'Traspasos_T42'
DataType = datFloat
DisplayLabel = 'T42'
ReadOnly = True
end
item
Name = 'Traspasos_T44'
DataType = datFloat
DisplayLabel = 'T44'
ReadOnly = True
end
item
Name = 'Traspasos_T46'
DataType = datFloat
DisplayLabel = 'T46'
ReadOnly = True
end
item
Name = 'Traspasos_T48'
DataType = datFloat
DisplayLabel = 'T48'
ReadOnly = True
end
item
Name = 'Traspasos_TOTAL'
DataType = datFloat
DisplayLabel = 'Total'
ReadOnly = True
end
item
Name = 'Traspasos_TR38'
DataType = datFloat
DisplayLabel = 'TR38'
end
item
Name = 'Traspasos_TR40'
DataType = datFloat
DisplayLabel = 'TR40'
end
item
Name = 'Traspasos_TR42'
DataType = datFloat
DisplayLabel = 'TR42'
end
item
Name = 'Traspasos_TR44'
DataType = datFloat
DisplayLabel = 'TR44'
end
item
Name = 'Traspasos_TR46'
DataType = datFloat
DisplayLabel = 'TR46'
end
item
Name = 'Traspasos_TR48'
DataType = datFloat
DisplayLabel = 'TR48'
end
item
Name = 'Traspasos_TOTAL_RECT'
DataType = datFloat
DisplayLabel = 'Total'
end
item
Name = 'Traspasos_APROBADO'
DataType = datString
Size = 1
DisplayLabel = 'Aprobado'
end
item
Name = 'Traspasos_ESTADO_TRASPASO'
DataType = datString
Size = 20
DisplayLabel = 'Estado'
end
item
Name = 'Traspasos_OBSERVACIONES'
DataType = datString
Size = 255
DisplayLabel = 'Observaciones'
end
item
Name = 'Traspasos_CONTABILIZAR'
DataType = datString
Size = 1
DisplayLabel = 'Contabilizar'
end
item
Name = 'Traspasos_FECHACAMBIO'
DataType = datDateTime
DisplayLabel = 'Fecha cambio'
ReadOnly = True
end
item
Name = 'Traspasos_T36'
DataType = datFloat
DisplayLabel = 'T36'
ReadOnly = True
end
item
Name = 'Traspasos_TR36'
DataType = datFloat
DisplayLabel = 'TR36'
end>
Left = 40
Top = 168
end
object bpTraspasos: TDABusinessProcessor
Schema = schTraspasos
UpdateCommandName = 'Update_Estado_Traspasos'
RefreshDatasetName = 'RefreshTraspasos'
ReferencedDataset = 'Traspasos'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
end
object bpTraspasosAprobadas: TDABusinessProcessor
Schema = schTraspasos
UpdateCommandName = 'Update_Estado_Traspasos'
RefreshDatasetName = 'RefreshTraspasos'
ReferencedDataset = 'TraspasosAprobados'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 88
end
object bpTraspasosPendientes: TDABusinessProcessor
Schema = schTraspasos
UpdateCommandName = 'Update_Estado_Traspasos'
RefreshDatasetName = 'RefreshTraspasos'
ReferencedDataset = 'TraspasosPendientes'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 160
end
end
Reference in New Issue View Git Blame Copy Permalink