Insert avaliação de risco Totvs RM

-- Procura os funcionários com item de risco cadastrado
SELECT CODPESSOA, DATAADMISSAO FROM PFUNC WHERE CODSITUACAO = 'A' AND CODPESSOA NOT IN (SELECT CODPESSOA FROM VPPRAMEDICOES WHERE CODPESSOA IS NOT NULL) ORDER BY CODPESSOA;

-- Insert básico
INSERT INTO VPPRAMEDICOES (CODCOLIGADA, CODITEMRISCO, IDSEQUENCIAL, CODPESSOA, DATA)
VALUES (/* COLIGADA UNISA */, /* CODÍGO DO ITEM PARA AUSÊNCIA DE RISCO 0901001 // NO RM É 0022 - */, /* SEQUENCIA - COMEÇA POR 1 */, /*CÓDIGO DA PESSOA COM BASE NA CONSULTA ANTERIOR*/, /*DATA BASADA NA DATA DE ADMISSÃO*/ '2001-01-01 00:00:00.000')

-- Exemplo prático:
INSERT INTO VPPRAMEDICOES (CODCOLIGADA, CODITEMRISCO, IDSEQUENCIAL, CODPESSOA, DATA)
VALUES (1, '0022', 1, 99, '2001-01-01 00:00:00.000')