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