object srvDevoluciones: TsrvDevoluciones OldCreateOrder = True SessionManager = dmServer.SessionManager ServiceSchema = schDevoluciones ServiceDataStreamer = DABINAdapter AllowWhereSQL = True ExportedDataTables = <> Height = 300 Width = 300 object schDevoluciones: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DADataDictionary1 Diagrams = dmServer.DADiagrams Datasets = < item Params = <> Statements = < item Connection = 'GFT_VARELA' TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' SQL = 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_DEVOLUCIONES' 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 = 'FECHA' TableField = 'FECHA' end item DatasetField = 'E36' TableField = 'E36' 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 = 'ENVIADO' TableField = 'ENVIADO' end item DatasetField = 'DIFERENCIA' TableField = 'DIFERENCIA' end item DatasetField = 'APROBADO' TableField = 'APROBADO' end item DatasetField = 'FECHACAMBIO' TableField = 'FECHACAMBIO' end item DatasetField = 'NUMHOJA' TableField = 'NUMHOJA' end item DatasetField = 'ESTADO_HOJA' TableField = 'ESTADO_HOJA' end item DatasetField = 'OBSERVACIONES_HOJA' TableField = 'OBSERVACIONES_HOJA' end item DatasetField = 'CONTABILIZAR_HOJA' TableField = 'CONTABILIZAR_HOJA' end item DatasetField = 'S36' TableField = 'S36' 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 = 'SOLICITADO' TableField = 'SOLICITADO' end item DatasetField = 'ER36' TableField = 'ER36' end item DatasetField = 'ER38' TableField = 'ER38' end item DatasetField = 'ER40' TableField = 'ER40' end item DatasetField = 'ER42' TableField = 'ER42' end item DatasetField = 'ER44' TableField = 'ER44' end item DatasetField = 'ER46' TableField = 'ER46' end item DatasetField = 'ER48' TableField = 'ER48' end item DatasetField = 'ENVIADO_RECT' TableField = 'ENVIADO_RECT' end> end> Name = 'Devoluciones' Fields = < item Name = 'APROBADO' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_APROBADO' end item Name = 'FECHACAMBIO' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHACAMBIO' end item Name = 'CENTRO' DataType = datString Size = 17 DictionaryEntry = 'Devoluciones_CENTRO' InPrimaryKey = True end item Name = 'FILIAL' DataType = datString Size = 25 DictionaryEntry = 'Devoluciones_FILIAL' end item Name = 'CODIGO' DataType = datString Size = 12 DictionaryEntry = 'Devoluciones_CODIGO' InPrimaryKey = True end item Name = 'PRODUCTO' DataType = datString Size = 40 DictionaryEntry = 'Devoluciones_PRODUCTO' end item Name = 'COLOR' DataType = datString Size = 10 DictionaryEntry = 'Devoluciones_COLOR' InPrimaryKey = True end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHA' InPrimaryKey = True end item Name = 'NUMHOJA' DataType = datString Size = 8 DictionaryEntry = 'Devoluciones_NUMHOJA' end item Name = 'ESTADO_HOJA' DataType = datString Size = 20 DictionaryEntry = 'Devoluciones_ESTADO_HOJA' end item Name = 'OBSERVACIONES_HOJA' DataType = datString Size = 255 DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' end item Name = 'CONTABILIZAR_HOJA' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' end item Name = 'S36' DataType = datInteger DictionaryEntry = 'Devoluciones_S36' end item Name = 'S38' DataType = datInteger DictionaryEntry = 'Devoluciones_S38' end item Name = 'S40' DataType = datInteger DictionaryEntry = 'Devoluciones_S40' end item Name = 'S42' DataType = datInteger DictionaryEntry = 'Devoluciones_S42' end item Name = 'S44' DataType = datInteger DictionaryEntry = 'Devoluciones_S44' end item Name = 'S46' DataType = datInteger DictionaryEntry = 'Devoluciones_S46' end item Name = 'S48' DataType = datInteger DictionaryEntry = 'Devoluciones_S48' end item Name = 'SOLICITADO' DataType = datInteger DictionaryEntry = 'Devoluciones_SOLICITADO' end item Name = 'E36' DataType = datFloat DictionaryEntry = 'Devoluciones_E36' end item Name = 'E38' DataType = datFloat DictionaryEntry = 'Devoluciones_E38' end item Name = 'E40' DataType = datFloat DictionaryEntry = 'Devoluciones_E40' end item Name = 'E42' DataType = datFloat DictionaryEntry = 'Devoluciones_E42' end item Name = 'E44' DataType = datFloat DictionaryEntry = 'Devoluciones_E44' end item Name = 'E46' DataType = datFloat DictionaryEntry = 'Devoluciones_E46' end item Name = 'E48' DataType = datFloat DictionaryEntry = 'Devoluciones_E48' end item Name = 'ENVIADO' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO' end item Name = 'ER36' DataType = datFloat DictionaryEntry = 'Devoluciones_ER38' end item Name = 'ER38' DataType = datFloat DictionaryEntry = 'Devoluciones_ER38' end item Name = 'ER40' DataType = datFloat DictionaryEntry = 'Devoluciones_ER40' end item Name = 'ER42' DataType = datFloat DictionaryEntry = 'Devoluciones_ER42' end item Name = 'ER44' DataType = datFloat DictionaryEntry = 'Devoluciones_ER44' end item Name = 'ER46' DataType = datFloat DictionaryEntry = 'Devoluciones_ER46' end item Name = 'ER48' DataType = datFloat DictionaryEntry = 'Devoluciones_ER48' end item Name = 'ENVIADO_RECT' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO_RECT' end item Name = 'DIFERENCIA' DataType = datFloat DictionaryEntry = 'Devoluciones_DIFERENCIA' end> end item Params = <> Statements = < item Connection = 'GFT_VARELA' TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' SQL = 'SELECT '#10' *'#10'FROM RDX_V_CONTROL_DEVOLUCIONES'#10'WHERE (APROBADO' + ' = '#39'N'#39')' StatementType = stSQL ColumnMappings = < item DatasetField = 'APROBADO' TableField = 'APROBADO' end 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 = 'FECHA' TableField = 'FECHA' end item DatasetField = 'E36' TableField = 'E36' 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 = 'ENVIADO' TableField = 'ENVIADO' end item DatasetField = 'DIFERENCIA' TableField = 'DIFERENCIA' end item DatasetField = 'FECHACAMBIO' TableField = 'FECHACAMBIO' end item DatasetField = 'NUMHOJA' TableField = 'NUMHOJA' end item DatasetField = 'ESTADO_HOJA' TableField = 'ESTADO_HOJA' end item DatasetField = 'OBSERVACIONES_HOJA' TableField = 'OBSERVACIONES_HOJA' end item DatasetField = 'CONTABILIZAR_HOJA' TableField = 'CONTABILIZAR_HOJA' end item DatasetField = 'S36' TableField = 'S36' 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 = 'SOLICITADO' TableField = 'SOLICITADO' end item DatasetField = 'ER36' TableField = 'ER36' end item DatasetField = 'ER38' TableField = 'ER38' end item DatasetField = 'ER40' TableField = 'ER40' end item DatasetField = 'ER42' TableField = 'ER42' end item DatasetField = 'ER44' TableField = 'ER44' end item DatasetField = 'ER46' TableField = 'ER46' end item DatasetField = 'ER48' TableField = 'ER48' end item DatasetField = 'ENVIADO_RECT' TableField = 'ENVIADO_RECT' end> end> Name = 'DevolucionesPendientes' Fields = < item Name = 'APROBADO' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_APROBADO' end item Name = 'FECHACAMBIO' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHACAMBIO' end item Name = 'CENTRO' DataType = datString Size = 17 DictionaryEntry = 'Devoluciones_CENTRO' InPrimaryKey = True end item Name = 'FILIAL' DataType = datString Size = 25 DictionaryEntry = 'Devoluciones_FILIAL' end item Name = 'CODIGO' DataType = datString Size = 12 DictionaryEntry = 'Devoluciones_CODIGO' InPrimaryKey = True end item Name = 'PRODUCTO' DataType = datString Size = 40 DictionaryEntry = 'Devoluciones_PRODUCTO' end item Name = 'COLOR' DataType = datString Size = 10 DictionaryEntry = 'Devoluciones_COLOR' InPrimaryKey = True end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHA' InPrimaryKey = True end item Name = 'NUMHOJA' DataType = datString Size = 8 DictionaryEntry = 'Devoluciones_NUMHOJA' end item Name = 'ESTADO_HOJA' DataType = datString Size = 20 DictionaryEntry = 'Devoluciones_ESTADO_HOJA' end item Name = 'OBSERVACIONES_HOJA' DataType = datString Size = 255 DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' end item Name = 'CONTABILIZAR_HOJA' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' end item Name = 'S36' DataType = datInteger DictionaryEntry = 'Devoluciones_S36' end item Name = 'S38' DataType = datInteger DictionaryEntry = 'Devoluciones_S38' end item Name = 'S40' DataType = datInteger DictionaryEntry = 'Devoluciones_S40' end item Name = 'S42' DataType = datInteger DictionaryEntry = 'Devoluciones_S42' end item Name = 'S44' DataType = datInteger DictionaryEntry = 'Devoluciones_S44' end item Name = 'S46' DataType = datInteger DictionaryEntry = 'Devoluciones_S46' end item Name = 'S48' DataType = datInteger DictionaryEntry = 'Devoluciones_S48' end item Name = 'SOLICITADO' DataType = datInteger DictionaryEntry = 'Devoluciones_SOLICITADO' end item Name = 'E36' DataType = datFloat DictionaryEntry = 'Devoluciones_E36' end item Name = 'E38' DataType = datFloat DictionaryEntry = 'Devoluciones_E38' end item Name = 'E40' DataType = datFloat DictionaryEntry = 'Devoluciones_E40' end item Name = 'E42' DataType = datFloat DictionaryEntry = 'Devoluciones_E42' end item Name = 'E44' DataType = datFloat DictionaryEntry = 'Devoluciones_E44' end item Name = 'E46' DataType = datFloat DictionaryEntry = 'Devoluciones_E46' end item Name = 'E48' DataType = datFloat DictionaryEntry = 'Devoluciones_E48' end item Name = 'ENVIADO' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO' end item Name = 'ER36' DataType = datFloat DictionaryEntry = 'Devoluciones_ER36' end item Name = 'ER38' DataType = datFloat DictionaryEntry = 'Devoluciones_ER38' end item Name = 'ER40' DataType = datFloat DictionaryEntry = 'Devoluciones_ER40' end item Name = 'ER42' DataType = datFloat DictionaryEntry = 'Devoluciones_ER42' end item Name = 'ER44' DataType = datFloat DictionaryEntry = 'Devoluciones_ER44' end item Name = 'ER46' DataType = datFloat DictionaryEntry = 'Devoluciones_ER46' end item Name = 'ER48' DataType = datFloat DictionaryEntry = 'Devoluciones_ER48' end item Name = 'ENVIADO_RECT' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO_RECT' end item Name = 'DIFERENCIA' DataType = datFloat DictionaryEntry = 'Devoluciones_DIFERENCIA' end> end item Params = <> Statements = < item Connection = 'GFT_VARELA' TargetTable = 'RDX_V_CONTROL_DEVOLUCIONES' SQL = 'SELECT '#10' *'#10' FROM'#10' RDX_V_CONTROL_DEVOLUCIONES'#10'WHERE (APROB' + 'ADO = '#39'S'#39')' 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 = 'FECHA' TableField = 'FECHA' end item DatasetField = 'E36' TableField = 'E36' 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 = 'ENVIADO' TableField = 'ENVIADO' end item DatasetField = 'DIFERENCIA' TableField = 'DIFERENCIA' end item DatasetField = 'FECHACAMBIO' TableField = 'FECHACAMBIO' end item DatasetField = 'APROBADO' TableField = 'APROBADO' end item DatasetField = 'NUMHOJA' TableField = 'NUMHOJA' end item DatasetField = 'ESTADO_HOJA' TableField = 'ESTADO_HOJA' end item DatasetField = 'OBSERVACIONES_HOJA' TableField = 'OBSERVACIONES_HOJA' end item DatasetField = 'CONTABILIZAR_HOJA' TableField = 'CONTABILIZAR_HOJA' end item DatasetField = 'S36' TableField = 'S36' 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 = 'SOLICITADO' TableField = 'SOLICITADO' end item DatasetField = 'ER36' TableField = 'ER36' end item DatasetField = 'ER38' TableField = 'ER38' end item DatasetField = 'ER40' TableField = 'ER40' end item DatasetField = 'ER42' TableField = 'ER42' end item DatasetField = 'ER44' TableField = 'ER44' end item DatasetField = 'ER46' TableField = 'ER46' end item DatasetField = 'ER48' TableField = 'ER48' end item DatasetField = 'ENVIADO_RECT' TableField = 'ENVIADO_RECT' end> end> Name = 'DevolucionesAprobadas' Fields = < item Name = 'APROBADO' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_APROBADO' end item Name = 'FECHACAMBIO' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHACAMBIO' end item Name = 'CENTRO' DataType = datString Size = 17 DictionaryEntry = 'Devoluciones_CENTRO' InPrimaryKey = True end item Name = 'FILIAL' DataType = datString Size = 25 DictionaryEntry = 'Devoluciones_FILIAL' end item Name = 'CODIGO' DataType = datString Size = 12 DictionaryEntry = 'Devoluciones_CODIGO' InPrimaryKey = True end item Name = 'PRODUCTO' DataType = datString Size = 40 DictionaryEntry = 'Devoluciones_PRODUCTO' end item Name = 'COLOR' DataType = datString Size = 10 DictionaryEntry = 'Devoluciones_COLOR' InPrimaryKey = True end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Devoluciones_FECHA' InPrimaryKey = True end item Name = 'NUMHOJA' DataType = datString Size = 8 DictionaryEntry = 'Devoluciones_NUMHOJA' end item Name = 'ESTADO_HOJA' DataType = datString Size = 20 DictionaryEntry = 'Devoluciones_ESTADO_HOJA' end item Name = 'OBSERVACIONES_HOJA' DataType = datString Size = 255 DictionaryEntry = 'Devoluciones_OBSERVACIONES_HOJA' end item Name = 'CONTABILIZAR_HOJA' DataType = datString Size = 1 DictionaryEntry = 'Devoluciones_CONTABILIZAR_HOJA' end item Name = 'S36' DataType = datInteger DictionaryEntry = 'Devoluciones_S36' end item Name = 'S38' DataType = datInteger DictionaryEntry = 'Devoluciones_S38' end item Name = 'S40' DataType = datInteger DictionaryEntry = 'Devoluciones_S40' end item Name = 'S42' DataType = datInteger DictionaryEntry = 'Devoluciones_S42' end item Name = 'S44' DataType = datInteger DictionaryEntry = 'Devoluciones_S44' end item Name = 'S46' DataType = datInteger DictionaryEntry = 'Devoluciones_S46' end item Name = 'S48' DataType = datInteger DictionaryEntry = 'Devoluciones_S48' end item Name = 'SOLICITADO' DataType = datInteger DictionaryEntry = 'Devoluciones_SOLICITADO' end item Name = 'E36' DataType = datFloat DictionaryEntry = 'Devoluciones_E36' end item Name = 'E38' DataType = datFloat DictionaryEntry = 'Devoluciones_E38' end item Name = 'E40' DataType = datFloat DictionaryEntry = 'Devoluciones_E40' end item Name = 'E42' DataType = datFloat DictionaryEntry = 'Devoluciones_E42' end item Name = 'E44' DataType = datFloat DictionaryEntry = 'Devoluciones_E44' end item Name = 'E46' DataType = datFloat DictionaryEntry = 'Devoluciones_E46' end item Name = 'E48' DataType = datFloat DictionaryEntry = 'Devoluciones_E48' end item Name = 'ENVIADO' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO' end item Name = 'ER36' DataType = datFloat DictionaryEntry = 'Devoluciones_ER36' end item Name = 'ER38' DataType = datFloat DictionaryEntry = 'Devoluciones_ER38' end item Name = 'ER40' DataType = datFloat DictionaryEntry = 'Devoluciones_ER40' end item Name = 'ER42' DataType = datFloat DictionaryEntry = 'Devoluciones_ER42' end item Name = 'ER44' DataType = datFloat DictionaryEntry = 'Devoluciones_ER44' end item Name = 'ER46' DataType = datFloat DictionaryEntry = 'Devoluciones_ER46' end item Name = 'ER48' DataType = datFloat DictionaryEntry = 'Devoluciones_ER48' end item Name = 'ENVIADO_RECT' DataType = datFloat DictionaryEntry = 'Devoluciones_ENVIADO_RECT' end item Name = 'DIFERENCIA' DataType = datFloat DictionaryEntry = 'Devoluciones_DIFERENCIA' 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 = '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_DEVOLUCIONES' SQL = 'SELECT '#10' ENVIADO_RECT, DIFERENCIA'#10' FROM'#10' RDX_V_CONTROL' + '_DEVOLUCIONES'#10' WHERE'#10' FECHA = :FECHA AND'#10' CENTRO = ' + ':CENTRO AND'#10' CODIGO = :CODIGO AND'#10' COLOR = :COLOR' StatementType = stSQL ColumnMappings = < item DatasetField = 'DIFERENCIA' TableField = 'DIFERENCIA' end item DatasetField = 'ENVIADO_RECT' TableField = 'ENVIADO_RECT' end> end> Name = 'RefreshDevoluciones' Fields = < item Name = 'ENVIADO_RECT' DataType = datFloat end item Name = 'DIFERENCIA' DataType = datFloat end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item Params = < item Name = 'NUMHOJA' DataType = datString Size = 8 Value = '' ParamType = daptInput end item Name = 'ESTADO_HOJA' DataType = datString Size = 20 Value = '' ParamType = daptInput end item Name = 'OBSERVACIONES_HOJA' DataType = datString Size = 255 Value = '' ParamType = daptInput end item Name = 'CONTABILIZAR_HOJA' DataType = datString Size = 1 Value = '' ParamType = daptInput end item Name = 'ER36' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER38' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER40' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER42' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER44' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER46' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'ER48' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'APROBADO' DataType = datString Size = 1 Value = '' ParamType = daptInput end item Name = 'FECHA' DataType = datDateTime Value = '' ParamType = daptInput end item Name = 'CENTRO' 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_DEVOLUCIONES' SQL = 'begin'#10#9'declare @rowcount_var int'#10#10' declare @NUMHOJA char(8)'#10' ' + ' declare @ESTADO_HOJA varchar(20)'#10' declare @OBSERVACIONES_H' + 'OJA varchar(255)'#10' declare @CONTABILIZAR_HOJA char(1)'#10#10' dec' + 'lare @ER36 numeric(15,0)'#10' declare @ER38 numeric(15,0)'#10' dec' + 'lare @ER40 numeric(15,0)'#10' declare @ER42 numeric(15,0)'#10' dec' + 'lare @ER44 numeric(15,0)'#10' declare @ER46 numeric(15,0)'#10' dec' + 'lare @ER48 numeric(15,0)'#10' declare @ER_S numeric(15,0)'#10' dec' + 'lare @ER_M numeric(15,0)'#10' declare @ER_L numeric(15,0)'#10' dec' + 'lare @ER_XL numeric(15,0)'#10#10#10' declare @APROBADO char(1)'#10' de' + 'clare @FECHA datetime'#10' declare @CENTRO varchar(17)'#10' declar' + 'e @CODIGO varchar(12)'#10' declare @COLOR varchar(10)'#10#10' declar' + 'e @TIPO_TALLAJE smallint'#10#10' set @NUMHOJA = :NUMHOJA'#10' set @E' + 'STADO_HOJA = :ESTADO_HOJA'#10' set @OBSERVACIONES_HOJA = :OBSERVA' + 'CIONES_HOJA'#10' set @CONTABILIZAR_HOJA = :CONTABILIZAR_HOJA'#10#10' ' + ' set @ER36 = :ER36'#10' set @ER38 = :ER38'#10' set @ER40 = :ER40'#10' ' + ' set @ER42 = :ER42'#10' set @ER44 = :ER44'#10' set @ER46 = :ER46' + #10' set @ER48 = :ER48'#10' set @ER_S = :ER38'#10' set @ER_M = :ER' + '40'#10' set @ER_L = :ER42'#10' set @ER_XL = :ER44'#10#10' set @APROBA' + 'DO = :APROBADO'#10' set @FECHA = :FECHA'#10' set @CENTRO = :CENTRO' + #10' set @CODIGO = :CODIGO'#10' set @COLOR = :COLOR'#10#10' /* *****' + '****************************** */'#10' if @NUMHOJA <> '#39#39#10' begi' + 'n'#10#9' update RDX_AJUSTES_HOJA_DEVOLUCIONES set'#10#9' EST' + 'ADO = @ESTADO_HOJA,'#10#9#9' OBSERVACIONES = @OBSERVACIONES_HOJA' + ','#10#9#9' CONTABILIZAR = @CONTABILIZAR_HOJA'#10#9' where RDX_AJU' + 'STES_HOJA_DEVOLUCIONES.NUMHOJA = @NUMHOJA'#10#10#9#9' select @ROWCOUNT_V' + 'AR = @@ROWCOUNT'#10#10#9' if @ROWCOUNT_VAR = 0'#10#9#9' begin'#10#9' ' + 'insert into RDX_AJUSTES_HOJA_DEVOLUCIONES'#10#9' (NUM' + 'HOJA, ESTADO, OBSERVACIONES, CONTABILIZAR)'#10#9#9' values (@NUMH' + 'OJA, @ESTADO_HOJA,'#10#9' @OBSERVACIONES_HOJA, @CONT' + 'ABILIZAR_HOJA)'#10#9' end'#10' end'#10#10' /* ARREGLO PARA QUE SOPORT' + 'E LOS NUEVOS TALLAJES*** */'#10#10' execute RDX_P_TIPO_TALLAJE @COD' + 'IGO, @TIPO_TALLAJE OUTPUT'#10#10' if @TIPO_TALLAJE = 1'#10' begin'#10' ' + ' set @ER_S = NULL'#10' set @ER_M = NULL'#10' set @ER_L =' + ' NULL'#10' set @ER_XL = NULL'#10' end'#10' '#10' if @TIPO_TALLAJE' + ' = 2'#10' begin'#10' set @ER36 = NULL'#10' set @ER38 = NULL'#10' ' + ' set @ER40 = NULL'#10' set @ER42 = NULL'#10' set @ER44 ' + '= NULL'#10' set @ER46 = NULL'#10' set @ER48 = NULL'#10' end'#10#10 + ' /* *********************************** */'#10#9'update RDX_DEVOLU' + 'CION_AJUSTES set'#10#9' CANT36 = @ER36,'#10#9' CANT38 ' + '= @ER38,'#10#9' CANT40 = @ER40,'#10#9' CANT42 = @ER42,' + #10#9' CANT44 = @ER44,'#10#9' CANT46 = @ER46,'#10#9' ' + ' CANT48 = @ER48,'#10#9' CANT_S = @ER_S,'#10#9' CAN' + 'T_M = @ER_M,'#10#9' CANT_L = @ER_L,'#10#9' CANT_XL = @' + 'ER_XL,'#10' APROBADO = @APROBADO,'#10' FECHA' + 'CAMBIO = CURRENT_TIMESTAMP'#10#9'where'#10' (RDX_DEVOLUCION_A' + 'JUSTES.CENTRO = @CENTRO and'#10#9' RDX_DEVOLUCION_AJUSTES.CODIGO' + ' = @CODIGO and'#10#9' RDX_DEVOLUCION_AJUSTES.COLOR = @COLOR and'#10 + #9' RDX_DEVOLUCION_AJUSTES.FECHA = @FECHA)'#10#10#9'select @ROWCOUNT' + '_VAR = @@ROWCOUNT'#10#10#9'if @ROWCOUNT_VAR = 0'#10' begin'#10' inse' + 'rt into RDX_DEVOLUCION_AJUSTES'#10' (FECHA, CENTRO, C' + 'ODIGO, COLOR,'#10' APROBADO, FECHACAMBIO, CANT36,'#10' ' + ' CANT38, CANT40, CANT42,'#10' CANT44, ' + 'CANT46, CANT48,'#10' CANT_S, CANT_M, CANT_L, CANT_XL' + ')'#10' values ('#10' @FECHA, @CENTRO, @CODIGO,'#10' ' + ' @COLOR, @APROBADO, CURRENT_TIMESTAMP, @ER36,'#10' ' + ' @ER38, @ER40, @ER42,'#10' @ER44, @ER46' + ', @ER48,'#10' @ER_S, @ER_M, @ER_L, @ER_XL)'#10' end'#10'e' + 'nd'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Estado_Devoluciones' end> RelationShips = <> UpdateRules = <> Version = 0 Left = 48 Top = 32 end object bpDevoluciones: TDABusinessProcessor Schema = schDevoluciones UpdateCommandName = 'Update_Estado_Devoluciones' RefreshDatasetName = 'RefreshDevoluciones' ReferencedDataset = 'Devoluciones' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] UpdateMode = updWhereKeyOnly Left = 192 Top = 32 end object bpDevolucionesAprobadas: TDABusinessProcessor Schema = schDevoluciones UpdateCommandName = 'Update_Estado_Devoluciones' RefreshDatasetName = 'RefreshDevoluciones' ReferencedDataset = 'DevolucionesAprobadas' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] UpdateMode = updWhereKeyOnly Left = 192 Top = 88 end object bpDevolucionesPendientes: TDABusinessProcessor Schema = schDevoluciones UpdateCommandName = 'Update_Estado_Devoluciones' RefreshDatasetName = 'RefreshDevoluciones' ReferencedDataset = 'DevolucionesPendientes' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateDelete, poPrepareCommands, poIgnoreRowsAffected] UpdateMode = updWhereKeyOnly Left = 192 Top = 152 end object DADataDictionary1: TDADataDictionary Fields = < item Name = 'Devoluciones_APROBADO' DataType = datString Size = 1 DisplayLabel = 'APROBADO' end item Name = 'Devoluciones_FECHACAMBIO' DataType = datDateTime DisplayLabel = 'FECHACAMBIO' end item Name = 'Devoluciones_CENTRO' DataType = datString Size = 17 DisplayLabel = 'CENTRO' ReadOnly = True end item Name = 'Devoluciones_FILIAL' DataType = datString Size = 25 DisplayLabel = 'FILIAL' ReadOnly = True end item Name = 'Devoluciones_CODIGO' DataType = datString Size = 12 DisplayLabel = 'CODIGO' ReadOnly = True end item Name = 'Devoluciones_PRODUCTO' DataType = datString Size = 40 DisplayLabel = 'PRODUCTO' ReadOnly = True end item Name = 'Devoluciones_COLOR' DataType = datString Size = 10 DisplayLabel = 'COLOR' ReadOnly = True end item Name = 'Devoluciones_FECHA' DataType = datDateTime DisplayLabel = 'FECHA' ReadOnly = True end item Name = 'Devoluciones_NUMHOJA' DataType = datString Size = 8 DisplayLabel = 'NUMHOJA' end item Name = 'Devoluciones_ESTADO_HOJA' DataType = datString Size = 20 DisplayLabel = 'ESTADO_HOJA' end item Name = 'Devoluciones_OBSERVACIONES_HOJA' DataType = datString Size = 255 DisplayLabel = 'OBSERVACIONES_HOJA' end item Name = 'Devoluciones_CONTABILIZAR_HOJA' DataType = datString Size = 1 DisplayLabel = 'CONTABILIZAR_HOJA' end item Name = 'Devoluciones_S36' DataType = datInteger DisplayLabel = 'S36' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S38' DataType = datInteger DisplayLabel = 'S38' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S40' DataType = datInteger DisplayLabel = 'S40' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S42' DataType = datInteger DisplayLabel = 'S42' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S44' DataType = datInteger DisplayLabel = 'S44' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S46' DataType = datInteger DisplayLabel = 'S46' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_S48' DataType = datInteger DisplayLabel = 'S48' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_SOLICITADO' DataType = datInteger DisplayLabel = 'SOLICITADO' ReadOnly = True Alignment = taRightJustify ServerAutoRefresh = True end item Name = 'Devoluciones_E36' DataType = datFloat DisplayLabel = 'E36' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E38' DataType = datFloat DisplayLabel = 'E38' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E40' DataType = datFloat DisplayLabel = 'E40' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E42' DataType = datFloat DisplayLabel = 'E42' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E44' DataType = datFloat DisplayLabel = 'E44' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E46' DataType = datFloat DisplayLabel = 'E46' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_E48' DataType = datFloat DisplayLabel = 'E48' ReadOnly = True Alignment = taRightJustify end item Name = 'Devoluciones_ENVIADO' DataType = datFloat DisplayLabel = 'ENVIADO' ReadOnly = True Alignment = taRightJustify ServerAutoRefresh = True end item Name = 'Devoluciones_ER36' DataType = datFloat DisplayLabel = 'ER36' Alignment = taRightJustify end item Name = 'Devoluciones_ER38' DataType = datFloat DisplayLabel = 'ER38' Alignment = taRightJustify end item Name = 'Devoluciones_ER40' DataType = datFloat DisplayLabel = 'ER40' Alignment = taRightJustify end item Name = 'Devoluciones_ER42' DataType = datFloat DisplayLabel = 'ER42' Alignment = taRightJustify end item Name = 'Devoluciones_ER44' DataType = datFloat DisplayLabel = 'ER44' Alignment = taRightJustify end item Name = 'Devoluciones_ER46' DataType = datFloat DisplayLabel = 'ER46' Alignment = taRightJustify end item Name = 'Devoluciones_ER48' DataType = datFloat DisplayLabel = 'ER48' Alignment = taRightJustify end item Name = 'Devoluciones_ENVIADO_RECT' DataType = datFloat DisplayLabel = 'ENVIADO_RECT' Alignment = taRightJustify ServerAutoRefresh = True end item Name = 'Devoluciones_DIFERENCIA' DataType = datFloat DisplayLabel = 'DIFERENCIA' Alignment = taRightJustify ServerAutoRefresh = True end> Left = 48 Top = 120 end object DABINAdapter: TDABINAdapter Left = 48 Top = 184 end end