Borrar de almacenaje todo al_tiprod=1 where al_idusu=485
arreglar al_importe con al_impdolar*cotizacion
correr almacenajeconfactur('fecha de la factura'::date,cantidad de dias::int2,anio::int2,mes::int2,0)