Saneamiento de la base de proveedores — Apollus EHS
Estos son los comandos SELECT
que se pueden ejecutar en el sistema Senior , para facilitar la extracción de datos. Los comandos están divididos por tipo de información (empleados, puestos, sectores, sucursales y centros de costos).
Si es necesario extraer información diferente de los ejemplos, puede adaptar los comandos para buscar información que no esté incluida en los ejemplos.
Saneamiento de datos:
Colaboradores
Vincular registros
Los registros se vinculan mediante el código de integración de registro de Personas :
Registro en el sistema Senior | Registro con el proveedor de SST | Ejemplo | ||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
R030EMP.NumEmp
R034FUN.TipCol
R034FUN.NumCad
|
Campo: Código de integración de registro de personas Formato:
|
Nota Los valores posibles para Tipo de empleado (
|
Comandos de base de datos para saneamiento base
SELECT R034FUN.CodFil 'Cod.Unid', R030FIL.NomFil 'Nome Unidade', CAST(R030ORG.TabOrg AS VARCHAR(200)) + '/' + CAST(R016HIE.CodLoc AS VARCHAR(200)) 'Cod.Setor', R016ORN.NomLoc 'Nome Setor', CAST(R030CAR.EstCar AS VARCHAR(200)) + '/' + CAST(R034FUN.CodCar AS VARCHAR(200)) 'Cod.Cargo', R024CAR.TitRed 'Nome Cargo', CAST(R034FUN.TIPCOL AS VARCHAR(200))+ '/'+ CAST(R034FUN.NUMCAD AS VARCHAR(200)) 'Matrícula', '' 'Cod Funcionário', CASE R034FUN.TipCol WHEN 1 THEN CAST(R034FUN.NumEmp AS VARCHAR(200)) + '/' + 'EMPLOYEE' + '/' + CAST(R034FUN.NumCad AS VARCHAR(200)) WHEN 2 THEN CAST(R034FUN.NumEmp AS VARCHAR(200)) + '/' + 'THIRD' + '/' + CAST(R034FUN.NumCad AS VARCHAR(200)) ELSE '' END 'Código integração do cadastro de Pessoas', R034FUN.NomFun 'Nome Funcionário', CASE WHEN (convert(varchar, R034FUN.DatNas, 103) = '31/12/1900') THEN null ELSE (convert(varchar, R034FUN.DatNas, 103)) END 'Dt.Nascimento', R034FUN.TipSex 'Sexo', R010SIT.DesSit 'Situação', CASE WHEN (convert(varchar, R034FUN.DatAdm, 103) = '31/12/1900') THEN null ELSE (convert(varchar, R034FUN.DatAdm, 103)) END 'Dt.Admissão', CASE WHEN (convert(varchar, R038AFA.DatAfa, 103) = '31/12/1900') THEN null ELSE (convert(varchar, R038AFA.DatAfa, 103)) END 'Dt.Demissão', CASE R034FUN.EstCiv WHEN 1 THEN 'Solteiro' WHEN 2 THEN 'Casado' WHEN 3 THEN 'Divorciado' WHEN 4 THEN 'Viúvo' WHEN 5 THEN 'Concubinato' WHEN 6 THEN 'Separado' WHEN 7 THEN 'União Estável' WHEN 9 THEN 'Outros' ELSE 'Solteiro' END 'Estado Civil', R034FUN.NumPis 'Pis/Pasep', CASE R034FUN.tipcon WHEN 1 THEN 'Empregado' WHEN 2 THEN 'Diretor' WHEN 3 THEN 'Trabalhador Rural' WHEN 4 THEN 'Aposentado' WHEN 5 THEN 'Estágiario' WHEN 6 THEN 'Aprendiz' WHEN 7 THEN 'Prazo Determinado - Lei 9.601/98' WHEN 8 THEN 'Diretor Aposentado' WHEN 9 THEN 'Agente Público' WHEN 10 THEN 'Professor' WHEN 11 THEN 'Cooperador' WHEN 12 THEN 'Trabalhador Doméstico' WHEN 13 THEN 'Professor Prazo Determinado' ELSE 'Empregado' END 'Contratação', R033PES.NumCid 'Rg', R033PES.EstCid 'UF-RG', CASE WHEN R034FUN.NumCPF = 0 THEN ' ' WHEN R034FUN.NumCPF IS NULL THEN ' ' WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 1)) THEN (SUBSTRING('0000000000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('0000000000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('0000000000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('0000000000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 2)) THEN (SUBSTRING('000000000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('000000000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('000000000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('000000000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 3)) THEN (SUBSTRING('00000000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('00000000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('00000000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('00000000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 4)) THEN (SUBSTRING('0000000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('0000000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('0000000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('0000000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 5)) THEN (SUBSTRING('000000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('000000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('000000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('000000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 6)) THEN (SUBSTRING('00000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('00000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('00000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('00000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 7)) THEN (SUBSTRING('0000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('0000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('0000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('0000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 8)) THEN (SUBSTRING('000' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('000' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('000' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('000' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 9)) THEN (SUBSTRING('00' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('00' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('00' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('00' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 10)) THEN (SUBSTRING('0' + CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING('0' + CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING('0' + CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING('0' + CONVERT(CHAR, R034FUN.NumCPF),10,2)) WHEN ((R034FUN.NumCPF <> 0) AND (LEN(R034FUN.NumCPF)= 11)) THEN (SUBSTRING(CONVERT(CHAR, R034FUN.NumCPF),1,3) + '.' + SUBSTRING(CONVERT(CHAR, R034FUN.NumCPF),4,3) + '.' + SUBSTRING(CONVERT(CHAR, R034FUN.NumCPF),7,3) + '-' + SUBSTRING(CONVERT(CHAR, R034FUN.NumCPF),10,2)) ELSE '' END 'CPF' FROM R034FUN inner join R030EMP on (R030EMP.NumEmp = R034FUN.NumEmp) inner join R030CAR on (R030CAR.NumEmp = R034FUN.NumEmp AND R030CAR.EstCar = R034FUN.EstCar AND R030CAR.DatAlt = (SELECT MAX(C.DATALT) FROM R030CAR C WHERE R030EMP.NumEmp = C.NumEmp AND C.DatAlt <= GETDATE())) inner join R024CAR on (R024CAR.EstCar = R034FUN.EstCar AND R024CAR.CodCar = R034FUN.CodCar) inner join R030ORG on (R030ORG.NumEmp = R034FUN.NumEmp AND R030ORG.TabOrg = R034FUN.TabOrg AND R030ORG.DatAlt = (SELECT MAX(O.DATALT) FROM R030ORG O WHERE R030EMP.NumEmp = O.NumEmp AND O.DatAlt <= GETDATE())) inner join R016ORN on (R016ORN.TabOrg = R034FUN.TabOrg AND R016ORN.NumLoc = R034FUN.NumLoc) inner join R016HIE on (R016HIE.TabOrg = R034FUN.TabOrg AND R016HIE.NumLoc = R034FUN.NumLoc AND R016HIE.DatIni = (SELECT MAX(H.DATINI) FROM R016HIE H WHERE R034FUN.TabOrg = H.TabOrg AND R034FUN.NumLoc = H.NumLoc AND H.DatIni <= GETDATE())) inner join R030FIL on (R030FIL.NumEmp = R034FUN.NumEmp AND R030FIL.CodFil = R034FUN.CodFil) inner join R010SIT on (R010SIT.CodSit = R034FUN.SitAfa) left join R033PES on (R033PES.CodPES = R034FUN.CodPes) left join R038AFA on (R038AFA.numemp = R034FUN.NumEmp AND R038AFA.TipCol = R034FUN.tipcol AND R038AFA.NumCad = R034FUN.numcad AND r038afa.sitafa in (SELECT S.codsit FROM r010sit S WHERE S.tipsit = 7)) WHERE R034FUn.tipcol IN (1,2) ORDER BY 1,3,4; |
SELECCIONE R034FUN.FilCod "UnitCod", R030FIL.FilNom "Nombre de unidad", R030ORG.TabOrg || '/' || R016HIE.CodLoc "Cod.Setor", R016ORN.NomLoc "Nombre del sector", R030CAR.EstCar || '/' || R034FUN.CodCar "Cod.Cargo", R024CAR.TitRed "Nombre Cargo", R034FUN.TipCol || '/' || R034FUN.NumCad "Registro", '' "Código de empleado", CASO R034FUN.TipCol CUANDO 1 ENTONCES R034FUN.NumEmp || '/' || 'EMPLEADO' || '/' || R034FUN.NumCad CUANDO 2 ENTONCES R034FUN.NumEmp || '/' || 'TERCERO' || '/' || R034FUN.NumCad ELSE '' END "Código de integración de registro de personas", R034FUN.FunName "Nombre del empleado", DECODE(TO_CHAR(R034FUN.DatNas, 'DD/MM/AAAA'), '31/12/1900', null , TO_CHAR (R034FUN.DatNas, 'DD/MM/AAAA')) "Dt.Nascimento", R034FUN.TipSex "Sexo", R010SIT.DesSit "Situação", DECODE(TO_CHAR(R034FUN.DatAdm, 'DD/MM/AAAA ') , '31/12/1900', null, TO_CHAR(R034FUN.DatAdm, 'DD/MM/AAAA')) "Fecha de admisión", DECODE(TO_CHAR(R038AFA.DATAFA, 'DD/MM/AAAA') , '31 /12/1900', null, TO_CHAR(R038AFA.DATAFA, 'DD/MM/AAAA')) "Dt.Despido", CASE R034FUN.EstCiv CUANDO 1 ENTONCES 'Soltero' CUANDO 2 ENTONCES 'Casado' CUANDO 3 entonces /Pasep ", CASO R034FUN.tipcon CUANDO 1 ENTONCES 'Empleado' CUANDO 2 ENTONCES 'Director' CUANDO 3 ENTONCES 'Trabajador Rural' CUANDO 4 ENTONCES 'Jubilado' CUANDO 5 ENTONCES 'Pasante' CUANDO 6 ENTONCES 'Aprendiz' CUANDO 7 ENTONCES 'Fecha límite determinada - Ley 9.601/98' CUANDO 8 ENTONCES 'Director Jubilado' CUANDO 9 ENTONCES 'Agente Público' CUANDO 10 ENTONCES 'Docente' CUANDO 11 ENTONCES 'Cooperador' CUANDO 12 ENTONCES 'Trabajador Doméstico' CUANDO 13 ENTONCES 'Docente de Término Fijo' OTRA OTRA 'Empleado' END "Contratación", R033PES.NumCid "Rg", R033PES.EstCid "UF-RG", DECODE(R034FUN.NumCPF, 0, ' ', SUBSTR(TO_CHAR(R034FUN.NumCPF),1,3) ||' .' || SUBSTR(TO_CHAR(R034FUN.NumCPF),4,3) ||'.'|| SUBSTR(TO_CHAR(R034FUN.NumCPF),7,3) ||'-'|| SUBSTR(TO_CHAR(R034FUN.NumCPF),10,2)) "CPF" FROM R034FUN unión interna R030EMP en (R030EMP.NumEmp = R034FUN.NumEmp) unión interna R030CAR en (R030CAR.NumEmp = R030EMP.NumEmp AND R030CAR.EstCar = R034FUN .EstCar AND R030CAR.DatAlt = (SELECT MAX(DATALT) FROM R030CAR C WHERE R030EMP.NumEmp = C.NumEmp AND C.DatAlt <= SYSDATE)) unión interna R024CAR en (R024CAR.EstCar = R034FUN.EstCar AND R024CAR.CodCar = R034FUN.CodCar) unión interna R030ORG en (R030ORG.NumEmp = R034FUN.NumEmp AND R030ORG.TabOrg = R034FUN.TabOrg AND R030ORG.DatAlt = (SELECT MAX(O.DATALT) FROM R030ORG O WHERE R030EMP.NumEmp = O.NumEmp AND EL .DatAlt <= SYSDATE)) unión interna R016ORN en (R016ORN.TabOrg = R034FUN.TabOrg AND R016ORN.NumLoc = R034FUN.NumLoc) unión interna R016HIE en (R016HIE.TabOrg = R034FUN.TabOrg AND R016HIE.NumLoc = R034F UN.NumLoc Y R016HIE .DatIni = (SELECT MAX(DATINI) FROM R016HIE H DONDE R034FUN.TabOrg = H.TabOrg AND R034FUN.NumLoc = H.NumLoc AND H.DatIni <= SYSDATE)) unión interna R030FIL en (R030FIL.NumEmp = R034FUN.NumEmp AND R030FIL.CodFil = R034FUN.CodFil) unión interna R010SIT en (R010SIT.CodSit = R034FUN.SitAfa) unión izquierda R033PES en (R033PES.CodPES = R034FUN.CodPes) unión izquierda R038AFA en (R038AFA.numemp = R034FUN.NumEmp Y R034FUN. TipCol = R038AFA.tipcol Y R034FUN.NumCad = R038AFA.numcad Y r038afa.sitafa EN (SELECCIONE codsit DE r010sit DONDE r010sit.tipsit = 7)) DONDE R034FUN.TipCol EN (1,2) ORDENAR POR 1,3,4 |
Observación
El comando anterior también considera a los empleados que son despedidos .
Posiciones
Vincular registros
Los registros se vinculan mediante el código de registro de trabajo :
Registro en el sistema Senior | Registro con el proveedor de SST | Ejemplo | |||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
R024CAR.EstCar
R024CAR.CodCar
|
Campo: Código de registro de posición Formato:
|
|
Comandos de base de datos para saneamiento base
SELECT DISTINCT R024CAR.EstCar 'Estructura de posición', R024CAR.CodCar 'Código de posición', R024CAR.TitRed 'Título de posición', CAST(R024CAR.ESTCAR AS VARCHAR(10))+'/'+ CAST(R024CAR.CODCAR AS VARCHAR( 100)) 'Código de registro de posición' FROM R024CAR, R034FUN, R010SIT WHERE (R024CAR.DatExt >= getdate() OR CAST(R024CAR.DatExt AS DATE) = '1900-12-31') AND R024CAR.ESTCAR = R034FUN .ESTCAR Y R024CAR.CODCAR = R034FUN.CODCAR Y R034FUN.SITAFA = R010SIT.CODSIT Y R010SIT.TIPSIT <> 7 ORDENAR POR 1,3 |
SELECT DISTINCT R024CAR.EstCar "Estructura de posición", R024CAR.CodCar "Código de posición", R024CAR.TitRed "Título de posición", R024CAR.EstCar || '/' || R024CAR.CodCar "Código de registro de posición" FROM R024CAR, R034FUN, R010SIT WHERE (R024CAR.DatExt >= sysdate OR R024CAR.DatExt = TO_DATE('1900-12-31', 'AAAA-MM-DD')) AND R024CAR .ESTCAR = R034FUN.ESTCAR Y R024CAR.CODCAR = R034FUN.CODCAR Y R034FUN.SITAFA = R010SIT.CODSIT Y R010SIT.TIPSIT <> 7 ORDENAR POR 1,3 |
Sectores (Ubicaciones)
Vincular registros
Los registros se vinculan mediante el código de registro del Sector :
Registro en el sistema Senior | Registro con el proveedor de SST | Ejemplo | |||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
R016HIE.TabOrg
R016HIE.CodLoc
|
Campo: Código de registro del sector Formato:
|
|
Comandos de base de datos para saneamiento base
SELECT DISTINCT R016HIE.TabOrg 'Tabla organizativa', R016HIE.CodLoc 'Código de sector', R016ORN.LocNome 'Nombre del sector', CAST(R016HIE.TABORG AS VARCHAR(200)) +'/'+ R016HIE.CODLOC 'Código de registro Setores' DESDE R016ORN, R016HIE, R034FUN, R010SIT DONDE R016ORN.TabOrg = R016HIE.TabOrg AND R016ORN.NumLoc = R016HIE.NumLoc AND R016HIE.DatIni = (SELECCIONE MAX(DATINI) DESDE R016HIE H DONDE R016ORN. TabOrg = H.TabOrg Y R016ORN .NumLoc = H.NumLoc AND H.DatIni <= GETDATE()) AND (R016ORN.DatExt >= getdate() OR CAST(R016ORN.DatExt AS DATE) = '1900-12-31') AND R016ORN.taborg = R034FUN .taborg AND R016HIE.numloc = R034FUN.numloc AND R034FUN.SITAFA = R010SIT.CODSIT AND R010SIT.TIPSIT <> 7 ORDENAR POR 1,2,3; |
SELECT DISTINCT R016HIE.TabOrg "Organigrama", R016HIE.CodLoc "Código de sector", R016ORN.LocNom "Nombre del sector", R016HIE.TabOrg || '/' || R016HIE.CodLoc "Código de registro del sector" FROM R016ORN, R016HIE, R034FUN, R010SIT WHERE R016ORN.TabOrg = R016HIE.TabOrg AND R016ORN.NumLoc = R016HIE.NumLoc AND R016HIE.DatIni = (SELECT MAX(DATINI ) FROM R01 6HIE H DONDE R016ORN .TabOrg = H.TabOrg AND R016ORN.NumLoc = H.NumLoc AND H.DatIni <= SYSDATE) AND (R016ORN.DatExt >= sysdate OR R016ORN.DatExt = TO_DATE('1900-12-31', 'AAAA-MM- DD' )) AND R016ORN.taborg = R034FUN.taborg AND R016HIE.numloc = R034FUN.numloc AND R034FUN.SITAFA = R010SIT.CODSIT AND R010SIT.TIPSIT <> 7 ORDENAR POR 1,2,3 |
Sucursales
Vincular registros
Los registros están vinculados mediante el código de recurso de Áreas :
Registro en el sistema Senior | Registro con el proveedor de SST | Ejemplo | |||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
R030EMP.NumEmp
R030FIL.CodFil
|
Campo: Código de recurso de áreas Formato:
|
|
Comandos de base de datos para saneamiento base
SELECCIONE R030FIL.NumEmp 'Empresa', R030EMP.NomEmp 'Nombre de la empresa', R030FIL.CodFil 'Código de sucursal', R030FIL.NomFil 'Nombre de sucursal', R030FIL.RazSoc 'Nombre de la empresa brasileña', R030FIL.CodFil 'Código HR Sucursal', CASO R030FIL.TipIns CUANDO 1 ENTONCES 'CNPJ' CUANDO 2 ENTONCES 'CEI' CUANDO 3 ENTONCES 'CPF' ELSE null END 'Tipo de registro', CASO R030FIL.TipIns CUANDO 1 ENTONCES CASO CUANDO (REPLACE(R030FIL.NumCGC, '.', '') = nulo) ENTONCES nulo ELSE (SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),1,2) + '.' + SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL. NumCGC, '.', '')),3,3) + '.' + SUBSTRING(CONVERTIR(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),6,3) + '/' + SUBCADE(CONVERTIR(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),9,4) + '-' + SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, '.', '')) ,13,2)) FINAL CUANDO 2 ENTONCES CASO CUANDO (REPLACE(R030FIL.NumCGC, '.', '') = null) ENTONCES null ELSE (SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, ' .', ' ')),1,2) + '.' + SUBSTRING(CONVERTIR(CHAR, REEMPLAZAR(R030FIL.NumCGC, '.', '')),3,3) + '.' (CHAR, REEMPLAZAR (R030FIL.NumCGC) , '.', '')),6,5) + '/' + SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),11, 2)) FINAL CUANDO 3 ENTONCES CASO CUANDO (REPLACE(R030FIL.NumCGC, '.', '') = nulo) ENTONCES nulo ELSE (SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, '.', '')) ,1,3) + '. ' + SUBSTRING(CONVERTIR(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),4,3) + '.' NumCGC, '.', '')),7,3) + '-' + SUBSTRING(CONVERT(CHAR, REPLACE(R030FIL.NumCGC, '.', '')),10,2)) END ELSE null END 'Número de registro', CASE WHEN (R030FIL.InsCei = 0) THEN null ELSE R030FIL. InsCei END 'Número de registro CEI', CASO CUANDO (R030FIL.NumCno = 0) ENTONCES nulo ELSE R030FIL.NumCno END 'Número de registro en CNO', CASO CUANDO (R030FIL.NCaepf = 0) ENTONCES nulo ELSE R030FIL.NCaepf END 'Registro CAEPF número', CAST(R030FIL.NumEmp AS VARCHAR(10))+'/'+ CAST(R030FIL.CodFil AS VARCHAR (10)) 'Código de recursos de áreas' FROM R030FIL, R030EMP DONDE R030Emp.NumEmp = R030FIL.NumEmp ORDER BY 1 ,3,4; |
seleccione SUCURSAL", CASO R030FIL.TipIns CUANDO 1 ENTONCES 'CNPJ' CUANDO 2 ENTONCES 'CEI' CUANDO 3 ENTONCES 'CPF' ELSE NULL END "Tipo de registro", CASO R030FIL.TipIns CUANDO 1 ENTONCES DECODE(REPLACE(R030FIL.NumCGC, ' .', ''), nulo, nulo, SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''),1,2) || SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''), 3,3) || '.' || SUBSTR(R030FIL.NumCGC, '.', ''),6,3) || '.', ''),9,4) || SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''),13,2)) CUANDO 2 ENTONCES DECODIFICA (REPLACE(R030FIL.NumCGC, '.', ''),null, null, SUBSTR(REPLACE(R030FIL. NumCGC, '.', ''),1,2) || SUBSTR(REPLACE(R030FIL.NumCGC, '. ', ''),3,3) || SUBSTR(R030FIL.NumCGC, ' .', ''),6,5) || NumCGC, '.', ''),11,2)) CUANDO 3 ENTONCES DECODIFICAR(REPLACE(R030FIL.NumCGC, '.', ''), 0, ' ', SUBSTR(REPLACE(R030FIL.NumCGC, '.' , ''),1,3) ||'.'|| SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''),4,3) ||'.'|| SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''),7,3) ||'-'|| SUBSTR(REPLACE(R030FIL.NumCGC, '.', ''),10,2)) ELSE null END "Número de registro", DECODE(R030FIL.InsCei, 0, null, R030FIL.InsCei) "Número de registro CEI", DECODE (R030FIL.NumCno, 0, null, R030FIL.NumCno) "Número de registro CNO", DECODE(R030FIL.NCaepf, 0, null, R030FIL.NCaepf) "Número de registro CAEPF", R030FIL.NumEmp || '/' || R030FIL.CodFil "Código de recurso de áreas" DESDE R030FIL, R030EMP DONDE R030Emp.NumEmp = R030FIL.NumEmp ORDENAR POR 1,3,4 |
Centros de costos
Vincular registros
Los registros se vinculan mediante el código de registro del Centro de Costos :
Registro en el sistema Senior | Registro con el proveedor de SST | Ejemplo | ||||||
---|---|---|---|---|---|---|---|---|
R018CCU.CodCcu
|
Campo: Código de registro del centro de costos Formato:
|
|
Comandos de base de datos para saneamiento base
SELECCIONE DISTINCT R018CCU.NumEmp 'Empresa', R030EMP.NomEmp 'Nombre de la empresa', R018CCU.CodCcu 'Código de centro de costos', R018CCU.NomCcu 'Descripción del centro de costos', R018CCU.CodCcu 'Código de registro del centro de costos' FROM R030EMP, R018CCU, R034FUN , R010sit donde r018ccu.numemp = r030emp.numemp y r018ccu.numemp = r034fun.numemp y r018ccu.codccu = r034fun.codccu y (r018ccu.datext> = getdate () - 31') AND R034FUN.SITAFA = R010SIT.CODSIT AND R010SIT.TIPSIT <> 7 ORDENAR POR 1,3; |
SELECCIONE DISTINTO R018CCU.NumEmp "Empresa", R030EMP.EmpName "Nombre de la empresa", R018CCU.CodCcu "Código del centro de costos", R018CCU.NomCcu "Descripción del centro de costos", R018CCU.CodCcu "Código de registro del centro de costos" DE R030EMP, R018CCU, R034FUN , R010SIT DONDE R018CCU.NUMEMP = R030EMP.NUMEMP AND R018CCU.NUMEMP = R034FUN.NUMEMP AND R018CCU.CODCCU = R034FUN.CODCCU AND (R018CCU.DatExt >= sysdate OR R018CCU. DatExt = TO_DATE('1900-12 ',' AAAA-MM-DD')) Y R034FUN.SITAFA = R010SIT.CODSIT Y R010SIT.TIPSIT <> 7 ORDENAR POR 1,3 |