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