-- DERECHOS DE AUTOR ING. MARCO T. GONZALEZ
-- DESARROLLO CREATIVO S.A.
-- SECRETO COMERCIAL PROTEGIDO POR ACUERDO DE NO DIVULGACION

CREATE OR REPLACE PACKAGE convmoneda IS

   Function TipoCambio(moneda in char, fecha in date default sysdate) return number;
   PRAGMA RESTRICT_REFERENCES (TipoCambio, WNDS, WNPS);

   Function Convertir(monto in number, tcorigen in number,
                 tcdestino in number) return number;
   PRAGMA RESTRICT_REFERENCES (Convertir, WNDS, WNPS);

   Function Convertir(monto in number, monedaorigen in varchar2,
                 monedadestino in varchar2, fecha in date default sysdate) return number;
   PRAGMA RESTRICT_REFERENCES (Convertir, WNDS, WNPS);

   Function Convertir(monto in number, tcorigen in number,
                 monedadestino in varchar2, fecha in date default sysdate) return number;
   PRAGMA RESTRICT_REFERENCES (Convertir, WNDS, WNPS);

   Function Convertir(monto in number, monedaorigen in varchar2,
                 tcdestino in number, fecha in date default sysdate) return number;
   PRAGMA RESTRICT_REFERENCES (Convertir, WNDS, WNPS);

   FUNCTION Redondeo(monto in number, fraccion IN number) Return number;
   PRAGMA RESTRICT_REFERENCES (Redondeo, WNDS, WNPS);

END;
/
