Para solicitar un ajuste en la visualización cuando son cantidad en decimales que el cero no se visualiza a la izquierda.
SE REALIZA EL AJUSTE AL SCRIPT DE LA TABLA RECURSOS DEL ARCHIVO DE JASPER, ESTE ES EL SCRIPT QUE HASTA EL MOMENTO 14-03-2023 SE ENCUENTRA ACTIVO Y FUNCCIONAL:
=========================================================================
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 MUE.CODLOT IS NULL THEN 'NO APLICA'
ELSE MUE.CODLOT
END CODLOT,MUE.CODENSAYO, SUM(CANTIP62HOST(CANTREAL,ART.UNIDADES, ART.UNIDADESHOST))||' '||NVL(UNIDADESHOST,' ') CANTREAL, DECODE((SELECT DECODE(LTE.CADUCI,NULL,'VIGENTE',TO_CHAR(TO_DATE(LTE.CADUCI, 'YYYYMMDD'), 'DD-MM-YYYY')) 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-YYYY')) FROM IPLOTES LTE WHERE LTE.CODART = MUE.CODART AND LTE.CODLOT = MUE.CODLOT)) FECMODIF, UNIDADESHOST, MUENS.DESENSESP,
(CASE
WHEN (SELECT TO_CHAR(TO_DATE(EQU.FECOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') IS NULL THEN 'NO APLICA'
ELSE (SELECT 'U '||TO_CHAR(TO_DATE(EQU.FECOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END) FECULTCALIB,
(CASE
WHEN (SELECT TO_CHAR(TO_DATE(EQU.FECSIGOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') IS NULL THEN ' '
ELSE (SELECT 'P '||TO_CHAR(TO_DATE(EQU.FECSIGOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END) 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
GROUP BY MUE.CODART, ART.DESART,MUE.CODLOT,MUE.CODENSAYO,MUE.FECMODIF, UNIDADESHOST,MUENS.DESENSESP
order by 1, MUE.CODENSAYO
===================================================================
SE VA A REALIZAR LA MODIFICAICON AL CAMPO
SUM(CANTIP62HOST(CANTREAL,ART.UNIDADES, ART.UNIDADESHOST))||' '||NVL(UNIDADESHOST,' ') CANTREAL
POR:
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
======================== quedaria de esta forma
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 MUE.CODLOT 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-YYYY')) 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-YYYY')) FROM IPLOTES LTE WHERE LTE.CODART = MUE.CODART AND LTE.CODLOT = MUE.CODLOT)) FECMODIF, UNIDADESHOST, MUENS.DESENSESP,
(CASE
WHEN (SELECT TO_CHAR(TO_DATE(EQU.FECOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') IS NULL THEN 'NO APLICA'
ELSE (SELECT 'U '||TO_CHAR(TO_DATE(EQU.FECOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END) FECULTCALIB,
(CASE
WHEN (SELECT TO_CHAR(TO_DATE(EQU.FECSIGOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%') IS NULL THEN ' '
ELSE (SELECT 'P '||TO_CHAR(TO_DATE(EQU.FECSIGOPE, 'J'), 'DD-MM-YYYY') FROM IPLEQUALARMAS EQU WHERE EQU.CODEQUIPO = MUE.CODART AND EQU.ALARMA LIKE 'CALIFICACI%')
END) FECPROXCALIB
FROM IPLPETMUERECURSOTAEA MUE, IPARTIC ART, IPCLASEARTIC CA, IPLPETMUEENSAYO MUENS
WHERE MUE.CODPETICION = '1145'
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
GROUP BY MUE.CODART, ART.DESART,MUE.CODLOT,MUE.CODENSAYO,MUE.FECMODIF, UNIDADESHOST,MUENS.DESENSESP
order by 1, MUE.CODENSAYO;