Abaixo um exemplo de script em T-SQL que monta o espelho de ponto.
--DECLARA VARIAVEIS PARA CONTROLE DO WHILE E ARMAZENAMENTO DOS ÚLTIMOS REGISTROS
DECLARE @P8_FILIAL VARCHAR(02) , @P8_MAT VARCHAR(06) , @P8_ORDEM VARCHAR(02) , @P8_HORA VARCHAR(05)
,@P8_FILIAL2 VARCHAR(02) , @P8_MAT2 VARCHAR(06) , @P8_ORDEM2 VARCHAR(02) , @PCONT INT , @STRINGSQL VARCHAR(MAX)
,@FIL VARCHAR(02), @MAT VARCHAR(06);
SET @FIL = '02';
SET @MAT = '030830';
--TABELA CRIADA PARA CONTROLE DO WHILE
DECLARE @TUSER2 AS TABLE (FIL VARCHAR(02), MAT VARCHAR(06), ORD VARCHAR(02), HORA VARCHAR(05))
IF OBJECT_ID('tempdb.dbo.#TESTE_FINAL', 'U') IS NOT NULL
BEGIN
DROP TABLE dbo.#TESTE_FINAL;
END
--CRIA TABELA PARA POPULAR O RESULTADO QUE PRECISAMOS
CREATE TABLE #TESTE_FINAL(
FIL VARCHAR(02) NULL
,MAT VARCHAR(06) NULL
,ORD VARCHAR(02)
,MARC1 VARCHAR(05)
,MARC2 VARCHAR(05)
,MARC3 VARCHAR(05)
,MARC4 VARCHAR(05)
,MARC5 VARCHAR(05)
,MARC6 VARCHAR(05)
,MARC7 VARCHAR(05)
,MARC8 VARCHAR(05)
,MARC9 VARCHAR(05)
,MARC10 VARCHAR(05) ) ;
--POPULA TABELA PARA SER PERCORRIDA NO WHILE
INSERT INTO
@TUSER2
SELECT
P8_FILIAL
, P8_MAT
, P8_ORDEM
, P8_HORA
FROM
SP8010
WHERE
P8_DATAAPO <> ''
AND P8_ORDEM <> ''
AND P8_TPMCREP <> 'D'
AND P8_MOTIVRG <> 'REJEICAO AUTOMATICA'
AND D_E_L_E_T_ <> '*'
AND P8_MAT = @MAT
AND P8_FILIAL = @FIL
ORDER BY
P8_FILIAL , P8_MAT , P8_ORDEM , P8_DATA , P8_HORA
--ZERA VARIAVEIS PARA CONTROLAR LACO
SET @P8_FILIAL2 = ''
SET @P8_MAT2 = ''
SET @P8_ORDEM2 = ''
SET @PCONT = 0
WHILE (SELECT COUNT (*) FROM @TUSER2) > 0
BEGIN
--ARMAZENA O REGISTRO DO CURSOR
SELECT TOP 1 @P8_FILIAL = T.FIL
, @P8_MAT = T.MAT
, @P8_ORDEM = T.ORD
, @P8_HORA = T.HORA
FROM @TUSER2 T;
IF @P8_ORDEM <> @P8_ORDEM2
BEGIN
INSERT INTO #TESTE_FINAL (FIL, MAT, ORD, MARC1) VALUES ( @P8_FILIAL, @P8_MAT, @P8_ORDEM, @P8_HORA );
SET @PCONT = 1 ;
SET @P8_FILIAL2 = @P8_FILIAL;
SET @P8_MAT2 = @P8_MAT ;
SET @P8_ORDEM2 = @P8_ORDEM ;
END
ELSE IF @P8_ORDEM = @P8_ORDEM2
BEGIN
SET @PCONT += 1 ;
SET @STRINGSQL = 'UPDATE #TESTE_FINAL SET MARC' + CONVERT(VARCHAR(10), @PCONT) + ' = ''' + @P8_HORA + ''' WHERE FIL = ''' + @P8_FILIAL
+ ''' AND MAT = ''' + @P8_MAT + ''' AND ORD = ''' + @P8_ORDEM + ''' ';
--PRINT @STRINGSQL
EXEC (@STRINGSQL);
END
--DELETA O REGISTRO DO CURSOR
DELETE FROM @TUSER2 WHERE MAT = @P8_MAT AND FIL = @P8_FILIAL AND ORD = @P8_ORDEM AND HORA = @P8_HORA;
END
SELECT * FROM #TESTE_FINAL;
DROP TABLE #TESTE_FINAL;
