EvaldoMaciel

Insert avaliação de risco Totvs RM

May 6th, 2019
175
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. -- Procura os funcionários com item de risco cadastrado
  3. SELECT CODPESSOA, DATAADMISSAO FROM PFUNC WHERE CODSITUACAO = 'A' AND CODPESSOA NOT IN (SELECT CODPESSOA FROM VPPRAMEDICOES WHERE CODPESSOA IS NOT NULL) ORDER BY CODPESSOA;
  4.  
  5. -- Insert básico
  6. INSERT INTO VPPRAMEDICOES (CODCOLIGADA, CODITEMRISCO, IDSEQUENCIAL, CODPESSOA, DATA)
  7. 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')
  8.  
  9. -- Exemplo prático:
  10. INSERT INTO VPPRAMEDICOES (CODCOLIGADA, CODITEMRISCO, IDSEQUENCIAL, CODPESSOA, DATA)
  11. VALUES (1, '0022', 1, 99, '2001-01-01 00:00:00.000')
RAW Paste Data