FUNCTION existencia(pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,xbodega)
 DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pid,xbodega SMALLINT,
        pexistencia,pexistencia1,cantidad DEC(12,5),
        verdad BOOLEAN
        
   LET verdad = FALSE
   DISPLAY pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,pid,xbodega
   SELECT SUM(a.cantidad_2) INTO pexistencia 
           FROM iptb00006 a
           WHERE (a.cod_n=Pcodn and 
                 a.cod_grupo=Pcodgrupo 
                 and a.cod_tipo=Pcodtipo and 
                 a.cod_sec=Pcodsec) AND
               ( a.bodega = xbodega) 
                 AND (a.status_t IS NULL) 
            
           IF pexistencia IS NULL THEN
              LET pexistencia = 0
           END IF
           IF pexistencia1 IS NULL THEN
              LET pexistencia1 = 0
           END IF
           IF pexistencia < 0 THEN
              RETURN TRUE,pexistencia
           END IF  
           IF cantidad > pexistencia THEN
              RETURN  TRUE,pexistencia
           END IF
            
     RETURN verdad,pexistencia
END FUNCTION