AL EFECTUARSE EL CAMBIO DE PANTALLA EN MAT, DE OPRDENES ABIERTAS, SE GENERA CONFILCTOCON ALS ORDENES CERRADAS, SE PROCEDE A CREAR UN ANUEVA PANTALLA DE ORDENES CERRADAS:
EN EL ARCHIVO: IPLPETLISTA_HIST.FRM
SE REALIZO UN CAMBIO:
BEGINBLOQUE=IPLPETLISTAHIST.PAN
POSX=1
POSY=1
REGPAG=40
WHERE=PET.STATUS=400 ;
ENDBLOQUE
SE AGREGA LA NUEVA PANTALLA: IPLPETLISTAHIST.PAN
SE MODIFICO EL SCRIPT: PARA QUE SOLO FILTRE POR ORDENES CERRADAS:
SELECT PET.CODPETICION CODPETICION, PET.TIPORDFAB TIPORDFAB, BULTO.BULTO QC, PET.ORDENORI ORDENORI, ORIGEN.DESCLI DESORIGEN, PET.SWTPLANIFICACION SWTPLANIFICACION,PET.FECDISTRIBU FECDISTRIBU, PET.CODCLASEFAMILIA CODCLASEFAMILIA, PET.CODESPECIFICACION CODESPECIFICACION, ESPE.DESESPECIFICACION DESCRIPCIONESP, PET.VERSION VERSION, ESPE.COMPLETA COMPLETA, CASE WHEN ESPE.NUMREDUCIDA != 0 THEN ESPE.NUMREDUCIDA ELSE NULL END NUMREDUCIDA, PET.CODESPECIFICACION CODART,
PET.CODLOTFAB CODLOTFAB, PET.STATUS ESTADO, COUNT(ENS.CODPETICION) ENSAYOS, (SELECT COUNT(ENSA.CODPETICION)FINALIZADOS FROM IPLPETMUEENSAYO ENSA WHERE Codpeticion=PET.CODPETICION AND CODOPEFIRMA IS NOT NULL ) FINALIZADOS, PET.DIAGNOSTICO DIAGNOSTICO
FROM IPLPETMUEENSAYO ENS, IPLPETICION PET , IPLPETBULTOSMUE BULTO, IPDIRECCIONES ORIGEN, IPLESPECIFICACION ESPE
WHERE PET.STATUS IN(400) AND PET.CODPETICION=BULTO.CODPETICION
AND PET.CODORIGEN=ORIGEN.CODCLI
AND ESPE.CODESPECIFICACION=PET.CODESPECIFICACION AND ESPE.VERSION=PET.VERSION
AND ENS.CODPETICION=PET.CODPETICION
AND (:CODPETICION IS NULL OR PET.CODPETICION LIKE :CODPETICION)
AND (:QC IS NULL OR BULTO.BULTO LIKE :QC)
AND (:DESORIGEN IS NULL OR ORIGEN.DESCLI LIKE :DESORIGEN)
AND (:CODCLASEFAMILIA IS NULL OR PET.CODCLASEFAMILIA LIKE :CODCLASEFAMILIA)
AND (:DESCRIPCIONESP IS NULL OR ESPE.DESESPECIFICACION LIKE :DESCRIPCIONESP)
AND (:CODART IS NULL OR PET.CODESPECIFICACION LIKE :CODART);
GROUPBY=PET.CODPETICION,PET.TIPORDFAB,BULTO.BULTO,PET.ORDENORI,PET.SWTPLANIFICACION,PET.STATUS, PET.TIPORDFAB,ORIGEN.DESCLI,PET.FECDISTRIBU,PET.CODCLASEFAMILIA,ESPE.DESESPECIFICACION,PET.VERSION,ESPE.COMPLETA,ESPE.NUMREDUCIDA,PET.CODESPECIFICACION,PET.CODLOTFAB,PET.DIAGNOSTICO,PET.STATUS,PET.HORAMODIF;
ORDERBY=PET.FECDISTRIBU DESC, PET.CODPETICION DESC;
QUE SE ENCUENTRAN EN LA RUTA: C:\software\PROYECTOS\COLOMPACK\40-lims