AL MOMENTO DE CREAR UNA ORDEN DE UNA ESPECIFICACION QUE CONTIENE CODIGOS DE ENSAYO IGUALES, ESTO HACE QUE SE CARGUE LOS RECURSOS DE AMBOS EN CADA ENSAYO ES DECIR QUE SI UN ENSAYO DE ESOS TIENE 2 RECURSOS Y EL OTRO 3 RECURSOS, EN LA CREACION DE LA ORDEN CADA ENSAYO QUEDARA CON 5 RECURSOS.
REVISANDO, EN EL ARCHIVO IPLPLANIFORDFAB.PAN
EN EL CURSOR DEL INSERT QUE AGREGA LO SRFECURSOS:
CURSOR=CINSRECURSOS INSERT INTO IPLPETMUERECURSOTAEA(CODPETICION, CODMUESTRA, CODENSAYO, SEQENSAYO, DESCTAREA, CODART, CANTIDAD,
CODOPEMODIF, FECMODIF, HORAMODIF)
SELECT :CODPETICION, :CODMUESTRA, T.CODENSAYO, T.SEQENSAYO, T.DESCTAREA, T.CODART, T.CANTIDAD,
IP.GETUSERNAME, FECHASYS, HORASYS
FROM IPLESPRECURSOTAREA T
WHERE CODESPECIFICACION=:CODESPECIFICACION
AND TIPOESPECIFICACION=:TIPOESPECIFICACION
AND VERSION=:VERSION
AND NUMREDUCIDA=:NUMREDUCIDA
AND CODENSAYO=:ENSAYO;
LA SOLUCION ES DIFERENCIAR LASECUYENA DEL ENSAYO PARA EVITAR LA SUMATORIA DE RECUROS EN ENSAYOS CON MISMO CODIGO
CURSOR=CINSRECURSOS INSERT INTO IPLPETMUERECURSOTAEA(CODPETICION, CODMUESTRA, CODENSAYO, SEQENSAYO, DESCTAREA, CODART, CANTIDAD,
CODOPEMODIF, FECMODIF, HORAMODIF)
SELECT :CODPETICION, :CODMUESTRA, T.CODENSAYO, T.SEQENSAYO, T.DESCTAREA, T.CODART, T.CANTIDAD,
IP.GETUSERNAME, FECHASYS, HORASYS
FROM IPLESPRECURSOTAREA T
WHERE CODESPECIFICACION=:CODESPECIFICACION
AND TIPOESPECIFICACION=:TIPOESPECIFICACION
AND VERSION=:VERSION
AND NUMREDUCIDA=:NUMREDUCIDA
AND CODENSAYO=:ENSAYO AND SEQENSAYO=:NENSAYO;
CON ESTO SE EVITARAEL FALLO.
