CURSOR LC IS
      SELECT * FROM VTA_DETALLE 
      WHERE VTACODCIA = PV_CIACOD
       AND VTACODSUC = PV_SUCCOD                          
       AND VTAANNO =  PV_anno
       AND VTA_DIMENSION='2';

                   
    FOR REC IN LC LOOP
         -- COMPEDDET 
         BEGIN
         SELECT PEDPRECIO INTO PU FROM 
         COMPEDDET WHERE 
         PEDCODCIA = PV_CIACOD    AND
         PEDCODSUC = PV_SUCCOD    AND
         PEDNROPED = REC.VTANROPED  AND
         PEDNROLIN = REC.VTA_LINPED;
         END;

         TOTAL := PU * REC.CANTUNIMED;
            
         -- VTA_DETALLE
         BEGIN
         UPDATE VTA_DETALLE SET VTAMTONET=TOTAL
         WHERE  VTACODCIA = PV_CIACOD
            AND VTACODSUC = PV_SUCCOD                          
            AND VTAANNO =  PV_anno
            AND VTA_DIMENSION='2' 
            AND VTACODPRD = REC.VTACODPRD
            AND VTANROPED = REC.VTANROPED
            AND VTA_LINPED = REC.VTA_LINPED;
            exception
         WHEN OTHERS THEN
            rollback;
            return; 
         END; 
                  
    END LOOP;            
    COMMIT;