insert into TMP_PROVEEDORES_WEB (RUC, RAZON_SOC, USUARIO, CLAVE, CORREO,CORREO_PRUEBA,
                                 GRUPO_PROVEEDORES,CORREO_SOLICITANTE)
values ('20130577963', 'TRANSPORTES PALOMINO ESTRADA E.I.R.L.', 'trapaes', 'tpeirlplx2023',
        'adm.operaciones01@tpe.com.pe',
        'eduardo.segura@osf.pe', 'TRANSPORTISTAS_LIMA','mluzio@plx.com.pe');

insert into PUB_PERSONAS_NIVELACCESO (CODEMP, COD_APP, ID_PERSONA, ID_NIVEL, DESCRIPCION)
select '08', '015',tmp_proveedores_web.ruc,1,'ORDENES'
from tmp_proveedores_web
where tmp_proveedores_web.ruc in ('20130577963');

insert into PUB_PERSONAS_ACCESO (CODEMP, COD_APP, ID_PERSONA, USUARIO, ID_NIVEL, CLAVE, NOMBRE,ESTADO)
select '08', '015',tmp_proveedores_web.ruc,tmp_proveedores_web.usuario,1,tmp_proveedores_web.clave,
       left(upper(tmp_proveedores_web.razon_soc),50),1
from tmp_proveedores_web
where tmp_proveedores_web.ruc in ('20130577963');

insert into WEB_NIVEL_HAS_OPCION (CODEMP, COD_APP, ID_PERSONA, ID_NIVEL, ID_OPCION, ID_PADRE, DESCRIPCION, ORDEN)
select '08', '015',tmp_proveedores_web.ruc,1,web_nivel_has_opcion.id_opcion,
       web_nivel_has_opcion.id_padre,web_nivel_has_opcion.descripcion,
       web_nivel_has_opcion.orden
from tmp_proveedores_web,web_nivel_has_opcion
where web_nivel_has_opcion.id_persona in ('10036138462')
      and tmp_proveedores_web.ruc in ('20130577963'); 
      
INSERT INTO COS_ROLES_PROVEEDOR (CODEMP, ID_PERSONA, COD_ROL, ESTADO, USUAREG, FECREG, USUAMOD, FECMOD)
SELECT COS_ROLES_PROVEEDOR.CODEMP,tmp_proveedores_web.ruc, COS_ROLES_PROVEEDOR.COD_ROL,
COS_ROLES_PROVEEDOR.ESTADO,COS_ROLES_PROVEEDOR.USUAREG,current_timestamp, COS_ROLES_PROVEEDOR.USUAMOD,
current_timestamp
FROM COS_ROLES_PROVEEDOR,tmp_proveedores_web
WHERE COS_ROLES_PROVEEDOR.CODEMP='08' AND COS_ROLES_PROVEEDOR.ID_PERSONA='10156156740' and
      COS_ROLES_PROVEEDOR.COD_ROL='01' AND tmp_proveedores_web.ruc in ('20130577963'); 

insert into PUB_GESTION_CORREOS (ID_CORREO, FECHAHORA, DE, PARA, CC, CCO, ASUNTO, CUERPO, TIPO_CUERPO, IMG_FIRMA,
                                 IP_EQUIPO, NOM_EQUIPO, FLAG_PROCESADO, FEC_PROCESADO, CARPETA_ADJUNTOS, ADJUNTOS)
select null,current_timestamp,'siga@osf.pe',tmp_proveedores_web.correo,tmp_proveedores_web.correo_solicitante,
tmp_proveedores_web.correo_prueba,tmp_proveedores_web.asunto,tmp_proveedores_web.cuerpo,'HTML','','','',0,
current_timestamp, '/ftp/operaciones/', 'MANUAL_INSTRUCTIVO_ACCESO_WEB.pdf'
from tmp_proveedores_web
where tmp_proveedores_web.ruc in ('20130577963');