EN LA TABLA DE RECURSOS, NO ESTA MOSTRANDO LOS RECURSOS DE TIPO COPNSUMIBLES, EN EL CAMPO LOTE, PUES CUANDO SON CONSUMIBLES,LA INFORMACION DE LOS CONSUMIBLES DEBE VENIR DEL CAMPO INFOCLIEXTRA DE LA TABLA IPLESPERECURSOS(VALIDAR TABLA PARA OBTENER LA TABLA CORRECTA), Y NO ESTABA MOSTRANDO LOS DATOS, SE AJUSTO EL SCRIP EN EL BOLETIN DE MP Y PT EN LA TABLA RECURSOS:
EL SCRIPT ES EL SIGUIENTE:
EL CAMPO MODIFICADO FUE CODLOT
====================
SELECT
(
SELECT CL.CODCLASE FROM IPCLASEARTIC CL
WHERE CL.CODART = MUE.CODART AND CL.CODCLASIF = 'RECURSO'
ORDER BY CL.FECMODIF DESC, CL.HORAMODIF DESC
FETCH FIRST 1 ROWS ONLY
) TIPOREC,
MUE.CODART, ART.DESART, CASE
WHEN ca.codclase='CONSUMIBLES' then MUE.INFOCLIEXTRA
WHEN ca.codclase='CRISTALERIA' then MUE.INFOCLIEXTRA
WHEN ca.codclase='COLUMNA' then MUE.INFOCLIEXTRA
WHEN MUE.CODLOT is null and MUE.INFOCLIEXTRA IS NULL THEN 'NO APLICA'
ELSE MUE.CODLOT
END CODLOT,MUE.CODENSAYO, CASE WHEN SUM(CANTIP62HOST(CANTREAL,ART.UNIDADES, ART.UNIDADESHOST)) >=1 THEN SUM(CANTIP62HOST(CANTREAL,ART.UNIDADES, ART.UNIDADESHOST))||' '||NVL(UNIDADESHOST,' ') ELSE '0'||SUM(CANTIP62HOST(CANTREAL,ART.UNIDADES, ART.UNIDADESHOST))||' '||NVL(UNIDADESHOST,' ') END CANTREAL, DECODE((SELECT DECODE(LTE.CADUCI,NULL,'VIGENTE',TO_CHAR(TO_DATE(LTE.CADUCI, 'YYYYMMDD'), 'DD-MM-YY')) FROM IPLOTES LTE WHERE LTE.CODART = MUE.CODART AND LTE.CODLOT = MUE.CODLOT), NULL,'NO APLICA',(SELECT DECODE(LTE.CADUCI,NULL,'VIGENTE',TO_CHAR(TO_DATE(LTE.CADUCI, 'YYYYMMDD'), 'DD-MM-YY')) FROM IPLOTES LTE WHERE LTE.CODART = MUE.CODART AND LTE.CODLOT = MUE.CODLOT)) FECMODIF, UNIDADESHOST, MUENS.DESENSESP,
NVL((CASE
WHEN (SELECT EQU.FECOPE FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') = 0 THEN 'NO APLICA'
ELSE (SELECT 'U '||TO_CHAR(TO_DATE(EQU.FECOPE, 'J'), 'DD-MM-YY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END),'NO APLICA') FECULTCALIB,
NVL((CASE
WHEN (SELECT EQU.FECSIGOPE FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') = 0 THEN 'NO APLICA'
ELSE (SELECT 'P '||TO_CHAR(TO_DATE(EQU.FECSIGOPE, 'J'), 'DD-MM-YY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END),'NO APLICA') FECPROXCALIB
FROM IPLPETMUERECURSOTAEA MUE, IPARTIC ART, IPCLASEARTIC CA, IPLPETMUEENSAYO MUENS
WHERE MUE.CODPETICION = $P{CODPETICION}
AND ART.CODART = MUE.CODART
AND CA.CODCLASE!='PERSONAL'
and ca.codclasif='RECURSO'
AND CA.CODART=ART.CODART
AND MUENS.CODPETICION=MUE.CODPETICION
AND MUE.SEQENSAYO=MUENS.SEQENSAYO
AND MUE.CODMUESTRA=MUENS.CODMUESTRA
AND (MUENS.STATUS IS NULL OR MUENS.STATUS IN (0,100))
AND ART.DESART <>'COSTOS TERCEROS'
AND MUENS.CODOPEFIRMA IS NOT NULL
and CA.codclase not in('EQUIPO')
GROUP BY MUE.CODART, ART.DESART,MUE.CODLOT,MUE.CODENSAYO,MUE.FECMODIF, UNIDADESHOST,MUENS.DESENSESP,MUE.INFOCLIEXTRA,ca.codclase
order by 1, MUE.CODENSAYO
====================
