function jsaSetPago($Recibo, $cuentabancaria, $monto, $fecha, $referencia)
{
    $xF = new cFecha();
    $fecha = $xF->getFechaISO($fecha);
    $xCta = new cCuentaBancaria($cuentabancaria);
    $msg = "";
    if ($xCta->init() == true) {
        $xCta->setNuevoRetiro($referencia, $Recibo, "", $monto, $fecha);
        $xRec = new cReciboDeOperacion(false, false, $Recibo);
        $xRec->setDatosDePago(AML_CLAVE_MONEDA_LOCAL, $monto, $referencia, TESORERIA_PAGO_TRANSFERENCIA);
    }
}