Para habilitar el pago con millas siga los siguientes pasos:
1) Agregue estos campos a la base de datos.
alter table venconceptoval add(valor number(8,2) default null);
alter table venconceptoval add(millas number(8,2) default null);
alter table venpagovalores add(millas number(14,2) default null);


2) Agregue en venfac en el paquete varios pero tiene que ser al final la siguiente rutina.
   Recuerde modificar tambien el venfac de fuentes que va vacio solo con las declaraciones.
   EN AMBOS DEBE SER AL FINAL DEL PAQUETE.

   PROCEDURE ConvMillas(pConcepto in varchar2, pValor in number) IS
      Plid ParamList;
   Begin
      Plid:=Create_Parameter_List('CNVMILLAX');
      Add_Parameter(plid,'CONCEPTO',TEXT_PARAMETER, pConcepto);
      Add_Parameter(plid,'VALOR',TEXT_PARAMETER, pValor);
      Call_Form('ventas/venconvm', NO_HIDE, DO_REPLACE, NO_QUERY_ONLY, SHARE_LIBRARY_DATA, plId);
      Destroy_Parameter_List('CNVMILLAX');
   End ConvMillas;

3) Instalar el paquete facmillas.sql

4) Instalar las formas venconvm y concepva

5) Modificar el pago y la factura.

   agregar en ambos un campo tabla base de tipo number.
   item venpagovalores.millas number visible no editable no navegable por teclado.

agregar al WVI vanpagovalores.monto:
If :venpagovalores.clase = 'T' then
   If FACMILLAS.SoportaMillas(:venpago.cia, :venpagovalores.concepto) then
      :millas:=facmillas.ValoraMillas(:venpago.cia, :venpagovalores.concepto, :venpagovalores.monto);
   end if;
End if;

agregar trigger WhenMouseDobleClick venpagovalores.monto
if :venpagovalores.clase='T' then
   Varios.ConvMillas(:venpagovalores.concepto, :venpagovalores.monto);
end if;

Yo te estoy enviando factura y pago con todo esto hecho pero
debes recordar que no te compilaran!!
La razon nosotros ya no usaremos mas la libreria precios!!
Debes atarla a la factura y al pago de ser necesario.
Guarde sus versiones actuales por si las moscas.
Si despues de eso te sigue dando error de compilacion me llamas!